 |
|
|
| 返回 | 主页 |
2002年全国计算机等级考试三级笔试样题（Visual Basic语言程序设计）5
[摘要]
二、的填空题（每空２分，共30分）
请将每空的正确答案写在答题卡[1]—[15]序号的横线上，答在试卷上不得分。
（1）设有如下的Visual Basic表达式：
5 * x^2 – 3 * x – 2 * Sin(a)/3
它相当于代数式【1】 。
（2）执行下面的程序段后，s的值为 【2】 。
s = 5
二、的填空题（每空２分，共30分）
请将每空的正确答案写在答题卡[1]—[15]序号的横线上，答在试卷上不得分。
（1）设有如下的Visual Basic表达式：
5 * x^2 – 3 * x – 2 * Sin(a)/3
它相当于代数式【1】 。
（2）执行下面的程序段后，s的值为 【2】 。
s = 5
For i = 2.6 To 4.9 Step 0.6
s = s+1
Next i
（3）表达式Fix(-32.68)+Int(-23.02)的值为【3】 。
（4）为了在运行时把图形文件picfile. jpg装入图片框Picture1,所使用的语句为【4】 。
（5）在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a = InputBox("请输入一个整数")
b = InputBox("请输入一个整数")
Print a + b
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为 【5】。
(6) 执行下面的程序段后，b的值为【6】。
a=300
b=20
a=a+b
b=a-b
a=a-b
(7) 以下程序段的输出结果是【7】 。
num=0
While num<=2
num=num+1
Print num
Wend
(8) 在窗体画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a(1 To 10)
Dim p(1 To 3)
k=5
For i=1 To 10
a(i)=i
Next i
For i=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End Sub
程序运行后，单击命令按钮，输出结果是【8】 。
(9) 下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在【9】、的【10】、的【11】处将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(678,45,324,528,439,387,87,875,273,823)
For i=【9】
For j=【10】
If a(i)【11】 a(j) Then
a1=a(i)
a(i)=a(j)
a(j)=a1
End If
Next j
Next i
For i=1 To 10
Print a(i)
Next i
End Sub
(10) 在窗体画一个命令按钮，然后编写如下过程：
Function fun(ByVal num As Long)As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num Mod 10)
num=num\10
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数")
n=CLng(n)
r=fun(n)
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为【12】 。
(11) 如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为【13】。
(12) 假定建立了一个工程，该工程包括两个窗体，其名称(Name 属性)分别为Form1和Form2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在【14】和【15】处将程序补充完整。
Private Sub Command1_Click()
【14】 Form1
Form2. 【15】
End Sub
二级笔试样卷Visual Basic语言程序设计答案
一、的选择题
(1)C
(2)D
(3)B
(4)C
(5)B
(6)C
(7)C
(8)D
(9)B
(10)A
(11)D
(12)A
(13)B
(14)A
(15)C
(16)C
(17)C
(18)B
(19)D
(20)A
(21)D
(22)D
(23)D
(24)B
(25)A
(26)D
(27)A
(28)C
(29)A
(30)B
(31)C
(32)D
(33)A
(34)B
(35)C
二、的填空题
(1)[1]
(2)[2] 9
(3)[3] 56
(4)[4] Picturel.Picture = LoadPicture("picfile.jpg")
(5)[5] 321456
(6)[6] 300
(7)[7] 1
2
3
(8)[8] 33
(9)[9] a To 9
[10]i+1 To 10
[11] >=
(10)的 [12] 24
(11)的 [13] -
(12)的 [14] Unload
[15] Show
其它培训参考信息：
2002年全国计算机等级考试三级笔试样题（Visual Basic语言程序设计）4
2002年全国计算机等级考试三级笔试样题（Visual Basic语言程序设计）3
2002年全国计算机等级考试三级笔试样题（Visual Basic语言程序设计）2
2002年全国计算机等级考试三级笔试样题（Visual Basic语言程序设计）1
等级考试上机模拟题（二级C语言）及答案
计算机等级考试三级网络全真模拟卷3
计算机等级考试三级网络全真模拟卷2
计算机等级考试三级网络全真模拟卷1
信息来自互联网，敬请核实，谨慎使用