程序设计期末考试试卷A附答案

1、*学院2009-2010学年第二学期VB程序设计期末考试试卷（A）附答案一、选择题（2分/题，共60分）（1）要设置窗体上各控件的属性，可以在中进行。 A “窗体布局”窗口 B “工程资源管理器”窗口 C “属性”窗口 D “对象”窗口（2）下面程序段能够正确实现目的：如果 x<y, 则a=15, 否则a=-15。 A If x<y Then a=15 a=-15 Print a B if x<y Then a=15:Print a a=-15: Print a C If x<y Then a=15: Print a Else A=-15: Print a End if

2、 D If x<y Then a=15 a=-15 Print a End if（3）VB 窗体设计器的主要功能是。 A 建立用户界面 B 编写源程序代码 C 画图 D 显示文字（4）文本框控件的值是属性。 A Caption B Value C Index D Text（5）双击窗体中的对象后，VB 将显示的窗口是。 A 工具箱 B “工程”窗口 C “代码”窗口 D “属性”窗口（6） 下列程序段的执行结果是。 X=int (Rnd()+4) Select case x Case 5 Print “优秀” Case 4 Print “良好” Case 3 Print”通过” Case

3、 else Print”不通过” End select A 优秀 B 良好 C 通过 D 不通过（7）下列哪个不是窗体的属性。 A Caption B Text C ControlBox D BorderStyle（8）设组合框Combo1 中有 3 个项目,则以下能删除最后一项的语句是。 A Combo1.RemoveItem Text B Combo1.RemoveItem 2 C Combo1.RemoveItem 3 D Combo1.RemoveItemCombo1.Listcount（9）窗体BorderStyle 属性的功能是。 A 设置窗体的边框大小 B 设置窗体的边框样式，是

4、否显示标题栏，是否可以调整大小等 C 决定是否显示窗体的控制菜单图标与状态控制按钮 D 决定窗体的最大化或最小化按钮是否有效（10）下列可作为VB 的变量名的是。 A c*Del B Alpha C 4a D print（11）要把一个命令按钮设置成无效，应设置其哪一属性值。  A）Visible  B）Enabled   C）Default    D）Cancel （12） 下列不能作为VB 所允许的常量是。 A &O148 B “china” C 3E2 D &H2a（13）是指控件本

5、身所具有的、反映该控件功能的内部函数或过程。 A 方法 B 事件 C 属性 D 控件（14）表达式 33Mod 173*2 的值是。 A 10 B 1 C 2 D 3（15）表达式int (123.4567*100+0.5)/100的值是。 A 123.47 B 123.45 C 123.461 D 123（16）不属于VB6 集成开发环境工作状态的是。 A “设计”状态 B 编写代码状态 C “运行状态” D “中断状态” （17）工程文件的扩展名是。 A frm B vbp C bas D frx （18）提供控件的窗口是。 A “对象”窗口 B “立即”窗口 C 工具箱 D 工具栏（19

6、）变量x=1234.5678 , 要保留两位小数四舍五入输出，如输出结果为1235.57，正确的方法是。 A Print Format(x,”#.#”) B Print Format(”#.#”,x) C Print Format(x,”00000.00”) D Print Format(”00000.00”,x)（20）要显示一个对话框，提示用户输入一个数据，并且对话框中要显示的提示信息位“请输入一个整数”，正确的是。 A Word=MsgBox(“请输入一个整数：”，”输入”) B Word=MsgBox(”输入”，“请输入一个整数：”) C Word=InputBox(“请输入一个整数：

7、”，”输入”) D Word=InputgBox(”输入”，“请输入一个整数：”)（21）用于字符串连接的运算符是。 A & B + C And D A、B 都可以（22）以下拥有 Print 方法的对象是。 A 窗体 B 图片框 C 打印机 D 以上都有（23）设 a=2, b=3, c=4, d=5, 下列表达式的值是。 NOT a<=c OR 4*c=b2 AND b<>a+c A -1 B 1 C True D False（24）代码 Print “test”&”=”,3*6显示的结果为。 A test= 18 B test=18 C test = 1

8、8 D test =18（25）在 VB 中，通过改变列表框属性的值，可以为列表框添加项目。 A List B （名称） C Caption D Text（26）在 VB 中，复选框（Check）的 Value 值有3种，分别是。 A -1，0，1 B 0, 1, 2 C 1，2，3 D True, False, 0（27）下列程序段的执行结果是。 X=5 Y=-20 If not x>0 then x=y-3 else y=x+3 Print x-y; y-x A -3 3 B 5 -8 C 3 -3 D 25 -25(28)要把Print 方法输出的文字显示为粗体字，应该设置属性。

9、A FontBold B FontName C FontSize D FontItalic（29）设 a=2, b=3, c=4, d=5, 下列表达式的值是。 3>2*b OR a=c AND b<>a+c A 1 B True C False D -1（30）如果要在代码窗口内将表单Form1 的Caption 属性设置为“时钟”，正确的书写形式是。 A Form.Caption “时钟” B Form.Caption = “时钟” C .Caption = “时钟” D Form.Caption(“时钟”)二、判断题（1分/题，共10分，对用T表示，错用F表示）（ ）1

10、、设置属性的语句格式为：“对象名属性名属性值”。（）2、在窗体或模块文件中声明为Private的过程，只能被本窗体或模块中的过程所调用。（）3、的赋值语句只能给变量赋值。（）4、在中，字符型常量应使用号将其括起来。（）5、窗体大小只能通过鼠标拖动窗体边框来设置。（）6、VB的Double类型数据，可以精确表示其数值范围内的所有实数。（ ）7、若用户在键盘上按下一个键，则会产生一个Click事件。（）8、罗马数制是进位计数制。（）9、事件过程可以由用户事件触发执行，也可以由其他过程所调用。（）10、Do While条件.Loop和DO Until Not 条件.Loop 两条循环语句，实现循环控

11、制是等效的。三、读程序并填空题（每空2分，共10分）1. j1=10 j2=30 If j1<j2 Then Print j2; j1运行上程序段后，现实的结果是_ , _ A 10 B 30 C 10 30 D 30 102. 下列程序段的执行结果是_ , _ X=5 Y=-20 If not x>0 then x=y-3 else y=x+3 Print x-y; y-x3. Private Sub Form_Click( )Dim A as integerA=200If A<100 Then A=A*10If A>1000 Then A=A10 ElseA=A10

12、EndifElseA=A / 10If A=10 Then A=A10 ElseA=A10EndifEndifMsgbox Str(A)End Sub运行程序，单击窗体Form1，消息框中显示:4.Function F(a As Integer) Dim b As Integer Static c As Integer b = b + 2 c = c + 2 F = a + b + cEnd FunctionPrivate Sub Command1_Click() Dim a As Integer a = 4 For i = 1 To 3 Print F(a) Next iEnd Sub写出程

13、序运行时，单击命令按钮在窗体上的输出结果。5. Private Sub Form_Click()Dim c As Integer, j As Integer, k As Integerk = 0c = 1For j = 1 To 6 If j > 4 Then c = c + 4 Exit For Else k = k + 1End IfNext jPrint c, kEnd Sub 写出程序运行时单击窗体后，c,k的值分别是：四、编写程序（每题10分，共20分）1.购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在200元以上者，按9.5折优惠；

14、（2）在300元以上者，按9折优惠；（3）400元以上者，按8折优惠；（4）600元以上者按7折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠后的价格。程序运行结果如图1所示。 图1 程序运行效果2.实现课对所选择课程进行统计现实，下如图2所示：图2 程序运行效果答案一、选择题（每题2分，共60分）12345678910CCADCBBBBB11121314151617181920BABBAABCAB21222324252627282930DADADBAABC二、判断题（1分/题，共10分）12345678910TTTFFT

15、FFTT三、读程序并填空题（每空1分，共10分）1. 30 102. -3 3 3. 304. 8 10 125. 5 4四、编写程序（每题10分，共20分）1. Private Sub Command1_Click()（1分） Dim x As Single, y As Single x = Val(Text1.Text) （1分） If x < 200 Then（2分） y = x Else If x < 300 Then（2分） y = 9.5 * x Else If x < 400 Then（2分） y = 0.9 * x Else If x < 600 The

16、n（2分） y = 0.8 * x Else y = 0.7 * x End If End If End If End If Text2.Text = yEnd Sub2.Dim i As IntegerPrivate Sub Check1_Click()（2分）If Check1.Value = 1 Theni = i + 1End IfIf Check1.Value = False Theni = i - 1End IfEnd SubPrivate Sub Check2_Click()（2分）If Check2.Value = 1 Theni = i + 1End IfIf Check2.Value = False Theni = i - 1End IfEnd SubPrivate Sub Check3_Click()（2分）If Check3.Value = 1 Theni = i + 1End IfIf Check3.Value = False Theni = i - 1End IfEnd SubPrivate Sub Check4_C