n*1
来源:互联网 发布:知黛化妆品 编辑:程序博客网 时间:2024/04/20 07:05
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.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
If d <> 0 Then
Print d;
End If
For i = 1 To L
Print r(i);
Next i
End Sub
0 0
- n&n-1 n&-n
- n&-n n&n-1
- n&(n-1) 与 n&-n
- n & (n-1) 和 n & (-n)
- 求值:1!/n+3!/n*n*n+5!/n*n*n*n*n+....k!/n*n*n*n....n*n(有k个n);
- n & (n-1)
- n&(n-1)
- n&(n-1)作用
- n&(n-1)妙用
- n&(n-1)
- n & (n-1)
- 问题六十三:对于任何正整数n,求1+n+n*n+n*n*n。
- n&(n-1)n-1 应用
- 1+N
- n*1
- n*1
- n*1
- n*1
- 多位数乘以一位数
- 从尾到头打印链表
- c++中常见的类型转换int,string,float
- 高通 lcd dtsi
- 今天的作业,,,,前几天的再补吧
- n*1
- R语言︱异常值检验、离群点分析、异常值处理
- 若干个(大量)数字中找前K大/小的元素--数值型
- 设置Lync / Skype for Business支持脱机或隐身模式
- nefu1130Attack monsters【平行四边形优化石子合并】
- 原创
- 多位数 X 一位数
- Layout总结
- 第一节.安装Android Studio(Ubuntu)