继续学乘法
来源:互联网 发布:hao123解压软件 编辑:程序博客网 时间:2024/05/02 06:04
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
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
- 继续学乘法
- 继续努力学编程
- 继续学日语
- 睡不着。。继续学
- 国庆放假继续学
- 继续学python
- Java如何继续学
- 我会继续学C#
- 换本书,继续学
- 为什么要继续学英语
- 还有没有必要继续再学oracle
- 学完Java语法,如何继续走Java路? [转载]
- 地震了 书还是要继续学的……
- 继续走下去,没有人教,自己学
- 学了一年多的C++,接着应该如何继续?
- 继续
- 继续
- 继续
- android studio上配置git、使用git
- Android Link
- get与post的区别
- 错误180无法将文件“obj\x86\Debug\WpfApplication3.exe”复制到“bin\Debug\WpfApplication3.exe”。文件“bin\Debug\WpfAp
- ViewPager自动轮播的几种方法
- 继续学乘法
- 关于 csdn 博客添加友情链接~~~~~
- Java HttpPost请求基于apache的httpclient
- Redis 的七个原则,以向大家阐明 Redis 的思想。
- HDU Problem 4883 TIANKENG’s restaurant (区间暴力)
- android中intent传递list或者对象的方法
- java毕向东听课笔记22(集合框架-List集合共性方法)
- sql入门学习2
- 堆栈的区别及增长方向