VB测试卷及答案

1、一、 选择题（每题1分，共15分）二、1、以下不是VB特点的是 。(A)可视编程 (B)算法设计 (C)事件驱动 (D)面向对象2、VB6.0集成开发环境可以 。(A)编辑、调试、运行程序，但不能生成可执行程序(B)编辑、生成可执行程序、运行程序，但不能调试程序(C)编辑、调试、生成可执行程序，但不能运行程序 (D)编辑、调试、运行程序，也能生成可执行程序3、窗体文件的扩展名是 。(A).frm (B).vbp (C).bas (D).frx4、双击“窗体设计器”的任意部分，可以打开 _窗口。(A)“属性窗口” (B)“代码窗口” (C)“立即窗口” (D)“窗体布局窗口”5、在VB 中最基本

2、的对象是 ，它是应用程序的基石，是其他控件的容器。(A) 文本框 (B)命令按钮 (C)窗体 (D)标签6、下面变量名不合法的是 。(A)a (B)abcd_1 (C)a$x (D)CE7、下面四个选项中，是数值常量的是 。(A)1E6 (B)1,E6(C)1*E6(D)1*E-68、合法的长整型常量是 。(A)789% (B)789！ (C)789& D)789#9、表示日期“2012年7月1日”正确的表达式是_。（A）07-01-2012 （B）“07/01/2012” （C）07-01-2012 （D）#07/01/2012#10、以下四类运算符中，优先级最低的是_。（A）算术运

3、算符 （B）字符运算符（C）关系运算符（D）逻辑运算符11、有如下程序：Private Sub Form_ClickDim a$,b$,s%a=”123456”For i=1 To 6b=Mid(a,i,1)s=s+bNext iPrint sEnd Sub运行时，单击窗体，显示的结果是 。(A) 123456 (B) 21(C) 6 (D) 错误信息12、数学式（7.5X+e-3）X-1.5X-1是 。(A) （(7.5*X+EXP(-3)*X-1.5)）*X-1 (B) (7.5*X+EXP(-3)*X-1.5*X-1(C) (7.5*X+e(-3)*X-1.5)*X-1(D) (7.5*

4、X+e(-3)*X-1.5*X-113、数组声明语句：Dim a(-5 To 5) As integer,则数组a包含的元素个数为 。(A)5 (B)6 (C)10 (D)1114、如下数组声明语句，正确的是 。(A) Dim a3,4 As Integer (B) Dim a(3,4) As Integer(C) Dim a(n,n) As Integer(D) Dim a(3 4) As Integer15、循环结构For i=1 To 10For j=10 To 1 step -2循环体Next jNext i 中循环体的执行次数是 。(A) 10 (B)5 (C) 50 (D) 15二

5、、判断题(每题1分，共10分)1、窗体设计器的主要功能是设计运行界面。（ ）2、语句Text1.Caption=”Pretty”的语法是正确的。（ ）3、在打开某窗体时，初始化窗体中的各控件，可选用Load事件。（ ）4、语句Dim i,j As Single 作用是：将i,j定义为单精度型变量。（ ）5、控件就是一切对象。（ ）6、逻辑型的常量不能参加算术运算。（ ）7、子过程名没有返回值。（ ）8、表达式1<x<10表示：变量x在区间（1,10）中。（ ）9、数组元素引用时，下标可以是变量。（ ）10、表达式Len(“上海金融学院”)的值是12.（ ）三、 阅读程序，回答问题。

6、（每题5分，共20分）1、 程序如下：Private Sub Form_Click()Dim a%a=Val(InputBox(“请输入数据”)Select Case a Mod 5 Case 1 To 2W=a*2 Case Is<4W=a+10 Case ElseW=a-10End SelectPrint “a=”& Str(a) & “w=” & Str(w)End Sub问题：（1） 程序中表达式”a Mod 5”的功能是什么？（2分）（2） 程序运行时，如果输入24，则程序的运行结果是什么？（3分）2、请写出程序的运行结果。程序如下：Private Su

7、b Form_Click()Dim a!,i%a=0For i=1 to 5a=a*10+8Print a;If i<=4 Then Print “+”Next iEnd Sub问题：程序运行后的结果是什么？3、程序如下：Private Sub Form_Click()Dim f!(1 To 10),i%f(1)=1:f(2)=1For i=3 To 10f(i)=f(i-1)+f(i-2)Next iFor i=1 To 10Print f(i);If i Mod 5 =0 ThenPrintEnd IfNext iEnd Sub问题：（1） 程序运行后的结果是什么？（4分）（2） 程

8、序中第十行的语句”Print”的功能是什么？（1分）4、程序如下：Private Sub func（ByVal a!,ByVal b!,ByVal c!,ByRef s!）Dim l!If a+b>c And b+c>a And c+a>b Thenl=(a+b+c)/2s=Sqr(l*(l-a)*(l-b)*(l-c)ElsePrint “错误”End IfEnd SubPrivate Sub Form_Click()Dim s!Call func(3,4,5,s)Print “s=”;Format(s,“#.00”)End Sub问题：（1） 程序运行后，输出结果是什么？

9、（3分）（2） 函数Format(s,”#.00”)的功能是什么？（2分）四、 改错（共9分）1、 程序功能：求19002003年所有闰年年号之和。但程序中有错误。请指出并改正错误，使程序能输出正确的结果。（年号能被400整除的是闰年，或者年号能被4整除但不能被100整除的是闰年）Private Sub Command1_Click()Dim s!s=0For Y=1900 To 2003If (Y Mod 400=0) And (Y Mod 4=0 Or Y Mod 1000) Thens=s+YEnd IfLoopPrint sEnd Sub2、 程序功能：利用随机函数产生10个50-10

10、0范围内的随机数正整数，求它们的最大值，最小值和平均值。但程序中有错误。请指出并改正错误，使程序能输出正确的结果。Private Sub Command1_Click()Dim x%,max%,min%,i%,ave!Max=100:min=50:ave=0For i=1 To 10x=Int(Rnd*100+50)ave=ave+xIf x<max Then max=xIf x>min Then min=xNext iPrint mx,min,ave/10End Sub五、 程序填空（1分/格，共6分）1、 程序功能：键盘上输入10个整数，用冒泡法将这10个数按从大到小的顺序排列

11、并输出。但程序不完整，请在空白处填上适当的语句，使程序输出正确的结果。Dim a(1 To 10) As IntegerFor i=1 To 10a(i)=Val(InputBox(“请输入:”)Next iFor i=1 To ( )For j=1 To ( )If a(j) ( ) a(j+1) Thent=a(j)( )a(j+1)=tEnd IfNext jNext iFor i=1 To 10Print Spc(3);a(i);Next iEnd Sub2、 程序功能：利用循环语句输出如下图形。a bbb ccccc ddddddd eeeeeeeee但程序不完整，请在空白处填上适当

12、的语句，使程序能输出正确的结果。Private Sub Form_Click()For i=1 To 5st=Chr( )+i-1)Print Tab(5-i+1);Print String( ),st)Next iEnd Sub六、 界面设计（5分）要求：按钮背景为浅蓝色；各标签字体为四号宋体。当用户输入密码时，系统用“*”掩盖。请写出各对象的属性值。对象名属性名属性值六、程序设计（共35分，运行界面自行设计，画草图即可）1、从2011年9月起，我国个人所得税按新标准计算缴纳。具体如下：（1）计税方式：工资、薪金所得，以每月收入额减除费用3500元后的余额，为应纳税所得额。（2）税率如下：级

13、数全月应纳税所得额税率（%）1不超过1500元的32超过1500元至4500元的部分103超过4500元至9000元的部分204超过9000元至35000元的部分255超过35000元至55000元的部分306超过55000元至80000元的部分357超过80000元的部分45请用Input语句输入本月总收入，根据上述规定计算个人所得税。要求用If语句编程。（15分）2、利用循环语句 For/Next,求22/(1*3)+42/(3*5)+62/(5*7)+前20项的和。（10分）3、 如果一个数，从左边读和从右边读都是同一个数，则该数叫回文数，例如787.求出100-999间所有的既是回文数

14、又是素数的自然数。（5分）4、 某班若干学生，求数学成绩优秀（90分以上）、合格（60分-89分）以及不合格（59分以下）的人数。学生成绩由键盘输入，当输入-1时，输入完毕，显示统计结果。要求用Do While/Loop语句编程。（5分） 参考答案及评分标准 一、选择题（1分/题，共15分）BDABC CACDD BADBC评分标准：答对给1分，答错不给分。二、判断题（1分/题，共10分）××× ×××评分标准：答对给1分，答错不给分。三、程序阅读，回答问题（5分/题,共20分）1、（5分）(1)（2分）求出变量a 除以5的余数(2)

15、（3分）a=24w=14 评分标准：答案正确2分，输出格式1分。2、（5分） 8+88+888+8888+88888评分标准：5个数据项，一项1分。 3、（5分）（1）（4分） 1 1 2 3 5 8 13 21 34 55 评分标准:一行2分。有错酌情扣分。 （2）（1分）换行4、（5分）(1)（3分） s=6.00评分标准:计算结果2分，输出格式1分。（2）（2分）将变量s按保留两位小数的格式输出。评分标准: 有错酌情扣分。四、改错（共9分）1、 （4分）Private Sub Command1_Click() Dim s! s=0 For Y = 1900 To 2003 If (Y m

16、od 400 = 0) and (Y mod 4 = 0 or Y mod 100 0) Then s = s + Y End If Loop Print sEnd Sub正确的是：Y mod 400 = 0) or (Y mod 4 = 0 and Y mod 100<>0) next Y评分标准:本题共有4个错误（见划线部分）各1分。共4分。2、（5分）Private Sub Command1_Click()Dim x%, max%, min%, i%, ave! max = 100: min = 50:ave=0 For i = 1 To 10 x =int(Rnd * 10

17、0 + 50) ave = ave + x If x < max Then max = x If x > min Then min = x Next i Print max, min, ave / 10End Sub正确的是：max = 50min = 100x =int(Rnd *51 + 50)x > maxx < min评分标准: 本题共有5个错误（见划线部分）各1分。共5分。五、程序填空。（1分/格，共6分）1、 910-i<a(j) =a(j+1)2、 ASC(“a”) 或 972*i-1评分标准: 每格1分，拼写错误不给分。六、界面设计（共5分）对象名

18、属性名设置值窗体 caption登录窗体 borderstyle3命令按钮 backcolor 浅蓝命令按钮 Style 1命令按钮 caption确定标签1，标签2Caption 姓名/密码标签1，标签2Font 四号、宋体文本框1，文本框2text设置为空文本框2passwordchar*评分标准: 每格1分，拼写错误不给分。七、程序设计（共35分）1、（15分）Private Sub Command1_Click()Dim income!, tax!，x! income = Val(InputBox("请输入本月所得") x = income - 3500 If x

19、<= 1500 Then tax = 0.03 * x Else If x <= 4500 Then tax = 0.1 * x Else If x <= 9000 Then tax = 0.2 * x Else If x <= 35000 Then tax = 0.25 * x Else If x <= 55000 Then tax = 0.3 * x Else If x <= 80000 Then tax = 0.35 * x Else tax = 0.45 * x End If End If End If End If End If End If Print "收入是" income Print "个人所得税为" taxEnd Sub评分标准:本题可以用if语句多种形式编写。但用Select case语句编写，则不给分。具体评分原则如下： 输入 2分输出 2分if语句语法正确 4分“条件”表达正确 4分计算式中3%、10%、45% 表达正确 2分计算时要将收入-3500