多位数乘一位数
来源:互联网 发布:淘宝卖stussy的正品店 编辑:程序博客网 时间:2024/04/26 04:05
太难了!!!我都做懵了!!!照片照的都太乱了!!!
Private Sub Command1_Click()
Dim a() As Long, i As Long
Dim b As String
Dim c As Long
Dim changdu 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
c = 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位数乘一位数
- n位数乘一位数
- VB--几位数乘一位数
- [从头学数学] 第43节 多位数乘一位数
- 多位数乘一位数并输入到文本文档中
- 多位数乘一位数并输入到文本文档中
- Pandas——value_counts&index&to_dict
- 利用Scrapy爬取1905电影网
- Web service 模拟测试利器 SOAPUI
- UIWindow
- android开发步步为营之99:使用自定义字体
- 多位数乘一位数
- 关于OpenCV的那些事——相机姿态更新
- C# 比较字符串是否相等 0009
- windows交叉编译程序在树莓派运行不了
- 邮箱格式验证的js
- 秒杀系统的设计
- 个位数乘以个位数
- 十、责任链模式Chain of Responsibility(行为型模式)
- 用Git进行协同开发