![](https://cos-cdn.shuashuati.com/pipixue-wap/2020-1230-1107-56/ti_inject-812ce.png)
Private SubCommand1_Click() Text4 = "" a= Val(Text1) b= Val(Text2) n= Val(Text3) ' Text4 = Text4 & a & " " & ? k = 2 Do While k < n c = a * b k = k + 1 If c < 10 Then Text4 = Text4 & " " & c ' a = ? b = c Else d = c \ 10 Text4 = Text4 & " " & d a = d k = k + 1 ' If k <= ? Then d = c Mod 10 Text4 = Text4 & " " & d ' ? = d End If End If Loop End Sub