******学院2009-2010学年第二学期《VB程序设计》期末考试试卷（A）附答案一、选择题（2分/题，共60分）（1）要设置窗体上各控件的属性，可以在＿＿＿中进行。
A“窗体布局”窗口B“工程资源管理器”窗口C“属性”窗口D“对象”窗口（2）下面程序段＿＿＿能够正确实现目的：如果x<y,则a=15,否则a=-15。
AIfx<yThena=15a=-15PrintaBifx<yThena=15:Printaa=-15:PrintaCIfx<yThena=15:PrintaElseA=-15:PrintaEndifDIfx<yThena=15a=-15PrintaEndif（3）VB窗体设计器的主要功能是＿＿＿。
A建立用户界面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）下列哪个不是窗体的属性＿＿＿。
ACaptionBTextCControlBoxDBorderStyle（8）设组合框Combo1中有3个项目,则以下能删除最后一项的语句是＿＿＿。
ACombo1.RemoveItemTextBCombo1.RemoveItem2CCombo1.RemoveItem3DCombo1.RemoveItemCombo1.Listcount（9）窗体BorderStyle属性的功能是＿＿＿。
A设置窗体的边框大小B设置窗体的边框样式，是否显示标题栏，是否可以调整大小等C决定是否显示窗体的控制菜单图标与状态控制按钮D决定窗体的最大化或最小化按钮是否有效（10）下列可作为VB的变量名的是＿＿＿。
Ac*DelBAlphaC4aDprint（11）要把一个命令按钮设置成无效，应设置其哪一属性值＿＿。
A）VisibleB）EnabledC）DefaultD）Cancel（12）下列不能作为VB所允许的常量是＿＿。
A&O148B“china”C3E2D&H2a（13）＿＿＿是指控件本身所具有的、反映该控件功能的内部函数或过程。
A方法B事件C属性D控件（14）表达式33Mod17\3*2的值是＿＿＿。
A10B1C2D3（15）表达式int(123.4567*100+0.5)/100的值是＿＿＿。
A123.47B123.45C123.461D123（16）不属于VB6集成开发环境工作状态的是＿＿＿。
A“设计”状态B编写代码状态C“运行状态”D“中断状态”（17）工程文件的扩展名是＿＿＿。
AfrmBvbpCbasDfrx（18）提供控件的窗口是＿＿＿。
A“对象”窗口B“立即”窗口C工具箱D工具栏（19）变量x=1234.5678,要保留两位小数四舍五入输出，如输出结果为1235.57，正确的方法是＿＿＿。
APrintFormat(x,”#####.##”)BPrintFormat(”#####.##”,x) CPrintFormat(x,”00000.00”)DPrintFormat(”00000.00”,x)（20）要显示一个对话框，提示用户输入一个数据，并且对话框中要显示的提示信息位“请输入一个整数”，正确的是＿＿＿。
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<=cOR4*c=b^2ANDb<>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-xA-33B5-8C3-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分/题，共10分，对用T表示，错用F表示）（）1、设置属性的语句格式为：“对象名．属性名＝属性值”。
（）2、在窗体或模块文件中声明为Private的过程，只能被本窗体或模块中的过程所调用。
（）3、ＶＢ的赋值语句只能给变量赋值。
（）4、在ＶＢ中，字符型常量应使用＂＃＂号将其括起来。
（）5、窗体大小只能通过鼠标拖动窗体边框来设置。
（）6、VB的Double类型数据，可以精确表示其数值范围内的所有实数。
（）7、若用户在键盘上按下一个键，则会产生一个Click事件。
（）8、罗马数制是进位计数制。
（）9、事件过程可以由用户事件触发执行，也可以由其他过程所调用。
（）10、DoWhile条件.....Loop和DOUntilNot条件.....Loop两条循环语句，实现循环控制是等效的。
三、读程序并填空题（每空2分，共10分）WORD格式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＋10EndifElseA=A/10IfA=10ThenA=A－10ElseA=A＋10EndifEndifMsgboxStr(A)EndSub运行程序，单击窗体Form1，消息框中显示: 1235.60FunctionF(aAsInteger)DimbAsIntegerStaticcAsIntegerb=b+2c=c+2F=a+b+cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=4Fori=1To3PrintF(a)NextiEndSub写出程序运行时，单击命令按钮在窗体上的输出结果。
1235.61PrivateSubForm_Click()DimcAsInteger,jAsInteger,kAsIntegerk=0c=1Forj=1To6Ifj>4Thenc=c+4ExitForElsek=k+1EndIfNextjPrintc,kEndSub写出程序运行时单击窗体后，c,k的值分别是：四、编写程序（每题10分，共20分）1.购物优惠程序。
某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在200元以上者，按9.5折优惠；（2）在300元以上者，按9折优惠；（3）400元以上者，按8折优惠；（4）600元以上者按7折优惠。
在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠后的价格。
程序运行结果如图1所示。
图1程序运行效果2.实现课对所选择课程进行统计现实，下如图2所示：图2程序运行效果答案一、选择题（每题2分，共60分）12345678910CCADCBBBBB11121314151617181920BABBAABCAB21222324252627282930DADADBAABC二、判断题（1分/题，共10分）12345678910TTTFFTFFTT三、读程序并填空题（每空1分，共10分）1235.6230101235.63-331235.64301235.65810121235.6654四、编写程序（每题10分，共20分）1235.67PrivateSubCommand1_Click()（1分）DimxAsSingle,yAsSinglex=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=yEndSub1235.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()（2分）IfCheck4.Value=1Theni=i+1EndIfIfCheck4.Value=FalseTheni=i-1EndIfEndSubPrivateSubCommand1_Click()（2分）Label1.Caption="您一共选择了"&i&"门课程" EndSubPrivateSubForm_Load()Label1.Caption=""EndSub。