Option Base1
来源:互联网 发布:数控加工中心编程招聘 编辑:程序博客网 时间:2024/06/01 08:36
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
End Sub
- Option Base1
- java、Base1
- 3-6 base1
- Linux-nginx-base1
- Option
- Option
- TypeError: unbound method func1() must be called with base1 instance as first argument (got nothing
- option对象
- Option Explicit
- option 介绍
- option 介绍
- option例子
- select option
- Option Explicit
- Option Explicit
- Option leg
- struct option
- samba option
- 计算机学习心得
- 大小写转换
- 。。。
- Linux内核tty设备
- 判断出生日期是周几
- Option Base1
- 计算机期末感想
- 通俗地理解《信号与系统》-BY 某信号处理方法论大牛
- 赤脚礼赞
- POj3006 水题 初始a,间距d,求第n个质数
- 100以内的素数之和
- 三个数的比较大小
- 苦恼啊
- linux-boot-arch_x86_boot_compressed_head_32