一、单选题
1、下列____不是VisualBasic程序的基本结构。 A)层次结构B)分支结构C)循环结构D)顺序结构
2、当文本框的内容发生变化时，必将触发____事件。 A)LostFocusB)KeyPressC)ChangeD)Click
3、在VisualBasic中，建立一个文本编辑区域，可采用下列____。 A)命令按钮B)标签控件C)文本控件D)定时器控件
4、在VisualBasic中，下列____表达式的值不等于4。 A)intB)intC)Abs(int)D)Abs(int)
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^3 C)Y=1:Y=Y+1D)I=10X
7、假定X是一个数值型变量，那么由函数组成的表达式INT（X/2）=X/2，作用是____。 A)用于测试X是否偶数B)返回一个整数 C)返回一个奇数D)用于测试X是否整数 8、表达式Abs*sqr(100)的值是____。 A)-360B)360 C)-36D)36
9、为了使一个窗体从屏幕消失但仍在内存中，所使用的方法或语句为_______。 A)ShowB)HideC)LoadD)Unload
10、要改变新建对象的缺省名称，应使用属性____。 A)FontB)ForeColorC)NameD)Height
11、要使一个命令按钮显示文字“确定”，正确的设置是把它的属性____设置为“确定”。 A)FontB)ForeColorC)CaptionD)BorderStyle
12、在VisualBasic中，下列____单词用于注释语句。 A)RemB)EndC)ElseD)Loop
13、在VisualBasic中，设置控件的位置，可改变下列____属性。 A)Height与WidthB)height与TopC)Left与TopD)Left与Width 14、下列语句中____定义了一个单精度型变量。 A)DimIAsIntegerB)DimSumAsSingle C)DimNameAsStringD)wjm=\信息技术\
15、要使一个控件在运行时无效，正确的设置是____。
A)把属性Enabled设置为TrueB)把属性Enabled设置为False C)把属性Visibled设置为TrueD)把属性Visibled设置为False 16、下面叙述正确的是_______。
A)算法的执行效率与数据的存储结构无关
B)算法的空间复杂度是指算法程序中指令(或语句)的条数 C)算法的有穷性是指算法必须能在执行有限个步骤之后终止 D)算法的时间复杂度是指执行算法程序所需要的时间 17、下面概念中，不属于面向对象方法的是_______。 A)对象、消息B)继承、多态C)类、封装D)过程调用
18、下面描述中，不符合结构化程序设计风格的是_______。
A)使用顺序、选择和重复(循环)三种基本控制结构表示程序的控制逻辑
B)自顶向下
C)注重提高程序的执行效率 D)限制使用goto语句
19、可以同时删除字符前导和尾部空格的函数是______。 A)LtrimB)RtrimC)TrimD)Mid
20、每一个控件都有的属性是_______。 A)TopB)NameC)VisibleD)Interval
21、执行以下程序段后，变量c$的值为______。 a$=\b$=\
c$=b$&UCase(Mid$(a$，7，6))&Right$(a$,12)
A)VisualBasicProgrammingB)QuickBasicProgramming C)QUICKBasicProgrammingD)QuickBASICProgramming 22、Rnd函数不可能产生_______值。 A)0B)1 C)0．1234D)0．00005 23、以下说法错误的是______。
A)函数过程没有返回值B)子过程没有返回值 C)函数过程可以带参数D)子过程可以带参数
24、下列哪项是窗体对象的方法而不是属性______。 A)NameB)PrintC)CaptionD)Enabled
25、以下关于文件的叙述中，错误的是______。 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=5
Ifa 2、在窗体上画一个文本框，然后编写如下事件过程： PrivateSubTextl_KeyPress(KeyAsciiAsInteger) DimcharAsString char=Chr(KeyAscii) KeyAscii=Asc(LCase(char)) Textl．Text=String(6，KeyAscii) EndSub 程序运行后，如果在键盘上输入字母“C”，则文本框中显示的内容为___[2]____。 3、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： PrivateSubCommand1_Click() StaticxAsInteger Cls Fori=lTO2 y=y+x x=x+2 Next Printx,y EndSub 程序运行后，连续三次单击Command1按钮后，窗体上显示的是___[3]____。 4、以下程序段的输出结果为____[4]____。 X=1 Y=4 DoUntilY>4 X=X*Y Y=Y+1 Loop PrintX 5、在窗体上画一个名称为Commandl的命令按钮和一个名称为Textl的文本框，然后编写如下程序： PrivateSubCommandlClick() Dimx，y，zAsInteger x=5 y=7 z=0 Textl．Text=＂＂ CallPl(x，y，z) Textl．Text=Str(z) EndSub SubPl(ByValaAsInteger，ByValbAsInteger，cAsInteger) c=a+b EndSub 程序运行后，如果单击命令按钮，则在文本框中显示的内容是___[5]____。 II在下列程序的划线处填写适当代码，使之能够完成题目要求： 6、若一个三位数，它的个、十、百位数字的立方和恰巧等于这个数本身，则把这个数称为水仙花数。完善程序求出所有水仙花数。 Dimx%,a%,b%,c% Forx=______[6]______Step1 a=Int(x/100) b=______[7]______ c=x-100*a-10*b If____________[8]_______________Then Printx ____[9]_____ Nextx 7、编程键盘输入5个数字，求出其中最接近100的数字。 PrivateSubCommand1_Click() Dimi%,x%,Nu% Nu=Val(InputBox(\请输入第一个数字\Print\你输入的五个数分别是:\Fori=2To5 x=____[10]______(\请输入第\个数\ Printx; IfAbs(x-100)___[11]____Abs(Nu-100)Then ____[12]______ EndIf Nexti PrintvbCrLf&\最接近100的数是____[13]______ EndSub 8、完善程序，自定义一个名为ProcMin的函数，该函数能够接受一个整型的数组参数，求出该数组中最小的元素值并将这个值作为函数值返回。 FunctionProcMin(b%())AsInteger Dimi%,Nmin% ____[14]_______=b(LBound(b)) Fori=LBound(b)+1To_____[15]________ Ifb(i) _____[17]_________ EndFunction 9、完善程序，完成冒泡排序。程序可随机生成指定个数的[50，80]区间的整数进行排序，在窗体中显示每一步排序操作的结果。 Dim____[18]__________AsInteger,i%,j%,imin%,t%,n% n=Val(InputBox(\请输入数组元素的个数:\ReDimia(n) Fori=1Ton ia(i)=_____[19]________ Printia(i); Nexti Fori=1Ton Forj=1To_______[20]____________ Ifia(j)<______[21]________Then t=ia(j) ia(j)=ia(j+1) ia(j+1)=t EndIf Nextj Print Forj=1Ton Printia(j); Nextj Nexti Print 10、完善程序，在窗体中绘制y=Cos(x)函数图形。要求鼠标单击窗体时开始绘制，绘制范围：≤x≤。 Dimx!,y! PrivateSub________[22]___________ x= =100 EndSub PrivateSubTimer1_Timer() __[23]_____=x+ _____[24]___________ x0=x+ y0=-y+ ,2 PSet(x0,y0),RGB(255,0,0) Ifx______[25]=0 EndSub 三、编程题 1、编程输入10名短跑运动员的姓名及其100米跑成绩，输出最好成绩的运动员姓名及其成绩，再显示低于平均成绩的所有运动员姓名及其成绩。 2、素数(质数)是一个正整数，除了1和它本身之外，不能被其它任何正整数整除。编程：求出1到1000间的所有素数，并将这些素数显示在列表框中。当用户输入的数不是正整数时，给出提示并要求重新输入一个数。 参考答案（可在种验证） 一、 选择题 A C D C A B C C A D B B A B B C C C A D B D C B B C D C B D 二、 填空题 对于与标准答案不同但验证正确的答案同样给分，对于有个别文字不准确而不致引起误解的答案，可酌情扣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) [25]> 三、 编程题） Privatesubform_click() Dima(1To10)AsString,b(1To10)AsInteger,i%,j%,n%,p%,sum!,aver! Fori=1To10 a(i)=InputBox(\请输入第\个运动员的姓名\ b(i)=Val(InputBox(\请输入第\个运动员的短跑成绩\ sum=sum+b(i) Printa(i);b(i) Nexti aver=sum/10 iMax=1 Fori=2To10 Ifb(i)>b(iMax)TheniMax=i Nexti Print\最好成绩为：\ Print\名运动员的平均成绩为\。成绩低于平均成绩的运动员为：\ Fori=1To10 Ifb(i) Privatesubcommand1_click() DimN!,t!,i!,m! Do N=Val(InputBox(\请输入一个正整数作为范围上限U：\ IfN=Int(N)AndN>0ThenExitDo MsgBox\请输入正整数！\ Loop Form=1ToN Fori=2ToSqr(m) IfmModi=0ThenExitFor Nexti Ifi>Sqr(m)(m) Nextm Endsub
VB期末考试真题试卷及答案七
