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

1、精选优质文档-倾情为你奉上精选优质文档-倾情为你奉上专心-专注-专业专心-专注-专业精选优质文档-倾情为你奉上专心-专注-专业一、单选题1、下列_不是Visual Basic程序的基本结构。A) 层次结构 B) 分支结构 C) 循环结构 D) 顺序结构2、当文本框的内容发生变化时，必将触发_事件。A) LostFocus B) KeyPress C) Change D) Click3、在Visual Basic中，建立一个文本编辑区域，可采用下列_。A) 命令按钮 B) 标签控件 C) 文本控件 D) 定时器控件4、在Visual Basic中，下列_表达式的值不等于4。A) int(4.1)

2、 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*a D) (-b+ (b*b-4*a*c)/(2*a)6、在Visual Basic中，下列_程序行是符合语法的。A) X=Y=5 B) A+B=C3 C) Y=1:Y=Y+1 7、假定X是一个数值型变量，那么由函数组成的表达式INT（X/2）=X/2，作用是_。A) 用于测试X是否偶

3、数 B) 返回一个整数C) 返回一个奇数 D) 用于测试X是否整数8、表达式Abs(-3.6)*sqr(100)的值是_。A) -360 B) 360 C) -36 D) 369、为了使一个窗体从屏幕消失但仍在内存中，所使用的方法或语句为_。A)Show B)Hide C)Load D)Unload10、要改变新建对象的缺省名称，应使用属性_。A) Font B) ForeColor C) Name D) Height11、要使一个命令按钮显示文字“确定”，正确的设置是把它的属性_设置为“确定”。A) Font B) ForeColor C) Caption D) BorderStyle12、

4、在Visual Basic 中，下列_ 单词用于注释语句。A) Rem B) End C) Else D) Loop13、在Visual Basic中，设置控件的位置，可改变下列_属性。A) Height 与 Width B) height 与Top C) Left 与 Top D) Left 与 Width14、下列语句中_定义了一个单精度型变量。A) Dim I As Integer B) Dim Sum As SingleC) Dim Name As String D) wjm=信息技术15、要使一个控件在运行时无效，正确的设置是_。A) 把属性Enabled设置为True B) 把属性

5、Enabled设置为FalseC) 把属性Visibled设置为True D) 把属性Visibled设置为False16、下面叙述正确的是_。A)算法的执行效率与数据的存储结构无关B)算法的空间复杂度是指算法程序中指令(或语句)的条数C)算法的有穷性是指算法必须能在执行有限个步骤之后终止D)算法的时间复杂度是指执行算法程序所需要的时间17、下面概念中，不属于面向对象方法的是_。A)对象、消息 B)继承、多态 C)类、封装 D)过程调用18、下面描述中，不符合结构化程序设计风格的是_。A)使用顺序、选择和重复(循环)三种基本控制结构表示程序的控制逻辑B)自顶向下C)注重提高程序的执行效率D)限

6、制使用goto语句19、可以同时删除字符前导和尾部空格的函数是_。A)Ltrim B)Rtrim C)Trim D)Mid20、每一个控件都有的属性是_。A)Top B)Name C)Visible D)Interval21、执行以下程序段后，变量c$的值为_。a$=Visual Basic Programmingb$=Quickc$=b$ & UCase(Mid$(a$，7，6) & Right$(a$,12)A)Visual Basic Programming B)Quick Basic ProgrammingC)QUICK Basic Programming D)Quick BASIC

7、Programming22、Rnd函数不可能产生_值。A)0 B)1 C23、以下说法错误的是_。A)函数过程没有返回值 B)子过程没有返回值C)函数过程可以带参数 D)子过程可以带参数24、下列哪项是窗体对象的方法而不是属性_。A)Name B)Print C)Caption D)Enabled25、以下关于文件的叙述中，错误的是_。A)顺序文件中的记录一个接一个地顺序存放B)随机文件中记录的长度是随机的C)执行打开文件的命令后，自动生成一个文件指针D)LOF函数返同给文件分配的字节数26、计算机之所以按人们的意志自动进行工作，最直接的原因是因为采用了_。 A)二进制数制 B)高速电子元件

8、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

9、 阅读程序，写出下列程序的运行结果：1、下列Visual Basic程序段运行后,变量M的值为_1_。a=3 : b=2 : c=5If ab Then m=a Else m=bIf c4X=X*YY=Y+1LoopPrint X5、在窗体上画一个名称为Commandl的命令按钮和一个名称为Textl的文本框，然后 编写如下程序：Private Sub Command l Click()Dim x，y，z As Integerx=5y=7z=0TextlText=Call Pl(x，y，z)TextlText=Str(z)End SubSub Pl(By Val a As Integer，By

10、 Val b As Integer，c As Integer)c=a+bEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是_5_。II 在下列程序的划线处填写适当代码，使之能够完成题目要求：6、若一个三位数，它的个、十、百位数字的立方和恰巧等于这个数本身，则把这个数称为水仙花数。完善程序求出所有水仙花数。Dim x%, a%, b%, c%For x = _6_ Step 1 a = Int(x / 100) b = _7_ c = x - 100 * a - 10 * b If _8_ Then Print x _9_Next x7、编程键盘输入5个数字，求出其中最接近10

11、0的数字。Private Sub Command1_Click()Dim i%, x%, Nu%Nu =Val(InputBox(请输入第一个数字)Print 你输入的五个数分别是: & Nu;For i = 2 To 5 x =_10_(请输入第 & i & 个数) Print x; If Abs(x - 100) _11_ Abs(Nu - 100) Then _12_ End IfNext iPrint vbCrLf & 最接近100的数是_13_End Sub8、完善程序，自定义一个名为ProcMin的函数，该函数能够接受一个整型的数组参数，求出该数组中最小的元素值并将这个值作为函数值

12、返回。Function ProcMin(b%() As IntegerDim i%, Nmin%_14_= b(LBound(b)For i = LBound(b) + 1 To_15_ If b(i) Nmin Then _16_Next i_17_End Function 9、完善程序，完成冒泡排序。程序可随机生成指定个数的50，80区间的整数进行排序，在窗体中显示每一步排序操作的结果。Dim _18_ As Integer, i%, j%, imin%, t%, n%n = Val(InputBox(请输入数组元素的个数:)ReDim ia(n)Form1.ClsFor i = 1 To

13、 n ia(i) = _19_ Print ia(i);Next iFor i = 1 To n For j = 1 To _20_ If ia(j) _21_ Then t = ia(j) ia(j) = ia(j + 1) ia(j + 1) = t End If Next j Print For j = 1 To n Print ia(j); Next jNext iPrint10、完善程序，在窗体中绘制y=Cos(x)函数图形。要求鼠标单击窗体时开始绘制，绘制范围：-3.x3.。Dim x!, y!Private Sub _22_x = -3.Timer1.Interval = 100

14、End SubPrivate Sub Timer1_Timer()_23_ = x + 0.05_24_x0 = x + Line2.X1y0 = -y + Line1.Y1Shape1.Move x0, y0 - Shape1.Height / 2PSet (x0, y0), RGB(255, 0, 0)If x _25_ Then Timer1.Interval = 0End Sub三、编程题1、编程输入10名短跑运动员的姓名及其100米跑成绩，输出最好成绩的运动员姓名及其成绩，再显示低于平均成绩的所有运动员姓名及其成绩。2、素数(质数)是一个正整数，除了1和它本身之外，不能被其它任何正整

15、数整除。编程：求出1到1000间的所有素数，并将这些素数显示在列表框中。当用户输入的数不是正整数时，给出提示并要求重新输入一个数。参考答案（可在vb6.0种验证）选择题ACCDACADBCCACBBCDCCBDBABBCBBDD填空题对于与标准答案不同但验证正确的答案同样给分，对于有个别文字不准确而不致引起误解的答案，可酌情扣1分。1 22 ccccccc3 2 184 45 12 6 100 To 9997 (x-100*a)108 X=a3+b3+c3 9 Endif10 Val( InputBox11 3.编程题）Private sub form_click()Dim a(1 To 10) As String, b(1 To 10) As Integer, i%, j%, n%, p%, sum!, aver!For i = 1 To 10 a(i) = InputBox(请输入第 & i & 个运动员的姓名) b(i) = Val(InputBox(请输入第 & i & 个运动员的短跑成绩) sum = sum + b(i) Print a(i); b(i)Next iaver = sum / 10 iMax = 1For i = 2 To 10 If b(i) b(iMax) Then iMax = iNext iP