[计算机类试卷]VB笔试模拟试卷221及答案与解析.doc

1、VB 笔试模拟试卷 221及答案与解析 1 设有如下的记录类型： TypeStudent number As String name AS String age As Integer End Type 则正确引用该记录类型变量的代码是 ( )。 （ A） Student.name=“张红 “ （ B） Dim s As Student s.name=“张红 “ （ C） Dim s As Type Student s.name=“张红 “ （ D） Dim s As Type s.name=“张红 “ 2 设在工程中有一个标准模块，其中定义了如下类型： Type stutype ino As

2、Integer strname As String*20 strsex As String*1 smark As Single End Type 在窗体上画一个名为 Connnand1的命令按钮，要求当执行事件过程 Command1_Click时，在 c:的随机文件 studentdat写入一条记录。下列能够完成该操作的事件过程是 ( )。 （ A） Sub Command1_C1ick() Dim student As studtype Dim record_no As Integer record_no=1 With student .ino=12 .strname=“smith“ .st

3、rsex=“男 “ .smark=89 End With Open“ c:student.dat“ For input As # 1 len=len(student) Put # 1,record_ （ B） Sub Command1_Click( ) Dim student As studtype Dim record_no As Integer record_no=1 With student .ino=12 .strname=“smith“ .strsex=“男 “ .smark=89 End With Open“c:student.dat“ For random As #1 len=l

4、en(student) Put #1,record_n （ C） Sub Command1_Click() Dim student As studtype Dim record_no As integer record_no=1 With student .ino=12 .stmame=“smith“ .strsex=“男 “ .smark=89 End With Open“c:student.dat“ For random As #1 len=len(student) Write #1,record_n （ D） Sub Command1_Click() Dim Student As stu

5、dtype Dim Record_no As Integer record_no=1 With student .ino=12 .strname=“smith“ .strsex=“男 “ .smark=89 End With Open“c:student.dat“For output As #1 len=len(student) Put #1,record_no, 3 下列程序的执行结果为 ( )。 n=0 j=1 Do Until n 2 n=n+1 j=j+n*(n+1) Loop Print n;j （ A） 0 1 （ B） 3 7 （ C） 3 21 （ D） 3 13 4 在以下程

6、序中，变量 S为 ( )。 DefDbl A-H O-Z DefInt I-N S=1 For I=1 To 20 S=S*I Next I Printf“S=“,S （ A）字符串变量 （ B）长整型变量 （ C）单精度实型变量 （ D）双精度实型变量 5 一个工程中含有窗体 Form1、 Form2和标准模块 Model1，如果在 Form1中有语句 Public X As Integer，在 Model1中有语句 Public Y As Integer，则以下叙述中正确的是 ( )。 （ A）变量 X、 Y的作用域相同 （ B） Y的作用域是 Model1 （ C）在 Form1中可以直

7、接使用 X （ D）在 Form2中可以直接使用 X和 Y 6 在以下描述中正确的是 ( )。 （ A）标准模块中的任何过程都可以在整个工程范围内被调用 （ B）在一个窗体模块中可以调用在其他窗体中被定义为 Public的通用过程 （ C）如果工程中包含 Sub Main过程，则程序将首先执行该过程 （ D）如果工程中不包含 Sub Main过程，则程序一定首先执行第一个建立的窗体 7 编写如下事件过程： Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) If(Button And 3)=3 Then Print“AAA

8、A” End If End Sub 程序运行后，为了在窗体上输出 “AAAA”，应按下的鼠标键为 ( )。 （ A）左 （ B）右 （ C）同时按下左、右 （ D）按什么键都不显示 8 下列程序运行时输出的结果是 ( )。 Option Base 1 Private Sub Form_Click() Const a=6 Dim x (a) As Integer For I=1 to a x(i)=12 Next I Print x(i) End Sub （ A） 36 （ B） 25 （ C） 1 （ D）出错信息 9 下面程序运行结果是 ( )。 Private Sub Form_Click

9、() Dim x As Single,y As Single x=InputBox(“请输入数据 25“):y=InputBox(“请输入数据 10“) Print x+y;InputBox(“请输入数据 25“)+InputBox(“请输入数据 10“) End Sub （ A） _35_2510 （ B） 25102510 （ C） _35_35_ （ D） 2510_35_ 10 执行以下程序段后，变量 C$的值为 ( )。 A$=“Visual Basic Programing“ B$=“Quick“ C$=B$ End Sub 程序运行后，如果在文本框中输入字母 “a”，然后单击窗体

10、，则在窗本上显示的内容是 ( )。 （ A） Visual Basic （ B）程序设计 （ C） Visual Basic程序设计 （ D） a程序设计 16 在窗体上画一个命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,3,5,7,9) j=1 Fori=5 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是 ( )。 （ A） 97531 （ B） 135 （ C） 975 （ D） 13

11、579 17 下列程序的输出结果为 ( )。 Private Sub Command1_Click() Dim a(20) For j=1 To 20 Step2 a(j)=j Next i Print a(1)+a(2)+a(3) End Sub （ A） 4 （ B） 5 （ C） 6 （ D） 7 18 如果模块定义为： DefStr C-F 则以下语句运行后输出结果是 ( )。 d$=“321“ f=“654“ print d+f$ （ A） 321654 （ B） 975 （ C） 654321 （ D）显示出错信息 19 下列程序的执行结果是 ( )。 Privaae Sub Fo

12、rm_Activate Dim score(3)As Integer,total As Integer Dim aa_score As Variant score(1)=50:score(2)=14:score(3)=36 total=0:i=0 For Each aa_score In score i=i+1 total=total+aa_score Print i,aa_score,total Next End Sub （ A） 1 0 0 2 50 50 3 14 64 4 36 100 （ B） 1 50 50 2 14 64 3 36 100 （ C） 0 50 50 1 14 64

13、 2 36 100 3 36 100 （ D） 0 0 0 1 50 50 2 14 64 20 声明一个变量为局部变量应该刚（ ）。 （ A） Global （ B） Private （ C） Static （ D） Public 21 用标准工具栏中的工具按钮不能执行的操作是（ ）。 （ A）添加工程 （ B）打印源程序 （ C）运行程序 （ D）打开程序 22 当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的（ ）。 （ A） AutoSize属性 （ B） Resize事件 （ C） AutoRedraw属性 （ D） Stretch方法 23 从工程管理角度，软件设计一

14、般分为两步完成，它们是（ ）。 （ A）概要设计与详细设计 （ B）数据设计与接口设计 （ C）软件结构设计与数据设计 （ D）过程设计与数据设计 24 引用列表框的最后一项应使用（ ）。 （ A） List1.List(List1.ListCount-1) （ B） List1.List(List1.ListCount) （ C） List1.List(ListCount) （ D） List1.List(ListCount-1) 25 若要清除列表框的所有内容，则实现的方法是（ ）。 （ A） Removeitem （ B） Cls （ C） Clear （ D）以上均不可以 26 在数据

15、库设计中，将 E-R图转换成关系数据模型的过程属于（ ）。 （ A）需求分析阶段 （ B）逻辑设计阶段 （ C）概念设计阶段 （ D）物理设计阶段 27 Detetime是 Data类型的变量，以下赋值语句中错误的是（ ）。 （ A） Datetime=#4/14/97# （ B） Datetime=#September1,1997# （ C） Datetime=#12:15:00AM# （ D） Datetime=#8/8/99 28 使图像 (Image)控件中的图像自动适应控件的大小应（ ）。 （ A）将控件的 AutoSize属性设为 True （ B）将控件的 AutoSize属性设

16、为 False （ C）将控件 Stretch属性设为 True （ D）将控件的 Stretch属性设为 False 29 将任意一个正的两位数 N的个位数与十位数对换的表达式为（ ）。 （ A） (N-Int(N/10)*10)*10+Int(N/10) （ B） N-Int(N)/10*10+Int(N)/10 （ C） Int(N/10)+(N-Int(N/10) （ D） (N-Int(N/10)*10+Int(N/10) 30 关于货币型数据的说明，正确的是（ ）。 （ A）货币型数据有时可以表示成整型数据 （ B）货币型数据与浮点型数据完全一样 （ C）货币型数据是由数字和小数点

17、组成的字符串 （ D）货币型数据是小数点位置固定的实型数 31 如果在一新建的工程中使用其他工程已设计好的窗体，可以采用（ ）步骤将其添加到当前工程中。 （ A）使用 “工程 ”菜单中的 “添加窗体 ”命令打开 “添加窗体 ”对话框，从 “现存 ”选项卡中选择所需的窗体文件 （ B）使用 “工程 ”菜单中的 “添加模块 ”命令打开 “添加模块 ”对话框，从 “现存 ”选项卡中选择所需的窗体文件 （ C）在 Windows资源管理器中直接双击所需的窗体文件 （ D）不可以将已建立好的窗体文件添加到当前工程中 32 以下 VB6.0控件中，有 Caption属性的是（ ）。 （ A）组合框 （ B

18、）列表框 （ C）计时器 （ D）单选按钮 33 下列叙述中正确的是（ ）。 （ A）标签控件不能接收焦点事件 （ B）如果将文本框的 TabStop属性值设为 False，则该文本框将不能接收焦 点事件 （ C）窗体控件能接收焦点事件 （ D）不能通过程序代码设置焦点属性 34 下列不一定是传值的虚实结合方式的选项是（ ）。 （ A）调用过程时实参为表达式 （ B）调用过程时实参为常量 （ C）调用过程时实参为变量名 （ D）调用过程时实参将变量名用括号括起来 35 下列事件过程的功能是：建立一个名为 Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1， 2， 3

19、， ， 90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form Click() Dim Y As Single Open _ Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx： Cos(i*Y) _ Next i Close #2 End Sub 36 下列程序用来计算 1+2+n ，当和大于 100时停止计算，请填空。 Pr

20、ivate Sub Form_Click() Dim n as integer， S as integer， I as integer， k as integer s=0 k=0 n=inputbox(”请输入 n的值 ) For i=1 to 100 k=k+1 s=s+1 _ Next 1 Print s End Sub 37 随机文件以 _为单位读写。 38 如果存在如下过程： Private Function Fun(a()As Integer) Dim First As Integer， Last As Integer， i As Integer First=LBound(a) La

21、st=LBound(a) Max=a(First) For i=First To Last If a(i) Max Then Max=a(i) Next Fun=Max End Function 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() ReDim in(1 To 4)As Integer m(1=20:m(2)=30:m(3)+50:m(4)=100 c=Fun(m) Print c End Sub 单击命令按钮，其输出结果为 _。 39 有如下 SUB过程： Sub s(x As Single， y As Single) t

22、=x x=t/y y=t Mod y End Sub 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Form_Click() Dim a As Single Dim b As Single a=5 b=4 s a,b Print a,b End Sub 则程序运行后，单击命令按钮，输出的结果为 _。 40 下面程序运行后，单击命令 按钮，输出的结果是 _。 Private Sub Command1_Click() Dim a%(1 To 5)， i%， s# For i=1 To 5 A(i)=i Next S=Fun(a) Print “s=“； s； End S

23、ub Function Fun(a()As Integer) Dim t#,i% t=1 For i=LBound(a)To UBound(a) t=t*a(i) Next Fun=t End Function 41 下列程序弹出对话框中按钮的个数为 _。 MsgBox“确认 !”， vbAbortRetryignore+vbMsgBoxHelpButton+vbInformation， “提示； ” 42 在 KeyPress事件过程中， KeyAscii是所按键的 _值。 43 下面程序的功能是统计字符串中 “i”的个数，请填空。 Sub COU() Dim n As Integer a$

24、=“Beijing University of Technology“ n=Len(a$) For i=1 To n b$=_ If b$=“i“ Then x=x+1 Next Print “x=“:x End Sub 44 排序是计算机程序设计中的一种重要操作，常见的排序方法有插入排序、_和选择排序等。 45 在面向对象方法中，属性与操作相似的一组对象称为 _。 46 一个项目具有一个项目主管，一个项目主管可管理多个项目，则实体 “项目主管 ”与实体 “项目 ”的联系属于 _的联系。 47 程序测试分为静态测试和动态测试。其中 _是指不执行程序，而只是对程序文本进行检查，通过阅读和讨论，分

25、析和发现程序中的错误。 48 当数据的物理结构 (存储结构 )改变时，不影响数据库的逻辑结构，从而不致引起应用程序的变化，这是指数据的 _。 VB 笔试模拟试卷 221答案与解析 1 【正确答案】 B 2 【正确答案】 B 3 【正确答案】 C 4 【正确答案】 D 5 【正确答案】 C 6 【正确答案】 B 7 【正确答案】 D 8 【正确答案】 D 9 【正确答案】 A 10 【正确答案】 D 11 【正确答案】 B 12 【正确答案】 B 13 【正确答案】 C 14 【正确答案】 A 15 【正确答案】 C 16 【正确答案】 D 17 【正确答案】 A 18 【正确答案】 D 19

26、【正确答案】 A 20 【正确答案】 B 21 【正确答案】 B 22 【正确答案】 B 23 【正确答案】 A 24 【正确答案】 A 25 【正确答案】 C 26 【正确答案】 B 27 【正确答案】 D 28 【正确答案】 C 29 【正确答案】 A 30 【正确答案】 D 31 【正确答案】 A 32 【正确答案】 A 33 【正确答案】 A 34 【正确答案】 C 35 【正确答案】 “C:Datal .txt“ For Random As #2 Len=10 Put #2， i， Ksc 【试题解析】 第 1个空白行已经告诉我们是打开文件的语句，现在要将它填写完整。由该语句应确定文

27、件的存取方式 是随机存取。在自定义变量中有 3个成员，其中角度为整型数据，占 2个字节；弦和余弦函数值为单精度类型，各占 4个字节，故文件的记录占 10 个字节。若不指定 Len 参数，则隐含一个记录占 128字节。为了节省存储空间，可在 Open语句中只写 Len 参数值。程序中没有将数据写入随机文件的语句，第 2个空白行应是 Put 语句。 36 【正确答案】 if s 100 then exit for 37 【正确答案】 记录 38 【正确答案】 100 【试题解析】 在程序 Sub中定义了一个含 4个元素的数组，并且分别 给它们赋值，数组上界是 4，下界为 1；将数组 m作为实参调用

28、 Fmax事件过程，并将数组m的地址传递给数组 a，即此时数组 a与 m共用一个存储空间；将数组的上界和下界分别赋给变量 Last和 First，在赋值表达式中分别调用了 LBound()函数求数组下界及 UBound()函数求数组的上界；在循环语句中，变量的初始值为数组的下界为 1，终值为数组的上界为 4，循环体是一个条件语句，如果 a(i)中的值大于Max，就将 a(i)的值赋给 Max，当循环结束后，将 Max作为函数的返回值，所以此事件过程的功能即为求数组中的最大值。 39 【正确答案】 1.25,1 40 【正确答案】 S=120 【试题解析】 程序首先调用循环语句为数组 a、 b赋

29、值，其中 a(i)=i;b(i)=i，且数组 a的上下界分别为 1和 5，接着将数组 a作为参数调用 Fun 过程。在 Fun 过程中，定义了两个变量 t及 i， i作为循环语句 For的变量，它的初始值和终值分别为数组的上下界，循环体为 t=t*a(i)，即将 a(i)的值乘以 t，然后再赋给 t，当循环结束后，程序返回的就是数组 a中各元素的积，输出结果为： s=120。 41 【正确答案】 4 【试题解 析】 MsgBox 函数用来在对话框中显示消息，等待用户单击按钮，并返回一个整形变量。告诉用户单击哪一个按钮，语法为 MsgBox(消息 ,按钮 ,标题 )，其中 vbAbortRetr

30、yIgnore参数表示显示 “终止 ”“重试 ”“忽略 ”按钮；vbMsgBoxHelpButton参数表示显示 “帮助 ”按钮； VbInfnmath 参数表示图标为信息符号。 42 【正确答案】 ASCII 【试题解析】 当按下键盘上的某个键时，触发 KeyPress 事件过程，该事件用到的 KeyAscii 作为参数，此参数是一个预 定义的变量；执行 KeyPress 事件过程时，KeyAscii 是所按键的 ASCII码。 43 【正确答案】 Mid$(a$,i,1) 44 【正确答案】 交换排序 【试题解析】 常见的排序方法有插入排序 (包括简单插入排序法和希尔排序法等 )、交换排序

31、 (包括冒泡排序和快速排序法等 )和选择排序 (包括简单选择排序和堆排序等 )。 45 【正确答案】 类 【试题解析】 属性和操作相似的一组对象在面向对象方法中称为类。 46 【正确答案】 一对多 (或 1:N) 【试题解析】 两个实体集间的联 系实际上是实体集间的函数关系，这种函数关系可以有 3种，即一对一 (1:1)的联系、一对多 (1:N)或多对一 (N:1)的联系和多对多(N:N)的联系。 47 【正确答案】 静态分析 (静态测试 ) 【试题解析】 从原则上讲，可以将软件测试方法分为两大类，即静态测试和动态测试。静态测试无须执行被测代码，而是借助专用的软件测试工具评审软件文档或程序，度

32、量程序静态复杂度，检查软件是否符合编程标准，借以发现编写程序的不足之处，减少错误出现的概率。动态测试，是被测代码在相对真实环境下运行，从多角度观察程序运行时能体 现的功能、逻辑、行为、结构等的行为，以发现其中的错误现象。程序测试分为静态测试和动态测试。静态测试一般是指人工评审软件文档或程序，借以发现其中的错误。由于被评审的文档或程序不必运行，所以称为静态测试。 48 【正确答案】 物理独立性 【试题解析】 数据独立性是数据与程序间的互不依赖性，即数据库中数据独立于应用程序而不依赖于应用程序。也就是说，数据的逻辑结构、存储结构与存取方式的改变不会影响应用程序。数据独立性一般分为物理独立性与逻辑独立性。