当前位置:首页 >> 其它课程 >> 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循环语句的使用

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

For循环语句

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

第四节 循环结构

第四节循环结构 一、教材分新 循环结构是 VB 程序...格式和功能,熟练使用 for...next 语句实现循环结构...关于春节来历的绘本故事:熬年守岁和年兽的传说+...

FORNEXT循环

下面我们就参照例题,按照老师介绍的程序设计 步骤,试着来自己来编制 2 个小...VB5循环fornext 暂无评价 1页 免费 高中信息技术 ForNext循... 7页 免费 ...

for-next 语句循环

再把分 析出来的处理步骤用流程图表示出来,最后用 VB 语言描述出各个解题步骤...For—Next语句教学案例 6页 免费 for-next循环 15页 免费 For 循环语句 17页...

7计数循环——for…next语句

那就是我们今天所要学习用到的 VB 的 “循环语句”。师:我们今天来学习循环结构,for-next 循环语句。 师:利用多媒体教学系统的广播功能讲解 for –next 循环...

第五章 循环结构程序设计

说明:ForNext 循环语句结构由三部分组成: ①For ...5.2.2 Do…Loop 循环语句 VB 提供的 Do…Loop ...5.5 常用算法举例(一) 例 5-16 验证哥德巴赫...

For-next循环

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

《For循环语句》

For循环语句》_教学案例/设计_教学研究_教育专区。...同学们已经初步掌握了 VB 编程环境和 VB 程序的...⑤“循环体”在 For 语句和 Next 语句之间的语句...

ASP循环语句及实例

For...Next: 指定循环次数,使用计数器重复运行语句。 For Each...Next:对于...下面例子举例说明如何使用 Do...Loop 语句: Do Until DefResp = vbNo MyNum...
更多相关标签:
vb for next循环 | vb循环语句 for next | vb循环语句例子 | vb for循环 简单例子 | vbfor循环语句例子 | vb for循环例子 | vb6.0 for循环 | vb6.0循环 |
网站地图

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