《VB程序设计》期末考试试卷(A)附答案

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

2、15PrintaEndif(3) VB窗体设计器的主要功能是 oA建立用户界面B编写源程序代码C画图D显示文字(4)文本框控件的值是 属性。ACaptionBValueCIndexDText(5)双击窗体中的对象后，VB将显示的窗口是。A工具箱B “工程”窗口C “代码”窗口 D “属性”窗口(6)下列程序段的执行结果是。X=int(Rnd()+4)SelectcasexCase5Print “优秀”Case4Print “良好”Case3Print ” 通过”CaseelsePrint ”不通过”EndselectA优秀B良好C通过D不通过(7)下列哪个不是窗体的属性。ACaptionBTe

3、xtCControlBoxDBorderStyle(8)设组合框Combo件有3个项目，则以下能删除最后一项的语句是ACombo1.RemoveItemTextBCombo1.RemoveItem2CCombo1.RemoveItem3DCombo1.RemoveItemCombo1.Listcount(9)窗体BorderStyle 属性的功能是。A设置窗体的边框大小B设置窗体的边框样式，是否显示标题栏，是否可以调整大小等C决定是否显示窗体的控制菜单图标与状态控制按钮D决定窗体的最大化或最小化按钮是否有效(10)下列可作为 VB的变量名的是 oAc*DelBAlphaC4aDprint(11

4、)要把一个命令按钮设置成无效，应设置其哪一属性值。A VisibleB ) EnabledC) DefaultD ) Cancel(12)下列不能作为 VB所允许的常量是 oA&O148B“china ”C3E2D&H2a(13) 是指控件本身所具有的、反映该控件功能的内部函数或过程。A方法B事件C属性D控件(14)表达式33Mod173*2的值是。A10B1C2D3(15)表达式 int(123.4567*100+0.5)/100 的值是。A123.47B123.45C123.461D123(16)不属于VB6集成开发环境工作状态的是。A “设计”状态B编写代码状态C “运行

5、犬态” D “中断状态”(17)工程文件的扩展名是 oAfrmBvbpCbasDfrx(18)提供控件的窗口是。A “对象”窗口 B “立即”窗口C工具箱D工具栏(19)变量x=1234.5678,要保留两位小数四舍五入输由，如输生结果为 1235.57,正确的方法是。APrintFormat(x, " #.#")BPrintFormat( " #.#" ,x) CPrintFormat(x, ” 00000.00 " )DPrintFormat( ” 00000.00 ” ,x)(20)要显示一个对话框，提示用户输入一个数据，并且对话框中要显

6、示的提 示信息位“请输入一个整数”，正确的是。AWord=MsgBox( “请输入一个整数："，"输入” )BWord=MsgBox输入”，“请输入一个整数：”)CWord=InputBox( “请输入一个整数："，"输入” )DWord=InputgBox( "输入”，“请输入一个整数：”)(21)用于字符串连接的运算符是。A&B+CAndDA B都可以(22)以下拥有Print方法的对象是。A窗体B图片框C打印机D以上都有(23)设a=2,b=3,c=4,d=5,下列表达式的值是。NOTa<=cOR43bA2ANDb<&

7、gt;a+cA-1B1CTrueDFalse(24)代码Print “ test " & = ,3*6显示的结果为。Atest=18Btest=18Ctest=18Dtest=18(25)在VB中，通过改变列表框 属性的值，可以为列表框添加项目。AListB (名称)CCaptionDText(26)在VB中，复选框(Check)的Value值有3种，分别是。A-1 , 0, 1B0,1,2C1, 2, 3DTrue,False,0(27)下列程序段的执行结果是。X=5Y=-20Ifnotx>0thenx=y-3elsey=x+3Printx-y;y-x A-33B5-

8、8 C3-3D25-25 (28)要把Print方法输由的文字显示为粗体字，应该设置属性。AFontBoldBFontNameCFontSizeDFontItalic(29)设a=2,b=3,c=4,d=5,下列表达式的值是。3>2*bORa=cANDb<>a+cA1BTrueCFalseD-1(30)如果要在代码窗口内将表单 Form1的Caption属性设置为“时钟”，正 确的书写形式是。AForm.Caption “时钟” BForm.Caption= "时钟”C.Caption= "时钟” DForm.Caption( “时钟”)二、判断题(1分/

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

10、和 DOUntilNot 条件.Loop两条循环语句，实现循环控制是等效的。三、读程序并填空题(每空 2分，共10分)j1=10j2=30Ifj1<j2ThenPrintj2;j1运行上程序段后，现实的结果是 A10B30C1030D30101235.58下列程序段的执行结果是,X=5Y=-20Ifnotx>0thenx=y-3elsey=x+3Printx-y;y-x1235.59PrivateSubForm_Click()DimAasintegerA=200IfA< = 100ThenA=A*10IfA>1000ThenA=A- 10ElseA=A+ 10Endif

11、ElseA=A/10IfA=10ThenA=A- 10ElseA=A+- 10EndifEndifMsgboxStr(A)EndSub运行程序，单击窗体 Forml,消息框中显示：1235.60FunctionF(aAsInteger)DimbAsIntegerStaticcAsIntegerb=b+2c=c+2F=a+b+cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=4Fori=1To3PrintF(a)NextiEndSub写生程序运行时，单击命令按钮在窗体上的输生结果。1235.61PrivateSubForm_Click()D

12、imcAsInteger,jAsInteger,kAsIntegerk=0c=1Forj=1To6Ifj>4Thenc=c+4 ExitFor Elsek=k+1EndIfNextjPrintc,k EndSub 写生程序运行时单击窗体后，c,k的值分别是：四、编写程序（每题 10分，共20分）1.购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法， 每位顾客一次购物（1）在200元以上者，按9.5折优惠；（2）在300元以上者, 按9折优惠；（3） 400元以上者，按8折优惠；（4） 600元以上者按7折优惠。 在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入

13、购物商品总金额，单击命令按钮，在 Text2中输由优惠后的价格。程序运行结果如图1所示。图1程序运行效果2.实现课对所选择课程进行统计现实，下如图2所示：图2程序运行效果答案、选择题（每题2分，共60分）二、判断题（1分/题，共10分）12345678910tttfftFftt三、读程序并填空题（每空 1分，共10分）1235.62 30101235.63 -331235.64 301235.65 810121235.66 54四、编写程序（每题 10分，共20分）1235.67 PrivateSubCommand1_Click（） （ 1 分）DimxAsSingle,yAsSinglex=

14、Val（Text1.Text） （ 1 分）Ifx<200Then （2 分）y=xElseIfx<300Then （2 分）y=9.5*xElseIfx<400Then （ 2 分）y=0.9*xElseIfx<600Then （ 2 分）y=0.8*xElsey=0.7*xEndIfEndIfEndIfEndIfText2.Text=yEndSub专业资料整理WOR幅式1235.68DimiAsIntegerPrivateSubCheck1_Click() (2 分)IfCheck1.Value=1Theni=i+1EndIfIfCheck1.Value=FalseTheni=i-1EndIfEndSubPrivateSubCheck2_Click() (2 分)IfCheck2.Value=1Theni=i+1EndIfIfCheck2.Value=FalseTheni=i-1EndIfEndSubPrivateSubCheck3_Click() (2 分)IfCheck3.Value=1Theni=i+1EndIfIfCheck3.Value=FalseTheni=i-1EndIfEndSubPrivateSubCheck4_Click()