1、 1 / 4 程序设计基础知识 (循环结构 For) 班级：_ 姓名：_ 【知识要点知识要点】 循环语句 For 语句：通过次数控制循环的计算过程 一、For 语句 ForFor 循环变量循环变量 初值初值 ToTo 终值终值 StepStep 步长步长 语句块语句块 NextNext 循环变量循环变量 使用说明： For 循环语句主要用于循环次数已知的情况，循环变 量是数量变量，初值、终值、步长一般为整数。 步长可以是正数，也可以是负数，但不能为 0。如果 步长为 1，则可以连同保留字 Step 略去不写。 Next 后面的循环变量与 For 语句中的循环变量必须 一致。执行 next 之后
2、，循环变量的值会增加一个步长 的值。 For 循环语句中的语句块又称为循环体。利用 For 循 环主要用来描述成批地输入、 处理和输出同类型的数据 以及与此类似的工作。 功能： 1 1循环变量取初值；循环变量取初值； 2 2循环变量与终值比较，没有超过终值转循环变量与终值比较，没有超过终值转 3 3，否则循，否则循 结束，接着执行循环语句的后继语句；结束，接着执行循环语句的后继语句； 3 3执行一次循环体执行一次循环体 4 4循环变量增加一个增量循环变量增加一个增量 5 5重复步骤重复步骤 2424。 二、注释语句 注释是以单引号()开头的一串文字， 可以出现在 程序中需要说明的位置上，通过这
3、一串文字，对附近的 程序段进行简要的说明，增加程序的可读性。 注意： 注释对程序的执行效果没有任何影响， 程序运行 时自动跳过注释。 三、并行书写符“ ： ” 【练习与巩固练习与巩固】 1 阅读下面程序， 当单击窗体之后， m 的值是( ). Private Sub Form_Click() Dim m As Integer:Dim i As Integer m = 0 For i = 1 To 3 m = m + 2 Next i Print m End Sub 选项： A.0 B.4 C.6 D.8 2在 VB 中，假定有以下程序段: For i=1 To 3 Step 2 Print “
4、VB“ Next i 则语句 Print “VB“的执行次数是：( )。 A.1 B.2 C.3 D.4 3下列程序段中，循环体执行的次数是( ) x=0 For y=1 To 10 step -1 x=x+1 Next y A.1 B.0 C.10 D.4 等价表达 A=1：B=2 A=1 B=2 2 / 4 4在 VB 中，假定有以下程序段: For i=3 To 1 Print “VB“ Next i 则语句 Print “VB”的执行次数是:( ) A.出错 B.2 C.1 D.0 5下列程序段中，循环体执行的次数是（ ） x=0 For y = 1 To 10 step -1 x =
5、 x+1 Next y A.1 B.10 C.0 D.4 6已知数组 a 有 100 个元素，下列 VB 程序段用于在数 组 a 中寻找能被 7 整除的数的个数: n0 变量 n 用于存放能被 7 整除的数的个数 For i=1 To 100 Next i 则方框中最合适的应填入的语句是( ) A.If a(i) Mod 7 = 0 Then n = n + 1 B.If a(i) Mod 7 0 Then n = n + 1 C.If a(i) / 7 = 0 Then n = n + 1 D.If a(i) 7 = 0 Then n = n + 1 7Dim j As Integer, k
6、 As Integer List1.Clear For k 1 To 100 j Int(Sqr(k) Ifj j k Then List1.AddItem Str(k) Next k 分析程序功能。该程序的功能是 ( ) A.输出 100 以内的所有完全平方数 B.输出 100 以内的所有奇数 C.输出 100 以内的所有偶数 D.输出 100 以内的所有质数 8有如下 VB 程序段： Dim a(1 To 5) As Integer Dim i As Integer, c As Integer a(1) = 2: a(2) = 1: a(3) = 3 a(4) = 4: a(5) = 5
7、c = 0 For i = 3 To 5 If a(i - 2) + a(i - 1) = a(i) Then c = c + 1 Next i Text1.Text = Str(c) 该程序段运行后， 文本框 Text1 中显示的内容是( ) A.1 B.2 C.3 D.4 9有如下 Visual Basic 程序段： Dim a(1 To 4) As Integer a(1) 1 For i 2 To 4 a(i) 2 a(i 1) 1 Next i 该程序段运行后，数组元素 a(4)的值为 ( ) A.0 B.3 C.7 D.15 10有如下循环结构程序段 s 16 For i 1 To
8、 10 Step s s / 2 Next i 程序执行后，s 的值为 1， 则循环语句的步长应为 ( ) 3 / 4 A.1 B.2 C.3 D.4 11已知字符 AZ 的 ASCII 码值分别对应 6590。小 明编写了一个在标签Label1上显示26个英文大写字母 “ABCDEXYZ”的 VB 程序。部分程序如下： a = “ For i = 65 To 90 Next i Label1.Caption = a 方框中正确的语句是 A. a = a + Str(i) B. a = a + Chr(i) C. a = a + Int(i) D. a = a + Asc(i) 12某Visu
9、al Basic程序段如下： Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i = 2 To 10 a(i) = a(i - 1) * i Next i 运行该程序段，会出现的错误提示为 （A）下标越界 （B）子程序或函数未定义 （C）要求对象 （D）溢出 13某Visual Basic程序如下： Private Sub Command1_Click() Dim a(1 To 10) As Integer Dim i As Integer For i = 1 To 10 a(i) = i * i Next i List1.Add
10、Item Str(a(i) End Sub 运行程序， 单击命令按钮Command1后， 出现的错误提示 为 （A） 下标越界 （B） 子程序或函数未定义 （C） 溢出 （D） 类型不匹 14编写 VB 程序，实现如下功能：在文本框 Text1 中 输入某一年份， 单击 “天干地支与生肖” 按钮 Command1， 在列表框 List1 中输出该年份开始的 12 个年份及对应 的“天干地支”与“生肖” ，运行界面如图所示。 程序代码如下： （1） 代码 “Private Sub Command1_Click()” 中的 Click 是 _。 （单选，填字母：A.对象名/B.属性名/C.事件名）
11、 （2）为实现上述功能，请在划线处填入合适的代码。 Private Sub Command1_Click() Dim a As Integer, b As Integer Dim i As Integer, n As Integer Dim c1 As String, s1 As String Dim c2 As String, s2 As String Dim c3 As String, s3 As String List1.Clear s1 = “甲乙丙丁戊己庚辛壬癸“ s2 = “子丑寅卯辰巳午未申酉戌亥“ s3 = “鼠牛虎兔龙蛇马羊猴鸡狗猪“ n = Val(Text1.Text) For i = n To _ 4 / 4 a = (i + 6) Mod 10 b = (i + 8) Mod 12 c1 = Mid(s1, a + 1, 1) c2 = Mid(s2, b + 1, 1) c3 = Mid(s3, b + 1, 1) List1.AddItem + “年“ + c1 + c2 + “ “ + c3 Next i End Sub （3） 由上述算法可知， 2024 年对应的 “天干地支” 为 _ 。
