数乘
来源:互联网 发布:gs域名官网 编辑:程序博客网 时间:2024/04/26 02:55
Private Sub Command1_Click()
Cls
Dim a() 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, 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
Cls
Dim a() 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, 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
0 0
- 数乘
- 数乘
- 两个数乘运算
- 三个数乘一位数
- 矩阵的数乘次数
- 多位数乘单位数
- n个数乘一个数
- n个数乘一个数
- PKU1001 定长浮点数高精度幂乘
- 计算机JAVA数乘的程序代码
- 数的加 减 乘 除
- 浮点数加,减,乘,除运算
- 5乘5的数独游戏
- 1个数乘另外一个数
- C语言 矩阵相加,数乘
- 浮点数加减乘方法封装~
- java 把一组数字转成乘10的次方数
- 以乘代除之魔法数原理
- 双系统环境下 CentOS 挂载 Windows NTFS 磁盘分区
- tableview折叠效果
- 线程、多线程、线程池
- 《CLR via C#:框架设计》读书笔记 - 方法
- cookie 和session 的区别
- 数乘
- 表单中文件上传问题
- Android中如何在ViewPager中使动态创建的ImageView铺满屏幕
- Quartz定时任务学习(1)--基本的使用方法
- SQL On Storm ——EasyCount系统概述
- RAML
- 联系人操作工具类
- 查看所有的端口占用情况
- ios 避免UIbutton快速点击造成多次响应的避免方法