vb
来源:互联网 发布:哪个软件可以看美剧 编辑:程序博客网 时间:2024/05/16 17:31
Private Sub Command1_Click()
Dim c1 As Byte
Dim c2 As Byte
Dim a() As Byte
Dim b As String
Dim changdu As Long, i As Long
changdu = Len(Text1.Text)
ReDim a(changdu)
For i = 1 To changdu
b = Mid(Me.Text1.Text, i, 1)
c1 = Int(Val(b))
Dim rm As Byte
Dim r() As Byte
ReDim r(changdu)
Dim d As Byte
For i = changdu - 1 To 1 Step -1
rm = r(i) + rr(i + 1) + d
r(i) = rm Mod 10
d = rm \ 10
Next i
rm = rr(i) + d1 + d
d1 = rm Mod 10
d = rm \ 10
d = d2 + d
Print
Print d & d1
For i = 1 To changdu
Print r(i)
End Sub
Dim c1 As Byte
Dim c2 As Byte
Dim a() As Byte
Dim b As String
Dim changdu As Long, i As Long
changdu = Len(Text1.Text)
ReDim a(changdu)
For i = 1 To changdu
b = Mid(Me.Text1.Text, i, 1)
c1 = Int(Val(b))
Dim rm As Byte
Dim r() As Byte
ReDim r(changdu)
Dim d As Byte
For i = changdu - 1 To 1 Step -1
rm = r(i) + rr(i + 1) + d
r(i) = rm Mod 10
d = rm \ 10
Next i
rm = rr(i) + d1 + d
d1 = rm Mod 10
d = rm \ 10
d = d2 + d
Print d & d1
For i = 1 To changdu
Print r(i)
End Sub
0 0
- VB
- VB
- VB
- VB
- vb
- vb
- VB
- VB
- vb
- VB
- vb
- VB
- vb
- vb
- VB
- vb
- VB
- vb
- 1*1 1的相乘
- Android移动自动化中短信验证码解决方案
- vivado,SDK,debug控制台输出乱码问题解决
- poi架包
- Leetcode 第342题,判断一个数是否是4的幂数
- vb
- Alamofire功能介绍
- 几种UDP网络库的整理Raknet,UDT,ENet,lidgren-network-gen3
- i.MX283开发板格式化Flah与烧写过程
- 事物回滚例子
- 转载自 51Testing软件测试网 » 零测试 » 日志之Alpha测试/Beta测试/验收测试的区别
- STM8学习笔记1
- 几种循环结构
- ASP.NET程序通过web.config为网站添加MIME