判断一个数是否能被17或35整除
来源:互联网 发布:中年男士香水推荐知乎 编辑:程序博客网 时间:2024/06/04 18:10
Option Base 1
Private Sub Command1_Click()
Dim M As String
Dim N As String
M = Trim(Text1.Text)
N = Trim(Text2.Text)
Dim Number1() As Byte
Dim Number2() As Byte
ReDim Number1(Len(M))
ReDim Number2(Len(N))
Dim index As Byte
For index = 1 To Len(M) Step 1
Number1(index) = Mid(M, index, 1)
Next index
For index = 1 To Len(N) Step 1
Number2(index) = Mid(N, index, 1)
Next index
Dim Result() As Byte
ReDim Result(Len(M) + Len(N))
Dim MCarry As Byte
Dim ACarry As Byte
Dim Remainder As Integer
Dim i As Integer, j As Integer
Dim Mtemp As Integer, Atemp As Integer
For i = Len(N) To 1 Step -1
For j = Len(M) To 1 Step -1
Mtemp = Number1(j) * Number2(i) + MCarry
MCarry = Mtemp \ 10
Remainder = Mtemp Mod 10
Atemp = Remainder + Result(i + j) + ACarry
ACarry = Atemp \ 10
Result(i + j) = Atemp Mod 10
Next j
Result(i) = MCarry + ACarry
MCarry = 0
ACarry = 0
Next i
Dim Mstr As String
For index = 1 To Len(N) + Len(M)
Mstr = Mstr & Str(Result(index))
Next
Label3.Caption = Mstr
End Sub
- 判断一个数是否能被17或35整除
- 判断一个整数是否能被3或5整除
- python判断一个数是否能被另一个整数整除
- 趣题:用正则表达式判断一个二进制数是否能被3整除
- 判断一个数是否能同时被3和5整除 手痒之作
- 判断一个整数是否能被11整除
- 给你一个数N(N<=10^100),让你判断是否能被11整除。。能整除输出YES,否则输出NO。
- 判断一个数和这个数的重组对8是否能整除的题
- 判断一个数能否被7或9整除
- OC 【判断两个浮点数是否能整除】
- C语言中运用“非”判断一个整数是否能被5整除
- 不使用%和/,判断一个整数是否能被3整除
- n<=10^18是否能被一个数的平方整除
- 判断一个整数是否能同时被3、5、7整除,能则输出“YES”,否则, 输出“NO”。
- 写一个程序,接收两个整数a和b,并判断a是否能被b整除,输出判断结果。
- 316分为两个数,一个能被13整除,一个能被11整除
- 整除运算, 写一个程序,接收两个整数a和b,关判断a是否能被b整除,输出判断结果
- 转:整除运算, 写一个程序,接收两个整数a和b,关判断a是否能被b整除,输出判断结果
- Linux中select函数分析
- Linux 某个目录下的文件按大小排序
- 如何居中
- PHP Zend 框架
- 第十六周任务(二)
- 判断一个数是否能被17或35整除
- 理解form的get和post(转载)
- 十六周任务2:成绩排序
- vs2010发布、打包安装程序(超全超详细)
- 使用SetTimer要注意时间间隔的选取
- HOJ1263 水果
- URLRewrite伪静态与AspNetPager分页控件的结合
- 移植google操作系统android的5个步骤之(一)
- Ogre着色方式和光照模型(shading mode vs lighting model)