能同时被17和37整除的整数
2012-04-24 18:01
218 查看
Private Sub Combo1_Change()
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
经过快一个学期的学习，在一些vb基础知识方面有了不少了接，在一些简单的程序方面可以自己制作
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
经过快一个学期的学习，在一些vb基础知识方面有了不少了接，在一些简单的程序方面可以自己制作
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 1000—2000能同时被17和37整除的数
- 编写输出1000-2000之间所有能同时被17和37整除的数
- 能同时被17和37整除的数
- 0到2000内能同时被 4000 17和37整除的数
- 编写1000~2000之间能同时被17和37整除的数的程序
- 实现1000到2000内所有能同时被17和37整除的数
- 1000~2000之间能同时被17和37整除的数的编程
- vb输出1000到2000内能同时被17和37整除的数
- 能被17和37整除的数
- /*有数组{2,5,6,11,15,17,22,34,45}，将用户输入的任意整数放入数组正确的位 置中，保证顺序不能乱掉。例如：用户输入9，那么数组为{2,5,6,9,11,15,17,22 ,34,45}*/
- 在显示结果的同时显示出输入的整数值
- Problem Description 有n(n<=100)个整数，已经按照从小到大顺序排列好，现在另外给一个整数x，请将该数插入到序列中，并使新的序列仍然有序。 Input 输入数据包含多个测试实例，每组数据由两行组成，第一行是n和m，第二行是已经有序的n个数的数列。n和m同时为0标示输入数
- 17、判断一个数数不是2的整数次幂 JAVA
- 黑马基础测试题：编写程序，打印1到100之内的整数，但数字中包含7的要跳过，例如：17、27、71、72
- 算法8：一个整数数组里怎么同时找最大和最小的数，尽量优化比较次数
- 在显示结果的同时显示出输入的整数值
- P51.18（判断一正整数n是否同时含有奇数和偶数。）
- 程序员面试题精选100题(17)－把字符串转换成整数
- 判断并输出1000到2000之间能同被17和37整除的的数
- 有一个整数数组，请你根据快速排序的思路，找出数组中第K大的数。 给定一个整数数组a,同时给定它的大小n和要找的K(K在1到n之间)，请返回第K大的数，保证答案存在。