原创
来源:互联网 发布:知黛化妆品 编辑:程序博客网 时间:2024/05/02 00:30
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)
a(i) = Int(Val(b))
Next i
b = Me.Text2.Text
c1 = Int(Val(b))
Dim rm As Byte
Dim r() As Byte
ReDim r(changdu)
Dim d As Byte
For i = changdu To 1 Step -1
rm = a(i) * c + d
r(i) = rm Mod 10
d = rm \ 10
Next i
If d <> 0 Then
Print d;
End If
For i = 1 To changdu
Print r(i)
Next 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)
a(i) = Int(Val(b))
Next i
b = Me.Text2.Text
c1 = Int(Val(b))
Dim rm As Byte
Dim r() As Byte
ReDim r(changdu)
Dim d As Byte
For i = changdu To 1 Step -1
rm = a(i) * c + d
r(i) = rm Mod 10
d = rm \ 10
Next i
If d <> 0 Then
Print d;
End If
For i = 1 To changdu
Print r(i)
Next i
End Sub
0 0
- 原创!!!
- 原创
- 原创
- 原创
- [原创]
- 原创
- 原创
- 原创
- 原创
- 原创
- 原创
- 原创
- 原创
- 原创
- 原创
- 原创
- 原创
- 原创
- n*1
- R语言︱异常值检验、离群点分析、异常值处理
- 若干个(大量)数字中找前K大/小的元素--数值型
- 设置Lync / Skype for Business支持脱机或隐身模式
- nefu1130Attack monsters【平行四边形优化石子合并】
- 原创
- 多位数 X 一位数
- Layout总结
- 第一节.安装Android Studio(Ubuntu)
- Python 中文编码
- 多线程之NSThread、NSOperation、NSInvocationOperation
- HttpServletRequest req 的用法
- 数据结构之栈和队列
- 深入解析Java中Flushable接口的flush方法