当前位置:首页 >> 其它课程 >> 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-Next循环

第十三课 For-Next循环_其它课程_初中教育_教育专区...按顺序办事,是我们经常采用的工作方式,在 vb 中...分析示例程序“气球” 二、设计程序“气球” 1、...

for…next循环结构 教学设计

fornext循环结构 教学设计_初中教育_教育专区。简单vb语法课件第四节《计数循环——fornext 循环结构》教学设计 一、教材分析 本课是海南、三环出版社三环出版...

2.3.3循环结构(一)For--Next案例分析

2.3.3 循环结构 VB 循环结构 For/Next 案例分析课题 2.3.3 循环语句 For...评价 展示完整的程序代码 学生回答 结合例子循环 结构进行分析可 学生思考、 ...

for-next 语句循环

FOR/NEXT 语句是循环运算的专家,在程序设计中频繁出现。本 节课的学习,会使...再把分 析出来的处理步骤用流程图表示出来,最后用 VB 语言描述出各个解题步骤...

For-next循环

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

For-Next循环语句

所以,本节课从简单的实例着手,让学生搞清楚什 么情况下要去使用循环结构,怎么...VB, 编 For i = 1 To 99 Step 2 Sum = Sum + i 写代码 Next i ...

VB5循环fornext

VB5循环fornext_其它课程_高中教育_教育专区。课题:VB 程序设计(循环结构 FORNEXT) 学习目标: 1、 学会使用 For Next 语句编写程序; 2、 编写计数循环结构程...

for-next循环结构教案

从形式上大致弄清循环语句结构(fornext 配套出现) 。 学生正确叙述循环的执行过程,更进一步弄清循环语句结构。 学生能举例说明循环变量给循环体带来的影响、...

VB程序设计ForNext循环结构教学设计

循环结构》 《VB 程序设计 ForNext 循环结构》教学设计江苏省武进高级中学现代教育技术组 吴涛 一、教学目标设计 本课内容的学习建立在学生已经学习过第五节《...

《For-Next循环语句》教学设计

(1)实例 1:在 VB 窗体显示输出 1 到 10 这十个数字。 程序: for i=1 to 10 step 1 print i next i ①分析此循环语句中, 循环变量是 i 初值是 1 ...
更多相关标签:
vb for next循环 | vb循环语句 for next | vb循环语句例子 | vb 6.0例子 | vb6.0 for循环 | vb6.0 循环 | vb6.0 跳出循环 | vb6.0循环结构 |
网站地图

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