南 方 医 科 大 学计算机二考试试题.docx
《南 方 医 科 大 学计算机二考试试题.docx》由会员分享，可在线阅读，更多相关《南 方 医 科 大 学计算机二考试试题.docx（16页珍藏版）》请在冰点文库上搜索。
南方医科大学计算机二考试试题
南方医科大学
2009学年（春）季学期考试
临床医学,预防医学,公共事业管理（医院管理）,经济学,
《计算机二》试卷（A卷）
姓名学号专业年级
考试日期:
2010-7-15
学时数：
答卷时间：
14:
00--15:
40
负责人:
席卫文
题号
一
二
合计
题型
A1型题
编程题
满分
60
40
100
得分
评卷人
得分：
一、A1型题（答题说明：
单句型最佳选择题。
每一道考题下面均有五个备选答案。
在答题时，只需从中选择一个最合适的答案，并在显示器选择相应的答案或在答题卡上相应位置涂黑，以示正确回答。
每题1.5分，合计60分。
）
1.Sub过程与Function过程最根本的区别是c。
A.Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以
B.Function过程可以有形参，Sub过程不可以
C.Sub过程不能返回值，而Function过程能返回值
D.两种过程参数的传递方式不同
2.执行下面的语句后,所产生的信息框的标题是C
a=MsgBox（"AAAA",5,"BBBB"）
A.AAAA
B.5
C.BBBB
D.没有标题
3.下列符号中哪个是VB程序中合法的变量名 A
A. ab7
B. 7ab
C. If
D. a*bc
4.设置属性的语句格式为A
A.“对象名．属性名＝属性值”
B.“对象名．属性名属性值”
C.“窗体名．属性名＝属性值”
D.“窗体名．属性名属性值”
5.若用户在键盘上按下一个键，则会产生一个____事件B
A. click
B. KeyDown
C. DbClick
D. Load
6.在密码文本框中，要使从键盘上输入的字符在文本框上显示为“*”，则应用到文本框的______属性 。
A
A PasswordChar
B Caption
C Value
D word
7.标准控件不包括（ ）控件。
D
A. 驱动器列表框
B. 目录列表框
C. 文件列表框
D. 通用对话框
8.下列叙述错误的是（）。
A
A不允许使用行号与标号
B单条语句可分行书写
C同一行上可以书写多条语句
DVB代码不区分字母的大小写
9.下列叙述正确的是_____B
A窗体的Name属性可以为空
B窗体的Name属性定义窗体的名称
C可以在运行期间改变窗体的Name属性
D窗体的Name属性的值显示在窗体标题栏中
10.下列叙述错误的是_____A
A标签和文本框都有Caption属性
B标签和文本框的主要区别在于能否编辑其内容
C标签具有AutoSize属性，而文本框没有
D文本框具有ScrollBar属性，而标签没有
11.能清除文本框Text1中内容的语句是____B_
AText=""
BText1.Text=""
CText1.clear
DText1.Cls
12.复选框的Value属性为0表示_____A
A复选框未被选中
B复选框被选中
C复选框内有灰色的钩
D操作出错
13.下列____语句设置单选按钮Option1为选中状态。
B
AOption1.Value=0
BOption1.Value=True
COption1.Value=1
DOption1.Value=False
14.用______分隔同一窗体中的多组单选按钮，使它们互不干扰。
A
A框架
B组合框
C复选框
D列表框
15.设用复制、粘贴的方法建立一个命令按钮数组Command1，以下对该数组说法错误的是:
B
A、命令按钮的所有Caption属性都是Command1
B、在代码中访问任意一个命令按钮只需要使用名称Command1
C、命令按钮的大小都相同
D、命令按钮共享相同的事件过程
16.以下说法错误的是（）。
B
A.控件数组是一组具有相同名称、相同类型和相同事件过程的控件。
///
B.常用索引号（Index）来标识各个数组控件,第一个索引号默认为1。
C.通常如果一组控件的功能和外观都很类似（属于同一类）,则可以采用控件数组的方法来处理。
D.控件数组可以共享代码,避免了重复劳动,同时还能够提高程序的可读性。
17.下列_____不是VisualBasic程序的基本结构。
A
A、层次结构
B、分支结构
C、循环结构
D、顺序结构
18.符号常量的声明要使用关键字。
A
A.Const
B.Public
C.Private
D.Static
19.在ForNext循环结构中，如果要做递减循环，则步长值必须。
B
A.>0
B.<0
C.=0
D.=1
20.下列不合法的变量名是_____。
D
A、name1
B、e3
C、r_3
D、we-5
21.下面_____类型只有True和False两个取值。
A
A.逻辑
B.字符
C.货币
D.日期
22.设有以下循环结构 A
Do
循环体
Loop While <条件>
则以下叙述中错误的是
A.循环体有可能一次也不执行
B."条件"可以是关系表达式、逻辑表达式或常数
C.循环体中可以使用Exit Do语句
D.如果"条件"总是为True，则不停地执行循环体
23.下面的循环语句可以在一行上输出____个“*”号。
C
Fori=1To40
Print“*”;
Nexti
A.38
B.39
C.40
D.41
24.表达式含多个运算符时，先完成（）A。
A.括号内运算
B.函数运算
C.算术运算
D.关系运算E,notandor,逻辑
25.设a=“VisualBasic”，下面使b=“Visual”的语句是D
A.b=Left（a,8,12）
B.b=Mid（a,8,5）
C.b=Rigth（a,6）
D.b=Left（a,6）
26.在VB代码中，将多个语句合并写在一行上的并行符是（）B
A. 撇号（’）
B. 冒号（：
）
C. 感叹号（！
）
D. 星号（*）
27.设计一个函数过程，当条件不满足时，提供报告错误信息，并使程序从特殊出口退出，需要用（）语句。
D
A.EndSub
B.ExitSub
C.EndFunction
D.ExitFunction
28.以下说法错误的是______。
A
A. 函数过程没有返回值
B.子过程没有返回值
C.函数过程可以带参数
D.子过程可以带参数
29.调用Common Dialog控件的_____方法可以显示“字体”对话框。
C
A、ForeColor
B、Fore
C、ShowFont
D、 Font
30.下列关于目录列表框的Path属性的作用说法正确的是_____C
A、显示根目录下的目录和文件名
B、显示当前目录下的文件
C、显示当前驱动器或指定驱动器上某目录下的文件名
D、显示当前驱动器或指定驱动器上的目录结构
31.ListBox控件中有关List属性和Text属性描述错误的一项是____D
A、List是ListBox中所有列表项的集合，是一个数组
B、List1.List
（1）代表List1中的第一个列表项
C、Text属性代表ListBox当前选中的列表项
D、List1.Text与List1.List（List1.ListIndex）的效果一样
32.在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是（ ）。
D
A.Timer1.InterVal=0.5
B. Timer1.Interval=5
C. Timer.Interval=50
D. Timer1.Interval=500
33.属性BorderColor的作用是（）A
A设置直线颜色和形状边界颜色
B 设置直线或形状背景颜色
C设置直线或形状边界线的线型
D 设置形状的内部颜色
34.以下叙述中错误的是（）C
A.VisualBasic是事件驱动型可视化编程工具
B.VisualBasic应用程序不具有明显的开始和结束语句
C.VisualBasic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性
D.VisualBasic中控件的某些属性只能在运行时设置
35.如果要改变窗体的标题，则需要设置的属性是（）A
A.Caption
B.Name
C.BackColor
D.BorderStyle
36.用来设置文本框有无滚动条的属性是（A）
A.ScrollBars
B.MultiLine
C.SelText
D.SelLength
37.下列控件运行时不可见的是___C_
A、命令按钮
B、组合框
C、通用对话框
D、文本框
38.在过程调用中，“实参”和“形参”中对应的（）C：
A.参数个数不必相等。
B.参数类型不必相同。
C.参数个数和类型和位置都必须相同。
D.以上都不对。
39.当一个工程含有3个窗体时，其中的启动窗体是（D）。
A.启动VisualBasic时建立的窗体。
B.第一个添加的窗体Form1。
C.最后一个添加的窗体Form3。
D.在"工程属性"对话框中指定的窗体。
40.要在代码编辑器的“通用/声明”段部分定义私有Function函数，则正确的是（）。
D
A.PublicSub
B.PublicFunction
C.PrivateSub
D.PrivateFunction
得分：
二、编程题（答题说明：
根据给出条件，完成相应的代码，或者算出结果。
每题2分，合计40分。
）
41.某人设计了下列程序用于计算并输出5!
（5的阶乘）：
PrivateSubCommand1_Click（）A
t=0
Fork=5To2Step-1
t=t*k
Nextk
Printt
EndSub
执行程序时，发现结果是错误的。
下列修改方案中能够得到正确结果的是_______
A.把t=0改为t=1
B.把Fork=5To2Step-1改为Fork=5To1Step-1
C.把Fork=5To2Step-1改为Fork=1To5
D.把Next改为Nextt
42.下列程序段的执行结果为C
a=5
Fork=1To0
a=a+k
Nextk
Printk;a
A.-16
B.-116
C.15
D.1121
43.在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
PublicxAsInteger
PrivateSubCommand1_Click（）
DimyAsInteger
x=10:
y=5
Callf（x,y）
Printx;y
EndSub
PrivateSubf（x1AsInteger,y1AsInteger）
x1=x+2
y1=y+2
EndSub
程序运行后，单击命令按钮，在窗体上显示的内容是_____C_______。
A.105
B.127
C.122
D.以上都不对
44.下列程序段运行后，其运行结果是_C_____。
Dim a（3） As Integer, b（3） As Integer
For k = 0 To 3
a（k） = k*k +k
b（k） = a（k）-k
Next k
Print a
（2） + b
（1）
A. 5
B. 6
C. 7
D. 8
45.下列表达式的值是字符串型的是______B__。
A．5^2+114/5
B．”2007”&”4”
C．”abcd”<”bcde”
D．（b^（1/3）*5>2） and “bde”>”tre”
46.下列_____表达式的值不等于4。
D
A、Int （4.1）
B、Int （4.9）
C、Abs （int（-3.9））
D、Abs （int （-4.5））
47.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（）
Dim num As Integer
num = 1
Do Until num > 6
Print num;
num = num + 2.4
Loop
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是 A
A）1 3.4 5.8
B）1 3 5
C）1 4 7
D）无数据输出
48.运行下列程序段后，j3显示的结果为D
J1=23
J2=32
j3=j1 & J2
A 3223
B 23
C 55
D 2332
49.计算z的值，当x大于y时，z=x；否则z=y。
下列语句错误的是 D
A. If x>=y Then z=x :
z=y
B If x>=y Then z=x Else z=y
C. z=y :
If x>=y Then z=x
D. If x<=y Then z=y Else z=x
50.下列程序段的执行结果为B
a=1
b=1
ForI=1To3
f=a+b
a=b
b=f
Printf;
NextI
A. 236
B. 235
C. 234
D. 228
51.在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。
程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程是（ A）。
A． Private Sub Text1_Change（）
Command1.Caption ="计算机等级考试"
End Sub
B． Private Sub Command1_ Click （）
Caption = "计算机等级考试"
End Sub
C． Private Sub Form1_ Click （）
Text1.Caption = "计算机等级考试"
End Sub
D． Private Sub Command1_ Click （）
Text1.Text = "计算机等级考试"
End Sub
52.把窗体的KeyPreview属性设置为True，然后编写如下事件过程
PrivateSubForm_KeyPress（KeyAsciiAsInteger）
DimchAsString
ch=Chr（KeyAscii）
KeyAscii=Asc（UCase（ch））
PrintChr（KeyAscii+2）
EndSub
程序运行后，按键盘上的“A”键，则在窗体上显示的内容是（ C ）。
A．A
B．B
C．C
D．D
53.在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：
PrivateSubCommand1_Click（（）
a=InputBox（（“请输入日期（1~31）”）
t=”旅游景点：
”_
&IIf（a>0Anda<=10,”长城”,””）_
&IIf（a>10Anda<=20,”故宫”,””）_
&IIf（a>20Anda<=31,”颐和园”,””）
Text1.Text=t
EndSub
程序运行后，如果从键盘上输入16，则在文本框显示的内容是（ D ）。
A．旅游景点：
长城故宫
B．旅游景点：
长城颐和园
C．旅游景点：
颐和园
D．旅游景点：
故宫
54.在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是（D ）。
A） Private Sub List1_Click（）
Label1.Caption = List1.ListIndex
End Sub
B） Private Sub List1_Click（）
Label1.Name = List1.ListIndex
End Sub
C） Private Sub List1_Click（）
Label1.Name = List1.Text
End Sub
D） Private Sub List1_Click（）
Label1.Caption = List1.Text
End Sub
55.计算n!
的函数过程如下：
PrivateFunctionfact（nAsInteger）AsLong
f=1
Fori=1Ton
f=f*i
Nexti
（___________________）
EndFunction
下划线处需要编写的语句是（C）。
A.f=1
B.f=fact
C.fact=f
D.不需要其他任何语句
56.设有Function过程:
Private Function f（a As Integer, b As Integer） As Integer
a = a * a:
b = b * b
f = CInt（Sqr（a - b））
End Function
则如下程序段的运行结果是（ C ）。
Private Sub Command1_Click（）
Dim X As Integer, Y As Integer
X = 5:
Y = 4
a = f（X, Y）
Print a
End Sub
A. 5
B. 4
C. 3
D. 9
57.设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框。
要求单击Commandl按钮时可把光标移到文本框中。
下列正确的事件过程是（A）。
A.PrivateSubCommandl_Click（）
Textl.SetFocus//
EndSub
B.PrivateSubCommandl_Click（）
Commandl.GotFocus
EndSub
C.PrivateSubCommandl_Click（）
Textl.GotFocus
EndSub
D.PrivateSubCommandl_Click（）
Commandl.SetFocus
Endsub
58.执行以下程序，在窗体上输出（A）。
PrivateSubCommand1_Click（）
Dima（20）AsInteger
Forj=1To20Step2
a（j）=j
Nextj
Printa
（1）+a
（2）+a（3）
EndSub
A.4
B.5
C.6
D.7
59.'下面的程序运行时，单击窗体后，窗体上显示的结果是（B）。
PrivateSubForm_Click（B）
Dima（1To5）AsInteger
a
（1）=2:
a
（2）=3:
a（3）=1:
a（4）=5:
a（5）=4
n=5
Fori=1Ton-1
Min=i
Forj=i+1Ton
Ifa（j）Nextj
t=a（i）:
a（i）=a（Min）:
a（Min）=t
Nexti
Fori=1Ton
Printa（i）;
Nexti
EndSub
A.23154
B.12345
C.98765
D.55555
60.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体大小将根据所选择的单选按钮变化。
请选择合适的语句（D）完善程序。
PrivateSubOption1_Click（IndexAsInteger）
DimaAsInteger
SelectCaseIndex
Case0:
a=10
Case1:
a=20
Case2:
a=30
EndSelect
（_________________）=a
EndSub
A.Text1.Text
B.Text1.Font
C.Text1.FontName
D.Text1.FontSize
升级会员 