思考与练习2
一、选择题
1. 对于窗体，下面＿＿＿＿属性在程序运行时其属性设置起作用。 A. MaxButton B. BorderStyle
C. Name D. Left
2. 当运行程序时，系统自动执行启动窗体的＿＿＿＿事件过程。 A. Load B. Click
C. UnLoad D. GotFocus
3. 要使Print方法在Form_load事件中起作用，要对窗体的 属性进行设置。
A. BackColor B. ForeColor
C. AutoRedraw D. Caption
4. 若要使标签控件显示时不覆盖其背景内容，要对＿＿＿＿属性进行设置。 A. BackColor B. BorderStyle C. ForeColor D. BackStyle 5. 文本框没有＿＿＿＿属性。
A. Enabled B. Visible C. BackColor D. Caption
6. 要使某控件在运行时不可显示，应对＿＿＿＿属性进行设置。 A. Enabled B. Visible
C. BackColor D. Caption
7. 要判断在文本框中是否按下Enter键，应在文本框的＿＿＿＿事件中判断。 A. Change B. KeyDown C. Click D. KeyPress
8. 当文本框的ScrollBars属性设置了非零值，却没有效果，原因是＿＿＿＿。 A. 文本框中没有内容 B. 文本框的MultiLine的属性设置为False C. 文本框的MultiLine的属性设置为True D. 文本框的Locked的属性为True
9. 不论何控件，共同具有的是＿＿＿＿属性。 A. Text B. Name C. ForeColor D. Caption 10. 下面＿＿＿＿是不合法的整型常数。 A. 123% B. 123& C. &O123 D. 3 11. 以下＿＿＿＿不是VB中合法的自定义标识符。 A. a_1 B. sum C. Long D. temp
12. 如果在一行中输入多条语句，各语句之间应使用＿＿＿＿分隔。 A. ， B. ；
C. ： D. -
13. 如果参与运算的两个表达式均为True,结果为True,该逻辑运算符是＿＿＿＿。 A. And B. Or
C. Not D. Xor
14. 下列语句中，声明变量x为变体型变量的是＿＿＿＿。
A. Dim x,y As Integer B. Dim x As Integer,y As Integer C. x%=10.6 D. x!=10.6
15. Int（100*Rnd +10）产生的随机整数的闭区间是＿＿＿＿。 A. [1，100] B. [1，99] C. [10，100] D. [10，109] 16. 假设x=2，语句Print x=x+1的输出结果是＿＿＿＿。 A. 3 B. 2 C. False D. True
17. 函数Len (〝Hello!〞+Space(2)+Mid(〝ShangHai〞,6))的值是＿＿＿＿。 A. 14 B. 11 C. 10 D. 9 18. Rnd函数不可能是下列＿＿＿＿值
A. 0 B 1 C 0.124 D 0.0004
19. 用于中途退出Do While?Loop循环的语句是＿＿＿＿。 A. Exit Sub B. Exit For C. Exit Do D. Exit 20. 执行下列语句后，X的值是＿＿＿＿。 X = 10
If X Mod 4 > 1 Then X = X + X Mod 3
A. 2 B. 4 C. 10 D. 11 21. 下面程序的输出是＿＿＿＿。 Private Sub Command1_Click() Dim X % X = 3
If X > 6 Then print〝>〞 ElseIf X < 10 Then print〝<〞 ElseIf X < 3 Then print〝=〞 End If
End Sub
A. > B. <
C. = D. 输出不确定
22. 语句Dim A(-6 To 8) As Integer定义了一个有＿＿＿＿个元素的整型数组。 A. 6 B. 8 C. 14 D. 15
23. 执行语句Dim Data&(10,20)后，数组Date中最多可容纳＿＿＿＿个数据。 A. 30 B. 32 C. 200 D. 231
24. 使用数组定义语句：Dim D $ (10),则数组D中各元素的值为＿＿＿＿。 A. 0 B. 空格 C. 空 D.随机数
25. 下面定义的4个数组中，元素最多的数组是＿＿＿＿。
A. Dim A ( 1 To 18 ) As Integer B. Dim A ( 2 To 4, -2 To 3) As Integer C. Dim A ( 1,2,3 ) As Integer D. Option Base 1
Dim A (18 ) As Integer
26. 要分配存放如下方阵的数据，正确的且最节约存储空间的数组声明语句是＿＿＿＿
1.1 2.2 3.3 4.4 5.5 6.6
A. Dim a(6) As Single B. Dim a(2,3) As Single C. Dim a(2 To 3,-3 To –1) As Single D. Dim a(1,2) As Integer
27. 设在数组Data中N个从小到大排列的数据，下面的＿＿＿＿程序段可以使Data数组中的数据按从大到小的顺序重新排列。
A. For I = 1To N B. For I = 1 To N / 2
Data (N – I + 1) = Data ( I ) Data ( I ) = Data ( N – I + 1 ) Next I Next I
C. For I = 1 To N D. For I = 1 to N/2 T = Data ( I ) T = Data ( I )
Data ( I ) = Data ( N – I + 1) Data ( I ) = Data ( N – I +1) Data ( N – I + 1 ) = T Data ( N – I + 1) = T Next I Next I
28. 在窗体上添加一个命令按钮，编写按钮单击事件如下： Private Sub Command_Click() Dim Data(5) As Integer Dim I As Integer ,K As Integer For I = 5 To 1 Step –1 Data ( I ) = 3 * I Next I
For K = 1 To 5
Data (K – 1) = Data(K – 1) + Data(K) Next K
Print Data ( 0 ); Data ( 3 );Data ( 5 ) End Sub
输出的结果为＿＿＿＿
A. 0 9 15 B. –1 8 14
C. 3 21 15 D. A(0)未赋初值，无解
29. 下面的程序段是一个单击Command1按钮的过程，运行结果是＿＿＿＿。 Private Sub Cmmand1_Click() Dim Data(5,5) As Integer Dim I %,J % For I = 1 To 5
For J = 1 To 5
Data( I, J ) = Data(I,J) + 2 * (I/J) * (J / I) Next J Next I
For I = 1 To 5 For J = 1 to 5
Print Data(I,J); Next J Print Next I End Sub
A. 2 0 0 0 0 B. 0 0 0 0 2 0 2 0 0 0 0 0 0 2 0 0 0 2 0 0 0 0 2 0 0 0 0 0 2 0 0 2 0 0 0 0 0 0 0 2 2 0 0 0 0 C. 2 0 0 0 2 D. 2 2 2 2 2 0 2 0 2 0 2 2 2 2 2 0 0 2 0 0 2 2 2 2 2 0 2 0 2 0 2 2 2 2 2 2 0 0 0 2 2 2 2 2 2
二、填空题
1. 设置窗体的＿＿＿＿属性，可在窗体上显示图片。
2. 在文本框中，通过＿＿＿＿属性能获得当前插入点所在的位置。
3. 控件的＿＿＿＿属性是对象的名字，其值在程序运行中只能被引用，不能被修改。 4. 当对命令按钮的Picture属性装入.bmp图形文件后，选项按钮上并没有显示所需的图形，原因是没有对＿＿＿＿属性设置为1。
5. 声明符号常量需使用＿＿＿＿语句。
6. 在变量名后面加上类型符号可标识变量类型，单精度型的类型符号是＿＿＿＿。 7. 表达式Abs(Fix(-2.3)+Sgn(6)+Sqr(25))的值为＿＿＿＿。
8. 设a=2,b=3,c=6,则表达式Not a > c Or c = b ＾2 And b < > a + c 的值为＿＿＿＿。 9. 下面程序段执行时，语句m=i+j的执行次数是＿＿＿＿，最终m的值是＿＿＿＿。 private Sub Command1_Click() For I = 1 To 5
For J = 5 To –5 Step –2 M = I + J Next J Next I End Sub
10. 要使下列for语句循环执行20次，循环变量的初值应当是： for k= to -5 step -2
11. 数组默认的下界为＿＿＿＿，用＿＿＿＿和＿＿＿＿函数可测定一个已定义数组的上界与下界值。
12. 下面的程序用于求一个二维数组对角线上元素之和，请填写程序中的空缺。
