第4章VB课件..ppt

4.1 For-Next 语句 4.2 Do While—Loop 语句 4.3 Do—Loop While 语句 4.4 循环语句的嵌套 4.5 程序举例 4.1 For-Next 语句 【例4.1】For-Next 语句实例。在窗体上添加两个标签(lblShow和lblValue)和两个命令按钮(cmdCal和cmdExit)。 算法分析：计算1+2+3+…+100的和 sum = 0 sum = sum + 1 sum = sum + 2 ┋ sum = sum + 100 For — Next 语句的执行过程 完整程序代码 Private Sub cmdCal_Click() Dim sum As Integer, i As Integer For i = 1 To 100 sum = sum + i Next i lblValue.Caption = sum End Sub For – Next 循环的一般语法格式 For 循环变量 = 初始值 To 终止值 [ Step 步长 ] 循环体语句 Next [ 循环变量 ] 说明 循环体语句执行的次数： 次数=Fix( (终止值－初始值) / 步长)＋1 可以使用Exit For语句提前结束循环 For i =1 To 10 Step 2 x = x + Int ( Rnd * 100 ) If x 300 Then Exit For Next i Print x 【例4.2】掷50次骰子，统计点数6出现的次数。窗体中包含2个图像框、2个命令按钮和3个标签。 主要属性设置 主要属性设置 主要程序代码 Private Sub Form_Load() lblText.Visible = False lblPoint.Visible = False lblCount.Visible = False End Sub Private Sub cmdStart_Click() lblText.Visible = True lblPoint.Visible = True lblCount.Visible = True imgText.Visible = False Randomize For i = 1 To 50 dot = Int(Rnd * 6) + 1 If dot = 6 Then n = n + 1 dotstr = dotstr Str(dot) Next i lblPoint.Caption = dotstr lblCount.Caption = 6出现数： Str(n) End Sub 思考： 利用计时器随机产生50个骰子点数 ？ 【例4.3】计算1！+2！+……+n！的值。 (1≤n≤20) 算法分析 (1) 求阶乘运算：1×2×3×…×n (2) 使用累加算法计算阶乘之和 程序代码 Private Sub txtIn_KeyPress (KeyAscii As Integer) If KeyAscii = 13 Then n = Val(txtIn.Text) If n = 1 And n = 20 Then s = 1: sum = 0 计算阶乘之和并输出 Else 显示出错消息框 准备接受用户的再次输入 End If End If End Sub Private Sub txtIn_Change() lblOut.Caption = End Sub 【例4.4】设计如下窗体。单击“最大值”按钮时立即产生10个1～100之间的随机整数显示在框架内的标签中，同时将它们中的最大值显示在下方的标签内。 调试方法介绍 —— 设置断点 通过设置断点，使程序运行到指定的代码行时暂时停止，并切换到中断模式，等待调试人员作进一步的分析和判断，从而确定出下一步的调试任务。 【例4.5】设计ASCII码对照表 FrmEx4_5_1窗体（显示数字的Ascii码） Private Sub Form_Activate() picDigit.Print Tab(2); 数 字;