多位数乘两位数乘法

本文介绍了一个使用Visual Basic编写的简单乘法计算器程序。该程序通过解析输入的两个文本字符串,逐位进行乘法运算,并显示结果。涉及的主要步骤包括:初始化变量、读取并转换文本框中的数字、执行乘法操作及结果显示。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

1.打开VB程序,在窗口中创建一个Command窗体和两个Text窗体。

2.将Command窗体改名为乘法,Text窗体删除命名。

3.双击Command窗体,在弹出的的窗口中输入以下内容

Cls
Dim c As Byte
Dim a() As Byte
Dim b As String
Dim changdu As Long, i As Long
changdu = Len(Text1.Text)
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)
Dim d As Byte
For i = changdu To 1 Step -1
    rm = a(i) * c + d
    r(i) = rm Mod 10
    d = rm / 10
Next i
If d <> 0 Then
    Print d;
End If
For i = 1 To changdu
    Print r(i);
Next i

4.点击启动按钮,运行程序。

注意 英文分号的使用,否则结果会出现不在一行的情况。

最后结果为

END

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值