查看全部128种考试
1
2
3
4
5
6
7
8
9
10
萧雨  
【字体: 2003年4月全国计算机等级考试二级Basic笔试试卷
2003年4月全国计算机等级考试二级Basic笔试试卷
djks.exam8.com 来源:考试吧(Exam8.com) 更新:2004-8-11 17:34:00 计算机等级考试 考试论坛
一、选择题((1)一(20)每小题2分,(21)一(30)每小题3分,共30题,70分)
   下列各题A)、B)、C)、D)四个选项中,只有一个选项是正确的,请将正确选项涂
   在答题卡的相应位置上,答在试卷上不得分。
   (1)以下不能在“工程资源管理器”窗口中列出的文件类型是
   A).bas B).res C).fnn D).ocx
   (2)以下关于窗体的描述中,错误的是
   A)执行UnloadFoMl语句后,窗体Fonnl消失,但仍在内存中
   B)窗体的Ioad事件在加载窗体时发生
   C)当窗体的Enabled属性为False时,通过鼠标和键盘对窗体的操作都被禁止
   D)窗体的Height、width属性用于设置窗体的高和宽
   (3)下列可作为V2sualBasic变量名的是
   A)A#A B)4A C)?xY D)constA
   (4)设有如下的记录类型
   Type Student
   numberAs string
   name As String
   age As Integer
   End Type
   则正确引用该记录类型变量的代码是
   A) Student.name=”张红” B) Dim As Student
   s.name=”张红”
   C) Dim s As Type Student D) Dim s As Type
   S.name=”张红” s.Dame=”张红”
  
   (5)函数String(n,“str”)的功能是
   A)把数值型数据转换为字符串
   B)返回由n个字符组成的字符串
   C)从字符串中取出n个字符
   D)从字符串中第n个字符的位置开始取子字符串
   (6)将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式,其正确的形式是
   A)Cos(a+b)A2十5。exp(2) B)Cos^2(a+b)+5*exp(2)
   C)Cos(a+b)^2十5*ln(2) D)Cos^2(a+b)+5*ln(2)
   (7)在窗体上画一个命令按钮,名称为Commandl。单击命令按钮时,执行如下事件过
   程:
   PrlVate Sub Commandl—C1icko
   a$="software and hardware"
   b$=Right(a$,8)
   c$=Mid(a$,1,8)
   Msgbox a$,,b$,c$,1
   End Sub
   则在弹出的信息框的标题栏中显示的信息是
   A)softWare and hardware B)software C)hardwafe D)1
   (8)执行如下语句:
   a=inutBox(”Today”,”TomorroW,”Yesterday”,,,"Day before yesterday",5)
   将显示一个输入对话框,在对话框的输入区中显示的信息是
   A)Today B)Tomorrow C)Yesterday D)Day before yesterday
   (9)表示滚动条控件取值范围最大值的属性是
   A)Max B)LargeChange C)Value D)Max—Min
   (10)在窗体上画一个名称为Listl的列表框,一个名称为Labell的标签。列表框中显示
   若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。
   下列能正确实现上述功能的程序是
   A) Private Sub listl_Click() B)Private Sub Listl_C1ick()
   Labell.Caption=list1.listlndex Labell.Nanle=Listl.listindex
   End Sub .End Sub
   程序运行后,如果单击命令按钮,则在窗体上显示的内容是
   A)空白 B)错误提示 C)北京 D)上海
   (15)假定有以下函数过程:
   Function Fun(S As String) As String
   Dim s1 As String
   For i=1 To Len(S)
   s1=UCase(Mid(S,i,1))十s1
   Next i
   Fun=s1
   End Function
   在窗体上画一个命令按钮,然后编写如下事件过程:
   Prlvate Sub Commmldl_Click()
   Dim Str1 As String,Str2 As String
   Strl=inputbox(”请输入一个字符串”)
   Str2=Fun(Strl)
   Print Str2
   End Sub
   程序运行后,单击命令按钮,如果在输入对话框中输入字符串“abcdefg”,则单击“确
   定”按钮后在窗体上的输出结果为
   A)abcdefg B)ABCDEFG C)gfedcba D)GFEDCBA
   (16)设有语句
   open "c:\Test.Dat" For OutPut As#1
   则以下错误的叙述是
   A)该语句打开C盘根目录下一个己存在的文件Test.Dat
   B)该语句在C盘根目录下建立一个名为Test.Dat的文件
   C)该语句建立的文件的文件号为1
   D)执行该语句后,就可以通过Print#语句向文件Test.Dat中写入信息
   (17)以下叙述中错误的是
   A)用Shell函数可以调用能够在Windows下运行的应用程序
   B)用Shell函数可以调用可执行文件,也可以调用VisualBasic的内部函数
   C)调用Shell函数的格式应为:<变量名>=Shell(……)
   D)用Shell函数不能执行DoS命令
   (18)以下关于过程及过程参数的描述中,错误的是
   A)过程的参数可以是控件名称
   B)用数组作为过程的参数时,使用的是“传地址”方式
   c)只有函数过程能够将过程中处理的信息传回到调用的程序中
   D)窗体可以作为过程的参数
   (19)在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程:
   Private Sub Txta_KeyPress(keyascii as integer)
   End Sub
   若焦点位于文本框中,则能够触发KeyPress事件的操作是
   A)单击鼠标 B)双击文本框
   C)鼠标滑过文本框 D)按下键盘上的某个键
   (20)目录列表框的Path属性的作用是
   A)显示当前驱动器或指定驱动器上的路径
   B)显示当前驱动器或指定驱动器上的某目录下的文件名
   c)显示根目录下的文件名
   D)只显示当前路径下的文件
   (21)假定有如下事件过程:
   PriVate Sub Form_MouseDown(button As Integer,Shift As Integer, x As Single,Y As
   Single)
   If Button=2 then
   PopupMenu popForm
   End if
   End Sub
   则以下描述中错误的是
   A)该过程的功能是弹出一个菜单
   B)popForm 是在菜单编辑器中定义的弹出式菜单的名称
   C)参数X、Y指明鼠标的当前位置
   D)Button=2 表示按下的是鼠标左键
   (22)以下能够正确计算n!的程序是
   二级Visual Basic语言程序设计试卷第5页 (共15页)
   A) Private Sub Commandl_ClicK()
   n=5:x=1
   Do
   X=x*1
   i=i十1
   Loop While i<n
   Print x
   End Sub
   B) Private Sub Commandl_Click()
   n=5: x=1:i=1
   Do
   X=X*1
   i=i十1
   Loop While i<n
   Print x
   End Sub
   C)Private Sub Commandl_Click()
   n=5:x=1:i=1
   Do
   X=X*1
   i=i十1
   Loop while i<=n
   Print x
   End Sub
   D)Private Sub Commandl_C1ick()
   n=5:x=1:i=1
   Do
   X=X*l
   i=i十1
   loop While i>n
   Print x
   End Sub
   (23)在窗体上画一个名称为Commandl的命令按钮,再画两个名称分别为Labell、Label2
   的标签,然后编写如下程序代码:
   . 二级vlsudBM5c语言程序设计试卷第6页 (共15页)
   Private x As Integer
   Private Sub Commandl—Click()
   X=5:Y=3
   Call proc(x,Y)
   Labell.Caption=X
   Label2.Caption=Y
   End Sub
   Private Sub proc(ByVal a As Integer,ByVal b As hteger)
   x=a* a
   Y=b十b
   End Sub
   程序运行后,单击命令按钮,则两个标签中显示的内容分别是
   A)5和3 B)25和3 C)25和6 D)5和6
   (24)在窗体上画一个名称为Commandl的命令按钮,一个名称为Labell的标签,然后
   编写如下事件过程:
   Private Sub Commandl_C1ick()
   S=0
   For i=1 T0 15
   x=2*i一1
   1f x Mod 3=0 Then s=s十1
   Nexti
   Labell.Caption=s
   End Sub
   . 程序运行后,单击命令按钮,则标签中显示的内容是
   A)1 B)5 C)27 D)45
   (25)在窗体上画一个名称为Commandl的命令按钮和三个名称分别为Labell、Label2、
   Label3的标签,然后编写如下代码:
   Private x As Integer
   Private Sub Command1_C1ick()
   Static y As Integer
   Dimz As Integer
   n=10
   z=n十z
   y=y十z
   X=X十Z
   Labell.Caption=x
   Label2.Caption=y
   Label3.Caption=z
   End Sub
   运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是
   A)10 10 10 B)30 30 30 C)30 30 10 D)10 30 30(26)设在窗体上有一个名称为Commandl的命令按钮,并有以下事件过程:
   PriVate Sub Commandl_C1ick()
   Static b As Variant
   b=Array(1,3,5,7,9)
   End Sub
   此过程的功能是把数组b中的5个数逆序存放(即排列为9,7,5,3,1)。为实现此功
   能,省略号处的程序段应该是
   A)For i=0 To 5-1\2
   tmp=b(i)
   b(i)=b(5-i-1)
   b(5-i-1)=tmp
   Next
   B)for i=0 To 5
   tmp=b(i)
   b(i)=b(5-i-1)
   b(5-i-1)=tmp
   Next
   C) For i=0 T0 5\2
   tmp=b(i)
   b(i)=b(5-i-1)
   b(5-i-1);tmp
   Next
   D)For i=1 T0 5\2
   tmp=b(i)
   b(i)=b(5一i一1)
   b(5—i—1)=tmp
   Next
   二级VlsualBM5c语言程序设计试卷第8页 (共15页)
   (27)在窗体上画一个名称为Drivel的驱动器列表框,一个名称为Dirl的目录列表框,
   一个名称为Filel的文件列表框,两个名称分别为Labell、Label2,标题分别为空白
   和“共有文件”的标签。编写程序,使得驱动器列表框与目录列表框、目录列表框
   与文件列表框同步变化,并且在标签Labell中显示当前文件夹中文件的数量。如图
   所示。
   能够正确实现上述功能的程序是
   A) Private Sub Dirl_Change() B)Private Sub Dir1_Change()
   Filel.Path=Dir1.path Filel.path=dir1.Path
   End Sub End Sub
   Private Sub Drivel_Change() Private Sub Drive1_Change()
   Dirl.Path=Drivel.Drive Dirl.Path=Drivel.Drive
   Labell.Caption=Filel.listCount Labell.Captlon=file1.list
   End Sub End Sub
   C)Private Sub Dirl_Change() D) Private Sub Dirl_Change()
   Filel.Path=Dirl.Path filel.Path=Dir1.Path
   Labell.Caption=Filel.ListCount Labell.Caption=Filel.List
   End Sub End Sub
   Private Sub Drivel_Change() Private Sub Drivel_Change()
   Dirl.Path=Drivel.Drlve Dir1.Path=Drivel.DrlVe
   Labell.Caption=Filel.ListCount Labell.Caption=Filel.list
   End Sub End Sub
   (28)一个工程中包含两个名称分别为Forml、Form2的窗体,一个名称为mdlFunc的标准
   模块。假定在Forml、Form2和mdlFunc中分别建立了自定义过程,其定义格式为:
   Forml中定义的过程:
   PriVate Sub frmfunctionl()
   End Sub
   Form2中定义的过程:
   Public Sub frmffunction2()
   End Sub
   mdlFunc中定义的过程:
   PubliC Sub mdlFunction()
   End Sub
   在调用上述过程的程序中,如果不指明窗体或模块的名称,则以下叙述中正确的是
   A)上述三个过程都可以在工程中的任何窗体或模块中被调用
   B)frmfunction2和mdlfunction过程能够在工程中各个窗体或模块中被调用
   C)上述三个过程都只能在各自被定义的模块中调用
   D)只有mdlFunction过程能够被工程中各个窗体或模块调用(29)窗体上有两个名称分别为Textl、Text2的文本框,一个名称为Commandl的命令
   按钮。运行后的窗体外观如图所示。
   设有如下的类型声明
   Type Person
   name As String*8
   major As String*20
   End Type
   当单击“保存”按钮时,将两个文本框中的内容写入一个随机文件Test29.dat中。设
   文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件
   的程序段是
   A)0pen”c:\Test29.dat" For Random As#1
   Put #1,1,p
   Close #1
   B)Open "c:\Test29.dat" For Random As #1
   Get#1,1,p
   C10se #1
   C)open "c\Test29.dat" For Random As #1 Len=Len(p)
   Put #1,1,p
   Close #1
   D)Open "c:\Test29.dat " For Random As #1=Len(p)
   Get #1,1,p
   CloSe #1
   (30)在窗体上画一个名称为CommonDialogl的通用对话框,一个名称为Commandl的
   命令按钮。要求单击命令按钮时,打开一个保存文件的通用对话框。该窗口的标题
   为"Save",缺省文件名为“SaveFile”,在“文件类型”栏中显示*.txt。则能够满足
   上述要求的程序是
   A)Private Sub Command_C1ick()
   Commondialogl.FileName=“Savefile”
   Commondialogl.filter="All Files|*.*|(*.txt)|*.txt|(*.doc).|*.doc"
   CommonDialogl.Filterindex=2
   CommonDialogl.Dial0g.title="Save"
   CommonDialogl.Action=2
   End Sub
   B)Private Sub Commandl—Click()
   CommonDialogl.FileName="SaveFile"
   CommonDiaLogl.Filter="A11 Files|*.*|(*.txt)|*.txt|*.doc|*.doc"
   C0mmonDialogl.FilterIndex=1
   CommonDialogl.DialogTitle="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
   程序运行后,输出结果是________。
转帖于:计算机等级考试_考试吧
文章搜索  
看了本文的网友还看了:
计算机等级考试权威辅导教材: 订书电话:010-62168566  更多>>>
网友评论
昵 称: *  评 分: 1分 2分 3分 4分 5分
标题:   匿名发表    (共有条评论)查看全部评论>>
版权声明 -------------------------------------------------------------------------------------
  如果计算机等级考试网所转载内容不慎侵犯了您的权益,请与我们联系,我们将会及时处理。如转载本计算机等级考试网内容,请注明出处。
关于本站  网站声明  广告服务  联系方式  付款方式  站内导航  客服中心  友情链接  考试论坛  网站地图
Copyright © 2004-2008 考试吧计算机等级考试网 All Rights Reserved    
中国科学院研究生院权威支持(北京) 电 话:010-62168566 传 真:010-62192699
百度大联盟黄金认证  十佳网络教育机构  经营许可证号:京ICP060677