内容发布更新时间 : 2024/11/17 8:53:49星期一 下面是文章的全部内容请认真阅读。

：名姓 线 ： 号 学 订 ： 号 班 学 教 装 ：业专级年西华大学课程考试（考查）试题卷 （A卷）

试卷编号：

课程名称：程序设计基础(VB) 考试时间： 120 分钟 课程代码： 8426460 试卷总分： 100 分

一、 判断题（每小题1分, 共15分）

（判断下列各小题的叙述正确与否，正确的填T，错误的填F。）

1. VB是一种面向对象的可视化程序设计语言，它采用了事件驱动的编程机制。 ( ) 2. 要改变窗体标题，应该设置窗体的NAME属性。 ( ) 3. 可通过修改文本框的Text属性来达到让文本框输出数据的目的。 ( ) 4. 如果要把多条语句书写在一行上，可使用“：”作为分隔符。 ( ) 5. 运行窗体时，要让某控件不可见，可通过改变其Enabled属性为False实现。 ( ) 6. 在窗体模块的声明部分中用Private声明的变量的有效范围是其所在的工程。 ( ) 7. VB提供了三种基本程序结构，它们分别是选择结构、循环结构、递归结构。 ( ) 8. 过程内Static申明的变量是局部变量，它在每次调用过程时都要进行初始化。 ( ) 9. 计时器（Timer）控件的作用是为系统计时。 ( ) 10. 过程定义时，形参前面使用ByRef表示本参数以地址传递方式接收实参。 ( ) 11. 启动窗体时，系统自动执行的窗体事件是UnLoad。 ( ) 12. 递归调用是指在一个过程的内部调用另一个不同的过程。 ( ) 13. 12 & 21的结果是1221。 ( ) 14. 函数过程用来完成特定的功能，但一般不返回值。 ( ) 15. 为使一个标签控件的大小随着其显示数据长短而自动扩展或缩小，应该设置其AutoSize属

性为True。 ( )

二、 单项选择题（每小题1分，共15分）

1．语句Text1.Text = ”my pro” 中，Text1、Text、”my pro”分别代表的是（ ）。 （A） 对象、值、属性 （B） 对象、方法、属性

（C） 对象、属性、值 （D） 属性、对象、值 2．要使命令按钮在运行时不可操作，应设置（ ）属性。

（A）Enabled （B）Visible （C）BackColor （D）Caption 3．启动窗体后，用鼠标选中某单选按钮，则其Value属性值为（ ）。 （A）False （B）True （C） 1 （D） 0 4．当文本框的内容发生变化时触发的事件是（ ）。

（A）Click （B）Change （C）KeyDown （D）KeyPress 5．表达式 14 / 7 + 5 Mod 2 + Val(Mid(\1211\, 3, 2))的值为（ ）

（A）12 （B）5 （C） 语法错误 （D）14 6. 在VB中，工程文件的扩展名是（ ）。

（A） vgb （B） vbp （C） vbw （D） vbl 7．5 + Len(”ab中国”)+”2” 的结果是（ ）。

（A）11 （B）5 （C） 语法错误 （D）13 8．以下程序段中，不能正确求出两个数中较大值的是（ ）。

第 1页 共 8 页

（A） T=IIF(X>Y，X，Y ) （B） IF X>Y THEN T=X ELSE T=Y （C） T=X ：IF Y>X THEN T=Y （D） IF Y>=X THEN T=Y ：T=X 9．下列程序段的运行结果是（ ）

For i = 3 To 1 Step -1

Print Spc (10 - 2 * i - 1); For j = 1 To 2 * i - 1

Print \ Next j Print Next i

（A）

（B） （C） （D）

10. 在VB中，若要改变一个图片框上所显示的图片，应当修改其（ ）属性。

（A） Value （B） Text （C） Image （D） Picture

11. 以下关于VB列表框的叙述中，不正确的是（ ）。

（A）可通过属性“Item”返回列表框中的项目

（B）可通过属性“Text”返回列表框中已选项目的内容 （C）可通过属性“ListIndex”返回列表框已选项目的序号 （D）可通过属性“ListCount”返回列表框中项目的数目

12． 如果一个工程中有多个窗体要调用某个自定义过程，则此过程应该定义在（ ）中。

（A） 标准模块文件 （B） 资源文件 （C）类模块文件 （D） 工程文件

13． 下列子过程语句说明合法的是（ ）。

（A） Sub sub1(n %) as Integer （B） Function sub2(ByVal n %)

（C） Function sub3%(sub3%) （D） Sub sub4(ByVal n%())

14． 把数据项X添加到list1列表框中并成为第一项，则正确的语句是（ ）。 （A） List1.AddItem x,1 （B） List1.AddItem x,0

（C） List1.AddItem 1, x （D） List1.AddItem 0,x

15． 有关VB中的顺序文件说法正确的是（ ）。

（A） 文件中的数据是按每条记录的记录号从小到大排列的。 （B） 文件中的数据是按每条记录的长度从小到大排列的。

（C） 文件中的数据是按记录的某个关键数据项从大到小顺序排列的。 （D） 记录按写入文件的先后顺序存放，在读取时也是按该顺序依次进行。

三、阅读程序（每个选择2分，共40分） 1．

Public a As Integer

Private Sub Command1_Click() a = 10 Print a End Sub

Private Sub Command2_Click()

a = a + 2 Print a

End Sub

（1）在运行程序时，如果先单击名为Command1的按钮，再单击名为Command2的按钮，窗

体上的输出结果为（ ）。

（A）10，12 （B）11，12 （C）12，11 （D）11，13

第 2 页 共 8 页

（2）在运行程序时，如果先单击名为Command2的按钮，再单击名为Command1的按钮，窗

体上的输出结果为（ ）。

（A）5，1 （B）2，10 （C）10，12 （D）12，11

（3）如果在Command2_Click()事件过程的第一条语句处增加Dim a as integer语句后运行该程

序，先单击名为Command1的按钮，再单击名为Command2的按钮，窗体上的输出结果为（ ）。

（A）12，2 （B）10，2 （C）5，10 （D）6，5

2．

Private Sub Form_Click() Dim i As Integer Dim isum As Integer For i=1 to 7

L1: Isum=sum(i)

Next i

Print ―isum=‖;isum End Sub

Private Function sum(n As Integer) L2：Dim j As Integer j=j+n n=n+2 sum=j End Function

（4）该程序运行时第一次单击窗体产生的结果是（ ）。

（A）isum=3 （B）isum=4 （C）isum=5 （D）isum=7 （5）如果将L2语句改为Static j As Integer，则程序运行是第一次单击窗体产生的结果为（ ） 。

（A）isum=3 （B）isum=12 （C）isum=5 （D）isum=15

（6）如果在原程序的基础上只将L1语句改为：isum = isum + sum(i)，则程序运行时第一次单

击窗体产生的结果为（ ）。 （A）isum=3 （B）isum=12 （C）isum=5 （D）isum=18

3．在窗体上创建一个名为Text1的文本框对象，然后编写如下程序： Private Sub Text1_KeyPress(KeyAscii As Integer) Static s As Integer Dim c As String

Select Case KeyAscii Case Asc ( ”0” ) To Asc ( ”9” ) s=s+(KeyAscii-Asc(”0”)) Case 13 Print s Text1.Locked=True End Select End Sub

(7)若焦点位于文本框Text1中，则能够触发KeyPress事件的操作是（ ）。 （A）单击鼠标 （B）双击文本框 （C）鼠标滑过文本框 （D）按下键盘上的某个键 (8)若焦点位于文本框Text1中，输入”3st4d28f ” 并按下回车键后，则窗体上输出的结果是（ ）。 （A）0 （B）4 （C）8 （D）17 (9)若焦点位于文本框Text1中时，输入”3st4d28f ” 并按下回车键后，以下说法中正确的是（ ）。 （A）文本框Text1消失 （B）文本框Text1变灰

第 3 页 共 8 页