2017年7月广东省高等教育自学考试
Visual Basic程序设计试题
（课程代码07759）
一、单项选择题（本大题共16小题,每小题1分，共16分） 在每小题列出的四个备选项中只有一个是符
合题目要求的，请将其选出并将“答题卡”的相应代码涂黑。错涂、多涂或未涂均无分。 1．下面不合法的常量是
A. Basic B. \2．在visual Basic中，下列函数中值只为1,O，-l的是
A. INT(X) B. ABS(X) C. SQR(X) D. SGN(X) 3．表达式反Len(Trim(\）的结果是
A. 4 B. 1234 C. 12 D. 34 4. Cls方法的作用是
A．清除电脑屏幕显示的内容 B．清除当前窗体的全部内容 C．清除Print方法显示的内容 D．清除当前窗体的控件 5．把文本框作为密码输人框并显示*号，需要设置________属性。
A. Text B. Name C. Password D. Enabled 6．可以用来显示图像的控件是
A. Picture B. Text C. Frame D．Label 7．当光标从Textl进入到Text2时，Textl会发生________事件。
A. Lost B. LostFocus C. Got D. GotFocus 8．当需要在同一个窗体上建立几组相互独立的单选按钮时，可以使用________控件来分组。 A. Label B. Image C. Text D. Frame 9．数组定义语句Dim Data(2，-l TO 3）共有_________个元素。
A. 6 B. 9 C. 12 D. 15 10．在过程定义Sub tryout(ByVal x As Integer）中，参数x的传递方式为
A．传地址 B．传值 C．传参数 D．引用 11．设置命令按钮的标题文字时，应改变的属性是
A. Text B. Name C. Caption D. Value 12．要显示一个“另存为”文件对话框，下列语句正确的是
A. CommonDialog1.ShowOpen B. CommonDialogl.ShowSave C. CommonDialogl.ShowSaveAs D. CommonDiogl.GetFile 13．装载并显示一个新的窗体，使用_________方法。
A. Load B. Show C．Display D. Hide 14．要打开一个文件文本并读人其内容，应该使用________语句。
A. 0penFileName for Input As # 1 B. 0penFileName for Output As # 1 C. 0penFileName for Append As # 1 D. 0penFileName for Write As # l
2017年7月VB程序设计试题和答案 第1页 共7页
15.Select Case语句属于
A．顺序结构 B．分支结构 C．循环结构 D. 随机结构 16. 数学表达式l≤x≤5在VB中的逻辑表达式为
A. l<=x<=5 B. l<=x AND x<=5 C. l<=x OR x<=5 D. x<=1 AND x<=5
二、判断改错题（本大题共10小题，每小题2分，共20分）
判断下列每小题的正误。正确的在题后括号内打“√”；错误的打“×”，并改正划线部分。 17．在VB中通用过程分为两类，即子程序过程和函数过程。
18．在鼠标按下时会产生MouseDown事件，通过Button参数可知道按下的是左键还是右键。 19. VB内部函数sin(x),x的单位是弧度。 20．可以使用Exit For语句退出Do…While循环。 21．滚动条控件的主要事件是scroll和Change。 22．定义数组时，必须声明数据的大小。
23. MsgBox函数用于显示一个消息框，提示用户作出选择，程序可以知道用户选择了哪个选项。 24．在窗体上用Print方法输出数据时，可以用Tab函数来控制显示的位置。 25．除菜单分隔线外，所有菜单项都可以接收Click事件。 26. 一个文件使用完毕，必须用Close来关闭。
三、简答题（本大题共2小题,每小题8分，共16分） 27．什么是变量？什么是常量？变量命名有哪些规则？
28．简述文本框LostFocus事件，GotFocus事件和SetFocus方法的功能和使用场合。
四、解读程序题（本大题共2小题，每小题6分，每空2分，共 12分）解读程序，根据题目对程序的说
明，在程序中空格处 填写正确代码。填错、未填均无分。
29．下面的程序用于根据输入的内容进行以下处理：若X为1、3、4，则打印“X的值为1、3、4”；若X
在5到9之间，则打印“X的值为大于等于5小于等于9”；若X大于10，则打印“X的值大于10”；否则，打印“X不在范围内”。 Private Sub Commandl_Click()
Dim x As Integer Select Case x Case(l)_________
Print “X的值为l,3,4,” Case (2)_________
Print “X的值为大于等于5小于等于9”
Case Is > 10
2017年7月VB程序设计试题和答案 第2页 共7页
Print “X的值大于10”
Case (3)_________
Print “X不在范围内”
Endselect End Sub
30．窗体上有一个文本框（Text1）和一个列表框（List1）。下面的程序在按Enter（回车）键后，将文
本框的内容加到列表框，如果列表框已经有相同的项目则不添加。 Private Sub Text1_KeyPress（KeyAscii As Integer) Dim I As Integer
If KeyAscii = 13 Then
‘查找是否有相同的项目 For I =O To (l)________ If(2)__________Then
Exit Sub End If Next
List1.Addltem(3)________ End If End Sub
五、程序阅读题（本大题共4小题，每小题4分，共16分）
阅读程序，在题后的空格处填写程序运行的结果。填错、未填均无分。
31. 窗体上有一个命令按钮(Command1)，编写如下程序，当运行程序后，单击命令按钮，窗体的输出结果
是___________。
Private Sub Command 1_Click ()
Dim i, j，sum As Integer
For i=1 To 5 sum = 0 For j=1 To 5 sum = sum + i + j Next Next Print sum
End Sub
2017年7月VB程序设计试题和答案 第1页 共7页
32. 窗体上有一个命令按钮(Command1)，编写如下程序，当运行程序后，单击命令按钮，窗体的输出结果
是___________。
Private Sub Command 1_Click ()
Dim i, j, sum As Integer Dim a(10) As Integer
For i=l To 10 a(i)= i * i Mod 5 Next sum = 0
For i = 1 To 10 Step 2 sum = sum + a(i) Next Print sum
End Sub
33. 窗体上有一个命令按钮(Command1)，编写如下程序，当运行程序后，单击命令按钮，窗体上一共显示
了___________个星号。
Private Sub Command 1_Click() Dim i, j As Integer
For i = 1 To 5 For j = 1 To 6 - i Print “”; Next
For j = 1 To 2 * i - 1 Print “*”; Next Print Next End Sub
34. 窗体上有一个命令按钮(Command1)和一个文本框（Text1），编写如下程序，当运行程序后，连续单击三次命令按钮，文本框Text1显示的内容是________。 Private Sub Command 1_Click()
Dim a, i As Integer Static b As Integer
2017年7月VB程序设计试题和答案 第2页 共7页
a = a +1 b = b +3 i = 1
Do While I < b i = i + 1
If (b + i)Mod 2 = 0 Then Exit Do Loop
Text1.Text = a * 4 + b + i End Sub
六、编程题（本大题共2小题，每小题10分，共20分)编写程序实现题目所给要求。
35. 从键盘上输入10个整数，计算这10个整数的平均值，统计并显示比平均值大的数据个数。 36. 使用公司
?26?11??... 1222-4
来求?的近似值，直到最后一项的值小于10为止。
2017年7月VB程序设计试题和答案 第1页 共7页
07759Visual Basic程序设计201707真题及答案
