vb
来源:互联网 发布:java 泛型的class 编辑:程序博客网 时间:2024/05/17 03:44
新建一个窗体,插入三个标签,分别为“M”,“N”,“空白”。再插入两个Text,caption为“空白”。应用按钮控件,属性改为“计算”。
在通用声明段输入
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
- VB
- VB
- VB
- VB
- vb
- vb
- VB
- VB
- vb
- VB
- vb
- VB
- vb
- vb
- VB
- vb
- VB
- vb
- android设置音量
- 重定向
- 鼠标键盘技术应用(含游戏编程相关实例)
- 【windows8开发】异步编程之Promise(Javascript)
- Linux进程间通信:管道(把管道用作标准输入和标准输出)
- vb
- android 图片拖动效果(Gallery)
- js中innerHTML与innerText的用法与区别
- C# ListView上下移动选中行
- 通过VS2010性能分析来查找代码中那些地方最损耗资源
- 12-4-24关于c++的几个类型强转运算符
- C# dataGridView上下移动选中行
- Java 理论与实践: 正确使用 Volatile 变量
- 记事本打开并粘贴指定数据