计算机VB期末考试题库.doc

基本题1 Visual Basic程序中语句行的续行符是（D ）。2 设a=2,b=3,c=4,d=5,下列表达式的值是（ B）。 Ab AND cc3“&”用作字符串连接符时，下列说法正确的是（ C）。“”用作字符串连接符时，下列说法正确的是（ B）。5“X是小于100的非负数”，用VB表达式表示正确的是（C ）。62*Sqr(4)的值是（ A）。7Abs(-3.14)的值是（ D）。8Do循环语句是根据条件决定循环的语句的，下列说法正确的是（B）。9For语句的格式如下，下列说法错误的是（ A）。For = to step exit forNext 10InputBox 函数返回值的类型是（B ）。11Int（23.512）的值为（ D）。12Len(ab湖南长沙)的值是（B ）。13s$=abcdefghijk，left$(s$,4)的值是（C ）。14s$=abcdefghijk，Mid$(s$,1,4)的值是（C ）。15s$=abcdefghijk，Right$(s$,4)的值是（B）。16UCase$(Abc)的值为（ C）。17VB 窗体默认的坐标单位是（ C）。18VB6.0中专门为程序代码的书写提供了一个（A）窗口。19VB把开发一个应用程序视为一项工程，用创建工程的方法来创建一个应用程序，并利用（A ）窗口来管理工程。20Visual Basic 窗体设计器的主要功能是（ A）。21变量x的值为3，y的值为4，执行下列哪个语句后，可输出表达式：347（A ）。22标签所显示的内容，由（C ）属性值决定。23表达式11 Mod 4/2的值是（ D）。24表达式Int(90*rnd()+10的值的范围是（ D ）。25表达式中包含下述多种运算时，计算机会最后进行（D ）运算。26不属于VB三种工作模式的是（C）。27窗体标题栏显示的内容由窗体对象的（D ）属性决定。28从功能上讲，Visual Basic 6.0有3种版本，下列不属于这3种版本的是( B ) 。29粗体字由（D）属性设置。30单选按钮的控件名称为（ D）。31当窗体被启动时，（ A）事件将会发生。32当窗体的被移动时，将会发生的事件是（A ）。33定时器的定时间隔单位是（C ）。34关于VB源代码的编写，下列说法错误的是（D）。35关于VB中程序运行的方式，以下说法正确的是（D ）。36关于Visual Basic中事件的说法中，不正确的为（D ）。37关于逻辑型数据，下列说法错误的是（ B）。38关于条件语句，下列说法错误的是（ D）。39函数过程是以（ A）保留字开始的。40假定窗体的名称（Name属性）为Form1，则把窗体的标题设置为“VB Test”的语句为（ B）。41将数值型数据转换成字符串型数据的函数是（B ）。42将数字字符串转换成数值型常数的函数是（ D）。43命令按钮的标题文字由（ B）属性来设置。44默认情况下，语句：Dim student(10,5) 定义的数组有（B ）个元素。45默认情况下，语句：Dim student(100) 定义的数组有（D）个元素。46某一变量要求在程序各模块中均可使用，应在（C ）中用Public声明该变量。47清除当前VB 窗体上文本信息的方法是（ A）。48求字符串长度的函数是（ A）。49闰年的条件是年号(year)能被4整除，但不能被100整除，或者能被400整除。则闰年的布尔表达式为（B ）。50若要获得滚动条的当前值，可通过访问（ B）属性来实现。51若要将隐藏的窗体显示出来，实现的方法为（ C）。52若要求向文本框输入密码时，只在文本框中显示*号，则应当在此文本框的属性窗口中设置（D）。53若要设置定时器的定时间隔设为2秒，应将Interval属性值设为（ C）。54若要设置文本框中的文本，可通过文本框对象的（ A）属性来实现。55若要设置文本框最大可接收的字符数，可通设置（D）属性值来实现。56若要使定时器起作用，应将其（ D）属性设置值设为True。57若要使命令按钮在运行时不可见，可通过设置（A）属性的值为False来实现。58若要文本框在失去控制焦点后，执行某一动作，可以对（ D）事件进行编程。59设a，b，c为整型变量，其值分别为1，2，3，以下程序段的输出结果是（D ）。a=b:b=c:c=aPrint a;b;c60设a=2,b=3,c=4,d=5,下列表达式的值是（B）。32*b OR a=c AND bc OR cm then m=b if cm then m=c Max=mEnd Function17已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print Min(10,20,30)，则单击Command1时，输出结果为（10 ）。Private Function Min( a,b,c) m=a if bm then m=b if c=y then a=y else a=a-y-17 Print a30以下程序段的输出结果是（B ）。 Score=int(rnd*5)+80 Select Case score Case 60 to 69： a$=“D” Case 70 to 79： a$=“C” Case 80 to 89: a$=“B” Case else: a$=“A” End selectPrint a$31以下程序段的输出结果是（2 1 ）。 A=1：b=2：t=0if ab then t=a:a=b:b=tPrint a;b32以下程序段的输出结果是（1 ）。 N=13: a=2 m=n mod 10 Select Case m Case is0: a=1 End select Print a33以下程序段的输出结果是（1 1 1 ）。 For k=1 to 3 if k =1 then a=3 if k =2 then a=2 if k =y then a=y else a=a-y Print a36以下程序段的输出结果是（5151 ）。While n4x=x*y：y=y+1loopPrint x38以下程序段的输出结果是（15 ）。A=0For j=1 TO 15 a=a+(j MOD 3)Next jPrint a39以下程序段的输出结果是（23 ）。A=23while a*2a+46 a=a+1wenda=a-23Print a40以下程序段的输出结果是（5050 ）。N=1:s=0do s=s+n : n=n+1loop until n100Print s41以下程序段的输出结果是（5050 ）。N=1:s=0do s=s+n : n=n+1loop while n=100 s=s+n : n=n+1loopPrint s43以下程序段的输出结果是（5 ）。N=4：k=1：I=0For I=1 to n k=k*INext IPrint I44以下程序段的输出结果是（24 ）。N=4：k=1：I=0For I=1 to n k=k*INext IPrint k45以下程序段的输出结果是（1 2 3 ）。Num=0While num=2 num=num+1Print num;Wend46以下程序段的输出结果是（123 ）。Print 1;2Print 347以下程序段的输出结果是（ 123）。Print 1;2;Print 348以下程序段的输出结果是（1 2 3 ）。Print 1;2Print 349以下程序段的输出结果是（10 ）。Sum=0 For j=1 to 10 if j=10 then sum=sum+j endifNext jPrint sum50以下程序段的输出结果是（2 ）。X=0:n=0Do While x50x=(x+2)*(x+3)n=n+1LoopPrint n51以下程序段的输出结果是（72 ）。X=0:n=0Do While xn then max=b if cn then max=c Print n53以下程序段运行的结果为（ ）。Dim m(1),s ：s=0For I=1 to 5 m(I)=Is=s+m(I)Next IPrint s54以下程序段运行的结果为（ 25）。Dim m(10)For I=1 to 5 m(I)=I*INext IPrint m(I-1)55以下程序段运行的结果为（16 ）。Dim m(10)For I=1 to 5 m(I)=I*INext IPrint m(I-2)56以下程序段运行的结果为（ 15）。Dim m(10),s : s=0For I=1 to 5 m(I)=I s=s+m(I)Next IPrint s57执行如下程序段后，s的值为（23 ）。Dim I%,j%,s As stringI=2:j=3:s=I & j58执行下列语句：int1%=28if int130 then Print “int1=30”其输出结果为（int1=30 ）。59执行下面的程序段后，a的值为 （14 ）。For I=1 To 3For j=1 To IFor k=j To 3a=a+1Next k, j, I60执行下面的程序段后，I 的值为 （12 ）。X=5For I=1 To 10 Step 2x=x+( I 3)Next Iprint I61执行下面的程序段后，I的值为（5 ）。S = 5For I = 2.5 To 4.6 Step 0.5s = s+1Next Iprint I62执行下面的程序段后，s的值为（10 ）。S = 5For I = 2.5 To 4.6 Step 0.5s = s+1Next Iprint S63执行下面的程序段后，x 的值为 （9 ）：x=5For I=1 To 10 Step 2x=x+( I Mod 3) Next IPrint x程序改错1、程序功能：把一张百元钞票,换成一元、二元和五钞票,每种至少8张,求对换方案数。程序中有两行有错误。改正错误，使它能输出正确的结果 80种Private Sub Command1_Click()n = 0 下一行程序有错！ For x = 1 To 100 改成 For x=8 to100 For y = 8 To 50 For z = 8 To 20 下一行程序有错！ If x + y + z = 100 Then n = n + 1 改成 If x*1+y*2+z*5=100 then Next z Next yNext xEnd sub2、程序功能：猴子第1天摘下若干桃子，当即吃掉一半，又多吃一个，第二天将剩余的部分吃掉一半还多一个；以此类推，到第10天只剩余1个。问第1天共摘了多少桃子。程序中有两行有错误。改正错误，使它能输出正确的结果 1534Private Sub Form_Click() Dim day As Integer, sum As Integer 下一行程序有错！ day = 10; sum = 1 改成 ：不是； Do While day 1 下一行程序有错！ sum = sum * 2 2 改成sum=(sum+1)*2 day = day - 1 Loop Print sumEnd Sub3、程序功能：计算y=1+2/3+3/5+4/7+n/(2*n-1)(n=50), 要求：按四舍五入的方式精确到小数点后第二位。程序中有一处错误。改正错误，使它能输出正确的结果 26.47Private Sub Command1_Click() Dim s As Single Dim n As Integer s = 0 For n = 1 To 50 下一行程序有错 s = s + n / 2 * n 1 改成 s=s+n/(2*n-1) Next n Print Round(s, 2)End Sub4、程序功能：计算两个数的最大公约数。程序中有一处错误，改正错误，使程序能输出正确结果 13Private Sub Command1_Click() Print fun(14339, 507)End SubPrivate Function fun(u, v)m = uFor I = m To 1 Step -1 If v Mod I = 0 And u Mod I = 0 Then 下一行程序有错！ Fun = 1 改成 Fun= I Exit For End IfNext IEnd Function5、程序功能：计算两个数的最小公倍数。程序中有一处错误，改正错误，使程序能输出正确结果 26288 Private Sub Command1_Click() Print fun(248, 848)End SubPrivate Function fun(u, v) t = u Do While t Mod u 0 Or t Mod v 0 t = t + u Loop 下一行程序有错 fun = u 改成 fun=tEnd Function6、程序功能：求1，130间所有整数的立方和并输出结果。程序中有两行有错误。改正错误，使它能输出正确的结果 72505225Private Sub Command1_Click() 下一行程序有错！ Dim s As Integer 改成 Dim s As Long Dim x As Integer x = 1 s = 0 下一行程序有错！ Do While x 130 改成 Do While x=130 s = s + x 3 x = x + 1 Loop Print sEnd Sub7、程序功能：求351,432之间既不能被3整除,也不能被8整除的正整数的个数。程序中有一处错误。改正错误，使它能输出正确的结果 47Private Sub Command1_Click() Dim c As Integer Dim x As Integer For x = 351 To 432 If x Mod 3 0 And x Mod 8 0 Then c = c + 1 End If 下一行程序有错 Next c 改成 Next x Print cEnd Sub8、程序功能：求1200之间的能被7整除的数的平方和。程序有一处错误。改正错误，使它能输出正确的结果 377986Private Sub Command1_Click() Dim x As Integer Dim sum As Long x = 1 sum = 0 While x = 200 下一行程序有错 If x / 7 = 0 Then 改成 If x mod 7=0 Then sum = sum + x 2 End If x = x + 1 Wend Print sumEnd Sub9、程序功能：求1200之间能被7整除的数的平方和。程序有一处错误。改正错误，使它能输出正确的结果 377986Private Sub Command1_Click() Dim x As Integer 下一行程序有错 Dim sum As Integer 改成 Dim sum As Long x = 1 sum = 0 While x = 200 If x Mod 7 = 0 Then sum = sum + x 2 End If x = x + 1 Wend Print sumEnd Sub10、程序功能：求160之间的所有整数的平方和。程序中有错误。改正错误，使它能输出正确的结果 73810Private Sub Command1_Click() Dim s As Long Dim x As Integer s = 0 For x = 1 To 60 s = s + x 2 下一行程序有错 Next s 改成 Next x Print sEnd Sub11、程序功能：求199的平方根的和并输出结果。（保留小数点两位），程序中有错误。改正错误，使它能输出正确的结果 661.46Private Sub Command1_Click() Dim x As Integer 下一行程序有错 Dim sum As Integer 改成 Dim sum As Single x = 1 Do While x = 99 sum = sum + Sqr(x) x = x + 1 Loop Print Round(sum, 2)End Sub12、程序功能：求1到400间，同时能被3和7整除的数的个数。程序中有一处错误。改正错误，使它能输出正确的结果 19Private Sub Form_Click()Dim count As IntegerDim x As IntegerFor x = 1 To 400 下一行程序有错 If Mod(x, 3) = 0 And Mod(x, 7) = 0 Then 改成 If x mod 3=0 and x mod 7=0 Then count = count + 1 End IfNext xPrint countEnd Sub13、程序功能：求200到400间，能被整除但不能被整除的数的个数。程序中有错误。改正错误，使它能输出正确的结果 57Private Sub Command1_Click() Dim count As Integer Dim x As Integer count = 0 x = 200 While x = 400 If x Mod 3 = 0 And x Mod 7 0 Then count = count + 1 End If x = x + 1 下一行程序有错Loop 改成 WendEnd sub14、程序功能：求S=1+1/2+1/3+1/100，程序中有两行错误。改正错误，使它能输出正确的结果 5.197278Private Sub Command1_Click() sum1 = sumd(100) Print sum1End SubPrivate Function sumd(n As Integer) As Single i = 0 Do i = i + 1 s = s + 1 / I 下一行程序有错！ Loop Until I n 下一行程序有错！ Sumd = I 改为：sumd=sEnd Function15、程序功能：求s=1+3+5+7+.直到s2000为止。程序中有一行有错误。改正错误，使它能输出正确的结果 2025Private Sub Command1_Click() Dim i As Integer, s As Long s = 0 i = 1 Do Until s 2000 s = s + i 下一行程序有错 i = i + 1 改成 i=i+2 Loop Print sEnd Sub16、程序功能：求个位数是6，且能被3整除的所有四位数之和。程序中有一行错误，改正错误，使程序能输出正确的结果 1653300Private Sub Command1_Click() Dim i% Dim s& s = 0 For i = 1