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 i As IntegerFor i=1 To 10m(i)=i*2Next iCall Change_____________For i=1 To 10Print m(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 iSum End Sub六、编程题（本大题共2小题，每小题10分，共20分）编写程序实现题目所给要求。

35.编写程序，用近似公式：.121)1( (71513114)1--++-+-≈-n n π求π的近似值，直到最后一项的绝对值小于410-为止。

36.编写一个计算表达式)!(!!n m n m -值的程序（m>=n>=0），要求：用输入对话框输入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三、简答题（本大题共2小题，每小题8分，共16分）【评分参考】（1）要点回答准确完整，可以得满分。

（2）回答要点所用词语、句式、前后顺序与参考答案不同，只要意思正确，就应给分。

（3）要点回答不完整，也应酌情给分。

27.（1）Visual Basic中的对象与面向对象程序设计中的对象在概念上是一样的，但在使用上有很大区别。

（3分）（2）在面向对象程序设计中，对象由程序员自己设计，而在Visual Basic中，有系统设计好的预定义对象和用户定义的对象。

（3分）（3）在面向对象程序设计中，操作对象的时候需要复杂的编程，在Visual Basic中，因为封装了很多预定义的操作，因此对对象的操作更简单。

（2分）28.（1）三个鼠标事件的相同点是它们都在控件区域对鼠标的操作而触发的事件，（2分）都能传递当前操作的鼠标按钮、鼠标所在位置、键盘辅助键的状态值等参数。