《VisualBasic程序设计》模拟试题三和答案

广东省高等教育自学考试《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

A.1<=a And a<5 And 1

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

C.Not（1<=a And a<5）Or （ 1

D.（1<=a And a<5 ） Or （ 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”

https://www.doczj.com/doc/d812890082.html,=“Hello”

C.Text1.Tag=“Hello”

D.Text1.Caption=“Hello”

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 "c:\data.txt" For Output As #1

Text1.Text = ""

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii =（1）_____________Then

If UCase(Text1.Text) =（2）_____________ Then

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 "去掉一个最高分" & max & ";去掉一个最低分" & min

MsgBox "最后得分:" & avg

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()

Dim num As Integer

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 。求平方根的迭代公式为：

)(211x x x n

n n a +=+,初值x 0为2a ，精度为?=10-5。计算a 的值为8、16 时，分别调用函数过程GetSqrt 求解并显示结果（a 通过参数传递给函数过程）。

《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

六、编程题（本大题共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 "8的平方根是：";x

x=GetSqrt(16) （1分）

Print "16的平方根是：";x

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