1．（T ）下拉组合框和简单组合框（Style=0/1）时，允许用户输入那些不在列表中的选项。 2．（F ）三种方式的组合框都允许用户输入那些不在列表中的选项。 3．（F ）垂直滚动条的最上端代表最大值（MAX ），最下端代表最小值(MIN)。 4．（T ）能够将文本框控件隐藏起来的属性是visible 。 5．（T ）能够改变复选框中背景颜色的属性是BackColor。 6．（T ）Timer 控件在程序运行时是不可见的。 7．（F ）如果文本框的Enabled 属性设为False，文本框的文本将变成灰色，用户能将光标
置于文本框上，但是不能改变文本框中的内容。
8．（F ）为了使标签框的内容靠右显示，应把Alignment 属性设置为0。 9．（T ）图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性
是Strentch。
10．（T ）一种控件组合了文本框和列表框的特性，这种控件是组合框。 11．（F ）为了防止用户随意将光标置于控件上，应将该控件的TabIndex 属性设置为0。 12．（T ）Button 控件可以接收 Click 事件，但不会接收DBclick 事件。
第五章
（一）选择题
1、以下能够正确计算n!的程序是（ C ）。
A、Private Sub Command1_Click() B、Private Sub Command1_Click() n=5:x=1 n=5;k=1;i=1 Do Do
x=x*i X=X*i i=i+1 i=i+1 Loop While i C、Private Sub Command1_C1ick() D、Private Sub Command1_Click() n=5:x=1:i=1 n=5:x=1:i=1 Do Do x=x*i x=x*i i=i+1 i=i+1 Loop While i<=n Loop While i>n Print x Print x End Sub End Sub 2、在窗体上画一个名称为Command1 的命令按钮，一个名称为Label1 的标签，然后编写如下事件过程： Private Sub Command1_Click() S=0 For i=1 To 15 x=2*i-1 If x Mod 3=0 Then S=S+1 Next i Label1.Caption=S End Sub 程序运行后，单击命令按钮，则标签中显示的内容是（ B ）。 A、1 B、5 C、27 D、45 3、在窗体上画一个Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 n=InputBox(\ For i=1 To n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入 3，则在窗体上显示的内容是（ D ）。 A、3 B、4 C、5 D、6 4、在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a<=0 Print s;a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（ C ）。 A、7 9 B、34 0 C、9 7 D、死循环 5、在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num AS Integer num=1 Do Until num>6 Print num； num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（ B ）。 A、1 3.4 5.8 B、1 3 5 C、1 4 7 D、无数据输出 6、设有以下循环结构 Do 循环体 Loop While<条件> 则以下叙述中错误的是（ A ）。 A、若“条件”是一个为0 的常数，则一次也不执行循环体 B、“条件”可以是关系表达式、逻辑表达式或常数 C、循环体中可以使用Exit Do 语句 D、如果“条件”总是为True，则不停地执行循环体 7、设有如下程序： Private Sub Command1_Click() Dim sum AS Double,X AS Double sum=0 n=0 For i=1 to 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For 循环计算一个表达式的值，这个表达式是（ C ）。 A、1+1/2+2/3+3/4+4/5 B、1+1/2+2/3+3/4 C、1/2+2/3+3/4+4/5 D、1+1/2+1/3+1/4+1/5 8、在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n=1 To 20 If n Mod 3<>0 Then m=m+n\\3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是（ C ）。 A、15 B、18 C、21 D、24 9、在窗体上画一个名称为Command1 的命令按钮和两个名称分别为Text1、Text2 的文本框，然后编写如下事件过程： Private Sub Command1_Click() n=Text1.Text Select Case n Case 1 To 20 x=10 Case2,4,6 x=20 Case Is<10 x=30 Case 10 x=40 End Select Text2.Text=X End Sub 程序运行后，如果在文本框Text1 中输入10，然后单击命令按钮，则在Text2 中 显示的内容是（ A ）。 A、10 B、20 C、30 D、40 10、在窗体上画一个名称为Command1 的命令按钮和一个名称为Text1 的文本框，然后编写如下事件过程： Private Sub Command1_Click() n=Val(Text1.Text) For i=2 To n For j=2 To Sqr(i) If i Mod j=0 Then Exit For Next j If j>Sqr(i) Then Print i Next i End Sub 该事件过程的功能是（ C ）。 A、输出n 以内的奇数 B、输出n 以内的偶数 C、输出n 以内的素数 D、输出n 以内被j 整除的数 11、在窗体上画一个命令按钮(其Name 属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a s=O a=Array(1,2,3,4) i=1 For j=4 To 1 Step -1 s=s+a(i)*i i=i*10 Next i Print S End Sub 运行上面的程序，单击命令按钮，其输出结果是（ B ）。 A、4321 B、1234 C、34 D、12 12、以下Case 语句中错误的是（ C ）。 A、Case 0 To 10 B、Case Is>10 C、Case Is>10 And Is<50 D、Case 3,5,Is>10 13、设有如下程序段： x=2 For i=1 To 10 Step 2 x=x+i Next 运行以上程序后，x 的值是（ B ）。 A、26 B、27 C、38 D、57 14、在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static X AS Integer Cls For i=1 To 2 y=y+x x=x+2 Next Print x,y End Sub 程序运行后，连续三次单击 Command1 按钮后，窗体上显示的是（ B ）。 A、4 2 B、12 18 C、12 30 D、4 6 15、[多选题]下列程序段的执行结果可以为（ BD ）。 X=Int(Rnd+4+0.5) Select Case x Case 5 Print \优秀\ Case 4 Print \良好\ Case 3 Print \中\ Case 2 Print \及格\ Case Else Print \不及格\ End Select A、中 B、优秀 C、不及格 D、良好 E、及格 16、设有如下程序： Private Sub Command1_Click() Dim c As Integer,d As Integer c=4 d=InputBox(\请输入一个整数\ Do While d>0 If d>c Then c=c+1 End If d=InputBox(\请输入一个整数\ Loop Print c+d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入 1、2、3、4、5、6、7、8、9、0， 则输出结果是（ D ）。 A、12 B、11 C、10 D、9 17、在窗体上画一个名称为Command1 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim c As Integer,d As Integer 百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB选择判断题题库&答案(3)在线全文阅读。
相关推荐：