判断并输出1000到2000之间能同被17和37整除的的数
2012-05-22 20:33
507 查看
代码：
Private Sub Command1_Click()
Dim A As Integer
A = val(Text1.Text)
If A Mod 17 = 0 Then
If A Mod 37 = 0 Then
Label3.Caption = "此数可以同时被17和37整除"
Else
Label3.Caption = "此数不可以同时被17和37整除"
End If
Else
Label3.Caption = "此数不可以同时被17和37整除"
End If
End Sub
Private Sub Command2_Click()
Dim i As Integer
For i = 1000 To 2000 Step 1
If i Mod 17 = 0 Then
If i Mod 37 = 0 Then
Print i
End If
End If
Next
End Sub
Private Sub Command1_Click()
Dim A As Integer
A = val(Text1.Text)
If A Mod 17 = 0 Then
If A Mod 37 = 0 Then
Label3.Caption = "此数可以同时被17和37整除"
Else
Label3.Caption = "此数不可以同时被17和37整除"
End If
Else
Label3.Caption = "此数不可以同时被17和37整除"
End If
End Sub
Private Sub Command2_Click()
Dim i As Integer
For i = 1000 To 2000 Step 1
If i Mod 17 = 0 Then
If i Mod 37 = 0 Then
Print i
End If
End If
Next
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 编写输出1000-2000之间所有能同时被17和37整除的数
- 编写1000~2000之间能同时被17和37整除的数的程序
- 判断并输出1000-2000之间的闰年
- 1000~2000之间能同时被17和37整除的数的编程
- vb输出1000到2000内能同时被17和37整除的数
- 判断0-2000之间有多少个素数，并输出这些素数
- 判断1-1000之间有多少个素数,并输出所有素数
- 作业四1、输入2个正整数m和n（1≤m，n≤1000），输出m～n之间的所有水仙花数。水仙花数是指各位数字的立方和等于其自身的数。要求定义并调用函数is（number）判断number的各位数字之和是否等于其自身。
- 0基础学编程之输出1000-2000之间的闰年
- 判断1-1000之间有多少个素数,并输出所有素数
- 判断1000到2000之间的闰年（c语言）
- 编写程序输出1000~2000之间的闰年
- 【C】判断1000-2000之间的闰年
- 1000—2000能同时被17和37整除的数
- 判断1000-2000之间的闰年
- 素数判断，输出1-1000之间的素数
- 1000~2000内能被17和37整除的数
- 1000-2000内能被17和37整除的数
- 判断1000~2000之间的闰年
- C 输出1000-2000之间的闰年