隔了几天的作业

好几天没写作业，，并不是因为忘了或者说懒，真真的是因为登陆不上，，，重新注册也不行，，到现在欠了几篇也不太清楚。。。

先写几篇，，把作业补齐吧，，，

Private Sub Command1_Click()
Dim n1 As Long
Dim n2 As Long
Dim yushu As Long
Dim shang As Long
Dim tempresult As Long
n1 = Int(Val(Me.Text1.Text))
n2 = Int(Val(Me.Text2.Text))
tempresult = n1 * n2
yushu = tempresult Mod 10
shang = tempresult \ 10
Print shang & yushu
End Sub

这是上一次的程序，，，写完了，，，，然而发现时间，，好像不太够了！