2015年1月《Visual Basic程序设计》 试题和答案

2015年1月广东省高等教育自学考试 《Visual Basic程序设计》试题

（课程代码 07759）

一、单项选择题（本大题共16小题，每小题1分，共16分）

在每小题列出的四个备选项中只有一个是符合题目要求的，请将其代码填写在题后的括号内。错选.多选或未选均无分。

1.下列可以作为Visual Basic变量名的是（ ） A.3X B.?AA C.counstX D.X#X

2.要使一个文本框可以显示多行文本，应设置为Ture的属性是（ ） A. MasLength B. MultiLine C. Width D. Enabled

3.假设a和b是整型变量，则表示条件“1<=a<5和1

B.（1<=a And a<5 ）And Not （1

4.为了将菜单项分组，使不同类型的菜单之间有一条水平分隔线，设置方法是在菜单中插入一个菜单项，需要设置为一个连字符（-）的菜单控件的属性为（ ） A. Caption B. Name C. ShortCut D. Text

5.确定触发计时器两个事件间隔的毫秒数，应使用计时器的属性是（ ） A. Visible B. Enabled C. Tag D. Interval 6.在Sub过程的定义时（ ）

A.一定要知名是公有的还是私有的 B.一定要有过程的名字 C.一定要制定其类型 D.一定要有参数 7.要使文本框在显示文字时，只显示出一串“*”，则应设置的属性是（ ） A. Text B. Value C. PasswordChar D. Caption 8.Visual Basic中耳朵暂停语句为（ ）

A. Pause B. Exit C. End D. stop

9.将通用对话框类型设置为“另存为”对话框，应修改的属性为（ ） A. Action B. Font C. FileName D. Filter 10.下列程序段运行后，显示的结果是（ ） Dim x as Integer

If x then Print x Else print x+1 A.-1 B.1

C.0 D.显示错误信息 11.在窗体的文本框Text1中显示字符串“Hello”，正确的语句是（ ） A.Text1.Text=“Hello” B.Text1.Name=“Hello”

2015年1月VB程序设计试题和答案 第1页 共6页

C.Text1.Tag=“Hello” D.Text1.Caption=“Hello” 12.改变窗体的字体大小，需要设置的属性是（ ）

A. FontItalic B. FontBold C. FontSize D. FontName

13.语句Dim Arr（-2 To 3,1 to 2）定义的元素个数是（ ） A.5 B.6 C.10 D.12 14.Visual Basic中的启动过程是（ ）

A. Sub Setup B. Sub Start C. Sub Main D. Sub Init 15.从顺序文件中读取一行数据，正确的语句是（ ） A. Line Input # B. Input Line # C. Read Line # D. Line Read # 16.在鼠标事件中，放开鼠标按钮的事件是（ ） A. MouseDown B. MouseUp C. MouseMove D. MouseClick

二、判断改错题（本大题共10小题，每小题2分，共20分）判断下列每小题的正误。正确的在题后括号内打“√”；错误的打“×”，并改正划线部分。

17.在Visual Basic中，动态数组在需要的时候可以改变大小。 【 】 18.对于Visual Basic中的多窗体程序，如不指定启动窗体，会随机选择启动一个窗体。 【 】 19.若要使命令按钮不可见，则可设置Enabled属性为False来实现。 【 】 20.在默认情况下，InputBox的返回值是一个字符串。 【 】

21.计时器控件的Interval属性设为1000，Enabled属性为False，则每隔1秒的时间就产生一次Timer事件。 【 】 22.标准模块文件是一个纯代码性质的文件，它不属于任何一个窗体。 【 】 23.按照数据的存取方式和结构，文件可以分为两种类型：文本文件和随机文件。 【 】 24.Sub过程不能通过其过程名返回值。 【 】 25.If6＞5 Then x=5 End If是一条合法语句。 【 】 26.控件的KeyUp事件返回的是按键的ASCII码。 【 】

三、简答题（本大题共2小题，每小题8分，共16分） 27.什么是对象？并解释对象的属性、事件和方法。

28.简述用局部变量、模块变量和全局变量声明的变量在作用域上有何区别。

四.解读程序题（本大题共2小题，每小题6分，共12分）解读程序，根据题目对程序的说明，在程序中空格处填写正确代码。填错.未填均无分。

29.在窗体上画一个名称为Text1的文本框，然后编程实现如下功能：在C盘根目录下建立1个文件data.txt，在文本框中输入字符，每次按回车键（回车键的ASCII码是13）都把当前文本框的内容写入data.txt，并清除文本框总的内容；如果输入“EXIT”，则结束程序。 Private Sub Form_Load()

Open \ Text1.Text = \End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii =（1）_____________Then

2015年1月VB程序设计试题和答案 第2页 共6页

If UCase(Text1.Text) =（2）_____________ Then Close 1 End Else

write #1,（3）_____________

Text1.Text = \ End If End If End Sub

30.下列程序是比赛的评分程序，共有8位评委，满分为10分，选手的最后得分为去掉一个最高分和一个最低分后的平均分。

Private Sub Command1_Click()

Dim k, max, min, sum, avg As Single Dim i As Integer max = 0 min = 0 sum = 0

For i = 1 To 8

k = Val(InputBox(\请输入分数(0~10):\ If（1）____________ Then min=k If（2）____________ Then max=k Sum=(3) _____________ Next i

sum = sum - min - max avg = sum / 6

MsgBox \去掉一个最高分\去掉一个最低分\ MsgBox \最后得分:\End Sub

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

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

private Sub Command1_Click()

Dim m As Integer,a As Integer For a=1 to 10

If n Mod 4 <> 0 Then m=m+n\\4 End If Next a Print a End Sub

32.在窗体上有一个命令按钮（Command1），编写如下程序，当运行程序后，单击命令按钮，窗体上显示的内容是___________________。 Private Sub Command1_Click()

2015年1月VB程序设计试题和答案 第3页 共6页

Dim num As Integer num,=1

Do Until num>5 Print num; num=num+1.5 Loop End Sub

33.在窗体上有一个命令按钮（Command1）和两个文本框（Text1和Text2），编写如下程序，当程序运行后，单击命令按钮，文本框Text2中显示的值是____________________。 Function Cala(x As Ineger,ByVal y As Integer x=x+y

If x>0 Then Cala=x Else Cala=y End If End Function

Private Sub Command1_Click()

Dim m As Integer ,n As Integer m=18 n=-8

Text1.Text=Cala(m,n) Text2.Text=Cala(m,n) End Sub

34.程序运行后，单击窗体，则在窗体上显示的内容是______________________。 Option Base 0

Private Sub Form1_Click（） Dim a

Dim i As Integer a=Array(1,2,3,4,5) For i=2 to 3

Print a(5-i)*2; Next i End Sub

六、编程题（本大题共2小题，每小题10分，共20分）编写程序实现题目所给要求。 35.用输入对话框输入x，根据下式计算对应的y，并在窗体上输出y的值。

36. 用迭代法编制函数过程GetSqrt，求x=a。求平方根的迭代公式为：

xn?1?a1a(xn?),初值x0为，精度为?=10-5。计算a的值为8、16 时，分别调用函数过程GetSqrt

22xn求解并显示结果（a通过参数传递给函数过程）。

2015年1月VB程序设计试题和答案 第4页 共6页

2015年1月《Visual Basic程序设计》试题答案及评分参考

（课程代码 07759）

一、单项选择题（本大题共16小题，每小题1分，共16分） 1——5：CBDAD 6——10：BCDAB 11——16：ACDCAB

二、判断改错题（本大题共10小题，每小题2分，共20分） 题号 判断 更正 17. √（2分））

18. ×（1分） 不会（1分） 19. ×（1分） Visible（1分） 20. √（2分）

21. ×（1分） True（1分） 22. √（2分）

23. ×（1分） 顺序文件（1分） 24. √（2分） 25. √（2分）

26. ×（1分） KeyCode 码（1分）

三、简答题（本大题共2小题，每小题8分，共16分） 评分参考：

（1）要点回答准确完整，可以得满分。

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

27.（1）对象是具有特殊属性（数据）和行为方式（方法）的试题。建立一个对象后，其操作通过与该对象有关的属性、事件和方法来描述。（2分）

（2）对象的属性是一个对象的特性，不同的对象具有不同的属性，例如标题、名称、颜色等。（2分） （3）对象的事件是由编程系统预先设置好的、能够被对象识别的动作，例如单击、双击等。（2分） （4）对象的方法是对象的特殊过程和函数，可以在程序中被使用，如移动、得到焦点等。（2分）

28.（1）在Visual Basic中的变量分为三类，分别是局部变量、模块变量和全局变量，它们位于不同的层次。（1分）

（2）局部变量是在过程内部定义的，其作用域是它所在的过程，用于存放中间结果或作为临时变量。（2分）

（3）模块变量可在窗体和标准模块中用private或dim声明，可用于该窗体或标准模块的所有过程。（2分）

（4）全局变量在标准模块中用public或global声明，可在工程的每个模块、每个过程中使用。（3分）

四、解读程序题（本大题共2小题，每小题6分，共12分） 29.（1）12 （2）“EXIT” （3）Text1.Text 30.（1）kmax （3）sum+k

五、程序阅读题（本大题共4小题，每小题4分，共16分） 31. 7 32. 1 2 4 33. 2 34. 8 6

2015年1月VB程序设计试题和答案 第5页 共6页

六、编程题（本大题共2小题，每小题10分，共20分） 评分参考：

（1）程序结构完整，流程合理，算法正确，给满分。

（2）变量没有声明，扣1分；主流程不清晰，扣3分；关键算法错误扣3分；重要代码缺少，扣3分。 （3）如果思路正确，但代码不完整的，根据代码质量适当给分。 35.Private Sub Command1_Click()

Dim x As Single,y As Single （1分） x=Val(Inputbox(\请输入x的值：\（1分） If(x>10) Then (1分）

y=Sqr(x)=Sin(x) ( 2分） Else If（x<10) （1分） y=2*x^3+6 （2分） Else

y=0 (1分） End If

Print y （1分） End Sub

36.Private Sub Command1_Click() Dim x As Single （1分） x=GetSqrt(8) （1分） Print \的平方根是：\ x=GetSqrt(16) （1分） Print \的平方根是：\End Sub

Private Function GetSqrt(a As Integer) As Single Dim x0 As Single,x1 As Single （1分） x0=a/2 （1分） x1=(x0+a/x0)/2 Do （1分）

x0=x1 （2分） x1=(x0+a/x0)/2

Loop While Abs(x0-x1)>=0.00001 (1分) GetSqrt=x1 (1分) End Function

2015年1月VB程序设计试题和答案第6页 共6页