计算机(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、PatternB、PathC、FilenameD、Name⒉改变控件在窗体中的左右位置应修改该控件的（）属性。

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

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

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

A、SetDateB、SetFocusC、SetTextD、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 x<y And Not 2*y>z⒌以图片框Pic1的中心位置为圆心，以700为半径在Pic1上画一个圆的方法是⑸。

试题三、程序阅读。

阅读下列程序，写出运行结果（21分）⒈程序1（5分）Private Sub Form_Click() ' 写出运行时连续四次单击窗体Form1上输出结果。

Static a As IntegerDim b As Integerb=a+b+1a=a+bForm1.Print "a=";a,"b=";bEnd 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 5Case Is<4w=a+10Case Is<2w=a*2Case Elsew=a-10End SelectLabel1.Caption="w="& Str(w)End Sub⒊程序3（5分）Private Sub Form_Click() ' 写出a1.dat文件的最终结果。

Dim f1 As Integer,f2 As Integer,f3 As IntegerOpen "c:\a1.dat" For Output As #1f1=2: f2=3 : Print #1,"No.";3,f1 : Print #1,"NO.";4,f2For i=5 To 7f3=f1+f2 : Print #1,"NO",i,f3f1=f2 : f2=f3Next iClose #1End Sub⒋程序4（6分）Private Sub Command1_click()Const n=6 : Dim xx(n) As IntegerForm1.ClsFor i=1 To n : xx(i)=i*i : Next icall fchange(xx(),n)For i=1 To n : Form1.Print xx(i), : Next iEnd SubSub fchange(a() As Integer,m As Integer)For i=1 To m/2t=a(i)a(i)=a(m-i+1) ' ①a(m-i+1)=t ' ②Next iEnd Sub⑴写出运行以上程序后Form1上的输出结果。

⑵写出将标记有①和②的两条语句对调后，重新运行程序时Form1上的输出结果。

试题四、程序填空（每空2分，共18 分）阅读下列程序说明和程序，将应填在下划线处的合适内容写在答卷的对应栏内。

⒈【程序说明】在窗体上有两个命令按钮和1个文本框，名称分别为cmdstart（“开始”）、cmdend（“结束”）和text1。

文本框text1的字符个数不超过200个。

程序刚运行时，“结束”按钮为灰色，单击“开始”按钮后，将text1中的字符按其ASCII码值从小到大自左到右重新组合，并在窗体上输出重组后的字符串，同时使“结束”按钮能响应而“开始”按钮不能响应。

Private Sub Form1_Load()Cmdend.Enabled=FalseEnd SubPrivate Sub Cmdstart_Click()Dim n As Integer,i As Integer, p As IntegerDim a(200) as string*1,str1 As String,t As Stringstr1=Text1.Text : n=Len(str1)For i=1 To n : a(i)= ⑴ : Next iFor i=1 To n-1p=iFor j=i+1 To nIf a(p)>a(j) Then ⑵next jIf ⑶ Then t=a(i) : a(i)=a(p) : a(p)=tNext iFor i=1 To n : Print a(i); : Next i⑷⑸End SubPrivate Sub Cmdend_Click()EndEnd Sub⒉【程序说明】本程序将1个大于100的偶数n分解为2个素数之和。

其中nflag逻辑函数用于判断自然数x是否为素数。

Private Sub Form1_Click()Dim n As Integer,x As Integer,y As Integern=Val(InputBox(”请输入1个大于100的偶数”，”输入数据”，100))For x=3 To n\2 Step 2If nflag(x) Theny= ⑹If nflay(y) ThenForm1.Print n;”=”;x;”+”;yExit ForEnd IFEnd If⑺End SubFunction nflag(x As Integer)Dim flag As Booleank=2: m=Int(Sqr(x)) : ⑻Do While k<=mIf x Mod k=0 Then flag=Falsek=k+1Loopnflag= ⑼End Function试题五、综合编程（每题10分，共20分）根据题目要求，将编写的程序写在答卷的对应栏内。

⒈计算表达式“m!/n!/(m-n)!”值并在窗体上输出。

要求：用对话框输入m和n（m≥n ≥0）；编写函数过程计算阶乘值。

⒉用户界面如下图所示，用于将学生学过的单词在列表框中显示出来。

现要求完成：⑴单击“增加单词”按钮，将Text1.Text中的单词添加到列表框，再显示列表框中单词数；⑵单击“删除单词”按钮，删除列表框中被选中的项，再显示列表框中的单词数；⑶单击“全部清除”按钮，删除列表框的全部选择项，再显示列表框中的单词数；⑷单击“退出”按钮，结束程序。

部分程序代码如下：Private Sub Form_Load()Label1.Caption=”请输入单词”Label2.Caption=”单词数”Command1.Caption=”增加单词”Command2.Caption=”删除单词”Command3.Caption=”全部清除”Command4.Caption=”退出”List1.AddItem=”apple”List1.AddItem=”Chinese”List1.AddItem=”child”List1.AddItem=”double”List1.AddItem=”park”List1.AddItem=”top”Text1.Text=””Text2.Text=Str(List1.ListCount)End Sub请分别编写四个命令按钮的单击事件2000年秋VB等级考试试卷试题一、计算机基础题（本题共15分）（略）试题二、语言基础题（本题共28分）（一）判断题（每题1分，共10分）判断下列叙述正确与否，正确的打“√”，否则打“×”。

1．Visual Basic程序的运行可以从Main()过程启动，也可以从某个窗体启动。

2．同一Form 窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。

3．静态变量是局部变量，当过程再次被执行时，静态变量的初值是上一次过程调用后的值。

4．事件过程由某个用户事件或系统事件触发执行，它不能被其它过程调用。

5．在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。

6．滚动条控件可作为用户输入数据的一种方法。

7．单选钮控件和复选框控件都具有Value 属性，它们的作用完全相同。

8．用鼠标选中某菜单控件时触发Click 事件；而用键盘选中该菜单控件时，触发KeyPress 事件。

9．组合框兼有文本框和列表框两者的功能，用户可通过键入文本或选择列表中的项目来选择。