怎样计算两位数与一位数相乘

哈哈

我有来了

困意来的太快

就像龙卷风

然而事实是

明明刚起没多久....

接下来

这次的最后一个内容

怎样计算两位数乘一位数

废话不多说

直接上图

真的感觉好神奇有没有

下面就是具体程序拉

Option Base 1

Private Sub Command1_Click()

Me.Font.Size = 70

 

Dim n1() As Byte, n1len As Long

Dim n2() As Byte, n2len As Long

Dim yushu1 As Byte, yushu2 As Byte

Dim shang As Byte

Dim tempresult As Byte

 

n1len = Len(Me.Text1.Text)

n2len = Len(Me.Text2.Text)

 

ReDim n1(n1len)

ReDim n2(n2len)

 

For i = LBound(n1) To UBound(n1)

    n1(i) = Mid(Me.Text1.Text,i, 1)

Next

For i = LBound(n2) To UBound(n2)

    n2(i) = Mid(Me.Text2.Text,i, 1)

Next

 

tempresult = n1(2) * n2(1) + shang

yushu1 = tempresult Mod 10

shang = tempresult \ 10

 

tempresult = n1(1) * n2(1) + shang

yushu2 = tempresult Mod 10

shang = tempresult \ 10

 

Print shang & yushu2 & yushu1

 

End Sub

过程就是这样

感兴趣自己尝试吧

终于完了

走拉白白~