数乘
来源:互联网 发布:hao123解压软件 编辑:程序博客网 时间:2024/04/23 13:26
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
1 0
- 数乘
- 数乘
- 两个数乘运算
- 三个数乘一位数
- 矩阵的数乘次数
- 多位数乘单位数
- n个数乘一个数
- n个数乘一个数
- PKU1001 定长浮点数高精度幂乘
- 计算机JAVA数乘的程序代码
- 数的加 减 乘 除
- 浮点数加,减,乘,除运算
- 5乘5的数独游戏
- 1个数乘另外一个数
- C语言 矩阵相加,数乘
- 浮点数加减乘方法封装~
- java 把一组数字转成乘10的次方数
- 以乘代除之魔法数原理
- 作业4
- 织梦搜索模板指定搜索的内容模型
- 多位数乘一位数
- window客户端访问HDFS
- 搜索-1017
- 数乘
- [leetcode] 9 Palindrome Number
- wordpress与mysql之间不可告人的秘密
- 《C# in Depth:深入理解C#》读书笔记 - LINQ
- 用两个栈实现队列
- ThinkPHP 大D方法思想下的JDBC操作数据库D类
- printf()的一些小问题
- android studio上配置git、使用git
- Android Link