发布时间 : 星期日 文章VB练习题（含答案）更新完毕开始阅读
B.A BB CCC DDDD C.B CC DDD EEEE D.AA BBB CCCC DDDDD
46.在窗体上画两个名称分别为Label1和Label2的标签，然后编写如下事件过程 Private Sub Form_Click() x= -5:s= -5 Select Case s
Case Is ＞ 0 y=x+1 Case Is ＞= 0 y=x+2 Case Else y=x+3 End Select
Label 1.Caption = x Label2.Caption = y End Sub
程序运行后，单击窗体，标签Label1和Label2中显示的内容分别是 (A) A.-5 和 -2 B.-5 和 -4 C.-5 和 -3 D.-5 和 –5
33. 下列VB程序语句正确的是(D).
A. If A ≥B Then T=A: A=B: B=T B. If A ≥B Then T=A; A=B; B=T C. If A>=B Then T=A A=B B=T D. If A>=B Then T=A: A=B: B=T 47. 下列程序段执行后输出的结果是(C) n=10
For k=n To 1 x = k^2 Next k
Print x
A.-2 B.-1 C.1 D.0 48 下列程序段执行后输出的结果是(A) i=0
For k=10 To 19 Step 3 i=i+1 Next k
Print i
A. 4 B. 5 C. 3 D. 6
49 下列程序段执行后输出的结果是(B) x=int (Rnd+4) Slect Case x Case 5
Print \优秀\Case 4
Print \良好\ Case 3
Print \及格\Case Else
Print \不及格\End Select
A. 优秀 B. 良好 C. 及格 D. 不及格
50. 在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1
Private Sub Command1_Click() Dim ａ
a = Array(1, 2, 3, 4) j=1
For i = 4 To 1 Step -1 s = s + a(i)*j j =j * 10 Next i Print s End Sub
运行上面的程序，单击命令按钮，其输出结果是 (D) A.4321 B.12 C.34 D.1234
51.定窗体标题条显示内容的属性是(C) A.Text B.Name C.Caption D.BackStyle
52．要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（A．Passwordchar属性值为* B. Caption属性值为* C．PasswordChar属性值为真 D. Text属性值为* 53决定窗体有无控制菜单的属性是(A) A.ControlBox B.MinButton
） A
C.Enabled D.MaxButton
54使文本框获得焦点的方法是(C) A.Change B.GotFocus C.SetFocus D.LostFocus`
55下列可以把当前目录下的图形文件pic1.jpg装入图片框Picture1中的语句为 （C） A.Picture = \
B.Picture.Handle = \
C.Picture 1.Picture = LoadPicture(\ D.Picture = LoadPicture(\56决定标签内显示内容的属性是(D) A.Text B.Name
C.Alignment D.Caption
57假定在图片框Picture1中装入了一个图形，为了清除该图形(注意，清除图形，而不是删除图片框)，应采用的正确方法是(B)
A.选择图片框，然后按Del键
B.执行语句Picture1.picture=LoadPicture(\ C.执行语句Picture1.picture=\
D.选择图片框，在属性窗口中选择Picture属性条，然后按回车键
58.比较图片框（PictureBox）和图像框（Image）的使用，正确的描述是（A ）。
A． 当图片框（PictureBox）的AutoSize自属性为False时，只在装入图元文件（*.wmf）时，图形才能自动调整大小以适应图片框的尺寸
B． 当图像框（Image）的Stretch属性为True时，图像框会自动改变大小以适应图形的大小，使图形充满图像框
C． 两类控件都可以设置AutoSize属性，以保证装入的图形可以自动改变大小
D． 两类控件都可以设置Stretch属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分
59删除列表框中指定的项目所使用的方法为(D) A.Move B.Remove C.Clear
D.RemoveItem
60.若要向列表框添加列表项，可使用的方法是（ A ）。
A、AddItem B、Remove C、Clear D、Add 61当拖动滚动条中的滚动块时，将触发的滚动条的事件是(BC) A.Move B.Change
C.Scoll D.SetFocus
62．滚动条控件的LargeChange属性所设置的是（B ）
A．滚动条中滚动块的最大移动范围
B．单击滚动条和滚动箭头之间的区域时，滚动条控件value属性值的改变量 C．滚动条中滚动块的最大移动位置 D． 滚动条控件无该属性
63用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是(C) A.List
B.ListIndex C.Text
D.ListCount
64．设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（D ） A．Caption B．Name C．Text D．Value
65.在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() a = Text1.Text + Text2.Text Print a End Sub
Private Sub Form_Load() Text 1.Text = \ Text2.Text = \ End Sub
程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321，然后单击命令按钮，则输出结果为(C) A.444 B.321123 C.123321 D.132231
65． 运行下面程序后输出的结果是（B） Private Sub Form_Click() K = 4
If K <= 3 Then n = 5 If K <= 4 Then n = 4 If K <= 5 Then n = 3 Print n End Sub
A． 无输出 B． 3 C． 4 D． 5
66． 运行下面程序后输出的结果是（B） Private Sub Form_Click()
score = Int(Rnd * 10) + 80