九江学院VB期末考试题目及详细答案

1、九江学院期末考试复习题（政法A1111）第一套一、判断题1、VisualBasic®序开发的特点是面向对象的事件驱动。（2、Print_Text是一个不合法的变量名。（为3、窗体的AutoRedraw属性实现了屏幕图像的重建。（M4、设置字体大小应使用Font属性（凶5、Sub过程可以实现嵌套调用（/6、IIF函数中的三个参数都不能省略。（.7、块结构条件语句以EndIf结束，而单行结构条件语句没有EndIE38、当终值小于初值时，步长为负数。（M9 、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。（M10 、关于数组的引用,在程序中,凡是简单变量可

2、以出现的地方都可以出现数组元素的引用（V）二、单项选择题11 PrintFormat（123，”#）执行之后的结果为”A）123B）123C）123D）【答案】B12 下面可以表示注释语句开头的为A）ReB）RC）RemD）dim【答案】C3下列选项中窗体载入事件为A)Load事件B)Click事件C)DblClick事件D)Unload事件【答案】A4Timer控件可以使用下列哪种事件A)Click事件B)Timer事件C)Dblclick事件D)Change事件【答案】B5在InputBox函数中哪一个参数是必须的A) PromptB)ButtonsC)TitleD)Context【答案】

3、A6以下叙述中错误的是：A)如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B) Sub过程中不能嵌套定义Sub过程C) Sub过程可以嵌套调用Sub过程D)事件过程可以像通用过程一样由用户定义过程名【答案】C7 要填加一个标准模块，可使用“菜单中的”“添加模块”命令。A)文件B)视图C)工程D)工具【答案】C8 在块结构条件语句If-Then/Endif中(A)必须至少有一个日seif语句(B)可以有任意多个ElseIf-Then语句(C)如果没有曰se语句，运行时将出现错误(D)给定的条件只能是关系表达式或逻辑表达式【答案】B9 .以下Case语句中错误的是(A)

4、 Case10To1(B) CaseIs>10(C)CaseIs>10,Is<50(D)Case3,5,Is>10【答案】A10对DoUntilLcop,IZ()。A如果循环条件为常数0，则一次循环也不执行B如果循环条件为常数0，则至少执行一次循环C如果循环条件是不为0的常数，则至少执行一次循环D无论循环条件是否为“True”,则至少执行一次循环11 .语句Dimarr(-3To5,2To6)AsIntege定义的数组元素有个A)45B)40C)11D)54【答案】A12 .下列关于OptionBase语句说法错误的是DA) OptionBase语句只能出现在窗体层或模

5、块层B) OptionBase语句不能出现在过程中C) OptionBase语句必须位于数组的定义之前D) OptionBase语句只对一维数组有效【答案】D13、VisualBasic!勺特点不包括下面的(A)A不需编程B面向豆象的程序设计C可视化程序设计D时间驱动的程序设计14、从键盘上能够输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是(D)ALeftBMidCStringDInstr15、如果将布尔常量值True赋值给一个整型变量，则整型变量的值为E) B)A0B-1CTrueDfalse16、下列符号常量的声明中，(C)是不合法的。

6、AConstaAsSingle=1.1BConstaAsInteger=“12”CConstaAsDoConsta=”OK”17、四个字符“E”，“y”，的“ASCi网8'最大白是(B)A“E”B“y”C“B”D“8”18、将变量k四舍五入保留2位小数的表达式是(C)AInt(k+0.5)*100)/100BInt(k*100)/100)+0.5CInt(k*100+0.5)/100DInt(k*(100+0.5)/100”19、30.将数学表达式Cos2(a+b)+5e当成VisualBasic的表达式，其正确的形式是(A)A)Cos(a+b2+5*exp(2)B)CosA2(a+b

7、)+5*exp(2)C)Cos(a+b)A2+5*ln(2)D)CosA2(a+b)+5*ln(2)20、在顺序文件中，当使用Write#语句时，文件打开的方式必须是(B)AOutput和InputBOutput和AppendCOutputDAppend三、程序分析题1 以下语句的输出结果是(注：表示一个空格)a=123b=456Printa;bA)1231456B)112314560123456D)123-456【答案】D2 下列程序执行的结果为x=-6A2PrintSgn(x)+Abs(x)+Int(x)A)36B)1C)1D)72【答案】C3在窗体上画一个名称为Command1的命令按钮

8、，一个名称为Label1的标签，然后编写如下的事件过程：PrivateSubCommand1_Click()s=0Fori=0To15X=2*i-1IfXMod3=0Thens=s+1NextiLabel1.Caption=sEndSub程序运行后，单击命令按钮，则标签中显示的内容为A)1B)5C)27D)45【答案】B4在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、Label2、Label3的标签，然后编写如下的事件过程：PrivatexAsIntegerPrivateSubCommand1_Click()StaticyAsIntegerDimzAsIntegern

9、=10z=n+zy=y+zx=x+zLabel1.Caption=xLabel2.Caption=yLabel3.Caption=zEndSub运行程序后，连续三次单击命令按钮后，则三个标签中显示的内容分别是A)101010B)303030C)303010D)1030【答案】C5在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、Label2的标签，然后编写如下的事件过程：PrivatexAsIntegerPrivateSubCommand1_Click()x=5:y=3CallProc(x,y)Label1.Caption=xLabel2.Caption=yEndSubP

10、rivateSubProc(ByValaAsInteger,ByValbAsInteger)x=a*ay=b+bEndSub运行程序后，则两个标签中显示的内容分别是A)5和3B)25和3C)25和6D)5和6【答案】B6 .下面程序段求两个数中的大数，不正确的是(A) Ifx>yThenMax=xElseMax=y(B) Max=IIf(x>y,x,y)(C) Ify>=xThenMax=yMax=x(D)Ify>xThenMax=yMax=x【答案】D7 .如果x的值大于或等于y的立方，则打印“OK'表示这个条件的单行格式的If语句是A) Ifx>=yA

11、3Print“OKB) Ifx>=y*y*yThen“OK”C) Ifx>=yA3ThenPrint“OK”D) Ifx>=y*y*yThenPrint“OK”EndIf【答案】C8 下列程序段执行结果为x=5y=-6IfNotx<0Thenx=y-3Elsey=x+3Printy-x;x-yA) 33B) 95C)33D)56【答案】AF面选项不正确的是9已知x的值，计算分段函数f(x)，当x>=1,f(x)=;当x<1,f(x)=x2+3(A) SelectCasexCaseIs<1f=xA2+3Caseelsef=sqr(x+1)EndSelec

12、t(B) SelectCasexCasex>=1f=sqr(x+1)Casex<1f=xA2+3EndSelect(C)SelectCasexCaseIs>=1f=sqr(x+1)CaseIs<1f=xA2+3EndSelect(D)IFx>=1thenf=sqr(x+1)elsef=xA2+3【答案】B10 执行完下面的程序段后，循环执行了(Fori=1.7To5.9Step0.9a=a+1PrintaNextIA3B4C5D6【答案】C11 下列程序段的执行结果为()。n=0j=1DoUntiln>2n=n+1j=j+n*(n+1)LoopPrintn;

13、jA01B37C321D313)次。【答案】C12 .以下正确的ForNe库构是（ A） Forx=1To10fory=1to10Next（ B） Forx=1To10fory=1to10Nexty,x（ C） Forx=1To10fory=1to10NextxNexty（ D） Forx=1To10fory=1to10Nextx,y【答案】B13 .下列程序中，第一个Do语句共执行了（）次循环DimiAsInteger,jAsIntegeri=1Doj=1DoSum=Sum+jj=j+2Printj;LoopUntilj>3i=i+2LoopUntili>10PrintSumA1

14、0B20C5D7【答案】A14 下列语句中，a是一个数组，则使用正确的是A) OptionBase2B) RedimaC) EraseaD) a=Array()【答案】C15 .在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=1To3forj=2To4array1(i,j)=i+jnextjnextiText1.Text=arrry1(2,3)+array(3,4)EndSub程序运行

15、后，单击命令按钮，在文本框中显示的值是A)12B)13C)14D)15【答案】A16 .在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dima(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=1To3forj=1To3a(i,j)=(iT)*3+jPrinta(i,j);nextjPrintnextiEndSub程序运行后，单击命令按钮，窗体上显示的是A)1232 463 69B)2344 455 56C) 1472 583 69D) 1234 567 89【答案】D17 .设有

16、如下程序：OptionBase0PrivateSubForm_Click()DimaDimiAsIntegera=Array(1,2,3,4,5,6,7,8,9)Fori=0To3Printa(5-i);NextEndSub程序运行后，单击窗体，则在窗体上显示的是A)4321B)5432C)6543D)7654【答案】C18 .执行以下Commandl的Click事件过程在窗体上显示1cPrivateSubCommand1_Click()Dimaa=Array(“a”,”b”,”c”,”d”,”e”,”f,”,”g”)Printa(1);a(3);a(5)EndSubA)abcB)bdfC)a

17、ceDl)错【答案】B19、设有语句Open"c:Test.Dat"ForOutputAs#1则以下错误的叙述是(B)A)该语句打开C盘根目录下一个已存在的文件Test.DatB)该语句在C盘根目录下建立一个名为Test.Dat的文件C)该语句建立的文件的文件号为1D)执行该语句后，就可以通过Print#语句向文件Test.Dat中写入信息20、以下代码完成对顺序文件test1.txt追加打开的是(C)A) Opentest1.txtForInputAs#1B) Opentest1.txtForOutputAs#1C) Opentest1.txtForAppendAs#1D) Opentest1.txtForRedomAs#1四、上机题1 .小王有存款A元，年利率为P,存储时间为T年.请编写一个程序计算本利合计。(A、P、T均使用Inputbox输入)2 求100以内的素数，素数是指一个数x除了1和它本身，不能被其他任何整数整除。要求每行输出10个素数。单击窗体，运行结果如图所示：答案在单击窗体的事件过程中添加代码，程序代码如下：PrivateSubForm_click()ConstN=100Dimi,j,Line,a(N)AsIntegerFori=0ToN-l置初值a(i)=iNextiFori=2ToSqr(N)Forj=i+1ToNIfa(i)&