java提供相乘方法 java怎么运算乘法

乘法运算:在vb中如果位数超过一定的数量计算结果就会出错,所以必须编制一套程序供其运算.

(以前每次上vb课一般都是照着老师编好的程序录入运行,感觉好轻松,但是交完作业后再想想感觉自己收获并不大啊.因为我连一个完整的程序都读不懂,只会机械的复制粘贴,半个学期过去了也上了八次vb课了,感觉自己还没有入门,真害怕有一天别人问我,你vb学得怎么样啊,依然四个字"菜的不行".今天老师花了他宝贵的时间耐心的讲解了一个程序的读法,很清楚,让我感觉到vb的魅力,学vb真的很锻炼一个人的耐心,细心,每次学程序设计我都会想到我看过的一部电影"我是谁(没有绝对安全的系统)"好崇拜那些黑客感觉他们好厉害,做编程的样子好帅,真心佩服程序设计,编程学得好的人.我想我也应该专心学点什么了,一个人必须有自己的一技之长,尤其在这个信息时代,我们可以请教他人但是绝不可以每一个基础的东西都要麻烦他人,那样就失去了自我的价值.没有一个人喜欢整天和一个Trouble在一起.)

三位数乘一位数
Private Sub Command1_Click()
Dim a As Byte, c As Byte
Dim b As String
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
Dim d 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
End Sub
 多位数乘俩位数 
Private Sub Command1_Click()
Cls
Dim c1 As Byte 'text2中输入的第一个数
Dim c2 As Byte 'text2中输入的第二个数
Dim a() As Byte 'text1中的每一位数
Dim b As String '存储text1或text2中提取的每一个符号
Dim changdu As Long '记录text1的位数，是多少位数
Dim i As Long '循环控制变量
changdu = Len(Text1.Text) 'len函数获得text1中的字符个数
ReDim a(changdu) 'a数组中元素的个数和text1中字符的个数是一样多的
'for的作用是将text1中的字符从第一个开始一直到最后一个，提取到b中，
'并变换b，最终存储到对应的a数组元素中
For i = 1 To changdu
    b= Mid(Me.Text1.Text, i, 1)
   a(i) = Int(Val(b))
Next i
'
b = Mid(Me.Text2.Text, 1, 1)
c1 = Int(Val(b))
b = Mid(Me.Text2.Text, 2, 1)
c2 = Int(Val(b))
 
Dim rm As Byte '一次微乘法运算的中间结果
Dim r() As Byte '存放c1乘以a中元素的结果
ReDim r(changdu)
 
'd1,d2存放高位乘法的进位
Dim d1 As Byte
Dim d2 As Byte
 
Dim d As Byte '存放每一次乘法的进位，0
 
'从最后一个开始运算，所以用C2开始
For i = changdu To 1 Step -1
   rm = a(i) * c2 + d
   r(i) = rm Mod 10
    d= rm \ 10
Next i
d1 = d
 
If d1 <> 0 Then
   Print d1;
End If
For i = 1 To changdu
   Print r(i);
Next i
 
Print
'c1
 
d = 0
Dim rr() As Byte
ReDim rr(changdu)
 
For i = changdu To 1 Step -1
   rm = a(i) * c1 + d2
   rr(i) = rm Mod 10
   d2 = rm \ 10
Next i
 
If d2 <> 0 Then
   Print d2;
End If
 
For i = 1 To changdu
   Print rr(i);
Next i
 
Print
'求和
'Dim d As Byte
For i = changdu - 1 To 1 Step -1
   'r(i) = r(i) + rr(i + 1) + d
    rm = r(i) + rr(i + 1) + d
    r(i) = rm Mod 10
    d = rm \ 10
Next i
rm = rr(1) + d1 + d
d1 = rm Mod 10
d = rm \ 10
d = d2 + d
'Print d & d1;
Print d;
Print d1;
For i = 1 To changdu
   Print r(i);
Next i
 End Sub