作业4

Dim n1 As Byte, n1len As Long

Dim n2 As Byte, n2len As Long

Dim yushu As Byte

Dim shang As Byte

 

Dim tempResule As Byte

 

n1len = Len(Me.Text1.Text)

n2len = Len(Me.Text2.Text)

ReDim n1(n1len) ' 1

ReDim n2(n2len) '长度始终为1

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

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

Next

'n1=int(val(me.text1.text))

'n2=int(val(me.text2.text))

'tempResult = n1 * n2

 

 

tempResult = n1 * n2

 

yushu = tempResult Mod 10

shang = tempResult \ 10

 

Print shang & yushu