 |
|
|
| 返回 | 主页 |
2002年全国计算机等级考试三级笔试样题（Visual Basic语言程序设计）3
[摘要]
(21)在窗体上面画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Commandl_Click()
Dim a
a = Array(1,2,3,4)
j = 1
For i = 4 To Step -1
s = s + a(i)*j
j =j*...
(21)在窗体上面画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Commandl_Click()
Dim a
a = Array(1,2,3,4)
j = 1
For i = 4 To Step -1
s = s + a(i)*j
j =j*10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是Test99 。
A) 4321Test99Test99B) 12Test99Test99 C) 34Test99 的 D) 1234
(22)在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码：
Option Base 1
Private Sub Commandl_Click( )
Dim a(4,4)
For i =1 To 4
For j =1 To 4
a(i,j) = (i-1)*3+j
Next j
Next i
For i =3 To 4
For j =3 To 4
Print a(j,i);
Next j
Print
Next i
End Sub
程序运行后，单击命令按钮，其输出结果为Test99 。
A) 6 9Test99Test99 B) 7 10Test99的 C) 8 11Test99的 D) 9 12
7 10Test99Test99 的8 11Test99的 的9 12Test99的 的10 13
(23)假定有如下的Sub过程：
Sub S（x As Single,y As Single）
t = x
x =t/y
y =t Mod y
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click ( )
Dim a As Single
Dim b As Single
a =5
b =4
S a,b
Print a,b
End Sub
程序运行后，单击命令按钮，输出结果为Test99 。
A) 5 4Test99Test99 B) 1 1Test99Test99 C) 1.25 4Test99 D) 1.25 1
(24)阅读程序：
Function F(a As Integer)
b = 0
Static c
b = b+1
c = c+1
f = a+b+c
End Function
Private Sub Commandl_Click ()
Dim a As Integer
a =2
For i =1 To 3
Print F(a)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为Test99的。
A) 4Test99Test99B) 4Test99Test99的C) 4Test99Test99的D) 4
4Test99的 的5Test99Test99的 的6Test99Test99Test997
4Test99的 的6Test99Test99的 的8Test99Test99Test999
(25)阅读程序：
Sub subP(b() As Integer)
For i =1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Commandl_Click()
Dim a(1 To 4)As Integer
a (1)=5
a (2)=6
a (3)=7
a (4)=8
subP a ()
For i =1 To 4
Print a(i)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为Test99的。
A）2Test99Test99B）5Test99Test99的C）10Test99Test99D）出错
4Test99Test99的6Test99Test99的 的12
6Test99Test99的7Test99Test99的 的14
8Test99Test99的8Test99Test99的 的16
(26)下列不能打开菜单编辑器的操作是Test99的。
A）按Ctrl+E
B）单击工具栏中的“菜单编辑器”按钮
C）执行“工具”菜单中的“菜单编辑器”命令
D）按Shift + Alt + M
(27)假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为Test99的。
A) MenuItem. Enabled=False
B) MenuItem. Enabled=True
C) MenuItem. Visible=True
D) Menultem. Visible=False
(28)在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是Test99 。
A) MoveTest99Test99 B) ChangeTest99 C) ScrollTest99 D) GetFocus
(29)假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为Test99的。
A) Label1. BackStyle=0
Label1.Borderstyle=0
B) Label1.BackStyle=1
Label1.Borderstyle=1
C) Label1.BackStyle=True
Label1.BorderStyle=True
D) Label1.BackStyle=False
Label1.Borderstyle=False
(30)在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：
Private Sub Form_Load ()
List1.AddItem"357"
List1.AddItem"246"
List1.AddItem"123"
Listl.AddItem"456"
Text1.Text=""
End Sub
Private Sub List1_ DblClick ( )
a =List1.Text
Print a+Text1.Text
End Sub
程序运行后，在文本框中输入“789”（见图1），然后双击列表框中的"456"，则输出结果为的 。
A) 1245Test99Test99 B) 456789Test99 C) 789456Test99 D) 0
其它培训参考信息：
2002年全国计算机等级考试三级笔试样题（Visual Basic语言程序设计）2
2002年全国计算机等级考试三级笔试样题（Visual Basic语言程序设计）1
等级考试上机模拟题（二级C语言）及答案
计算机等级考试三级网络全真模拟卷3
计算机等级考试三级网络全真模拟卷2
计算机等级考试三级网络全真模拟卷1
2002年9月计算机等级考试二级C语言程序设计试题(答案)5
2002年9月计算机等级考试二级C语言程序设计试题(答案)4
信息来自互联网，敬请核实，谨慎使用