4．执行程序时，自动发生的窗体事件是（ ACD ）
（A）Load （B）Click （C）Activate （D）Initialize （E）LostFocus
7．下列函数表达式中，返回值相等的是（ BC ） A．Abs (15.6256) B．Fix (15.625) C．Int (15.625) D．Round (15.625)
E．Sqr (15.625)
8．VB中可用于控制循环的有（ ABCDE ） A． if 语句与 Goto语句配合使用 B．While … Wend C．For … Next 语句
B． D．Do While … Loop语句 E．Do … Loop Until语句 9．能产生一个数值范围为1,2,3,4,5和6的随机整数的表达式为（ AC ） A. Int ( 6 * Rnd + 1 ) B. Int (5 * Rnd ) + 1
C .Int ( 6 * Rnd ) + 1 D. Int (5 * Rnd + 1 ) E. Int ( 6 * Rnd )
11.下列各项是滚动条(HScrollBar或VScrollBar)属性的有（ ACE ） (A) Max (B) Change (C) Value (D) Scroll (E) LargeChange 12.鼠标事件MouseDown将返回的参数有（ ABCD ）
(A) Button (B) Shift (C)当前坐标Y (D) 当前坐标X (E) Value
三、判断分析题
2．语句 Dim x,y,z As Long 能将变量x、y和z均设置为长整型。× 4．循环语句For i=n TO m Step k 正常结束后，循环变量i的值等于终值m。×
6．执行语句X = Y = 5后，变量X与Y的值均为5。×
7．在窗体上按下鼠标左键并拖动鼠标，可以多次触发Form_MouseMove事件。
√
8．Int (-4.8) + Int (4.8) 等于0。 ×
11、设变量A，B，C均为变体类型，则A=B=C 是一个合法的VB 语句，且A的返回值为True或False。√
12、在窗体的“通用”部分用Dim声明的变量，在本窗体内的所有过程或函数中都有效。
13．Visual Basic语言中的整型数据也可以用十六进制数表示。√ 16．定义在一个事件过程内部的变量，当该事件过程执行结束后，变量就会被释放。×
四、程序填空题
4．在文本框中输入字符串，用n1, n2, n3分别统计其中大写字母、小写字母、其他字符出现的个数。
Private Sub Command1_Click() c = Text1.Text
For p = 1 To c1 = Mid(c, p, 1) Select Case Case \ n1 = n1 + 1 Case \ n2 = n2 + 1 Case Else n3 = n3 + 1 End Select Next p
Label1.Caption = \大写字母：\& Str(n1) & \小写字母：\& Str(n2) & \其它字符：\End Sub
len（C）, C
7.程序是统计文本框Text1内字母e出现的次数（不区分大小写），结果显示在标签Label1中。
Private Sub Command1_Click() word = Text1.Text a = 0
For i = 1 To ⑦ c = ⑧ If c = \ a = a + 1 End If
Next i
Label1.Caption = \字母e出现的次数：\End Sub
Len (word), LCase (Mid(word, i, 1))
9、下面程序的功能是计算s?1?????，直到末项值≤10-5为止。 Private Sub Form_Click() n = 0：Sum = 0 Do
n = n + 1
Sum = Loop Print Sum End Sub
sum+1/n, until 1/n<=0.00001
12131nx?20?2x10．程序功能是计算分段函数的值，y???3x?210?x?20?0其它?
Private Sub Form_Click()
Dim x As Single, y As Single
x = Val(InputBox(\请输入x的值：\Select Case x
Case y = 2 * x Case y = 3 * x + 2 Case Else y = 0 End Select
Print \End Sub
Is > 20, 10 To 20
16．程序功能是产生10个小于等于100的随机正整数，找出其中的最小数，并记录该最小数的位置。
Private Sub Command1_Click( ) Min =
Pos = 0 For k = 1 to 10 X =
If X < Min Then Min = X : Pos = Next k
Print “The minimum =”; Min; “ Its Position : “; Pos End Sub
100, Int (Rnd *100+1), k
18．验证素数（素数是只能被1和自身整除的自然数）
Private Sub Command1_Click()
Dim n As Integer, i As Integer, f As Boolean f = True
n = Val(InputBox(\请输入一个正整数\大于1)\素数\
For i = 2 To
If n Mod i = Then f = False：Exit For End If Next i
If f = Then Print n; \是素数\不是素数\
End Sub
sqr(n), 0, True 19．显示100～200之间的所有素数。 Private Sub Command1_Click ( ) F=0
For N = 100 To 200
For K=__ __ To __ __ If N Mod K=__ __ Then F=1：Exit For
End If
Next K
If F=0 Then Print N F = __ __ Next N End Sub
step 1,2,sqr(n),0,0
23、随机产生25个0或者1构成5×5矩阵，要求在窗体上显示该矩阵和其下三角形元素。
Private Sub Form_Click() Cls：Dim a(1 To 5, 1 To 5) Print \原始矩阵：\For i = 1 To 5 For j = 1 To 5
a(i, j) = Print a(i, j); Next j Print Next i
Print \显示下三角形元素：\ For i = 1 To 5
For j = 1 To Print a(i, j); Next j Print Next i End Sub
int(rnd*2),i
25．单击窗体上的任何一点，以该点位置为圆心，用蓝色画出一个半径为300