能同时被17和37整除的整数
来源:互联网 发布:常见网络攻击手段 编辑:程序博客网 时间:2024/05/01 21:01
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
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基础知识方面有了不少了接,在一些简单的程序方面可以自己制作
- 能同时被17和37整除的整数
- 能同时被17和37整除的数
- 编写1000~2000之间能同时被17和37整除的数的程序
- 1000~2000之间能同时被17和37整除的数的编程
- 编写输出1000-2000之间所有能同时被17和37整除的数
- 1000—2000能同时被17和37整除的数
- 实现1000到2000内所有能同时被17和37整除的数
- 使用while循环语句计算1~1000之间能被3和7同时整除的整数之和
- 能被15整除的最大整数
- 能被15整除的最大整数
- 将1—200之间整数中能同时被3和5整除的数打印出来,并统计其个数
- 能被17和37整除的数
- 能被17和37整除的数
- 判断一个整数能否同时被3和5整除
- 1到100之间所有能被3和7整除的整数和
- 计算1到100之间,除了能被7整除外所有整数的和
- 请输出1000以内能被11整除的最小的6个整数和最大的6个整数
- 判断一个整数是否能同时被3、5、7整除,能则输出“YES”,否则, 输出“NO”。
- 关于继承TabActivity后不能重写onBackPressed的问题
- MySQL 存储过程的基本用法
- jquery学习之-设置table奇偶行的背景色,并触发单选框选中效果
- linux命令tee的用法
- linux install QT
- 能同时被17和37整除的整数
- 工厂模式获取实例对象的代码改进
- 如何在Android中使用OpenCV
- Android单元测试
- void setID(string strID) 和void setID(const string& strID)有什么区别
- Ackermann function
- Linux下网络流量实时监控
- How to create service which restarts on crash
- 中国Android应用商店汇总