乘法
来源:互联网 发布:java完全自学手册下载 编辑:程序博客网 时间:2024/03/29 01:20
说实话,学VB 真的是有点云里雾里的感觉,每次上课都是在紧张的拍照中度过,但是又着实难拍,改来改去的拍了好几十张
希望老师下次做完之后弄一个完整的编程让我们拍一下就好了(小小的期待)
一、单个数*单个数
Private Sub Command1_Click()
Dim a As Byte, c As Byte
Dim b As String
b = Me.Text1.Text
a = Int(Val(b))
b = Me.Text2.Text
c = Int(Val(b))
Dim r As Byte
r = a * c
Print r
End Sub
二、多个数*单个数
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(chnagdu)
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 step - 1
rm = a(i) * c + d
r(i) = rm Mod 10
d = rm \ 10
Next i
End sub
- 乘法
- 乘法
- 乘法
- 乘法
- 乘法
- 乘法
- 乘法
- 乘法
- 乘法
- 乘法
- 乘法
- 乘法
- 乘法
- 快速乘法
- 乘法口诀
- 矩阵乘法
- 大数乘法
- 乘法表
- Android Studio 打包混淆出现的问题
- Unity之AssetBundles读取打包对象
- 试读《你好哇,程序员——漫话程序员面试求职、升职加薪、创业与生活》
- 4月二十日学习总结
- Color Temperature & Color Rendering Index DeMystified
- 乘法
- hdu 3785
- 星型模式、雪花模式和事实星座模式
- Android 关于使用ScrollView和RecyclerView 时候Topbar被隐藏解决方式
- Volley的使用(一)
- AFNetWorking上传图片
- 关于字体大小
- 设计模式之七大原则
- C中的宏操作