VB

来源:互联网 发布:java限制接口访问次数 编辑:程序博客网 时间:2024/06/05 20:39
Private Sub Command1_Click()
    Me.Font.Size = 50
    Dim n1 As Byte
    Dim n2 As Byte
    Dim yushu As Byte
    Dim shang As Byte
    Dim tempResult As Byte
    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
0 0
原创粉丝点击