计算机(VB)等级考试资料

1999计算机等级考试试卷(二级Ｖisual Basic）

说明：⒈考生应将全部答案写在答卷纸上，否则作无效处理。考试时间为120分钟。

试题一、计算机基础（Windows95环境部分：15分）(略)

试题二、语言基础（26分）

㈠判断题，判断下列叙述的正确与否，正确的打“”、否则打“”（本题共10分）

⒈面向对象的程序设计是1种以对象为基础、由事件驱动对象执行的设计方法。

⒉由Visual Basic语言编写的应用程序有解释和编译两种执行方式。

⒊在Visual Basic中，用DIM定义数组时数组元素也自动赋初值0。

⒋设计菜单中每1个菜单项分别是1个控件，每个控件都有自己的名字。

⒌用Cls方法能够清除窗体或图片框中用Picture属性设置的图形。

⒍对窗体Form内各控件不能用鼠标任意精确定位是由于窗体中的定位网格起作用。

⒎ Picture图片框既可用来显示图片和绘制图形，也可用Print方法来显示文字。

⒏移动框架时框架内控件也跟随移动，所以框架内各控件的left、top属性值也将随之改变。

⒐定时将文本框中的数据保存到磁盘，可选Timer计时器控件。

⒑从几十个项目中任选其中1项或多项时，可选用列表框或组合框控件实现。

㈡单选题（本题共6分）

⒈从文件列表框中设定“文件列表”中显示的文件类型应修改控件的（）属性。

A、Pattern

B、Path

C、Filename

D、Name

⒉改变控件在窗体中的左右位置应修改该控件的（）属性。

A、Top

B、Left

C、Width

D、Right

⒊将CommanDialog通用对话框的类型设置为颜色对话框，可修改控件的（）属性。

A、Color

B、Filter

C、Filename

D、Action

⒋将命令按钮Command1设置为缺省的活动按钮，可修改该控件的（）属性。

A、Enabled

B、Value

C、Default

D、Cancel

⒌将焦点主动设置到指定的控件或窗体上，应采用（）方法。

A、SetDate

B、SetFocus

C、SetText

D、GetGata

⒍下面（）控件不具有Caption属性。

A、标签框

B、单选框

C、命令按钮

D、文本框

㈢填空题，阅读下列各叙述，将答案写在答卷的对应栏内（每小题2分，共10分）

⒈表达式 81\7 mod 2^2 的值是⑴。

⒉设x是1个2位数，将x的个位数和十位数交换后所得2位数的VB表达式是⑵。

⒊由下列语句定义的数组占用⑶个字节的存储空间。

Dim x(1 to 14) As Integer

⒋设x=6,y=4,z=7，下面表达式的值是⑷（用True或False表示）。

x>y And y>x-z Or xz

⒌以图片框Pic1的中心位置为圆心，以700为半径在Pic1上画一个圆的方法是⑸。

试题三、程序阅读。阅读下列程序，写出运行结果（21分）

⒈程序1（5分）

Private Sub Form_Click() ' 写出运行时连续四次单击窗体Form1上输出结果。 Static a As Integer

Dim b As Integer

b=a+b+1

a=a+b

Form1.Print "a=";a,"b=";b

End Sub

⒉程序2（5分）

Private Sub Form_Click() ' 设输入数据分别为14，3，125，21，

Dim a As Integer ' 问lablel1.Caption的值分别是多少？ a=Val(InputBox("请输入数据",""，100))

Select Case a mod 5

Case Is<4

w=a+10

Case Is<2

w=a*2

Case Else

w=a-10

End Select

Label1.Caption="w="& Str(w)

End Sub

⒊程序3（5分）

Private Sub Form_Click() ' 写出a1.dat文件的最终结果。

Dim f1 As Integer,f2 As Integer,f3 As Integer

Open "c:\a1.dat" For Output As #1

f1=2: f2=3 : Print #1,"No.";3,f1 : Print #1,"NO.";4,f2

For i=5 To 7

f3=f1+f2 : Print #1,"NO",i,f3

f1=f2 : f2=f3

Next i

Close #1

End Sub

⒋程序4（6分）

Private Sub Command1_click()

Const n=6 : Dim xx(n) As Integer

Form1.Cls

For i=1 To n : xx(i)=i*i : Next i

call fchange(xx(),n)

For i=1 To n : Form1.Print xx(i), : Next i

End Sub

Sub fchange(a() As Integer,m As Integer)

For i=1 To m/2

t=a(i)

a(i)=a(m-i+1) ' ①

a(m-i+1)=t ' ②

Next i

End Sub

⑴写出运行以上程序后Form1上的输出结果。

⑵写出将标记有①和②的两条语句对调后，重新运行程序时Form1上的输出结果。试题四、程序填空（每空2分，共18 分）