vb
2016-04-21 17:18
381 查看
打开vb后点击commandbutton拖入form1中,在把textbox拖入form中创建两个。
Private Sub Command1_Click()
Cls
Dim n() As Byte
Dim r() As Byte
Dim b As String
Dim c As Byte
Dim i As Long
Dim L As Long
L = Len(Me.Text1.Text)
ReDim a(L)
For i = 1 To L
b = Mid(Me.Text1.Text, i, 1)
a(i) = Int(Val(b))
Next i
c = Int(Val(Me.Text2.Text))
Dim d As Byte
Dim t As Byte
ReDim r(L)
For i = L To 1 Step -1
t = a(i) * c + d
r(i) = t Mod 10
d = t \ 10
Next i
If d <> 0 Then
Print d
End If
For i = 1 To L
Print r(i)
Next i
End Sub
Private Sub Command1_Click()
Cls
Dim n() As Byte
Dim r() As Byte
Dim b As String
Dim c As Byte
Dim i As Long
Dim L As Long
L = Len(Me.Text1.Text)
ReDim a(L)
For i = 1 To L
b = Mid(Me.Text1.Text, i, 1)
a(i) = Int(Val(b))
Next i
c = Int(Val(Me.Text2.Text))
Dim d As Byte
Dim t As Byte
ReDim r(L)
For i = L To 1 Step -1
t = a(i) * c + d
r(i) = t Mod 10
d = t \ 10
Next i
If d <> 0 Then
Print d
End If
For i = 1 To L
Print r(i)
Next i
End Sub
相关文章推荐
- VB感受
- 15 电气 齐振昊 VB中多位数乘一位数并输入到文本文档中
- VB--几位数乘一位数
- vb
- vb17
- VB 求余数和商
- VB--乘法
- 最简单的VB12
- vb
- 三个数乘法。vb
- 2016年4月TIOBE编程语言排行榜 Visual Basic正渐行渐远-[转]
- VB作业
- 取汉子拼音首字母的C#和VB.Net方法
- vb.net 生成验证码图片-转载
- EXCEL VBA代码,实现点击Sheet1按钮控件保存不连续单元格的数据到Sheet2中,然后清空输入内容
- VBS脚本运行库 ——文本文件的建立、追加、删除等
- vb调用Excel时指定打印机
- VB作业
- Vbs备份数据脚本集合
- 怎样计算两位数与一位数相乘