vb两位数相乘程序

一·实验目的

     实现两位数相乘。实现两位数的逐一相乘，并实现加法和乘法的进位。例如：27乘以34，4乘以7等于28进2，各位保留下8,2乘以4等于8加上2等于10 ，进1。然后3乘以7等于21，进2,1加上0等于1,2乘以3等于6加上2等于8，加上1等于9结果为0918。

二·实验内容

     首先打开vb6.0中文版，在窗体上画出三个label,前两个label分别写上n,m,第三个label为输出结果。再画出两个text窗体，再画出一个command按钮。点击command按钮编写语言，在通用字段上输入以下语言：

Option Base 1

 点击command按钮输入以下语言：

Private Sub Command1_Click()

 

   Dim M As String

   Dim N As String

 

   M = Trim(Text1.Text)

   N = Trim(Text2.Text)

 

   Dim Number1() As Byte

   Dim Number2() As Byte