VB程序设计
来源:互联网 发布:天刀捏脸数据男 编辑:程序博客网 时间:2024/04/28 13:43
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))
Dimindex 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
DimResult() As Byte
ReDim Result(Len(M) + Len(N))
DimMCarry As Byte
DimACarry As Byte
DimRemainder As Integer
Dimi As Integer, j As Integer
DimMtemp As Integer, Atemp As Integer
Fori = 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
DimMstr As String
Forindex = 1 To Len(N) + Len(M)
Mstr = Mstr & Str(Result(index))
Next
Label3.Caption = Mstr
End Sub
End Sub
以前做的时候思路不清楚,现在重新练习,感觉还是不上手呀。。。。。。再接再厉!
- vb 程序设计
- VB程序设计
- vb.net 程序设计规范
- VB程序设计总述
- VB程序设计实验报告
- VB 程序设计概述
- vb中动画程序设计
- 用vb程序设计动画
- VB 程序设计参考
- vb窗体程序设计实例
- VB-计时器程序设计1
- VB-计时器程序设计2
- VB程序设计总结
- VB VC等程序设计感言
- VB程序设计实验作业(1)
- VB程序设计总括(一)
- VB.Net程序设计:分页控件
- 【VB.NET程序设计】——什么是.NET程序设计?
- build WebRTC for android
- object-
- java命名规则
- Installing Qt for Mac OS X
- 搭建cocos2d-iphone游戏引擎环境HelloWorld
- VB程序设计
- [hudson]outofmemory的解决
- WPF顶层窗口被覆盖问题
- webservice
- struts2 welcome-file-list 设置的路径不能是Action地址
- DSP入门教程
- [Testing] 关于 权限 测试一些测试点
- 关于web.xml中<welcome-file-list>
- 第十六周实验报告(任务一)【涨工资】