哈哈
我有来了
困意来的太快
就像龙卷风
然而事实是
明明刚起没多久....
接下来
这次的最后一个内容
怎样计算两位数乘一位数
废话不多说
直接上图
真的感觉好神奇有没有
下面就是具体程序拉
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
过程就是这样
感兴趣自己尝试吧
终于完了走拉白白~