VB期末考试真题试卷及答案七

一、单项选择题1、以下____不是VisualBasic程序根本构造。A)层次构造B)分支构造C)循环构造D)顺序构造2、当文本框内容发生变化时，必将触发____事件。A)LostFocusB)KeyPressC)ChangeD)Click3、在VisualBasic中，建立一个文本编辑区域，可采用以下____。A)命令按钮B)标签控件C)文本控件D)定时器控件4、在VisualBasic中，以下____表达式值不等于4。A)int(4.1)B)int(4.9)C)Abs(int(-3.9))D)Abs(int(-4.5))5、代数表达式中一元二次方和求根公式中一个改成VB表达式是____。A)(-b+sqr(b*b-4*a*c))/(2*a)B)-b+sqr(b*b-4*a*c)/(2*a)C)(-b+sqr(b*b-4*a*c))/2*aD)(-b+(b*b-4*a*c))/(2*a)6、在VisualBasic中，以下____程序行是符合语法。A)X=Y=5B)A+B=C^3C)Y=1:Y=Y+17、假定X是一个数值型变量，那么由函数组成表达式INT〔X/2〕=X/2，作用是____。A)用于测试X是否偶数B)返回一个整数C)返回一个奇数D)用于测试X是否整数8、表达式Abs(-3.6)*sqr(100)值是____。A)-360B)360C)-36D)369、为了使一个窗体从屏幕消失但仍在内存中，所使用方法或语句为_______。A)ShowB)HideC)LoadD)Unload10、要改变新建对象缺省名称，应使用属性____。A)FontB)ForeColorC)NameD)Height11、要使一个命令按钮显示文字“确定〞，正确设置是把它属性____设置为“确定〞。A)FontB)ForeColorC)CaptionD)BorderStyle12、在VisualBasic中，以下____单词用于注释语句。A)RemB)EndC)ElseD)Loop13、在VisualBasic中，设置控件位置，可改变以下____属性。A)Height与WidthB)height与TopC)Left与TopD)Left与Width14、以下语句中____定义了一个单精度型变量。A)DimIAsIntegerB)DimSumAsSingleC)DimNameAsStringD)wjm="信息技术"15、要使一个控件在运行时无效，正确设置是____。A)把属性Enabled设置为TrueB)把属性Enabled设置为FalseC)把属性Visibled设置为TrueD)把属性Visibled设置为False16、下面表达正确是_______。A)算法执行效率与数据存储构造无关B)算法空间复杂度是指算法程序中指令(或语句)条数C)算法有穷性是指算法必须能在执行有限个步骤之后终止D)算法时间复杂度是指执行算法程序所需要时间17、下面概念中，不属于面向对象方法是_______。A)对象、消息B)继承、多态C)类、封装D)过程调用18、下面描述中，不符合构造化程序设计风格是_______。A)使用顺序、选择和重复(循环)三种根本控制构造表示程序控制逻辑B)自顶向下C)注重提高程序执行效率D)限制使用goto语句19、可以同时删除字符前导和尾部空格函数是______。A)LtrimB)RtrimC)TrimD)Mid20、每一个控件都有属性是_______。A)TopB)NameC)VisibleD)Interval21、执行以下程序段后，变量c$值为______。a$="VisualBasicProgramming"b$="Quick"c$=b$&UCase(Mid$(a$，7，6))&Right$(a$,12)A)VisualBasicProgrammingB)QuickBasicProgrammingC)QUICKBasicProgrammingD)QuickBASICProgramming22、Rnd函数不可能产生_______值。A)0B)1C23、以下说法错误是______。A)函数过程没有返回值B)子过程没有返回值C)函数过程可以带参数D)子过程可以带参数24、以下哪项是窗体对象方法而不是属性______。A)NameB)PrintC)CaptionD)Enabled25、以下关于文件表达中，错误是______。A)顺序文件中记录一个接一个地顺序存放B)随机文件中记录长度是随机C)执行翻开文件命令后，自动生成一个文件指针D)LOF函数返同给文件分配字节数26、计算机之所以按人们意志自动进展工作，最直接原因是因为采用了________。A)二进制数制B)高速电子元件C)存储程序控制D)程序设计语言27、微型计算机主机主要组成局部是________。A)运算器和控制器B)CPU和内存储器C)CPU和硬盘存储器D)CPU、内存储器和硬盘28、一个完整计算机系统应该包括________。A)主机、键盘、和显示器B)硬件系统和软件系统C)主机和其他外部设备D)系统软件和应用软件29、计算机软件系统包括________。A)系统软件和应用软件B)编译系统和应用系统C)数据库管理系统和数据库D)程序、相应数据和文档30、微型计算机中，控制器根本功能是________。A)进展算术和逻辑运算B)存储各种控制信息C)保持各种控制状态D)控制计算机各部件协调一致地工作二、填空题I阅读程序，写出以下程序运行结果：1、以下VisualBasic程序段运行后,变量M值为__[1]__。a=3:b=2:c=5Ifa<bThenm=aElsem=bIfc<mThenm=c2、在窗体上画一个文本框，然后编写如下事件过程：PrivateSubTextl_KeyPress(KeyAsciiAsInteger)DimcharAsStringchar=Chr(KeyAscii)KeyAscii=Asc(LCase(char))Textl．Text=String(6，KeyAscii)EndSub程序运行后，如果在键盘上输入字母“C〞，那么文本框中显示内容为___[2]____。3、在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()StaticxAsIntegerClsFori=lTO2y=y+xx=x+2NextPrintx,yEndSub程序运行后，连续三次单击Command1按钮后，窗体上显示是___[3]____。4、以下程序段输出结果为____[4]____。X=1Y=4DoUntilY>4X=X*YY=Y+1LoopPrintX5、在窗体上画一个名称为Commandl命令按钮和一个名称为Textl文本框，然后编写如下程序：PrivateSubCommandlClick()Dimx，y，zAsIntegerx=5y=7z=0Textl．Text=＂＂CallPl(x，y，z)Textl．Text=Str(z)EndSubSubPl(ByValaAsInteger，ByValbAsInteger，cAsInteger)c=a+bEndSub程序运行后，如果单击命令按钮，那么在文本框中显示内容是___[5]____。II在以下程序划线处填写适当代码，使之能够完成题目要求：6、假设一个三位数，它个、十、百位数字立方和恰巧等于这个数本身，那么把这个数称为水仙花数。完善程序求出所有水仙花数。Dimx%,a%,b%,c%Forx=______[6]______Step1a=Int(x/100)b=______[7]______c=x-100*a-10*bIf____________[8]_______________ThenPrintx____[9]_____Nextx7、编程键盘输入5个数字，求出其中最接近100数字。PrivateSubCommand1_Click()Dimi%,x%,Nu%Nu=Val(InputBox("请输入第一个数字"))Print"你输入五个数分别是:"ΝFori=2To5 x=____[10]______("请输入第"&i&"个数")) Printx; IfAbs(x-100)___[11]____Abs(Nu-100)Then ____[12]______ EndIfNextiPrintvbCrLf&"最接近100数是____[13]______EndSub8、完善程序，自定义一个名为ProcMin函数，该函数能够承受一个整型数组参数，求出该数组中最小元素值并将这个值作为函数值返回。FunctionProcMin(b%())AsIntegerDimi%,Nmin%____[14]_______=b(LBound(b))Fori=LBound(b)+1To_____[15]________Ifb(i)<NminThen_____[16]______Nexti_____[17]_________EndFunction9、完善程序，完成冒泡排序。程序可随机生成指定个数[50，80]区间整数进展排序，在窗体中显示每一步排序操作结果。Dim____[18]__________AsInteger,i%,j%,imin%,t%,n%n=Val(InputBox("请输入数组元素个数:"))ReDimia(n)Fori=1Tonia(i)=_____[19]________Printia(i);NextiFori=1TonForj=1To_______[20]____________Ifia(j)<______[21]________Thent=ia(j)ia(j)=ia(j+1)ia(j+1)=tEndIfNextjPrintForj=1TonPrintia(j);NextjNextiPrint≤x≤3.1415926。Dimx!,y!PrivateSub________[22]___________Timer1.Interval=100EndSubPrivateSubTimer1_Timer()__[23]__________[24]___________Shape1.Movex0,y0-Shape1.Height/2PSet(x0,y0),RGB(255,0,0)Ifx______[25]_____ThenTimer1.Interval=0EndSub三、编程题1、编程输入10名短跑运发动姓名及其100米跑成绩，输出最好成绩运发动姓名及其成绩，再显示低于平均成绩所有运发动姓名及其成绩。2、素数(质数)是一个正整数，除了1和它本身之外，不能被其它任何正整数整除。编程：求出1到1000间所有素数，并将这些素数显示在列表框中。当用户输入数不是正整数时，给出提示并要求重新输入一个数。参考答案〔可在vb6.0种验证〕选择题ACCDACADBCCACBBCDCCBDBABBCBBDD填空题对于与标准答案不同但验证正确答案同样给分，对于有个别文字不准确而不致引起误解答案，可酌情扣1分。[1]2[2]ccccccc[3]218[4]4[5]12[6]100To999[7](x-100*a)\10[8]X=a^3+b^3+c^3[9]Endif[10]Val(InputBox[11]<[12]Nu=x[13]“&Nu[14]Nmin[15]UBound(b)[16]Nmin=b(i)[17]ProcMin=Nmin[18]ia()[19]Int(Rnd*(80-50+1))+50[20]n-1[21]Ia(j+1)[22]Form_Click()[23]X[24]Y=cos(x)编程题〕Privatesubform_click()Dima(1To10)AsString,b(1To10)AsInteger,i%,j%,n%,p%,sum!,aver!Fori=1To10