全国计算机二级上机模拟考试习题集(01-50)解答.doc

文档介绍：二级VB上机模拟习题集1-50套试题参考答案
1
3
4
5
7
9
11
13
15
17
19
21
22
24
26
28
30
32
34
35
37
39
40
42
44
46
48
50
52
54
56
58
60
62
63
65
67
69
70
72
73
74
76
78
80
82
84
86
88
90

1. 基本操作
(1) 略
(2) 程序代码如下:
Private mand1_Click()
= LoadPicture( & "\")
End Sub
Private mand2_Click()
= LoadPicture("")
End Sub
2. 简单操作
(1) 程序代码如下:
Private mand2_Click()
Dim n As Integer, max As Integer
n = 0
max = 0
For i = 1 To 100
If Int(Sqr(a(i))) = Sqr(a(i)) Then
n = n + 1
If a(i) > max Then
max = a(i)
End If
End If
Next
= max
= n
End Sub
(2)
' ? "a0001" 其中?改为:
' For i = 0 To ? 其中?改为: - 1
' = ? 其中?改为:i
' ? 其中?改为:
' ? 其中?改为:End
3. 综合应用
' a(i) = Fix(Rnd * ? + 1) 其中?改为:100
' For j = 1 To ? 其中?改为:i - 1
' i = ? 其中?改为:i - 1
' If a(i) = ? Then 其中?改为:num
' If ? > 10 Then 其中?改为:i

1. 基本操作
(1) 略
(2) 程序代码如下:
Private Sub HS1_Change()
=
End Sub
2. 简单操作
(1)
' While (k < List2.?) 其中?改为:ListCount
' If ?.Selected(k) = True Then 中?改为:List2
' ? 其中?改为:k
' List1.? 其中?改为: