当前位置:首页 >> 其它课程 >> 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)
For 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

更多相关文档:

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

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

VB5循环fornext

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

for-next循环结构教案

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

初三第六册 VB for…next循环语句预习学案

初三第六册 VB fornext循环语句预习学案_其它课程_小学教育_教育专区。山东...next 语句执行流程 实例验证: (4)课后练习 S=0 For i=1 to 8 step 3 S...

For-next循环

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

for-next 语句循环

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

FOR NEXT 循环典型习题讲解

FOR NEXT 循环典型习题讲解 to hunan agricuLturE 一、求和及方案问题 1 编程求解下列字符串的 ASCII 码的和。 “welcome uniVersiTy”空格不计 2 S=2+(2+4)...

FOR NEXT 循环典型习题讲解

FOR NEXT 循环典型习题讲... 3页 1财富值如要投诉违规内容,请到百度文库投诉中心;如要提出功能问题或意见建议,请点击此处进行反馈。 ...

第十三课 For-Next循环

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

for…next循环结构 教学设计

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

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