2014 年 7 月高等教育自学考试Visual Basic程序设计试题（课程代码07759 ）一、单项选择题（本大题共16 小题，每小题 1 分，共 16 分）在每小题列出的四个备选项中只有一个是符合题目要求的，请将其代码填写在题后的括号内。

错选、多选或未选均无分。

1. 下列能从字符串“Microsoft”中直接取出子字符串“Micro ”的函数是（）A. MidB. LeftC. InstrD. String2. 下列不合法的 Visual Basic变量名是（）A. c_bB. andifC. cb6D. _xyz3. 如果将布尔常量值True赋值给一个整型变量，则整型变量的值为（）A. FalseB. TrueC. -1D.14. 在窗体上有一个名称为Text1 的文本框，影响 Text1的输入最大字符数量的属性是（）A. VisibleB. TabStopC. MaxLengthD. SelLength5.InputBox 函数的返回值类型是（）A. 字符串型B.变体型C. 数值型D.数值或字符串型（视输入的数据而定）6. 设 a=8,b=6, 则执行 x=IIf(b\a*a=10,0.-1)后， x 的值为（）A.1B.0C. 使用错误D.-17. 当某个控件获得焦点时，将会触发的事件是（）A. SetFocusB. GotFocusC. ReceiveFocusD.无事件触发8. 类模块文件的扩展名为（）A. .clsB. .frxC. .basD. .vbp9. 将 CommonDialog 通用对话框设置为“另存为”对话框，须选择的方法为（）A. ShowOpenB. ShowColorC. ShowSaveD. ShowFont10. 对窗体进行操作时，能实现将窗体装入内存和显示的方法是（）A. HideB. UnloadC. LoadD. Show11. 按照数据的编码方式，文件可以分为（）A. 程序文件和数据文件B.顺序文件盒随机文件C.ASCII 文件盒二进制文件D.磁盘文件和打印文件12. 在菜单项的属性中，能使该菜单项失效的属性是（）A. EnabledB. CheckedC. VisibleD. Caption13. 要想从过程调用后返回一个整数型结果，则下列过程说明正确的是（）A. Sub f1 （ Byval x As Single） As IntegerB. Function f2(Byval x As Integer)As SingleC. Sub f3(x As Integer)As SingleD. Function f4(x As Integer)As Integer14.语句 Dim Arr(-4 To 3)定义的数组 Arr的元素个数是（）A.7B.8C.9D.1015.为将多个语句放在同一行中书写，下列合法的语句行为（）A. x=1:y=5:z=10B. x=1. y=5. z=10C. x=1, y=5, z=10D. x=1；y=5； z=1016.在窗体 Form1 上显示字符＂ Hello ＂的正确语句是（）A. Form1.Display＂Hello ＂B. Form1.Print＂Hello ＂C. Form1.Output＂ Hello＂D. Form1.Write＂ Hello ＂二、判断改错题（本大题共10 小题，每小题 2 分，共 20 分）判断下列每小题的正误。

正确的在题后括号内打“√” ；错误的打“×” ，并改正划线部分。

17.若用户在键盘上按下一个键，则会产生一个Click事件。

（）18.在 Visual Basic中， &H36是十六进制的数值常数。

（）19.在随机文件中，每个记录的长度和记录中的每个字段的长度都是固定的。

（）20.单选钮控件和复选框控件都具有Value属性，在这两个控件中，这个属性的取值范围相同。

（）21.在 Visual Basic中，参数通过两种方式传送，即传地址和传值。

（）22.用户可以通过在组合框中键入文本或选择列表中的项目来进行选择。

（）23.当定时器控件的Interval 属性值设置为0 时，会连续触发Timer 事件。

（）24.可用 Private在标准模块中定义全局变量或数组。

（）25.在 Visual Basic中允许把几个语句放在一行中，各条语句之间用冒号隔开。

（）26.设计菜单中每一个菜单项分别是一个控件，每个控件都有自己的Name属性。

（）三、简答题（本大题共 2 小题，每小题 8 分，共 16 分）27.VB 的面向对象与一般面向对象程序设计有何不同？28.VB 中的鼠标事件MouseDown和 MouseUp、 MouseMove事件有什么异同？四、解读程序题（本大题共 2 小题，每小题 6 分，共 12 分）解读程序，根据题目对程序的说明，在程序中空格处填写正确代码。

填错、未填均无分。

29.在窗体上绘制一个名称为 Command1的命令按钮，然后编程实现如下功能：通过调用过程 Change，调换数组 m中元素的存放位置，即 m(1) 与 m（ 10）的值互换， m（2）与 m（ 9）的值互换，以此类推，直至全部元素互换完毕。

Private Sub Command1_Click()Dim m(1 To 10)As IntegerDim iAs IntegerFor i=1 To 10m(i)=i*2Next iCall Change_____________For i=1 To 10Printm(i)Next iEnd SubSub Change (n()As Integer)Dim i ,j ,k ,t As Integerk=UBound(n)For i=1 To k/2_________________t=n(i)n(i)=n(j)_________________Next iEnd Sub30. 设计一个计时程序。

该程序用户界面如题30 图所示，由两个文本框显示时间：秒（Text1 ）和十分之一秒（ Text2 ）；两个按钮进行操作：开始计时按钮（Begin ）、停止计时按钮（Stop ）。

另还有计时器控件Timer1 。

程序运行后，单击开始计时按钮，则开始计时，文本框中显示秒数；单击停止计时按钮，则计时停止；单击窗口则退出程序的执行。

Dim s As IntegerPrivate Sub Form_Load( )Timer1.Enabled=FalseText1.Text=0Text2.Text=0End SubPrivate Sub Form_Click()___________________End SubPrivate Sub Timer1_Timer( )s=s+1Text1.Text=CStr(s\10)Text2.Text=_______________End SubPrivate Sub Begin_Click( )s=0Timer1.Interval=100Timer1______________End SubPrivate Sub Stop_Click( )Timer1.Enabled=FalseEnd Sub五、程序阅读题（本大题共 4 小题，每小题 4 分，共 16 分）阅读程序，在题后的空格处填写程序运行的结果。

填错、未填均无分。

31. 在窗体上有一个命令按钮（Command1），编写如下程序，当运行程序后，单击命令按钮，窗体上显示的值是 ____________ 。

Private Sub Command1_Click（）Dim x As Integer, y As Integerx=-2If Sgn(x) Theny=Sgn(x^2)Elsey=Sgn(x)End IfPrint yEnd Sub32.在窗体上有一个文本框（ Text1 ），编写如下程序，当运行程序后，单击命令按钮，文本框中显示的值是 ____________ 。

Private Sub Form_Load( )Dim i As Integer, sum As IntegerText1.Text=＂＂For i=1 To 7sum=sum + iNext iText1.Text=sumEnd Sub33.在窗体上有一个命令按钮（ Command1）和一个文本框（ Text1 ），编写如下程序，当运行程序后，单击命令按钮，文本框中显示的值是 ____________ 。

Private Sub Command1_Click（）Dim St(8,8) As IntegerDim i ,j As IntegerFor i=1 To 4For j=2 To 4St(i ,j)=i+2*jNext jNext iText1.Text= St(2 ,4)+ St(4 ,4)End Sub34.下列程序执行时，外层循环语句的循环次数是_____________ 。

Private Sub sun( )Dim iSum, i, j As Integeri=1:j=1DoDoiSum=iSum+1j=j+3Print j；Loop Until j>8i=i+2Loop Until i>6Print iSumEnd Sub六、编程题（本大题共 2 小题，每小题10 分，共 20 分）编写程序实现题目所给要求。

35.编写程序，用近似公式：41111... ( 1 )n11.3572n1求的近似值，直到最后一项的绝对值小于10 4为止。

36. 编写一个计算表达式m!m和 n 的值，编写值的程序（ m>=n>=0），要求：用输入对话框输入n! ( m n )!函数 Function Multiply(x as Integer)求 x! 的值，调用 Multiply计算表达式。

2014 年 7 月高等教育自学考试Visual Basic程序设计试题答案及评分参考（课程代码 07759 ）一、单项选择题（本大题共16 小题，每小题 1 分，共 16 分）1—— 5： BDCCA 6 —— 10： DBACD 11—— 16： CADBAB二、判断改错题（本大题共10 小题，每小题 2 分，共 20 分）题号判断更正17×（1分）KeyPress （1 分）18√（2分）19√（2分）20×（1分）不相同（ 1 分）21√（2分）22√（2分）23×（1分）停止（ 1 分）24×（1分）Public （ 1 分）25√（2分）26√（2分）三、简答题（本大题共 2 小题，每小题 8 分，共 16 分）【评分参考】（1）要点回答准确完整，可以得满分。