传说中的乘法

最新推荐文章于 2020-09-12 18:24:50 发布

a632330291s

最新推荐文章于 2020-09-12 18:24:50 发布

阅读量205

点赞数

本文链接：https://blog.csdn.net/a632330291s/article/details/51210525

版权

Private Sub Command1_Click()
    Dim c1 As Byte
    Dim c2 As Byte
    Dim a() As Byte
    Dim b As String
    Dim changdu As Long, i As Long
    changdu = Len(Text1.Txet)
    ReDim a(changdu)
    For i = 1 To changdu
        b = Mid(Me.Text1.Text, i, 1)
        a(i) = Int(Val(b))
    Next i
        b = Me.Text2.Text
        c = Int(Val(b))
        Dim rm As Byte
        Dim R() As Byte
        ReDim R(changdu)
        b = Mid(b, 1, 1)
        c1 = Int(Val(b))
        Dim rm As Byte
        Dim R() As Byte
        ReDim R(changdu)
        Dim d As Byte
    Next i
        Print d & r1 & r2 & r3
        If d <> 0 Then
            Print d;
        End If




End Sub