15电气1班麻天骄
来源:互联网 发布:淘宝公益宝贝是真的吗 编辑:程序博客网 时间:2024/04/28 16:30
Option Base 1
Private Sub Command1_Click()
Me.Font.Size = 70
Dim n1() As Byte, n1Len As Long
Dim n2() As Byte, n2Len As Long
Dim yushu1 As Byte, yushu2 As Byte, yushu3 As Integer
Dim shang As Byte
Dim tempResult As Byte
n1Len = Len(Me.Text1.Text)
n2Len = Len(Me.Text2.Text)
ReDim n1(n1Len)
ReDim n2(n2Len)
For i = LBound(n1) To UBound(n1)
n1(i) = Int(Val(Mid(Me.Text1.Text, i, 1)))
Next
For i = LBound(n2) To UBound(n2)
n2(i) = Int(Val(Mid(Me.Text2.Text, i, 1)))
Next
tempResult = n1(3) * n2(1)
yushu1 = tempResult Mod 10
shang = tempResult \ 10
tempResult = n1(2) * n2(1) + shang
yushu2 = tempResult Mod 10
shang = tempResult \ 10
tempResult = n1(1) * n2(1) + shang
yushu3 = tempResult Mod 10
shang = tempResult \ 10
Print shang & yushu3 & yushu2 & yushu1
End Sub
Private Sub Command1_Click()
Me.Font.Size = 70
Dim n1() As Byte, n1Len As Long
Dim n2() As Byte, n2Len As Long
Dim yushu1 As Byte, yushu2 As Byte, yushu3 As Integer
Dim shang As Byte
Dim tempResult As Byte
n1Len = Len(Me.Text1.Text)
n2Len = Len(Me.Text2.Text)
ReDim n1(n1Len)
ReDim n2(n2Len)
For i = LBound(n1) To UBound(n1)
n1(i) = Int(Val(Mid(Me.Text1.Text, i, 1)))
Next
For i = LBound(n2) To UBound(n2)
n2(i) = Int(Val(Mid(Me.Text2.Text, i, 1)))
Next
tempResult = n1(3) * n2(1)
yushu1 = tempResult Mod 10
shang = tempResult \ 10
tempResult = n1(2) * n2(1) + shang
yushu2 = tempResult Mod 10
shang = tempResult \ 10
tempResult = n1(1) * n2(1) + shang
yushu3 = tempResult Mod 10
shang = tempResult \ 10
Print shang & yushu3 & yushu2 & yushu1
End Sub
0 0
- 15电气1班麻天骄作业
- 15电气1班麻天骄作业
- 15电气1班麻天骄作业
- 15电气1班麻天骄
- 15电气1班麻天骄
- 15电气1班麻天骄
- 15电气1班麻天骄
- 15电气1班麻天骄
- 15电气1班麻天骄
- 15电气1吕四旺
- 15电气1吕四旺
- 15电气李书鹏 作业1
- 15电气郑明雨作业1
- 《15个数字的排序代码》15电气1班43号
- 15电气刘慧岩作业
- 15电气郑明雨
- 15电气吕四旺
- 15电气郑明雨
- iOS 开发之照片框架详解之二 —— PhotoKit 详解(上)
- adb介绍
- gSOAP
- 分布式数据库架构--分库、分表、排序、分页、分组、实现
- JS中局部变量能修改全局变量吗?
- 15电气1班麻天骄
- iOS 开发之照片框架详解之二 —— PhotoKit 详解(下)
- 两位数相乘
- Mac上 Git客户端SourceTree的使用
- ZOJ 1076 Gene Assembly(贪心算法)
- 15电气1班麻天骄
- java 线程的中断interrupt方法
- 我要使用TcMalloc
- 修改block 之外的变量