[工学]vb-4-循环结构程序设计.ppt

代码 Do r = Int(Rnd * 100) + 1 If r max Then max = r Else If r min Then min = r End If sum = sum + r lblrnd.Caption = lblrnd.Caption + + Str(r) n = n + 1 Loop While n m 该语句的作用？ Do while nm ………… loop 代码 ave = sum / n 求平均值 lblmax.Caption = max 标签显示最大值 lblmin.Caption = min 标签显示最小值 lblave.Caption = ave 标签显示平均值 End Sub 用 DO 语句实现循环 【实例4.3】产生m个10~99之间的随机整数，求出其中的素数，并求出素数中的最大值、最小值和平均值。窗体设计界面 算法 产生10~100之间的随机整数r r= Int（Rnd*90）+10 判断r 是否素数 素数最大、最小值 、平均 判断r是否素数 For i = 2 To r - 1 If r Mod i = 0 Then Exit For Next i If i = r Then End if lblprime.Caption = lblprime.Caption + + Str$(r) r是素数 素数最大、最小值 、平均 If r max Then max = r Else If r min Then min = r End If sum = sum + r No Yes 产生随机数r = Int(Rnd * 90) + 10 nm n =n + 1 m = val(txtnum.text) ｒ与max、min进行比较，和sum累加， 输出结果 Yes ｒ是否是素数 初始化部分 lblrnd.Caption = 清空显示随机数的标签 lblprime.Caption = 清空显示随机数素数的标签 m = Val(txtnum.Text) max = 10 最大值赋值两位整数中的最小值 min = 99 最小值赋值两位整数中的最大值 n = 0 计数变量赋初值 sum = 0 累加求和变量赋初值 输出部分 ave = sum / p 求平均值 lblmax.Caption = max 标签显示最大值 lblmin.Caption = min 标签显示最小值 lblave.Caption = ave 标签显示平均值 循环的嵌套 Private Sub Form_Activate() Dim i As Integer, j As Integer For i = 1 To 3 Print Tab(20); For j = 1 To 4 - i Print Spc(1); Next j For j = 1 To 2 * i - 1 Print *; Next j Print Next i End Sub For i = 2 To 1 Step -1 Print Tab(20); For j = 1 To 4 - i Print Spc(1); Next j For j = 1 To 2 * i - 1 Print *; Next j Print Next i 问题 如果是n行图形，程序应如何修改？ 每行“ * ”输出的位置？ 奇数和偶数输出的图形有何不同？ 补充例题 例：请输入n值，编写程序输出下列图形（例如n=5）. 1 2 3 4 5 1 1 2 3 4 1 1 1 2 3 1 1 1 1 2 1 1 1 1 1 第1行：1个1，2-5 第2行：2个1，2-4 第3行：3个1，2-3 …… 第5行：5个1 第1行：1个1，2~n 第2行：2个1，2~n-1 第3行：3个1，2~n-2 …… 第n行：n个1 补充例题代码 Private Sub Form_Activate() Dim i As Integer, j As Integer For i = 1 To 5 For j = 1 To i Print 1; Next j For j = 2 To 6 - i Print j; Next j Print Next i End Sub 实例4.4 第1行：1个1，2-5 第2行：2个1，2-4 第3行：3个1，2-3 …… 第5行：5个