VB循环结构程序设计选择题

VB循环结构程序设计选择题 VB 循环结构设计 ,(执行下面的程序段后，x的值为(,) x=5 For I=l To 20 Step 2 x=x+I,5 NextI A(21 B(22 C(23 D(,4 ,(假定有以下循环结构: Do until条件 循环体 Loop 则下列说法正确的是(,) A(如果“条件”是一个为(1的常数，则一次循环体也不执行 B(如果“条件”是一个为(1的常数，则至少执行一次循环体 ,(如果“条件”是一个不为-1的常数，则至少执行一次循环体 D(不论“条件”是否为“真”，至少要执行一次循环体 ,(下面程序在调试时出现了死循环 Private Sub Command1_Click() n=InputBox(“请输入一个整数”) Do If n Mod 2=0 Then n=n+1 Else n=n+2 Else If Loop Until n=1000 End Sub 下面关于死循环的叙述中正确的是(D) A)只有输入的n是偶数时才会出现死循环，否则不会 B)只有输入的n是奇数时才会出现死循环，否则不会 C)只有输入的n是大于1000的整数时才会出现死循环，否则不会 D)输入任何整数都会出现死循环 ,(下列循环控制结构出现错误的是(,) ,(,,, ，=, ,, ,,, ,,,，， ，,,,,,, ,,,, ,,,, ,,, ,,,, ， ,(,,,,, ，,,,, ,,,，，:，,，，, ，,,,,,, ,,,, ,,,, ,,,,, ,,,, ,(,, ,=,，，:，,，+, ，,,,,,, ,,,, ,,,, ,, ,,,, ,,,,, ，,,,, ,. ,, ,,,,, ，,,,, ,=,，，:，,，+, ，,,,,,, ,,,, ,,,, ,, ,,,, 以下循环语句中在任何情况下都至少执行一次循环体的是(C) A)Do While <条件> B)While <条件> 循环体 循环体 Loop Wend C)Do D)Do Until <条件> 循环体 循环体 Loop Until <条件> Loop 当循环 为计算1+3+5+„„+99的值，某人编程如下 k=1 s=0 While k<=99 k=k+2 : s=s+k Wend Print s 在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是(D) A)While „Wend循环语句错误，应改为For k=1 To 99 „Next k B)循环条件错误，应改为Whlie k<99 C)循环前的赋值语句k=1错误，应改为k=0 D)循环中两条赋值语句的顺序错误，应改为s=s+k : k=k+2 ,(下列语句错误的是(,) ,(,,,, ,,, ,(,,,, ,,,,, ,(,,,, ,, ,.,,,, ,,, ,(设,,,，,,,，下列循环中，循环体没有执行循环结构的是(,) ,(,,, ,,, ,, , ,(,,,,, ,,, ,,,,, :,: ,,,,, :,: ,,,, , ,,,, ,(,, ,(,, ,,,,, ,,, ,,,,, :,: ,,,,, :,: ,,,, ,,,,, ,,, ,,,, ,(有如下事件过程() ,,,,,,, ,,, ,,,,,,,,,,,;,() ,,,, ,, ,,,,, ,,,, ,,，,,,,,,,(:输入,的值:) ,,,,,(,) ,,，,,,,,,,(:输入,的值:) ,,,,,(,) ,,,,, ,,,, ,,,,, , ,,, ,,, 程序运行后，依次输入数值,,，,,,,,，,,，输出结果是() ,.,,,, ,.-,,,, ,.,,, ,.-,, ,(下列关于循环控制结构的使用说明，正确的是(,) ,(,,,(((,,,,循环嵌套时，不能共同使用同一个终端语句 ,(任何一种循环都必须有起始语句和终端语句 ,(不能用,,,,,(((,,,,语句设计出确定循环次数的循环 ,(循环体没有执行完毕，不能在中途结束循环 ,(程序执行时，单击窗体输出结果是(,) ,,,,,,, ,,, ,,,,,,,,;,() ,,, , ,, ，,,,,,, ,,, ,, ,,,,, ,; ,,,,, ,,,, ,,,,, ,,, , ,,, ,,, ,(, ,(,,,,,, ,(出现语法错误的信息 ,(陷入死循环 ,,(程序执行时，单单击窗体输出结果是(,) ,,,,,,, ,,, ,,,,,,,,;,() ,,, ， ,, ，,,,,,, ,,, ,,,,, ,,, ,,,,, ,,,,, ,; ,,,, ,,, ,,, ,.,,, ,.,,, ,.,,,, ,.,,,, ,,(执行下列程序段后，输出的结果是() ,,, ,,,, ,, , ,,,, ,,, ,,,, ,, , ,,,, ,,, ,,,, ,, , ,,,，,, ,,,, ,, ,,,, ,, ,,,, ,, ,,,,, ,.,, ,.,, ,.,, ,.,, ,,(以下循环体执行的次数是(,) ,,,:,,, ,,,,, ,,,,，, ,,,,, , ,,,，,:,,,,, ,,,, ,.,次 ,.,次 ,.,次 ,(,次 ,,(下述程序的功能是(,) ,,:((,，,),,,(,,,，,): ,,,,,(,) ,,, ,,, ,,, ,, , ,,,,,,(,，,，,) ，, ,,:(: ,,,, ,,,,, ,,,,，, ,,:(: ,,,, ,,,，, ,,, ，, ，, ,,, ,,,, ,,,,,::,,: ,,, ，, ,,,, , ,,,,, ::,): ,(统计输入的字符串中括号的总数 ,(统计输入的字符串中匹配的括号的对数 ,(检查驶入的字符串中的括号是否能够匹配 ,(删除字符串的括号 ,,( ,,,,,, ,,,,;的过程有三种，它们是(,) ,(事件过程、子过程和函数过程 ,(子过程、函数过程和属性过程 ,(事件过程、函数过程和属性过程 ,、子过程、通用过程和函数过程 ,,(使用过程编写程序是为了(,) ,(使程序模块化 ,(使程序易于阅读 ,(提高程序运行速度 ,(便于系统的编译 ,,(关于文件过程与通用过程的说明，正确的是(,) ,(文件过程和通用过程都必须是能够被对象所识别的 ,(文件过程和通用过程都是系统预先设计好的 ,(文件过程和通用过程都能够用鼠标触发 ,(文件过程和通用过程的程序代码一般都要由用户编写 ,,(,,,过程的定义中(,) ,(一定要有虚参 ,(一定指明是公有的还是静态的 ,(一定要有过程的名称 ,(一定要指明其类型 ,,(定义过程的格式中，,,,,,;关键字的作用是指定过程中的局部变量在内存中的存储方式。若使用,,,,,;关键字，则(,) ,(每次调用此过程，该过程的局部变量都会被重新初始化 ,(在本过程中使用到的，在其他过程中定义的变量也为,,,,,;型 ,(每次调用该过程时，该过程中的局部变量的值保持上一次调用后的值 ,(定义了该过程中定义的局部变量为“自动”变量 ,,(下面关于退出,,,和,,,;,,,,过程中，说法正确的是(,) ,(过程的最后一条语句是,,, ,,,(或,,, ,,,,,,,)，因而一定要执行到,,, ,,,(或,,, ,,,,,,,)才会结束过程的执行 ,(一个过程的可以没有,,,, ,,,(或,,, ,,,,,,,)语句，如果有则只能有一条 ,(一个过程既可以通过,,,, ,,,(或,,, ,,,,,,,)语句结束过程的执行，也可以通过,,, ,,,(或,,, ,,,,,,,)结束过程的执行 ,(可以用,,,,语句来退出,,,过程 ,,(下列关于函数的说法正确的是(,) ,(定义函数过程时，若没有,,子句说明函数的类型，则函数过程与,,,过程一样，都是无类型过程 ,(在函数体中，如果没有给函数名赋值，则函数过程没有返回值 ,(函数名在过程中只能被赋值一次 ,(函数过程是通过函数名带回函数值的 ,,(下列过程语句中，一定按传值方式进行数据传递的语句是() ,(,,, ,,,,(, ,, ，,,,,,,) ,(,,, ,,,,(,,,,, , ,, ，,,,,,,) ,(,,, ,,,,(,,,,, , ,, ，,,,,,,) ,(,,, ,,,,(,,,()) ,,(下列定义的函数过程正确的是(,) ,(,,,,,,, ,,, ,,,;,,,, ,,(,，,) ,,, , ,, ,,,,,, ,,,，, ,,, ,,,;,,,, ,,, ,,, ,(,,,,,,, ,,,;,,,, ,,(,，,),, ,,,,,, ,,, , ,, ,,,,,,，, ,, ,,,,,, ,(,,,;,,,, ,,(, ,, ,,,,,,，, ,, ,,,,,,) ,,,,，, ,,, ,,,,;,,,, ,(,,,;,,,, ,,(, ,),, ,,,,,, ,,, ,(,, ,,,,,,) ,,,，, ,,, ,,,,;,,,, ,,(在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是(,) A(Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii<65 OrKeyAscii>90 Then MsgBox"请输入大写字母" KeyAscii=0 EndIf End Sub B(Private Sub Text1_KeyDown(KeyCode As Integer, Shift AsInteger) If KeyCode<65 Or KeyCode>90 Then MsgBox"请输入大写字母" KeyCode=0 End If End Sub C(Private SubText1_MouseDown(Button As Integer,_ Shift As Integer, X As Single, YAs Single) If Asc(Text1.Text)<65 Or Asc(Text1.Text)>90Then MsgBox"请输入大写字母" End If End Sub D(Private SubText1_Change() If Asc(Text1.Text)>64 And Asc(Text1.Text)<91Then MsgBox"请输入大写字母" End If End Sub ,,(要使列表框中的列表项显示成复选框形式，则应将其Style属性设置为(,) A)0 B)1 C)True D)False ,,(设组合框Comb01中有3个项目，则以下能删除最后一项的语句是(,) A(Combo1(RemoveItemText B(Combo1(Removeltem2 (Combo1(RemoveItem3 D(Combo1(RemoveltemCombo1(Listcount C ,,(在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为(,) A.For i=0 ToList1.ListCount-1 „„ Next B.For i=0 To List1.Count-1 „„ Next C.For i=1 To List.ListCount „„ Next D.For i=1 ToList1.Count „„ Next ,,. 在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程: Private SubCommand1_Click() n=Val(Text1.Text) If n,2=n/2 Then f=f1(n) Else f=f2(n) End If Print f;n End Sub PublicFunction f1(ByRef x) x=x*x f1=x+x End Function PublicFunction f2(ByVal x) x=x*x f2=x+x+x EndFunction 程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是(,) A.72 36 B.108 36 C.72 6 ,.108 6 ,,. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click() c=1234 c1=Trim(Str(C)) For i=1 To 4 PrintNext EndSub 程序运行后，单击命令按钮，要求在窗体上显示如下内容: 1 12 123 1234 则在下划线处应填入的内容为(,) A. Right(c1,i) B. Left(c1,i) C. Mid(c1,i,1) D. Mid(c1,i,i) ,,. 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框， 然后编写如下事件过程: Private SubCommand1_Click() n=Val(Text1.Text) For i=2 To n For j=2To Sqr(i) If i Mod j=0 Then Exit For Next j Ifj>Sqr(i)Then Print i Next i End Sub 该事件过程的功能是(,) A.输出n 以内的奇数 B.输出n 以内的偶数 C.输出n 以内的素数 D.输出n以内能被j整除的数 ,,. 以下描述中正确的是(,) A) 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 模块中的任何过程都可以在整个工程范围内被调用 B)在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程 C)如果工程中包含Sub Main过程，则程序将首先执行该过程 D)如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体 在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令,,. 按钮的事件过程: Private Function f(m AsInteger) If m Mod 2=0 Then f=m Else f=1 End If End Function Private Sub Command1_Click() Dim i AsInteger s=0 For i=1 To 5 s=s+f(i) Next Prints End Sub 程序运行后，单击命令按钮，在窗体上显示的是(,) A.11 B.10 C.9 D.8 ,,. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然 后编写如下事件过程: Private SubCommand1_Click() Dim array1(10,10)As Integer Dim i As Integer, jAs 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.15 B.14 C.13 D.12 ,,. 对窗体编写如下事件过程: Private Sub Form_MouseDown(Button As Integer， Shift As Integer,X As Single， Y As Single) If Button=2 Then Print“AAAAA” End If End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer， X As Single， Y As Single) Print“BBBBB” End Sub 程序运行后，如果单击鼠标右键，则输出结果为(,) A.AAAAA B.BBBBB C.AAAAA D.BBBBB BBBBB AAAAA ,,. 以下说法错误的是(,) A.函数过程没有返回值 B.子过程没有返回值 C.函数过程可以带参数 D.子过程可以带参数 ,,. 在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然 后编写如下事件过程: Private Sub Commandl_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n=n+1 Ifi>10 Then Exit For Next Text 1(Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是(,) A.2 B.3 C.4 D.5 ,,. 在窗体上画一个命令按钮，然后编写如下事件过程: Private Sub Command1_Click() s=1 Do s=(s + 1) * (s + 2) Number=Number + 1 Loop Until s >=30 Print Number, s End Sub 程序运行后，输出的结果是(,) A. 2 3 B. 2 56 C. 5 12 D. 10 20 ,,. 在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是(,) A.Drive1_Change B.Drive1_Click C.Dir1_Click D.Dir1_Change ,,. 窗体上有1个名称为List的列表框，其中已经输入了若干个项目(如图所示): 还有2个文本框，名称分别为Text1、Text2, 1个名称为 Command1的命令按钮，并有 以下程序 Private Sub Command1_Click() Dim str As String, s As String, k As Integer s=Text1 Str=”” For k=List1.ListCount-1 to 0 Step-1 If InStr(List.List(k),s)>0 then str=str&List.List(k)&” ” End If Next k If str=””Then Text2=”没有匹配的项目” Else Text2=str End If End Sub 程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是(C) A. 京 B. 北京 南京 C. 南京 D. 没有匹配的项目 ,,(列表框中列表框的数目可以通过以下(,)的属性的值获得 ,.,,,,, ,(,,,,,,, ,(,,,;,, ,(,,,,,,, ,,(要清楚列表框中所有的列表项目时，应使用(,)方法 ,.,,,,,, ,(,,,,, ,.,,,,,,，,,, ,(,,,, ,,( 设置复选框或单选按钮标题对齐方式的属性是(D) A. Align B. Style C. Sorted D. Alignment 44(将字符串“hello”添加到列表框的最后，可使用( )请语句。 A( List1.AddItem“hello”,List1.ListCount-1 B( List1.AddItem“hello”,List1.ListCount C( List1.AddItem“hello”,List1.ListIndex D( List1.AddItem“hello” 45(下列( )程序段能删除列表框List1中的所有项。 A(Private Sub Command3_Click( ) B(Private Sub Command3_Click( ) For I=0 To List1.ListCount-1 For I=0 To List1.ListCount-1 List1.RemoveItem 1 List1.RemoveItem 0 Next I Next I End Sub End Sub C(Private Sub Command3_Click( ) B(Private Sub Command3_Click( ) For I=0 To List1.ListCount For I=0 To List1.ListCount List1.RemoveItem 1 List1.RemoveItem 0 Next I Next I End Sub End Sub 46(要将一个组合框设置为简单组合框(Simple Combo)，则应将其Style属性设置为(A ) A(0 B(1 C(2 D(3 47.在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框。当改变 当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个 事件过程中，这个事件过程是(A) A)Drivel Change B)Drivel Click C)Dirl_Click D)Dirl_Change 48.在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click() Dim x As Integer，n As Integer x=1 n=0 Do While x<20 x=x*3 n=n+1 Loop Textl(Text=Str(x) Text2(Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是(B) A.15和l B.27和3 C.195和3 D.600和4 49.在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click() Dim x As Integer，n As Integer x=1 n=0 Do While x<20 x=x术3 n=n+1 Loop Textl(Text=Str(x) Text2(Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是B A)15和l B)27和3 C)195和3 D)600和4 50.有如下 函数过程: Function gys(By Val x As Integer, ByVal y As Integer) As Integer Do While y<>0 preminder=x / y x=Y y=preminder Loop gys=x End Function 以下是调用该函数的事件过程,该程序的运行结果是(D)。 Private Sub Command1_Click Dim a As Integer,b As Integer a=10:b=2 x=gys(a,b) Print x End Sub A) 7 B)8 C) 9 D) 10