15电气郄慧敏多位数乘以一位数
来源:互联网 发布:windows 启用组策略 编辑:程序博客网 时间:2024/04/30 00:58
1打开vb
2建立两个text,一个commandbutton
3双击commandbutton,输入
Private Sub Command1_Click()
Dim c As Byte
Dim a() As Byte
Dim b As String
Dim changdu As Integer, 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)
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
4点击运行,输入数,即可。
0 0
- 15电气郄慧敏多位数乘以一位数
- 15电气二班徐立立(几位数乘以一位数)
- 15电气 李少振 多位数乘以一位数程序
- 15电气郄慧敏两位数乘以一位数
- 15电气郄慧敏vb作业计算一位数乘以一位数
- 多位数乘以一位数
- 多位数乘以一位数
- 2位数乘以一位数
- 2位数乘以一位数
- 15电气2班徐立立(两位数乘以一位数)
- 15 电气 2012 多位数乘以位数并输入到文档
- 15电气李丹【几位数乘一位数】【并保存到D盘】
- 15 电气 齐振昊 VB中多位数乘一位数并输入到文本文档中
- 一位数乘以一位数
- 一位数乘以一位数
- 一位数乘以一位数
- 15-电气-2012 VB语言中计算一位数乘一位数
- 15电气李丹【两个一位数相乘】
- 解决跨域请求
- 快速排序
- cf554C
- 数据库分库分表(sharding)
- SpringMVC异常处理
- 15电气郄慧敏多位数乘以一位数
- pjsua视频呼叫后收不到对方的视频
- 使用 JavaScript 和 Ajax 发出异步请求
- mysql支持跨表delete删除多表记录
- VVDocumenter
- 客户端服务器消息收发过程与排错步骤
- html特殊标签关于easyUI的特殊设置
- 单独的 python 脚本文件使用 django 自带的 model
- unix网络编程(五)--IO复用+非阻塞