当前位置:首页 >> 其它课程 >> VB6.0 FOR-NEXT循环例子

VB6.0 FOR-NEXT循环例子


VB6.0 FOR-NEXT循环例子

'累加运算
Private Sub Command1_Click()
Dim i As Integer, sum As Long, n As Integer
sum = 0
n = Val(Text1.Text)
Fo

r i = 1 To n Step 1
sum = sum + i
Next
Label1.Caption = "累加结果为:" & Str(sum)
End Sub



'判断一个数是否为素数

Private Sub Command1_Click()
Dim n As Integer, flag As Boolean, i As Integer
'flag=True时为素数,flag = False时,不为素数
flag = True
n = Val(Text1.Text)
If n < 3 Then
MsgBox "请输入一个不小于3的整数", vbInformation + vbOKOnly, "提示"
Text1.Text = ""
Label1.Caption = ""
Text1.SetFocus
Exit Sub
End If

For i = 2 To Int(Sqr(n))
If n Mod i = 0 Then
flag = False
Exit For
End If
Next
If flag Then
Label1.Caption = Str(n) & "为素数"
Else
Label1.Caption = Str(n) & "不为素数"
End If
End Sub

更多相关文档:

FOR循环例题(带答案)

FOR循环例题(带答案)_政史地_高中教育_教育专区。【例1】 计算并显示 1 到...‘S 是累加器,初值为 0 For i = 1 To 100 s=s+i Next i Print s ...

循环语句教学案例

循环语句教学案例_其它课程_高中教育_教育专区。FOR/NEXT 循环语句教学案例一、课...再把分析出来的处理步骤用流程图表示出来,最后用 VB 语言描述出各个解题步骤,...

FOR循环语句教学案例

学生已经 逐步熟悉 visual basic6.0 的编程环境,也...(循环体) next i ‘i 为循环变量,必须与 for ...学生上机调试,学生启动 vb 编写代码,投影仪 上投影...

FOR循环结构

(浙江教育出版社),本节内容为第 四章“VB 程序设计初步”中一个重要的知识点...② 分析 For-Next 循环语句在实例 1 程序中的执行过程:(如流程图 1)③ ...

For循环语句

通过本节课的学习,让学生掌握 VB 语言中的 FOR ...教材首先由 袁隆平的超级水稻研究故事案例引入,然后...⑤“循环体”在 For 语句和 Next 语句之 间的...

FOR循环语句的使用

vb环境下,for/next循环语句第一课,主要介绍该语句的格式和执行过程。...上面例子中循环语句的执行过程(结合流程图进行讲 6.上面例子中循环语句的执行...

For Each Next详解及VB实例应用

语句 End If Next 上面代码的功能是通过 VB For Each.Next 语句访问 arrString 数组中各元素, 如果发现有元 素为字符串“星期三”,则弹出提示框,并退出循环。...

ASP循环语句及实例

For...Next: 指定循环次数,使用计数器重复运行语句。 For Each...Next:对于...下面例子举例说明如何使用 Do...Loop 语句: Do Until DefResp = vbNo MyNum...

For-next循环

结合实例分析 For/Next 循环语句的功能『对于 For/Next 循环语句的教学而言,其...循环语句是 VB 中比较难掌握的内 容。而这节课是循环语句的第一节内容。因此...

for-next 语句循环

再把分 析出来的处理步骤用流程图表示出来,最后用 VB 语言描述出各个解题步骤...For—Next语句教学案例 6页 免费 for-next循环 15页 免费 For 循环语句 17页...
更多相关标签:
vb for next循环 | vb循环语句 for next | vb循环语句例子 | vb循环例子 | vb6.0 for循环 | for next循环 | pb for next 跳出循环 | vba for next循环 |
网站地图

文档资料共享网 nexoncn.com copyright ©right 2010-2020。
文档资料共享网内容来自网络,如有侵犯请联系客服。email:zhit325@126.com