2014年7月程序设计试题和答案

2014年7月高等教育自学考试Visual Basic 程序设计试题

（课程代码 07759）

一、单项选择题（本大题共16小题，每小题1分，共16分）在每小题列出的四个备选项中只有一个是符合题目要求的，请将其代码填写在题后的括号内。错选、多选或未选均无分。

1.下列能从字符串“Microsoft”中直接取出子字符串“Micro”的函数是（ ） A. Mid B. Left C. Instr D. String 2.下列不合法的Visual Basic变量名是（ ） A. c_b B. andif C. cb6 D. _xyz

3.如果将布尔常量值True赋值给一个整型变量，则整型变量的值为（ ） A. False B. True C. -1 D.1

4.在窗体上有一个名称为Text1的文本框，影响Text1的输入最大字符数量的属性是（A. Visible B. TabStop C. MaxLength D. SelLength 5.InputBox函数的返回值类型是（ ） A.字符串型 B.变体型

C.数值型 D.数值或字符串型（视输入的数据而定） 6.设a=8,b=6,则执行x=IIf(b\\a*a=10,0.-1)后，x的值为（ ） A.1 B.0 C.使用错误 D.-1

7.当某个控件获得焦点时，将会触发的事件是（ ） A. SetFocus B. GotFocus C. ReceiveFocus D.无事件触发 8.类模块文件的扩展名为（ ）

A. .cls B. .frx C. .bas D. .vbp

9.将CommonDialog通用对话框设置为“另存为”对话框，须选择的方法为（ ） A. ShowOpen B. ShowColor C. ShowSave D. ShowFont

10.对窗体进行操作时，能实现将窗体装入内存和显示的方法是（ ） A. Hide B. Unload C. Load D. Show

11.按照数据的编码方式，文件可以分为（ ）

A.程序文件和数据文件 B.顺序文件盒随机文件 C.ASCII文件盒二进制文件 D.磁盘文件和打印文件 12.在菜单项的属性中，能使该菜单项失效的属性是（ ） A. Enabled B. Checked C. Visible D. Caption

13.要想从过程调用后返回一个整数型结果，则下列过程说明正确的是（ ） A. Sub f1（Byval x As Single）As Integer B. Function f2(Byval x As Integer)As Single C. Sub f3(x As Integer)As Single

2014年7月程序设计试题和答案 第1页 共7页

）D. Function f4(x As Integer)As Integer

14.语句Dim Arr(-4 To 3)定义的数组Arr的元素个数是（ ） A.7 B.8 C.9 D.10

15.为将多个语句放在同一行中书写，下列合法的语句行为（ ） A. x=1:y=5:z=10 B. x=1. y=5. z=10 C. x=1, y=5, z=10 D. x=1；y=5；z=10

16.在窗体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 Integer Dim iAs Integer For i=1 To 10 m(i)=i*2 Next i

Call Change_____________ For i=1 To 10 Printm(i) Next i End Sub

Sub Change (n()As Integer)

2014年7月程序设计试题和答案 第2页 共7页

Dim i ,j ,k ,t As Integer k=UBound(n) For i=1 To k/2

_________________ t=n(i) n(i)=n(j)

_________________ Next i End Sub

30.设计一个计时程序。该程序用户界面如题30图所示，由两个文本框显示时间：秒（Text1）和十分之一秒（Text2）；两个按钮进行操作：开始计时按钮（Begin）、停止计时按钮（Stop）。另还有计时器控件Timer1。程序运行后，单击开始计时按钮，则开始计时，文本框中显示秒数；单击停止计时按钮，则计时停止；单击窗口则退出程序的执行。

Dim s As Integer

Private Sub Form_Load( ) Timer1.Enabled=False Text1.Text=0 Text2.Text=0 End Sub

Private Sub Form_Click() ___________________ End Sub

Private Sub Timer1_Timer( ) s=s+1

Text1.Text=CStr(s\\10)

Text2.Text=_______________ End Sub

Private Sub Begin_Click( ) s=0

Timer1.Interval=100 Timer1______________ End Sub

Private Sub Stop_Click( )

Timer1.Enabled=False End Sub

五、程序阅读题（本大题共4小题，每小题4分，共16分）阅读程序，在题后的空格处填写程序 运行的结果。填错、未填均无分。

2014年7月程序设计试题和答案 第3页 共7页

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

Private Sub Command1_Click（） Dim x As Integer, y As Integer x=-2

If Sgn(x) Then y=Sgn(x^2) Else

y=Sgn(x) End If Print y End Sub

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

Private Sub Form_Load( )

Dim i As Integer, sum As Integer Text1.Text=＂＂ For i=1 To 7 sum=sum + i Next i

Text1.Text=sum End Sub

33.在窗体上有一个命令按钮（Command1）和一个文本框（Text1），编写如下程序，当运行程序后，单击命令按钮，文本框中显示的值是____________。 Private Sub Command1_Click（） Dim St(8,8) As Integer Dim i ,j As Integer For i=1 To 4

For j=2 To 4 St(i ,j)=i+2*j Next j Next i

Text1.Text= St(2 ,4)+ St(4 ,4) End Sub

34.下列程序执行时，外层循环语句的循环次数是_____________。 Private Sub sun( )

Dim iSum, i, j As Integer i=1:j=1 Do

Do

iSum=iSum+1 j=j+3 Print j； Loop Until j>8 i=i+2

Loop Until i>6

2014年7月程序设计试题和答案 第4页 共7页

Print iSum End Sub

六、编程题（本大题共2小题，每小题10分，共20分）编写程序实现题目所给要求。 35.编写程序，用近似公式：

?4?1?1111???...?(1?)n?1. 3572n?1求?的近似值，直到最后一项的绝对值小于10?4为止。 36.编写一个计算表达式

m!n!(m?n)!值的程序（m>=n>=0），要求：用输入对话框输入m和n的值，编写

函数Function Multiply(x as Integer)求x!的值，调用Multiply计算表达式。

2014年7月程序设计试题和答案 第5页 共7页