vb循环结构选择题

一、 选择题1、无条件转移GoTo语句后面是（A）A、标号或行号B、输出语句C、输入语句D、子过程2、无条件转移GoTo语句后面的行号或标号以字母开头，后跟（A）A、冒号B、分号C、逗号D、空格3、无条件转移GoTo语句后面的行号或标号在同一过程中（A）A、必须唯一B、可以重复C、以数字开头D、以汉字开头4、while循环结构中的条件表达式取值为（A）A、TrueB、FalseC、True或FalseD、05、while循环结构中的条件表达式取值为（A）时执行语句组A、TrueB、FalseC、True或FalseD、06、while循环结构中与（A）匹配使用，不能单独出现A、WendB、endC、loopD、next7、Do、loop循环结构中的循环体执行的最少次数为（A）A、0B、1C、2D、38、前测型Do、loop循环结构中的循环体执行的最少次数为（A）A、0B、1C、2D、39、后测型Do、loop循环结构中的循环体执行的最少次数为（B）A、0B、1C、2D、310、Doloop循环结构中的Exit Do语句的功能是（B）A、退出整个程序B、退出当层循环C、退出最外层循环D、退出所在子程序11、Doloop中使用while关键字时，条件为（B）执行循环体A、FalseB、TrueC、0D、假或真12、Doloop中使用until关键字时，条件为（A）执行循环体A、FalseB、TrueC、0D、假或真13、Doloop中使用while关键字时，条件为（A）终止循环A、FalseB、TrueC、0D、假或真14、Doloop中使用until关键字时，条件为（B）终止循环A、FalseB、TrueC、0D、假或真15、ForNext循环结构中（C）用来控制循环变量A、forB、stepC、nextD、to16、ForNext循环结构中step用来控制（D）A、循环变量B、循环变量初值C、循环变量终值D、循环变量增量17、ForNext循环结构中循环变量初值大于终值时,步长为（A）A、负数B、非负数C、正整数D、正数18、ForNext循环结构中循环变量初值小于终值时,步长为（A）A、负数B、负整数C、正整数D、正数19、ForNext循环结构中next后的循环变量（A）A、可以省略B、不可以省略C、与for后的变量名可以不同D、与for后的变量不是同一变量20、ForNext中循环变量初值与终值间使用的关键字是（A）A、ToB、InC、gotoD、private21、ForNext中循环变量初值与终值间使用的关键字是（A）A、ToB、InC、gotoD、private22、执行下面的程序段后，s的值为（C）Private Sub Form_Click()Static s As Integers = 5For i = 1.4 To 2.1 Step 0.6s = s + 1Next iPrint sEnd SubA、5B、6C、7D、123、下面程序的作用是利用随机函数产生10个100200之间（包含100、200）的随机数，打印其中为5的倍数的数将程序补充完整（）Private Sub Command1_Click()For m = 1 To 10x = Int(Rnd * 101+100)If（ ）ThenPrint x;End IfNext mEnd SubA、x mod 5=0B、x mod 5=0C、x/5=0D、x5=024、设有如下程序：Option Base 1Private Sub Form_Click()Dim a(10), P(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序运行后，单击窗体，则在窗体上显示的是（A）A、33B、35 C、37 D、3825、在窗体上画一个命令按纽Command1，然后编写如下事件过程：Private Sub Command1_Click() X=0 N=val(inputbox(“n=?”)For i=1 to n For j=1 to i X=x+1 Next jNext iPrint xEnd sub 程序运行后、单击命令按钮,输入3,在窗体上显示的内容是(D)A、9 B、44 C、5 D、626、以下能够正确计算n！的程序是（C）A、private sub command1_click() N=5 : x=1 Do X=x*1 I=i+1 Loop while in Print x End subB、private sub command1_click() N=5 : x=1 : i=1 Do X=x*i I=i+1 Loop while in Print x End sub C、private sub command1_click() N=5 : x=1 : i=1 Do X=x*i I=i+1 Loop while i n Print x End sub27、在窗体上画一个命令按纽Command1，标签Label1然后编写如下事件过程：Private sub command1_click() For i=1 to 15 X=2*i-1 If x mod 3=0 then s=s+1 Next i Label1、caption =sEnd sub程序运行后,单击命令按钮,标签中显示的内容是( B )A、1 B、5 C、27 D、4528、在窗体上画一个命令按纽Command1，然后编写如下事件过程：Private sub command1_click() For i=1 to 4 For j =0 to i Print chr$(65+i) Next i Print End sub程序运行后,单击命令按钮,窗体中显示的内容是( A)A、BB CCC DDDD EEEEEB、A BB CCC DDDDC、B CC DDD EEEED、AA BBB CCCC DDDDD28、在窗体上画两个名称分别为text1，text2的文本框和一个名称为command1的命令按钮，然后编写如下事件过程：Private sub command1_click() Dim x as integer，n as integer X=1 ： n=0 Do while x 20X=x*3N=n+1LoopText1、text=str(x)Text2、text=str(n)End sub程序运行后,单击命令按钮,在两个文本框中显示的值分别是(B)A、15和1 B、27和3 C、195和3 D、600和429、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click()Dim a(5),b(5)For j =1 to 4A(j)=3*jB(j)=a(j)*3Next jText1、text=b(j2)End Sub程序运行后，单击命令按钮，在文本框中显示（ B ）A、25 B、18 C、36 D、3530、下面程序运行时，内层循环的循环总次数是（A）For m = 1 To 3For n = 0 To m - 1Next nNext mA、6 B、3 C、0 D、931、 定义语句Dim A (-3 to 3) as Integer，定义数组的元素个数是（D）A、6 B、3 C、0 D、732、 执行下面的程序段后，X的值为（C）X=5For I=1 to 10 Step 2X=X+I5Next I A、7 B、10 C、8 D、533、如果整型变量a、b的值分别为3和1，则下列语句中循环体的执行次数是（ D ）For I=a to bPrint INext IA、0 B、1 C、2 D、334、下列关于do while loop 和doloop until循环执行循环体次数的描述正确的是（ D ）A、 do while loop循环和doloop until循环至少都执行一次B、 do while loop循环和doloop until循环可能都不执行C、 do while loop循环至少执行一次，doloop until循环可能不执行D、 do while loop循环可能不执行，doloop until循环至少执行一次35、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click()For i = 1 To 4a = 1For j = 1 To 3a = 2For k = 1 To 2a = a + 6Next kNext jNext iPrint aEnd Sub程序运行后，单击命令按钮，则在窗体上显示的内容是（ A ）A、14 B、15 C、16 D、1736、设有如下程序：Private Sub Form_Click()a = 1For i = 1 To 3Select Case iCase 1, 3a = a + 1Case 2, 4a = a + 2End SelectNext iPrint aEnd Sub程序运行后，单击窗体，则在窗体上显示的内容是（ B ）A、6B、5 C、4 D、337、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：sub ss (b() as Integer )For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5: a(2) = 6a(3) = 7: a(4) = 8ss a()For i = 1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，则在窗体上显示的内容是（ B ）A、5 6 7 8 B、2 4 6 8 C、1 2 3 4 D、5 7 6 838、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Function fun(x As Integer)Static zy = y + 1: z = z + 1fun = x + y + zEnd FunctionPrivate Sub Command1_Click()Dim x As Integerx = 1For i = 1 To 2Print fun(x)Next iEnd Sub程序运行后，如果单击命令按钮，窗体中显示的内容是（ B ）A、3 3 B、3 4 C、3 5 D、3 639、若I、n均为整型变量，下列程序段的输出结果为（C）Private Sub Form_Click()n = 0For i = 1 To 10If i Mod 2 = 1 Then n = n + 1Next iPrint nEnd SubA、0 B、4 C、5 D、3 40、在窗体中添加一个文本框（其中Name属性为Text1）,然后编写如下代码：Private Sub Form_click ()Text1、Text = Text1、SetFocusFor i = 1 To 10Sum = Sum + iNext iText1、Text = SumEnd Sub上述程序运行后，单击窗体，则运行的结果（ A ）A、在文本框Text1中输出55 B、在文本框Text1中输出0C、出错 D、在文本框Text1中输出不定值41、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码：Private Sub Command1_Click()x = 0Do Until x = -1a = InputBox(请输入A的值)a = Val(a)b = InputBox(请输入B的值)b = Val(b)x = InputBox(请输入X的值)x = Val(x)a = a + b + xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入 12345-1，则输出结果为（A）A、8 B、9 C、14 D、1542、设有如下程序：Option Base 1Private Sub Form_Click()Dim a(10), P(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序运行后，单击窗体，则在窗体上显示的是（ A ）A、33 B、35 C、37 D、3843、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码：Function F(a As Integer)b = 0Static cb = b + 1c = c + 1F = a + b + cEnd FunctionPrivate Sub Command1_Click()Dim a As IntegerDim b As Integera = 2For i = 1 To 3b = F(a)Print bNext iEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是（ A ）A、4 5 6 B、1 2 3 C、0 1 2 3 D、2 3 4 44、在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() For a=1 To 4 For b=0 To a Print Chr(65+a) Next b Print Next a End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（B）A、A BB CCC DDDD B、BB CCC DDDD EEEEE C、B CC DDD EEEE D、B C DE45、循环是一组重复执行的指令，重复次数由（B）决定A、int（终值-初值）+1 B、int（终值-初值）/步长）+1 C、int（终值-初值）/步长） D、（终值-初值）/步长46、假定有以下程序段：For i = 1 To 3For j = 5 To 1 Step -1Print i * jNext j, i则语句Print i * j的执行次数是（ A ） A、15 B、16 C、17 D、1847、以下程序段的输出结果是（C）num=0While num=2num=num+1Print numWendA、1 3 5 B、2 3 4 C、1 2 3 D、0 1 248、在窗体中添加一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()Dim n() As IntegerDim a, b As Integera = InputBox(Enter the first number)b = InputBox(Enter the second number)ReDim n(a To b)For k = LBound(n, 1) To UBound(n, 1)n(k) = kPrint n(k)Next kEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为（D）A、0 1 B、1 3 C、1 2 D、2 349、在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：Private Sub Command1_Click()x = 0Do While x x Then Print a(i); Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是 （D）A、1 2 B、1 2 3 C、3 4 5 D、4 5 56、以下程序段的输出结果是（A） num =0 While num=5 num = num+1 Wend Print num A、 6 B、 2 C、 5 D、 157、Private Sub Form_Click() Dim x As Integer, n As Integer x = 1 n = 0 Do While x 28 x = x * 3 n = n + 1 Loop Print x, nEnd Sub程序运行后，单击窗体，输出结果是(A) A、81 4 B、56 3 C、28 1 D、243 558、有如下程序： Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 0 And i Mod 3 = 0 Then sum = sum + i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为（A） A、12 B、30 C、24 D、1859、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是（ A ） A、12 B、3 C、14 D、1560、在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() Dim a1(4, 4), a2(4, 4) For i = 1 To 4 For j = 1 To 4 a1(i, j) = i + j a2(i, j) = a1(i, j) + i + j Next j Next i Print a1(3, 3); a2(3, 3)End Sub 程序运行后，单击命令按钮，在窗体上输出的是（D） A、6 6 B、10 5 C、7 21 D、6 1261、有如下程序：Option Base 1Private Sub Form_Click() Dim arr, Sum Sum = 0 arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i = 1 To 10 If arr(i) / 3 = arr(i) 3 Then Sum = Sum + arr(i) End If Next i Print SumEnd Sub 程序运行后，单击窗体，输出结果为（C） A、25 B、26 C、27 D、2862、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim a(5) As String For i = 1 To 5 a(i) = Chr(Asc(A) + (i - 1) Next i For Each b In a Print b; NextEnd Sub 程序运行后，单击命令按钮，输出结果是（A） A、ABCDE B、1 2 3 4 5 C、abcde D、出错信息63、设有以下函数过程：Function fun(m As Integer) As Integer Dim k As Integer, sum As Integer sum = 0 For k = m To 1 Step -2 sum = sum + k Next k fun = sumEnd Function若在程序中用语句 s = fun(10) 调用此函数，则s的值为 （A） A、30B、26 C、27 D、2864、在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。Private Sub Command1_Click( ) Dim str As String, s As String, c As String str = UCase(Text1) s = c = Z While c = A If InStr(str, c) = 0 Then s = C End If c = Chr$(Asc(c)-1 ) Wend If s Then Text1 = s End IfEnd Sub A、1B、sC、s & cD、065、 在n个运动员中选出任意r个人参加比赛，选法有多种，用组合公式计算等于n！/r！/（n-r）！。窗体中有3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中，请填空。Private Sub Command1_Click( ) Dim r As Integer, n As Integer n = Text1 r = Text2 Text3 = fun(n) / C / fun(r)End SubFunction fun(n As Integer) as long Dim t As Long t=1 For k = 1 To n t = t * k Next fun = tEnd FunctionA、fun（n）B、fun（m）C、fun（n-r）D、fun（r-n）66、以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），请填空。 Private Sub Command1_Click( ) Dim k As Integer Dim sum As Single, max As Single, min As Single sum = Text1(0) max = Text1(0) min = Text1(0) For k = _A_ To 6 If max Text1(k) Then min = Text1(k) End If sum = sum + Text1(k) Next k Text2 = (sum-max-min ) / 5End SubA、0B、1C、-1D、267、在列表框List1中已经有若干人的简单信息，运行时在Text1文本框输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。Private Sub Command1_Click() Dim k As Integer, n As Integer, found As Boolean found = False n = Len(_A_ ) k = 0 While k = A If InStr(str, c) = 0 Then s =s & c End If c = Chr$(Asc(c) _A_ ) Wend If s Then Text1 = s End IfEnd Sub A、-1B、0C、1D、+169、 在n个运动员中选出任意r个人参加比赛，选法有多种，用组合公式计算等于n！/r！/（n-r）！。窗体中有3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中，请填空。Private Sub Command1_Click( ) Dim r As Integer, n As Integer n = Text1 r = Text2 Text3 = fun(n) / fun(n-r) / fun(r)End SubFunction fun(n As Integer) as long Dim t As Long _B_ For k = 1 To n t = t * k Next fun = tEnd FunctionA、t=0B、t=1C、k=0D、k=170、以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），请填空。 Private Sub Command1_Click( ) Dim k As Integer Dim sum As Single, max As Single, min As Single sum = Text1(0) max = Text1(0) min = _C_ For k = 0 To 6 If max Text1(k) Then min = Text1(k) End If sum = sum + Text1(k) Next k Text2 = (sum-max-min ) / 5End SubA、text1(1)B、text(0)C、text1(0)D、text2(0)71、以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），请填空。 Private Sub Command1_Click( ) Dim k As Integer Dim sum As Single, max As Si