所在位置:网站首页 > 自考题库下载 >
2013年1月自考《Visual Basic程序设计》试题
发布时间:2013-02-25 09:14   访问次:【字体:  
 
绝密 ★ 考试结束前

2013年1月高等教育自学考试

Visual Basic程序设计试题

课程代码:07759
    本试卷分AB卷,使用2003年版本教材的考生请做A卷,并将答题纸上卷别“A”涂黑;使用2012年版本教材的考生请做B卷,并将答题纸上卷别“B”涂黑。不涂或全涂,均以B卷记分。请考生按规定用笔将所有试题的答案涂、写在答题纸上。
A
选择题部分
注意事项:
    1. 答题前,考生务必将自己的考试课程名称、姓名、准考证号用黑色字迹的签字笔或钢笔填写在答题纸规定的位置上。
    2. 每小题选出答案后,用2B铅笔把答题纸上对应题目的答案标号涂黑。如需改动,用橡皮擦干净后,再选涂其他答案标号。不能答在试题卷上。
 
一、单项选择题(本大题共10小题,每小题1分,共10)
在每小题列出的四个备选项中只有一个是符合题目要求的,请将其选出并将“答题纸”的相应代码涂黑。错涂、多涂或未涂均无分。
1.下列逻辑表达式的值为真的是
A."A" > "a"                                                  B."9" > "A"
C."That" > "Thank"                                       D.12 > 1.21E1
2.骰子是一个正六面体,用1~6这六个数分别代表这六面,掷一次骰子出现的数可表示为
A.Int(Rnd(6) + 1)                                         B.Int(Rnd * 6)
C.Int(Rnd(1) * 7)                                         D.Int(Rnd(1) * 6 + 1)
3.下列语句中,可以将列表框List1中当前选定的列表项的值替换为“ABC”的是
A.List1.AddItem "ABC", List1.ListIndex
B.List1.Text = "ABC"
C.List1.List(List1.ListIndex) = "ABC"
D.前三项均可
4.下列可作为Visual Basic中的变量名的是
A.A#A                                                         B.4A
C.?xy                                                          D.constA
5.用下面的语句所定义的数组的元素个数是
Dim arr(3 To 5, -2 To 2)
A.20                                                            B.12
C.15                                                            D.24
6.如果要在菜单中添加一个分割线,则应将菜单项的Caption属性设置为
A.:                                                              B.,
C.&                                                            D.-
7.在下列控件中,不具有坐标系的控件是
A.Frame(框架)                                        B.TextBox(文本框)
C.PictureBox(图片框)                              D.Form(窗体)
8.数据控件的Reposition事件发生在
A.记录成为当前记录后                                B.修改与删除记录前
C.记录成为当前记录前                                D.移动记录指针前
9.下列关于Select Case s的叙述中,错误的是
A.Case 10 To 100                                         表示判断s是否介于10与100之间
B.Case "abc", "ABC"                                     表示判断s是否和"abc", "ABC"中的一个相同
C.Case "X"                                                  表示判断s是否为大写字母X
D.Case -7, 0, 100                                         表示判断s是否等于字符串"-7, 0, 100"
10.定义过程的语句为:Sub Suba(x As Single, y As Single),则正确的调用语句为
A.Call Suba x, y                                           B.Call Suba("A", Sin(1.57))
C.Suba 10, 12                                              D.Call Suba(12, 10, x)
 
二、判断题(本大题共10小题,每小题1分,共10分)
判断下列各题,在答题纸相应位置正确的涂“A”,错误的涂“B”。
11.对象的方法是指在对象中预先设置好的,能够被该对象识别并响应的动作。
12.Long型和Single型数据都占4个字节存储空间,所以它们的取值范围是相同的。
13.用Shell函数可以调用可执行文件,也可以调用Visual Basic的内部函数。
14.在同一个程序中,用不同的方法(如ShowOpen或ShowSave等)打开的通用对话框具有不同的作用。
15.若工程文件中有多个窗体,可以根据需要指定一个窗体为启动窗体。
16.过程的传值调用参数是单项传递的,过程的传地址调用参数是双向传递的。
17.结构化程序设计方法的基本思想:任何程序都可以用三种基本结构表示,即顺序结构、选择结构和循环结构。
18.ActiveX控件的使用方法与其他标准控件相似,可以在工程中直接使用。
19.将图片框控件PictureBox属性Stretch的值设为True,使其能够根据所加载的图片调整自身大小。
20.在VB中,用Dim定义数组时,数组元素将自动赋初值为0。
 
三、程序选择填空题(本大题共8小题,每小题3分,共24分)
(一)【程序说明】在窗体上有一个名称为Text1的文本框和三个单选按钮,并且这三个单选按钮建立了一个控件数组,名称为Option1。程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换,如下图所示。

【程序】
Private Sub Option1_Click(Index As Integer)
Dim a As String
Select Case   21 
Case 0
a = "宋体"
Case 1
a = "黑体"
Case 2
a = "楷体_GB2312"
End Select
  22   = a
End Sub
【供选择的答案】
21.A.Option1.Index                                      B.Option1.Value
C.Index                                                       D.Option1.Count
22.A.Text1.Font                                           B.Text1.FontName
C.Option1.FontName                                    D.Option1.Font
(二)【程序说明】找出两个正整数a和b,使得a < b、a + b = 99、a和b的最大公约数是3的倍数,并统计满足条件的数对的个数。
【程序】
Dim a As Integer, b As Integer, n As Integer, c As Integer
Private Function Gcd(ByVal a As Integer, ByVal b As Integer) As Integer
Do
c = a Mod b
a = b
b = c
Loop While c <> 0
Gcd = a
End Function
Private Sub Command1_Click()
n = 0
For a = 1 To 49
b =   23 
c =   24 
If c Mod 3 = 0 Then
  25 
Print a, b, c
End If
Next a
Print n
End Sub
【供选择的答案】
23. A.99                                                      B.1
C.99 - a                                                       D.99-n
24.A.Gcd(b, a)                                             B.Gcd(a, b)
C.Gcd(b, n)                                                 D.Gcd(n, b)
25.A.n = n - 1                                              B.n = n + 1
C.n = 0                                                        D.n = a
(三)【程序说明】有一个分数序列为:2/1、3/2、5/3、8/5、13/8…,求这个序列前20项的和。
【程序】
Private Sub Form_Click()
Dim s As Single
Dim t1 As Integer, t2 As Integer, t As Integer
Dim i As Integer
s = 0
t1 = 2
t2 = 1
i = 0
Do While   26 
s =   27 
t = t1 + t2
t2 = t1
t1 = t
  28 
Loop
Print s
End Sub
【供选择的答案】
26.A.i > 0                                                    B.i < 20
C.i <= 20                                                     D.i < 19
27.A.t1 / t2                                                  B.s + t1 / t2
C.t2 / t1                                                       D.s + t2 / t1
28.A.i = i - 1                                                B.i = 0
C.i = i + 1                                                    D.s = 0
 
四、程序阅读题(本大题共8小题,每小题2分,共16分)
(一)【程序】
Private Sub Command1_Click()
Cls
Line (300, 300)-(1600, 1600), , BF
End Sub
Private Sub Command2_Click()
Cls
Line (300, 300)-(1600, 1600), , B
End Sub
【供选择的答案】
29.运行时单击Command1,窗体显示的图形为
A.直线                                                        B.折线
C.空心矩形                                                 D.实心矩形
30.运行时单击Command2,窗体显示的图形为
A.直线                                                        B.折线
C.空心矩形                                                 D.实心矩形
(二)【程序】
Dim y As Integer
Private Sub Command1_Click()
Dim x As Integer
x = 2
Text1.Text = P2(P1(x), y)
Text2.Text = P1(x)
End Sub
Private Function P1(x As Integer) As Integer
x = x + y
y = x + y
P1 = x + y
End Function
Private Function P2(x As Integer, y As Integer) As Integer
P2 = 2 * x + y
End Function
【供选择的答案】
31.当一次单击命令按钮后,文本框Text1和Text2的值分别是
A.2、4                                                        B.4、8
C.10、10                                                     D.4、4
32.当两次单击命令按钮后,文本框Text1和Text2的值分别是
A.2、4                                                        B.8、8
C.58、58                                                     D.4、8
33.将x的声明方式改为Static,程序运行时,当两次单击命令按钮后,文本框Text1和Text2的值分别是
A.2、4                                                        B.8、8
C.58、58                                                     D.4、8
(三)【程序】
Dim a(10) As Integer
For i = 1 To 10
a(i) = i * 2
Next i
For m = 1 To n - 1
For z = 1 To n - m
If a(z) > a(z + 1) Then
t = a(z)
a(z) = a(z + 1)
a(z + 1) = t
End If
Next z
Next m
【供选择的答案】
上面这段程序执行后,a(1)的值为  34  ,a(3)的值为  35  ,a(7)的值为  36 
34.A.2                                                         B.20
C.10                                                            D.12
35.A.2                                                         B.20
C.6                                                             D.14
36.A.2                                                         B.20
C.6                                                             D.14
非选择题部分
注意事项:
    用黑色字迹的签字笔或钢笔将答案写在答题纸上,不能答在试题卷上。
 
五、填空题(本大题共10小题,每小题2分,共20分)
37.表达式-25 \ 21 / 3 Mod (1 - 2 * 3 ∧ 2) \ 3的值为      。
38.为了改变计时器控件的时间间隔,应该修改该控件的      属性。
39.VB提供的对数据文件的三种访问方式为随机访问方式、      和二进制访问方式。
40.删除score表中“学号”为“111202”记录的SQL语句为      。
41.数学关系3≤x<10表示成正确的VB表达式为      。
42.使输入焦点到文本框控件Text1中的语句是      。
43.语句For k = 33 To -5 Step -2的循环体执行次数为      。
44.滚动条控件产生Change事件是因为它的      值改变了。
45.通过设置Shape控件的      属性可以绘制多种形状的图形。
46.一个名为MenuItem的菜单项,为了在运行时使该菜单项失效,使用的语句为      。
 
六、程序设计题(本大题共2小题,每小题10分,共20分)
47.编制事件过程Command1_Click,要求从已存在于磁盘上的顺序文件C:\Data1.txt中读取一个数据,计算出该数据的平方值,将该数据及其平方值存入新的顺序文件C:\Data2.txt中。
48.所谓“水仙花数”是指一个三位数等于它每位上数字的立方和。例如:153=13+53+33,那么153就是一个水仙花数。编制事件过程Command1_Click,输入一个三位正整数n,判断该数是否是水仙花数,将判断结果输出。
B
选择题部分
注意事项:
    1. 答题前,考生务必将自己的考试课程名称、姓名、准考证号用黑色字迹的签字笔或钢笔填写在答题纸规定的位置上。
    2. 每小题选出答案后,用2B铅笔把答题纸上对应题目的答案标号涂黑。如需改动,用橡皮擦干净后,再选涂其他答案标号。不能答在试题卷上。
 
一、单项选择题(本大题共10小题,每小题2分,共20)
在每小题列出的四个备选项中只有一个是符合题目要求的,请将其选出并将“答题纸”的相应代码涂黑。错涂、多涂或未涂均无分。
1.以下合法的Visual Basic变量是
A.ForLoop                                                   B.Const
C.9abc                                                        D.a#x
2.表达式 5 Mod 3+3\5*2的值是
A.0                                                             B.2
C.4                                                             D.6
3.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
x=InputBox("Input")
Select Case x
Case 1,3
Print "分支 1"
Case Is >4
Print "分支 2"
Case Else
Print "Else 分支 "
End Select
End Sub
程序运行后,如果在输入对话框中输入2,则窗体上显示的是
A.分支1                                                     B.分支2
C.Else分支                                                  D. 程序出错
4.如果要改变窗体的标题,则需要设置的属性是
A.Caption                                                    B.Name
C.BackColor                                                D.BorderStyle
5.设有语句 open "c:\Test.Dat" For Output As#1,则以下正确的叙述是
A.该语句打开C盘根目录下一个已存在的文件Test.Dat;如果文件不存在,则出错
B.该语句以只读的方式打开一个名为Test.Dat的文件
C.该语句建立的文件的文件号为1
D.执行该语句后,就可以通过Input#语句从文件Test.Dat中读取信息
6.在程序代码中,将图片文件“abc.jpg”装入图片框Picture1的语句是
A.Picture1.Picture = "abc.jpg"
B.Picture1.image = "abc.jpg "
C.Picture1.Picture = LoadPicture("abc.jpg")
D.LoadPicture("abc.jpg")
7.可以惟一标识控件数组中的每一个控件属性的是
A.Name                                                       B.Caption
C.Index                                                       D.Enabled
8.执行指令“Circle (1000,1000),500,8,-6,-3”将绘制
A.圆                                                            B.椭圆
C.圆弧                                                        D.扇形
9.名为Sort的Sub子过程的形式参数为一数组,以下的定义语句中正确的是
A.Private Sub Sort(A() As Integer)
B.Private Sub Sort(A(10) As Integer)
C.Private Sub Sort(ByVal A() As Integer)
D.Private Sub Sort(A(,) As Integer)
10.创建一个名为“文件”的菜单项,欲使其可用Alt+F方式访问,则在菜单编辑器的标题文本框中应输入
A.文件($F)                                                  B.文件(&F)
C.文件(#F)                                                  D.文件(%F)
 
二、判断题(本大题共10小题,每小题1分,共10分)
判断下列各题,在答题纸相应位置正确的涂“A”,错误的涂“B”。
11.事件可以由用户触发,也可以由系统触发。
12.Visual Basic的单行结构条件语句应在一行写完,如果一行写不完,只能采用多行结构。
13.对于滚动条控件,在一次拖动滚动块的操作中,只发生一次Change事件。
14.形状控件的BorderWidth属性决定形状控件所绘制的几何图形的宽度。
15.执行Unload Forml语句后,窗体Forml消失,但仍在内存中。
16.目录列表框的Path属性只能在程序代码中设置,不能在设计阶段设置。
17.在Visual Basic中,控件数组可以由不同类型的控件组成。
18.在函数过程定义时,如果不指明函数过程参数的类型,则该参数没有数据类型。
19.在窗体的Form_Load事件过程中定义的变量是全局变量。
20.复选框的Value属性为1时,表示复选框被选中。
三、程序填空题(本大题共11小题,每小题2分,共22分)
(一)【程序说明】在图片框坐标系中,左上角的坐标为(-100, 100),右下角坐标为(100, -100),在文本框中输入弧度制的角度值,单击命令按钮,图片框内将生成带有坐标系的角度。
【程序】
Private Sub Form_Load()
  21 
Text1 =""
Text1.TabIndex = 0
Command1.Enabled = False
End Sub
Private Sub Command1_Click()
Picture1.Cls
Picture1.CurrentX =  22 
Picture1.CurrentY = 0
Picture1.Print "(0, 0)"
Picture1.Line   23 
Picture1.Line (0, -100)-(0, 100)
Picture1.Line   24 
Command1.Enabled = False
End Sub
Private Sub Text1_Change()
Command1.Enabled = True
End Sub
【供选择的答案】
21.A.Scale (-100, 100)-(100, -100)
B.Picture1.Scale (100, -100)-(-100, 100)
C.Picture1.Scale (-100, 100)-(100, -100)
D.Scale (100, -100)-(-100, 100)
22.A.50                                                       B.0
C.-100                                                        D.100
23.A.(0, 100)-(-100, 0)                                 B.(100, 0)-( 0, -100)
C.(100,-100)-( 0,-100)                                  D.(-100, 0)-(100, 0)
24.A.(0, 0)-(100 * Cos(Val(Text1.Text)), 100 * Sin(Val(Text1.Text)))
B.(0, 0)-(100 * Sin(Val(Text1.Text)), 100 * Cos(Val(Text1.Text)))
C.(0, 0)-(100 * Cos(Val(Text1.Text)), 100 * Cos(Val(Text1.Text)))
D.(0, 0)-(100 * Sin(Val(Text1.Text)), 100 * Sin(Val(Text1.Text)))
(二)【程序说明】该程序调用通用对话框控件,并在“打开”对话框窗口中只显示扩展名为“.txt”的文本文件,选中并打开其中的某个文本文件,将该文件中的数据逐行读入到字符串变量str中,并在Text1中显示出来。
【程序】
Private Sub Command1_Click()
Dim str as string
CommonDialog1.ShowOpen
CommonDialog1.   25 
Open CommonDialog1.FileName For   26 
Do While Not   27 
  28 
Text1.text = Text1.text + str
Loop
Close #2
End Sub
【供选择的答案】
25.A.FilterName ="文本文件|*.txt"                B.FilterName = "文本文件; *.txt"
 C.Filter = "文本文件|*.txt"                          D.Filter = "文本文件; *.txt"
26.A.Append as #2                                       B.output As #2
C.Input                                                       D.Input As #2
27.A.EOF(1)                                                B.EOF(2)
C.EOF(#1)                                                  D.EOF(#2)
28.A.Line Input #2, str                                  B.Line Input str,#2
 C.Line Input 2, str                                      D.Line Input str, 2
(三)【程序说明】该程序的功能是随机产生20个两位数,从中找出最大的元素和最小的元素,请完善程序完成上述功能。
【程序】
Option Base 1
Private Sub Command1_Click()
Dim a(20) As Integer, i As Integer
Dim max As Integer, min As Integer
Randomize
For i = 1 To 20
a(i) =   29 
Print a(i);
Next i
Print
max = a(1): min = a(1)
For i = 2 To 20
If a(i) > max Then
  30 
ElseIf   31   Then
min = a(i)
End If
Next i
Print "最大数是:"; max
Print "最小数是:"; min
End Sub
【供选择的答案】
29.A.Int((Rnd*90)+10)                             B.Int((Rnd*89)+10)
C.Rnd*90+10                                              D.Int(Rnd*90)
30.A.a(i)=max                                              B.max= a(i)
C.max=i                                                      D.i=max
31.A.a(i)<min                                              B.min>a(i)
C.max<a(i)                                                  D.max<=a(i)
 
四、程序阅读题(本大题共11小题,每小题2分,共22分)
(一)【程序】
Private Sub Command1_Click()
Dim w As Integer, n As Integer
Static m As Integer
w = 1∶ n = w * 2
m = n + m
n = m + n
Print w; m; n
End Sub
【问题与供选择的答案】
32.运行程序后,第1次单击command1在窗体显示的结果为
A.1 3 5                                                       B.1 2 4
C.1 2 3                                                        D.2 2 3
33.当第二次单击命令按钮Command1时,窗体上显示的结果为
A.1 5 7                                                       B.1 2 4
C.1 4 6                                                        D.2 2 3
34.当将程序中的Static m As Integer改为dim m As Integer时,第一次单击命令按钮Command1时,窗体上显示的结果为
A.1 3 5                                                       B.1 2 4
C.1 2 3                                                        D.2 2 3
35.如题(34),第二次单击命令按钮Command1时,窗体上显示的结果为
A.1 5 7                                                       B.1 2 4
C.1 4 6                                                        D.2 2 3
(二)【程序】
Private Sub Form_Load()
Picture1.Picture=LoadPicture("c:\pic\mouth.ico")
Timer1.Enabled=true
Timer1.Interval=2000
End Sub
Private Sub Timer1_Timer()
Static x,y As Integer
x=x+100
y=y+100
Pictuer1.Move x,y
End Sub
【问题与供选择的答案】
36.该程序执行的结果是
A.窗体中的图片框以每2秒钟一次的速度向窗体的右下角移动
B.窗体中的图片框以每2秒钟一次的速度向窗体的左下角移动
C.窗体中的图片框以每20秒钟一次的速度向窗体的右下角移动
D.窗体中的图片框以每20秒钟一次的速度向窗体的左下角移动
37.如果将程序中的Static x,y As Integer改为dim x,y As Integer,该程序执行的结果为
A.窗体中的图片框逐渐向窗体的右下角移动,每次向右、向下移动100twip
B.窗体中的图片框逐渐向窗体的左下角移动,每次向左、向下移动100twip
C.窗体中的图片框向左、向下移动100twip后保持不动
D.窗体中的图片框向右、向下移动100twip后保持不动
38.如果要是时钟控件失效,则可以进行的操作是
A.Timer1.Enabled=false
B.Timer1.Interval=0
C.Timer1.Enabled=false或者Timer1.Interval=0
D.Timer1.Enabled=false并且Timer1.Interval=0
39.如果要清除图片框Picture1中的图片,应该执行的语句为
A.Picture1.Cls                                              B.Picture1.Clear
C.Picture1.Picture = ""                                  D.Picture1.Picture = LoadPicture("")
(三)【程序】
Private Sub Form_Click()
Dim s As String, t As String
Dim k As Integer, m As Integer
s = "happy!"
k = 1: m = k
For k = 1 To Len(s) Step 2
t = t & Chr(Asc(Mid(s, m, 1)) + k)
k = k + 1
If Mid(s, k, 1) = "!" Then Exit For
m = m + k
Print t,
Next k
Print m
End Sub
【问题与供选择的答案】
40.程序运行后单击窗体,窗体上显示的结果为
A.i is 7                                                        B.i is 8
C.i it 7                                                        D.i it 8
41.程序中For循环运行的总次数为
A.1                                                             B.3
C.5                                                             D.7
42.程序中For循环的退出方式为
A.执行Exit For                                           B.循环变量k等于最大值
C.循环变量k大于最大值                            D.异常退出
非选择题部分
注意事项:
    用黑色字迹的签字笔或钢笔将答案写在答题纸上,不能答在试题卷上。
 
五、程序设计题(本大题共2小题,每小题13分,共26分)
43.由输入对话框中输入100个数值数据,放入数组a,将其中的整数放入数组b,然后运用选择分类将数组b中的数据按从大到小的顺序排列,并以每行5个数据在窗体上输出。
注:程序写在窗体form的click事件上。
44.编写程序生成一个由两位随机正整数组成的5行4列二维数组,将其在图片框中输出。要求生成两位随机正整数二维数组由通用过程实现。


广西大学自考网(www.gxdxzk.net)全面专业提供广西大学自考、成考录取分数线,自考双证专业招生报考、录取通知、实习工作推荐等最新信息!

1999-2018年© 地址:广西壮族自治区南宁市大学东路100号 联系电话:130-7779-7353 陈老师;133-0771-1544 刘老师
广西大学自考:广西大学自考 本站关键词:广西大学自考 广西大学自考
  • 电话咨询

  • 13307711544