循环语句专题练习.docVIP

第四章 基本控制结构 本章重点： 1．掌握3种基本结构及其流程 ①顺序结构 ②选择结构：If语句 Select Case……End Select情况选择语句 ③循环结构：For……Next语句（必须掌握） Do……Loop语句 While……Wend语句 ④常用编程定式： 计数器、累加器、累积器、控制一行输出数据的个数等与循环结合的运用 2．结构嵌套；特别是For语句嵌套与图形的输出 3．基本常用算法：两数交换、奇偶性、素数、阶层、最大/小/中间数、最大公约数、数字/字符串的倒置等 4．程序调试：利用调试工具（[调试]菜单([逐语句]或F8）找出自己程序的错误及漏洞！！！ 理论知识（循环语句专题） 一 、选择题 1．运行下列程序，输出的结果为_____。 Privat Sub Form_Click() For j=1 to 10 A = 20 - (2 * j - 1) If a / 3 = a \ 3 or a / 5 = a \ 5 Then Sum =Sum +A End If Next j Print “Sum=”;Sum End Sub A）27 B）15 C）32 D）20 2．运行下列程序，输出的结果为_____。 Privat Sub Form_Click() S=0 Do s = (s +1) * (s + 2) Number = Number + 1 Loop Until s=30 Print Number;s End Sub A）0 1 B）30 30 C）4 30 D）3 182 3．运行下列程序，输出的结果为_____。 Privat Sub Form_Click() A$ = “54321” : B$ = “abcde” j = 1 Do While j = 5 Print Mid(A$, 6 – j, 1) + Mid(B$, j, 1); J = j +1 Loop Print End Sub A）a1b2c3d4e5 B）a5b4c3d2e1 C）e1d2c3b4a5 D）1a2b3c4d5e 4．运行下列程序，执行Print I * j的次数为_____。 Privat Sub Form_Click() For I =1 to 3 For j =5 to 1 step –2 Print I * j Next j Next i End Sub A）7 B）9 C）12 D）15 5．运行下列程序，结果为_____。 Private Sub Command1_Click() a$ = A WORKER IS OVER THERE x = Len(a$) For i = 1 To x - 1 b$ = Mid(a$, i, 2) If b$ = ER Then s = s + 1 Next i Print s End Sub A）1 B）2 C）3 D）4 6．在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String, Str2 As String Str1=InputBox(请输入一个字符串） For i=1 To Len(Str1) Str2=UCase(Mid(Str1,i,1))+Str2 Next i Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串abcdefg，则单击确定按钮后在窗体上的输出结果为_____。 A） abcdefg B） ABCDEFG C） gfedcba D） GFEDCBA 上机练习 二、程序填空题 1．下面程序运行后的输出结果如下： D CD BCD ABCD 请在_____处填充所需程序，使之完整。 Privat Sub Form_Click() A$ = “ABCD” For m =1 to 4 Print TAB(5 – m);_____ Next m End Sub 2．下面程序的功能是统计字符串中i的个数，请在空白处将程序补充完整。 Private Sub Command1_Click() a