两位数活多位乘法的计算编程

两位数活多位乘法的计算编程代码编写;OptionBase1PrivateSubCommand1_Click()DimMAsStringDimNAsStringM=Trim(Text1.Text)N=Trim(Text2.Text)DimNumber1()AsByteDimNumber2()AsByteReDimNumber1(Len(M))R

大家好,又见面了,我是你们的朋友全栈君。

代码编写;

Option Base 1

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
ReDim Number1(Len(M))
ReDim Number2(Len(N))
Dim index As Byte
For index = 1 To Len(M) Step 1
Number1(index) = Mid(M, index, 1)
Next index
For index = 1 To Len(N) Step 1
Number2(index) = Mid(N, index, 1)
Next index
Dim Result() As Byte
ReDim Result(Len(M) + Len(N))
Dim MCarry As Byte
Dim ACarry As Byte
Dim Remainder As Integer
Dim i As Integer, j As Integer
Dim Mtemp As Integer, Atemp As Integer
For i = Len(N) To 1 Step -1
For j = Len(M) To 1 Step -1
Mtemp = Number1(j) * Number2(i) + MCarry
MCarry = Mtemp \ 10
Remainder = Mtemp Mod 10
Atemp = Remainder + Result(i + j) + ACarry
ACarry = Atemp \ 10
Result(i + j) = Atemp Mod 10
Next j
Result(i) = MCarry + ACarry
MCarry = 0
ACarry = 0
Next i
Dim Mstr As String
For index = 1 To Len(N) + Len(M)
Mstr = Mstr & Str(Result(index))
Next
Label3.Caption = Mstr
End Sub

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/138556.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • JSP实现成语接龙「建议收藏」

    JSP实现成语接龙「建议收藏」首页:<%–CreatedbyIntelliJIDEA.User:zddDate:2019/11/18Time:10:15TochangethistemplateuseFile|Settings|FileTemplates.–%><%@pagecontentType=”text/html;chars…

  • touchesBegan:(NSSet*)touches withEvent:(UIEvent *)event使用

    touchesBegan:(NSSet*)touches withEvent:(UIEvent *)event使用iOSProgramming–触摸事件处理(2)        在上一篇《iOSProgramming–触摸事件处理(1)》中了解触摸、事件和响应者之后,接下去学习如何处理用户的触摸事件。首先触摸的对象是视图,而视图的类UIView继承了UIRespnder类,但是要对事件作出处理,还需要重写UIResponder类中定义的事件处理函数。根据不通的触摸状态,程序会调用相应的处理

  • SpringCloud-Hystrix(服务熔断、服务降级)

    SpringCloud-Hystrix(服务熔断、服务降级)SpringCloud-Hystrix(服务熔断,服务降级)Hystrix(豪猪)注明:此项目为本人学习尚硅谷老师的教学视频然后整理核心的配置文件,所有的项目均在以下地址下载。https://github.com/xwbGithub/microservicecloud下载本项目请参考microservicecloud-provider…

  • LoadRunner运行过程中的一个诡异问题

    LoadRunner运行过程中的一个诡异问题

  • gg修改器lua脚本怎么编写菜单,lua脚本怎么编写提示信息「建议收藏」

    gg修改器lua脚本怎么编写菜单,lua脚本怎么编写提示信息「建议收藏」gg修改器lua脚本怎么编写菜单,lua脚本怎么编写提示信息在本主题中,你们将要学习如何创建这样的前缀[ON]和[OFF]为什么要使用它?好了,你可以让你的脚本菜单干净,仍然用它来做其他事情一样表示了提示结果(数字,文字,等…)这样做有它的2种方式:呼叫和菜单上刷新东东吧创建一个正在读的作弊功能后,将被调用的函数1.首先,你需要存储的ON和OFF信息为字符串,然后设置功能“cs…

  • 修改注册表为当前用户和默认用户添加日文输入法

    修改注册表为当前用户和默认用户添加日文输入法修改注册表添加日文输入法步骤1.将日文输入法需要的文件拷贝到目录中2.合并注册表键值为当前用户添加中文拼音输入法和日文输入法3.为默认用户添加日文输入法①加载默认用户注册表②合并下列注册表内容,为默认用户添加输入法③卸载默认用户注册表文件,保存修改的内容。步骤1.将日文输入法需要的文件拷贝到目录中从日文系统中拷贝下列目录中的全部文件到中文系统中的相同目录中。C:\Windows\IME\IMEJP\DICTS拷贝后目录如下图所示。也可以在下面链接中下载相应的文件。日文输入法文件2.合并注册

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号