三个数乘法。vb

Private Sub Command1_Click()
Cls
 Font.Size = 30
 Dim a As Double
 Dim b As Double
 Dim c As Double
 a = 8
 b = 9
 c = a * b
 Print c

End Sub

    先写上最简单的乘法吧 = =

 Dim a As Byte

 Dim b As String

 Dim c As Byte

 

 b =Mid(Me.Text1.Text, 1, 1)

 a1 = Int(Val(b))

 b =Mid(Me.Text1.Text, 2, 1)

 a2 = Int(Val(b))

 b =Mid(Me.Text1.Text, 3, 1)

 a3 = Int(Val(b))

 b = Me.Text2.Text

 c = Int(Val(b))

 Dim r As Byte

 r = a3 * c

 Dim r1 As Byte

 Dim r2 As Byte

 Dim r3 As Byte

 r3 = r Mod 10

 d = r \ 10

 r = a2 * c + d

 r2 = r Mod 10

 d = r \ 10

 r = a1 * c + d

 

 

 r1 = r Mod 10

 d = r \ 10

 Print d & r1& r2 & r3

  先要声明两个textbox  ， 然后在里面输入数 - -  我还想怎么不行呢。   这是三个数乘一个 。 慢慢来！！ 还是不懂   活下去。