7.2016.物电学院 电气工程及其自动化 辛雅松 15050341033
2016-04-25 14:39
225 查看
YI~n*1
Private Sub Command1_Click()
Cls
Dim a() As Byte
Dim r() As Byte
Dim b As String
Dim c As Byte
Dim i As Long
Dim L As Long
L = Len(Me.Text1.Text)
ReDim a(L)
For i = 1 To L
b = Mid(Me.Text1.Text, i, 1)
a(i) = Int(Val(b))
Next i
c = Int(Val(Me.Text2.Text))
Dim d As Byte
Dim t As Byte
ReDim r(L)
For i = L To 1 Step -1
t = a(i) * c + d
r(i) = t Mod 10
d = t \ 10
Next i
Open "D:\multiplication.txt" For Output As #1
If d <> 0 Then
Print #1, d;
End If
For i = 1 To L
Print #1, r(i);
Next i
Close #1
End Sub
ER~n*2
Private Sub Command1_Click()
Cls
Dim a() As Byte
Dim b As String
Dim c1 As Byte, c2 As Byte
Dim i As Long
Dim L As Long
L = Len(Me.Text1.Text)
ReDim a(L)
For i = 1 To L
b = Mid(Me.Text1.Text, i, 1)
a(i) = Int(Val(b))
Next i
b = Mid(Me.Text2.Text, 2, 1)
c1 = Int(Val(b))
Dim d1 As Byte
Dim r() As Byte
ReDim r(L)
Dim t As Byte
For i = L To 1 Step -1
t = a(i) * c1 + d1
r(i) = t Mod 10
d1 = t \ 10
Next i
b = Mid(Me.Text2.Text, 1, 1)
c2 = Int(Val(b))
Dim d2 As Byte
Dim rr() As Byte
ReDim rr(L)
For i = L To 1 Step -1
t = a(i) * c2 + d2
rr(i) = t Mod 10
d2 = t \ 10
Next i
Dim d As Byte
For i = L - 1 To 1 Step -1
t = rr(i + 1) + r(i) + d
r(i) = t Mod 10
d = t \ 10
Next i
t = rr(1) + d1 + d
d1 = t Mod 10
d = t \ 10
d = d2 + d
Print d & d1
For i = 1 To L
Print r(i);
Next i
End Sub
SAN~n*3
Private Sub Command1_Click()
Cls
Dim a() As Byte
Dim b As String
Dim c1 As Byte, c2 As Byte, c3 As Byte
Dim i As Long
Dim L As Long
L = Len(Me.Text1.Text)
ReDim a(L)
For i = 1 To L
b = Mid(Me.Text1.Text, i, 1)
a(i) = Int(Val(b))
Next i
b = Mid(Me.Text2.Text, 3, 1)
c1 = Int(Val(b))
Dim d1 As Byte
Dim r() As Byte
ReDim r(L)
Dim t As Byte
For i = L To 1 Step -1
t = a(i) * c1 + d1
r(i) = t Mod 10
d1 = t \ 10
Next i
b = Mid(Me.Text2.Text, 2, 1)
c2 = Int(Val(b))
Dim d2 As Byte
Dim r2() As Byte
ReDim r2(L)
For i = L To 1 Step -1
t = a(i) * c2 + d2
r2(i) = t Mod 10
d2 = t \ 10
Next i
b = Mid(Me.Text2.Text, 1, 1)
c3 = Int(Val(b))
Dim d3 As Byte
Dim r3() As Byte
ReDim r3(L)
For i = L To 1 Step -1
t = a(i) * c3 + d3
r3(i) = t Mod 10
d3 = t \ 10
Next i
Dim d As Byte
For i = L - 1 To 1 Step -1
t = r2(i + 1) + r(i) + d
r(i) = t Mod 10
d = t \ 10
Next i
t = r2(1) + d1 + d
d1 = t Mod 10
d = t \ 10
d = d2 + d
Dim dd As Byte
For i = L - 2 To 1 Step -1
t = r3(i + 2) + r(i) + dd
r(i) = t Mod 10
dd = t \ 10
Next i
t = r3(2) + d1 + dd
d1 = t Mod 10
dd = t \ 10
t = r3(1) + d + dd
d2 = t Mod 10
dd = t \ 10
d = d3 + dd
Print d & d2 & d1
For i = 1 To L
Print r(i);
Next i
End Sub
Private Sub Command1_Click()
Cls
Dim a() As Byte
Dim r() As Byte
Dim b As String
Dim c As Byte
Dim i As Long
Dim L As Long
L = Len(Me.Text1.Text)
ReDim a(L)
For i = 1 To L
b = Mid(Me.Text1.Text, i, 1)
a(i) = Int(Val(b))
Next i
c = Int(Val(Me.Text2.Text))
Dim d As Byte
Dim t As Byte
ReDim r(L)
For i = L To 1 Step -1
t = a(i) * c + d
r(i) = t Mod 10
d = t \ 10
Next i
Open "D:\multiplication.txt" For Output As #1
If d <> 0 Then
Print #1, d;
End If
For i = 1 To L
Print #1, r(i);
Next i
Close #1
End Sub
ER~n*2
Private Sub Command1_Click()
Cls
Dim a() As Byte
Dim b As String
Dim c1 As Byte, c2 As Byte
Dim i As Long
Dim L As Long
L = Len(Me.Text1.Text)
ReDim a(L)
For i = 1 To L
b = Mid(Me.Text1.Text, i, 1)
a(i) = Int(Val(b))
Next i
b = Mid(Me.Text2.Text, 2, 1)
c1 = Int(Val(b))
Dim d1 As Byte
Dim r() As Byte
ReDim r(L)
Dim t As Byte
For i = L To 1 Step -1
t = a(i) * c1 + d1
r(i) = t Mod 10
d1 = t \ 10
Next i
b = Mid(Me.Text2.Text, 1, 1)
c2 = Int(Val(b))
Dim d2 As Byte
Dim rr() As Byte
ReDim rr(L)
For i = L To 1 Step -1
t = a(i) * c2 + d2
rr(i) = t Mod 10
d2 = t \ 10
Next i
Dim d As Byte
For i = L - 1 To 1 Step -1
t = rr(i + 1) + r(i) + d
r(i) = t Mod 10
d = t \ 10
Next i
t = rr(1) + d1 + d
d1 = t Mod 10
d = t \ 10
d = d2 + d
Print d & d1
For i = 1 To L
Print r(i);
Next i
End Sub
SAN~n*3
Private Sub Command1_Click()
Cls
Dim a() As Byte
Dim b As String
Dim c1 As Byte, c2 As Byte, c3 As Byte
Dim i As Long
Dim L As Long
L = Len(Me.Text1.Text)
ReDim a(L)
For i = 1 To L
b = Mid(Me.Text1.Text, i, 1)
a(i) = Int(Val(b))
Next i
b = Mid(Me.Text2.Text, 3, 1)
c1 = Int(Val(b))
Dim d1 As Byte
Dim r() As Byte
ReDim r(L)
Dim t As Byte
For i = L To 1 Step -1
t = a(i) * c1 + d1
r(i) = t Mod 10
d1 = t \ 10
Next i
b = Mid(Me.Text2.Text, 2, 1)
c2 = Int(Val(b))
Dim d2 As Byte
Dim r2() As Byte
ReDim r2(L)
For i = L To 1 Step -1
t = a(i) * c2 + d2
r2(i) = t Mod 10
d2 = t \ 10
Next i
b = Mid(Me.Text2.Text, 1, 1)
c3 = Int(Val(b))
Dim d3 As Byte
Dim r3() As Byte
ReDim r3(L)
For i = L To 1 Step -1
t = a(i) * c3 + d3
r3(i) = t Mod 10
d3 = t \ 10
Next i
Dim d As Byte
For i = L - 1 To 1 Step -1
t = r2(i + 1) + r(i) + d
r(i) = t Mod 10
d = t \ 10
Next i
t = r2(1) + d1 + d
d1 = t Mod 10
d = t \ 10
d = d2 + d
Dim dd As Byte
For i = L - 2 To 1 Step -1
t = r3(i + 2) + r(i) + dd
r(i) = t Mod 10
dd = t \ 10
Next i
t = r3(2) + d1 + dd
d1 = t Mod 10
dd = t \ 10
t = r3(1) + d + dd
d2 = t Mod 10
dd = t \ 10
d = d3 + dd
Print d & d2 & d1
For i = 1 To L
Print r(i);
Next i
End Sub
相关文章推荐
- 禁止在网页中选中文字
- .gitignore
- Java设计模式(四) Facade(门面)模式及Tomcat引申
- 关于线程的生动介绍
- 详解iOS中UIButton的三大UIEdgeInsets属性用法
- 【Raspberry Pi 3试用体验】+ 搭建本地DNS服务器
- GDB 多线程调试
- 开源项目(妹纸&gank.io)学习
- WebView网页加载使用
- 计算机系统
- NSThread , GCD 与NSOparetion
- Maven + TestNG 做接口测试 关于 cookie 的问题
- 货币 数字按格式转换
- 快速迭代(快速遍历 )
- PHP 的“魔术常量”
- mysql,REPLACE INTO()
- js+css 灵活层叠 绝对/相对 定位
- angularJS实现textarea记录只能输入规定数量的字符并显示
- JAVA JDBC连接oracle 测试代码
- redis在windows下安装和PHP中使用