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

经典word整理文档，仅参考，双击此处可删除页眉页脚。本资料属于网络整理，如有侵权，请联系删除，谢谢！九江学院期末考试复习题（政法A1111)第一套一、判断题1、VisualBasic程序开发的特点是面向对象的事件驱动。2、Print_Text是一个不合法的变量名。3、窗体的AutoRedraw属性实现了屏幕图像的重建.（√）（√））4、设置字体大小应使用Font属性5、Sub过程可以实现嵌套调用6、IIF函数中的三个参数都不能省略。（）(√）(√）7、块结构条件语句以EndIf结束，而单行结构条件语句没有EndIF。(√)8、当终值小于初值时，步长为负数。（√）9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行.（√)10、关于数组的引用，在程序中，凡是简单变量可以出现的地方都可以出现数组元素的引用（√）二、单项选择题1．PrintFormat123，"####”）执行之后的结果为A）#123B)123C）123＃）＃###【答案】B2．下面可以表示注释语句开头的为A）ReB）RC）RemD）dim【答案】C3．下列选项中窗体载入事件为A）Load事件B）Click事件）DblClick事件）Unload事件【答案】A4．Timer控件可以使用下列哪种事件A）Click事件B）Timer事件）Dblclick事件）Change事件【答案】B5．在InputBox函数中哪一个参数是必须的A)PromptB）ButtonsC）TitleD）Context【答案】A6．以下叙述中错误的是：A)如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B）Sub过程中不能嵌套定义Sub过程）Sub过程可以嵌套调用Sub过程）事件过程可以像通用过程一样由用户定义过程名【答案】C7．要填加一个标准模块,可使用“_____"添加模块命令.A)文件B）视图）工程工具【答案】C8．在块结构条件语句IfThen/Endif中（A)必须至少有一个Elseif语句(B)可以有任意多个ElseIf-Then语句（C)如果没有Else语句，运行时将出现错误(D)给定的条件只能是关系表达式或逻辑表达式【答案】B9．以下Case语句中错误的是(A）Case10To1（B)CaseIs10）CaseIs>10，Is<50（）Case3，5，〉10【答案】A10．对DoUntil…Loop循环，正确的是(A．如果循环条件为常数0，则一次循环也不执行B．如果循环条件为常数0，则至少执行一次循环．如果循环条件是不为0的常数，则至少执行一次循环．无论循环条件是否为"True”，则至少执行一次循环【答案】B）。11．语句Dim（—3To5，2To6)AsInteger定义的数组元素有_______个。A）45B)40C)11D)54【答案】A12．下列关于OptionBase语句说法错误的是______DA）OptionBase语句只能出现在窗体层或模块层B)OptionBase语句不能出现在过程中）OptionBase语句必须位于数组的定义之前）OptionBase语句只对一维数组有效【答案】D13、VisualBasic的特点不包括下面的(A）A不需编程C可视化程序设计B面向豆象的程序设计D时间驱动的程序设计14、从键盘上能够输入两个字符串,分别保存在变量str1、str2中.确定第二个字符串在第一个字符串中起始位置的函数是(D)ALeftBMidCStringDInstr15、如果将布尔常量值True赋值给一个整型变量，则整型变量的值为(B）A0B-1CTrueDfalse16、下列符号常量的声明中，（）是不合法的。AConstaAsSingle=1。1CConstaAsDouble=Sin（1)BConstaAsInteger=“12”DConsta=”OK"17、四个字符“E”,“y",“B”，“8”的ASCII码值最大的是（B）A“E”C“B"B“y”D“8”18、将变量k四舍五入保留2位小数的表达式是（）AInt((k+0.5)*100)/100CInt（k＊100+0。5)/100BIntk＊100）/100)+05DInt(k*(100+0.5）)/100”19、30．将数学表达式Cos2（a+b)+5e2写成VisualBasic的表达式，其正确的形式是(A）A）Cos(a+b）＊exp（2)B)Cos^2（a+b)+5＊exp(2）C)Cos（a+b)^2+5*ln(2））Cos^2(a+b）+5＊ln（2)20、在顺序文件中，当使用Write＃语句时，文件打开的方式必须是（B）AOutput和InputCOutput三、程序分析题BOutput和AppendDAppend1．以下语句的输出结果是（注：表示一个空格）a=123b=456Printa；bA）123■456【答案】DB）■123■456C)■123■456■D）■123■■4562．下列程序执行的结果为x=-6^2PrintSgn(x）+Abs（x)+（）A）－36B1C）－1D）－72【答案】C3．在窗体上画一个名称为Command1,一个名称为Label1的标签，然后编写如下的事件过程：PrivateSubCommand1_Click（)s=0Fori=0To15X=2*i—1IfXMod3=0Thens=s+1NextiLabel1。Caption=sEndSub程序运行后,单击命令按钮，则标签中显示的内容为A）1B)5C）27D）45【答案】B4Command1Label1Label2、Label3的标签,然后编写如下的事件过程：PrivatexAsIntegerPrivateSubCommand1_Click(）StaticyAsIntegerDimzAsIntegern=10z=n+zy=y+zx=x+zLabel1.Caption=xLabel2.Caption=yLabel3.Caption=zEndSub运行程序后，连续三次单击命令按钮后，则三个标签中显示的内容分别是A)101010B）303030C）303010D）1030【答案】C5Command1Label1Label2的标签，然后编写如下的事件过程：PrivatexAsIntegerPrivateSubCommand1_Click()x=：y=3Call，y)Label1.Caption=xLabel2。Caption=yEndSubPrivateSubProc(ByValaAsInteger,ByValbAsInteger）x=a＊ay=b+bEndSub运行程序后,则两个标签中显示的内容分别是A）5和3【答案】BB)25和3C）25和6D）5和66.下面程序段求两个数中的大数，不正确的是（A）If＞yThenMax=xElseMax=y（B）Max=IIf(x＞，，y)（C)If＞=xThenMax=yMax=x（）Ify＞xThenMax=yMax=x【答案】D7．如果x的值大于或等于y“OK"，表示这个条件的单行格式的If语句是A)If〉=y^3Print“OK"B）If＊y*yThen“OK"）Ifx>=y^3ThenPrint“OK"D)If〉＊yThenPrint“OK”EndIf【答案】C8．下列程序段执行结果为x=5y=—6IfNotx<0Thenx=y—3Elsey=x+3Printy-；x—yA)3－3B）－95）－33D)5－6【答案】A9．已知x的值，计算分段函数f（下面选项不正确的是当＞=1，f（）=当＜1，f(x）=x2+3(A）SelectCasexCaseIs〈1；f=x^2+3Caseelsef=sqr(x+1)EndSelect(B)SelectCasexCasex>=1f=sqr(x+1）Casex<1f=x^2+3EndSelect(C)SelectCasexCaseIs〉=1f=sqr(x+1）CaseIs<1f=x^2+3EndSelect）IF〉=1thenf=sqr（x+1）elsef=x^2+3【答案】B10．执行完下面的程序段后，循环执行了(）次。Fori=1.7To5.9Step0.9a=a+1PrintaNextIA．3B4C．5D．6【答案】C11．下列程序段的执行结果为（。n=0j=1DoUntiln〉2n=n+1j=j+n*(n+1)LoopPrintn；jA．01B．37C．321D．313【答案】C12．以下正确的For…Next结构是（A）Forx=1To10fory=1to10…Next（B）Forx=1To10fory=1to10…Nexty，x(C)Forx=1To10fory=1to10NextxNexty（）Forx=1To10fory=1to10…Nextx，y【答案】B13．下列程序中，第一个Do语句共执行了(）次循环。DimiAsInteger,jAsIntegeri=1Doj=1DoSum=Sum+jj=j+2Printj;LoopUntilj>3i=i+2LoopUntili>10PrintSumA．10B．20．5．7【答案】A14．下列语句中,a是一个数组，则使用正确的是______A）OptionBase2B)Redima）Erasea）a=Array（）【答案】C15.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程：PrivateSubCommand1_Click(）Dimarray1(10,10）AsIntegerDimiAsInteger,jAsIntegerFori=1To3forj=2To4array1(i,j)=i+jnextjnextiText1.Text=arrry1(2,3）+（3，4)EndSub程序运行后，单击命令按钮,在文本框中显示的值是______A）12B)13C)14D)15【答案】A16。在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click(）Dima(10，10）AsIntegerDimiAsInteger，jAsIntegerFori=1To3forj=1To3a（i,j）=（i1)＊3+jPrinta（i,j）;nextjPrintnextiEndSub程序运行后，单击命令按钮，窗体上显示的是______A)123246369B）234345456）147258369D)123456789【答案】D17.设有如下程序:OptionBase0PrivateSubForm_Click()DimaDimiAsIntegera=Array(1,2,3，45，6，7，8,9)Fori=0To3Printa(5–；NextEndSub程序运行后，单击窗体，则在窗体上显示的是______A)4321B)5432C)6543D）7654【答案】C18．执行以下Command1的Click事件过程在窗体上显示_______。PrivateSubCommand1_Click(）Dimaa=Array(“a”，”b”,”c”,"d”，”e”，”f，，”g”)Printa(1);a(3);a（）EndSubA)abcB)bdfC）aceD）出错【答案】B19、设有语句Open"c:\Test。Dat"ForOutputAs#1则以下错误的叙述是（B）A）该语句打开C盘根目录下一个已存在的文件Test.DatB）该语句在C盘根目录下建立一个名为Test.Dat的文件）该语句建立的文件的文件号为1执行该语句后,就可以通过Print＃语句向文件Test。Dat中写入信息20、以下代码完成对顺序文件test1。txt追加打开的是（）A）Opentest1.txtForInputAs＃1B)Opentest1。txtForOutputAs＃1）Opentest1。txtForApp