|
|
|
| 2003年4月全国计算机等级考试二级visual Basic语言程序设计笔试试卷 |
| www.eduxue.com 来源：不详 更新时间：2005-3-29 【字体：小 大】 |
推荐文章：2002年4月全国计算机等级考试二级
推荐文章简介：
基础部分和QBASIC语言程序设计 (考试时间：120分钟，满分100分) 一、选择题，(（1）-(40)每题1分，（41）-(50）每题2分，共60分) 下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂
CommonDialogl．FileName＝"SaveFile"
CommonDiaLogl．Filter＝"A11 Files|*.*|(*.txt)|*.txt|*．doc|*．doc"
C0mmonDialogl．FilterIndex＝1
CommonDialogl．DialogTi
tle＝"Save"
CommonDialogl．Action＝2
End Sub
C)Private Sub Cmmandl_C1ick()
COmmonDialogl．FileName＝"Save"
CommonDialogl．FiLter＝"A11Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"
CommonDialogl．Filterindex＝2
C0mmonDialogl．DialogTitle＝"SaveFile"
CommonDialogl．Action＝2
End Sub
D)Private Sub Commandl_C1ick()
CommonDialogl．FileName＝"SaveFile"
CommonDialogl．Filter＝"All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"
CommonDialogl．FilterIndex=1
CommonDialogl．DialogTitle=“Save”
CommonDialogl．Action＝1
End Sub
二、填空题(每空2分，共30分)
请将每空的正确答案写在答题卡[1]一[15序号的横线上，答在试卷上不得分。
(1)visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是________
(2)Visual Basic提供的对数据文件的三种访问方式为随机访问方式_____和二进制访问
方式。
(3)执行下面的程序段后，变量S的值为_______。
S＝5
For i ＝2.6 To 4.9 Step 0.6
S=S十1
Next i
(4)为了在运行时把d:pic文件夹下的图形文件a.jpg装入图片框Picturel，所使用的语
句为_______。
(5)计时器控件能有规律的以一定时间间隔触发_______事件，并执行该事件过程中的
程序代码。
(6)以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的
数并求出它们的和。请填空。
Private Sub Commandl_C1ick()
Fori＝1To 20
x＝Int(____________*200+100)
If_______[7] ＝0 Then
Print x
二级VIsualBMic语言程序设计试卷第12页 (共15页)
S＝S十 _________ [83
End If
Next i
Print “Sum＝”：S
End Sub
(7)设有如下程序
Private Sub Form_Click()
Dim a AS Integer，b As integer
a＝20：b=50
pla，b
p2a，b
p3a,b
Print"a＝"；a,"b＝"；b
End Sub
Sub pl(x As Integer，ByVal y As Integer)
x=x十10．
v＝v十20
End Sub
Sub p2(byVal x As Integer, y As Integer)
x＝x十10
y＝y十20
End Sub
Sub p3(ByValx As Integer, ByVal y As Integer)
x＝x十10
y=y十20
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a＝______和b=______。
(8)在窗体上画一个名称为Commandl的命令按钮，编写如下事件过程
PRiVate Sub Commandl_C1icK()
Dim As String
a=_____[11]
For i ＝1 To 5
Print Space(6—i)；Mid$3(a，6—i，2*i—1)
二级V1sualBMic语言程序设计试卷第13页 (共15页)
Nexti
End Sub
程序运行后，单击命令按钮，要求窗体上显示的输出结果为
456
34567
2345678
123456789
请填空。(9)在窗体上画一个名称
为Combo1的组合框，画两个名称分别Label1和Label2及Caption
属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项
后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动
添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示；
如果存在，则在Label2中给出提示“输入项已在组合框中”。请在[12>、[13]和
[14>处将程序补充完整。
Private Sub Combol_________<12> (KeyAscii As integer)
1f KeyAscii＝13 Then
Fori＝0 To Combo1．listCount—1
1f Combo1．Text＝______ [13] Ihen
Label2．Caption＝”输入项己在组合框中”
ExIt Sub
End lf
Next i
Label2．Caption＝“已成功添加输入项”
Combo1．______ [14] CombO1．Text
End lf
End Sub
(10)设有如下程序
Private sub search(a()As variant，ByVal key As Variant，index%)
Dim I％
ForI＝LBound(a)To UBound(a)
If key＝a(I) Then
index＝I
Exit Sub
End If
Next I
Index＝-1
End Sub
Private Sub Form_Load()
Show
Dtm b() As Variant
Dim n As Integer
b＝Array(1，3，5，7，9，11，13，15)
Call search(b，11，n)
Printt n
End Sub
程序运行后，输出结果是________。
上一页 [1] [2] |
| 关于〖2003年4月全国计算机等级考试二级visual Basic语言程序设计笔试试卷〗的最新评论： |
|
|
|
