乘法

来源:互联网 发布:java完全自学手册下载 编辑:程序博客网 时间:2024/03/29 01:20

说实话,学VB 真的是有点云里雾里的感觉,每次上课都是在紧张的拍照中度过,但是又着实难拍,改来改去的拍了好几十张哭

希望老师下次做完之后弄一个完整的编程让我们拍一下就好了微笑(小小的期待)

一、单个数*单个数

        Private Sub Command1_Click()
        Dim a As Byte, c As Byte
        Dim b As String
        b = Me.Text1.Text
        a = Int(Val(b))
        b = Me.Text2.Text
        c = Int(Val(b))
        Dim r As Byte
        r = a * c
        Print r
        End Sub

二、多个数*单个数

      Private Sub Command1_Click()

               Dim a() As Long, i As Long
           Dim b As String
           Dim c As Long
           Dim changdu As Long
           changdu = Len(Text1.Text)
           ReDim a(chnagdu)

           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)
          Dim d As Byte

          For i = changdu To step - 1
          rm = a(i) * c + d
          r(i) = rm Mod 10
          d = rm \ 10
          Next i

         End sub

0 0
原创粉丝点击