《高三VB期中试题.pdf》由会员分享，可在线阅读，更多相关《高三VB期中试题.pdf（7页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、1/720142015 年度上学期计算机类专业课期中考试综合试卷注意事项：1.满分 350 分，考试时间为 150 分钟；答题时请使用黑色钢笔或签字笔。题号总分分数一、填空题（每空1 分，共 10 分）1、根据数组元素的个数是否可以变化，数组分为_数组和_数组。2、在过程调用中，参数的传递可分为_传递和_传递两种方式。3、VisualBasic 中的对象主要包括窗体和 _。4、设有如下循环：For i=2 to3Print“*”Next i该循环共循环了 _次，循环完成后，循环变量i 的值为_。5、设有数组申明语句：Dim x(3,4)AsInteger,则该数组共有 _个元素。6、如果要时钟
2、控件每一秒发生一个Timer 事件，则 Interval属性应设置为 _。7、表达式 5 Mod2*62/62的值为_。二、选择题（每题1 分，共 40 分）1、只有在执行某种动作后，才会执行某段程序，这种机制称为（）A.面象对象B.事件驱动C.可视化D.面向过程2、当窗体被加载时运行，发生的事件是（）A.ResizeB.UnloadC.DragDropD.Load3、VisualBasic 的逻辑类型数据占（）字节内存。A.2B.4C.8D.164、下列符号常量的声明中，不合法的是（）A.Const Max As Integer=100B.Const Pi=3.14C.Const Xh=“2
3、0080808”D.Const Min=Sqr（9）5、以下各项中不能做为VisualBasic 变量名的是（）A.intMaxB.IfC.Int_MaxD.I_f6、已知 a=“12345678”,则表达式 Left（a,4）+Mid（a,4,2）的值是（）A.123456B.“123445”C.123445D.12797、下面不属于对象三要素的是（）A函数B事件C方法D属性8、下面正确的赋值语句是（）A.x+y=30B.pi*r*r=yC.y=3xD.a=b39、InputBox 函数的返回值的类型为（）2/7A数值型B.字符串型C.变体型D.布尔型10、运行下面的程序段后，在弹出的对话框
4、中输入15，则输出结果（）X%=10:y=InputBox（“请输入一个数值”）:Printx+yA.25B.1015C.15D.出错11、下面程序段的运行结果是（）a=90Ifa60 Then x=1Ifa70 Then x=2Ifa80 Then x=3Ifa90 Then x=4Print“x=”;xA.x=4B.x=3C.x=2D.x=112、将数学表达式Cos2（a+b）+5e2写成 VisualBasic 的表达式，其正确的形式是（）A.Cos（a+b）2+5*Exp（2）B.Cos2（a+b）+5*Exp（2）C.Cos（a+b）2+5*ln（2）D.Cos2（a+b）+5*ln
5、（2）13、当一个复选框被选中时，它的Value 属性的值是（）A.3B.2C.1D.014、运行下面程序段时，变量t 的值是（）x=4:y=3:z=5:t=2Ifxy Thent=4ElseIfy Pi ThenPrint“努力”ElsePrint“学习”End IfEnd SubA.努力B.学习C.出错D.无输出16、以下程序段的执行结果是（）3/7For i=1 To 4x=2For j=1To 3x=1For k=1 to 2x=x+3Next k,j,iPrintxA.7B.6C.56D.7217、执行如下程序段时，从键盘输入5，输出的结果是（）x=-5s=Val(InputBox（
6、“请输入 s 的值:”）)SelectCase sCase Is 0y=x+1Case Is=0y=x+2Case Elsey=x+3End SelectPrintx;yA.-5-2B.-5-4C.-5-3D.-5-518、下列程序段的运行结果是（）PrivateSub Command1_Click（）Dima（4,4）Fori=1 To 4For j=1 To 4a（i,j）=(i-1)*3+jNext j,iFor i=3 To 4For j=3 To 4Printa(j,i);Next jPrintNextiEnd SubA.69B.710C.811D.91271081191210131
7、9、运行下面程序后，变量s 的值是（）s=0:n=14/7Dos=s+2n=n+2Loop Untiln=6A.4B.5C.6D.720、设组合框 Combo1 中有 3 个项目，则能删除最后一项的语句是（）A.Combo1.RemoveItem TextB.Combo1.RemoveItem 2C.Combo1.RemoveItem 3D.Combo1.RemoveIte m Combo1.Listcount三、程序填空题（25 个空，每空 2 分，共 50 分）1、以下程序的功能是：生成20 个 200300 之间的随机整数，输出其中能被5 整除的数并求出它们的和。请填空。PrivateS
8、ub Command1_Click_()For i=1To 20 x=_1If_2 ThenPrintxs=s+_3End IfNext iPrint“sum=”;sEnd Sub2、在窗体上添加1 个文本框 Text1 和个命令按钮Command1、Command2 运行下面的程序后，单击命令按钮Command1,在文本框中显示”Welcome”；单击命令按钮Command2 后，清除文本框中显示的文本，并在命令按钮Command2 上显示“清除”。请填空。PrivateSub Command1_Click()Text1._4=”Welcome”End SubPrivateSub Comma
9、nd2_Click()_56_=“清除”、在窗体上画一个标签控件Label1 和一个计时器控件Timer1，然后编写如下几个事件过程：PrivateSub Form_Load()Timer1.Enabled=FalseTimer1.Interval=_7End SubPrivateSub Form_8Timer1.Enabled=_9End Sub5/7PrivateSub Timer1_Timer()Label1.Caption=_10End sub程序运行后，单击窗体，将在标签中显示当前系统时间，每隔一秒钟变换一次（如下图所示），请填空。、下面程序段的功能是求+之和。请填空。sum=_11
10、For i=1 To 9_12sum=sum+_13Next iPrintsum、从键盘输入 10 个数，要求按从小到大的顺序打印出来，请填空。Dima(1 to 10)as singleFor i=1To 10a(i)=_14用输入框输入数据Printa(i);NextiFor i=1 To 9For j=i+1to10If_15Thent=a(i)_16a(j)=tNextj_17For i=1To 10Printa(i)NextiEnd Sub6、利用函数过程，求！+！+！+！的值。Funtionfact(xAs Integer)AsLong6/7Dim P as Long,iAs In
11、tegerP=1For i=1To x_18Next i_19EndFunctionPrivateSubCommand1_Click()Dim sum As Long,iAs IntegerFor i=1To 10Sum=sum+_20Next iLabel2.Caption=sumEndSub7、下列程序的功能是：当 50 时,y=0.8X;当 50X100 时，y=0.7X;当100 时，没有意义。请填空。PrivateSub As SingleDim x As Singlex=Val(InputBox(“输入 x 的值”)_21Case Is50y=0.8*xCase50To 100y=0.7*x_22Print“输入的数据出界！”End SelectPrintx,yEnd Sub8、求任意两个数中的最大值，请在空白处填入正确答案。PrivateSubCommand_Click()Dim A AsSingle,BAs Single,MAsSingleA=Val(Text1.Text)B=_23IfAB Then_24ElseM=A_25Text3.Text7/7EndSub