1.不论哪种控件，共同具有的属性是 Name
2.要使某控件在运行时不可显示，应对其设置的属性是 Visible
3.要是窗体在运行时不可改变窗体的大小和没有最大化、最小化按钮，需设置的属性是 Borderstyle
4.当程序运行时，系统自动执行启动窗体的事件过程是 Load
5.要判断在文本框中是否按下了Enter键，应在文本框的 Keypress 事件中判断
6.要使标签控件显示时不覆盖其背景内容，要对其设置的属性是 Backstyle
7.复选框的Value属性为0时，表示 复选框未被选中
8.将数据项“语文”添加到列表框（list1）中成为第一项应使用的语句是 “List1.Addltem”“语文”，“0”
9.执行下面的程序,列表框中的数据项有 “1，3”
Sub Form_Click()
For i = 0 To 4
List1.AddItem i
Next
For i = 0 To 2
List1.RemoveItem i
Next
End Sub
10.如果列表框（list1）中没有被选定的项目，则执行List1.RemoveItem List1.ListIndex语句的结果是 D
A．移去第一项
B．移去最后一项
C．移去最后加入列表的项
D．其他都不对
11.下列可以把当前目录下的图形文件Pic1.jpg装入图片框Picture1中的语句为 “Picture1. Picture=Load Picture(“”Pic1.jpg””)”
12.假定在图片框Picture1中装入了一个图形，为了清除该图形（不是删除图片框）应采用的正确方法是
“ 执行语句Picture1. Picture =Load Picture(“””’”)”
13.当组合框的Style属性值设置为2时，其为 下拉式列表框
14.要使定时器无效应将Interval属性取值为 0
15.假定定时器控件的Interval属性为1000，Enable属性为Ture，并且有下面的事件过程
Private Sub Timer1_Timer()
Beep
End Sub
计算机将发出Beep声的次数为
A.1000次
B．0次
C．1次
D．其他都不对
16.下面语句能正确地把列表框list1从1数起的第4项的内容设置为“aaaa”的是 “List1.List(3)=””aaaa”””
17. 下面语句能正确地把列表框list1从1数起的第3项的内容设置为“aaaa”的是 “List1.List(2)=”
”aaaa”””
18.在窗体上画一个文本框，为了在程序运行后隐藏该文本框，应使用的语句为 Text1.Visible=False
19.在窗体上画一个文本框Text1和一个标签Label1，要求程序运行后，如果在文本框输入字符，则立即在标签中显示相同的内容，一下可以实现上述操作的事件过程的是
“Private Sub Text1_Change()
Lebel1.Caption = Text1.Text
End Sub”
20.在设置阶段，如果把窗体的MaxButton属性和MinButton属性设置为False，则 最大、最小化按钮均消失
21. 下列程序
Private Sub Text1_Change()
Print Text1;
End Sub
在文本框输入“abcd”这4个字符时，print方法在窗体上显示的是 aababcabcd
22.要设置命令按钮的背景图形，必须设置的两个属性是 Style 和Picture
23.要清除列表框的所有内容，可用来实现的方法是 Clear
24.要获得用户在组合框输入的内容，应利用的属性是 Text
25.下列控件中，没有Caption属性的是 列表框（文本框）
下列属于vb字符串函数是26.引用列表框List1最后一个数据项应使用的语句是 List1.List（List1.ListCount-1）
27.执行下面的程序：
Private Sub Form_Click()
For I = 1 To 6
List1.AddItem I
Next
For I = 1 To 3
List1.RemoveItem I
Next
End Sub
列表框中的数据项是 “1，3，5”
28.下列说法正确的是 框架也有Click和DblClick事件
29.下列叙述错误的是 KeyPress事件可以识别键盘上某个键的按下与释放
30.编写如下两个事件过程
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
在不按Shift键，并锁定大写的情况下运行程序，如按“A”键，则程序输出的是 “A A”
31.以下程序功能是：用鼠标右键单击窗体，将画一个直径为300的圆。
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If ( ) Then
Circle (X, Y), 300
End If
End Sub
括号中应该填 Button=2
32.有如下事件过程：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 And Shift = 2 Then
Print ""山西大学 ""
End If
End Sub
程序运行后，为了在窗体上输出“山西大学”，应该进行的操作是 同时按下Ctrl键和鼠标右键
33.编写如下过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode + 2)
End Sub
程序运行后，如果单击键盘“A”键，则窗体上输出为 “AC”
34. 在鼠标事件MouseDown、MouseUp、MouseUp中，代表鼠标的按键状态的参数是 Button
35.在窗体上松开鼠标键时触发的事件是 MouseUp
36.下列叙述正确的是 窗体的Name属性指定窗体的名称，用来识别一个窗体
37.要把窗体中的文字加粗显示，可设置窗体的 FontBold 属性
38.当窗体被覆盖后又显示时，要要想自动刷新窗体上的图形，应设置窗体上的 AutoRedraw属性
39.要改变窗体最小化时的图标，应设置窗体的 Icon属性
40. 要想运行后窗体自动充满整个屏幕或自动缩小为一个图标，应设置窗体的 WindowState属性
41. 要想使窗体中的文字以斜体字显示，应设置窗体的 FontItalic
42.下面数组声明语句，正确的是 “Dim c(8,12) As Integer”
43.数组a中的所有元素已经赋值了数据，将数组a中的所有数据打印出来，下面的那段程序能完成此功能？
“For l=Lbound(a) to Ubound(a)
Print a(l)
Next l”
44. 数组a中的所有元素已经赋值了数据，将数组a中的所有数据打印出来，下面的那段程序能完成此功能？
For l=1 to 20
Print a(l)
Next l”
45. 数组a中的所有元素已经赋值了数据，将数组a中的所有数据打印出来，下面的那段程序能完成此功能？
For l= Lbound(a) to 20
Print a(l)；)
Next l”
46. 数组a中的所有元素已经赋值了数据，将数组a中的所有数据打印出来，下面的那段程序能完成此功能？
“For l=1 to Ubound(a)
Print a(l)；
Next l”
47. 数组a中的所有元素已经赋值了数据，将数组a中的所有数据打印出来，下面的那段程序能完成此功能？
“For l=Lbound(a) to 20
Print a(l)，
Next l”
48. 数组a中的所有元素已经赋值了数据，将数组a中的所有数据打印出来，下面的那段程序能完成此功能？
“For l=1 to Ubound(a)
Print a(l)，
Next l”
49. 数组a中的所有元素已经赋值了数据，将数组a中的所有数据打印出来，下面的那段程序能完成此功能？
For l=1 to 20
Print a(l)，
Next l”
50.关于redim的下列说法中，正确的是： 一般与整形变量结合使用（如：redim（n））
51.关于redim的下列说法中，正确的是： 可以改变动态数组的维数
52.关于redim的下列说法中，正确的是： 可以改变动态数组的上、下界
53.要储存n个单精度数，下列语句正确的是
“dim a() as single
n=inputbox(““inputn””)
redim a(1 to n)
54.已知有数组声明：Dim a(-1 to 3,2 to 5)as integer,引用数组元素，正确的是 “a（-1，5）”
“a（-1，2）” “a（0，2）”
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论