VB综合测试试题

VB综合复习题第一套1、VB是一种面向对象的程序设计语言。2、VisualBasic程序的运行，仅能从某一窗体启动，如Form1窗体。3、单击并拖拽工具箱中所需的控件到窗体上即可完成添加控件任务.4、Visual_basic是合法的变量名。5、设A=3,B=4,C=5,D=6，则表达式A>BAndC<=DOr2*A>C的值是False。6、VB规定窗体文件的扩展名是.vbp。7、VB若同一个工程有许多窗体，可以指定任一窗体为启动窗体。8、VB允许设计和使用用户自己设计的控件。9、VB允许用户使用Type语句在窗体模块的通用声明中自己定义数据类型。10、在框架控件内的几个单选按钮中，可有一个或多个单选按钮的Value属性为True。1、√

2、×3、×4、√

5、×6、×7、√8、√

9、√10、×11．PrintFormat（123，”####”）执行之后的结果为A）＃123B）123C）123＃D）＃＃＃＃【答案】B12．下面可以表示注释语句开头的为A）ReB）RC）RemD）dim【答案】C13．下列选项中窗体载入事件为A）Load事件B）Click事件C）DblClick事件D）Unload事件【答案】A14．Timer控件可以使用下列哪种事件A）Click事件B）Timer事件

C）Dblclick事件D）Change事件【答案】B15．在InputBox函数中哪一个参数是必须的A）PromptB）ButtonsC）TitleD）Context【答案】A16．以下叙述中错误的是：A）如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B）Sub过程中不能嵌套定义Sub过程C）Sub过程可以嵌套调用Sub过程D）事件过程可以像通用过程一样由用户定义过程名【答案】C17．要填加一个标准模块，可使用“_____”菜单中的“添加模块”命令。A）文件B）视图C）工程D）工具【答案】C18．在块结构条件语句If-Then/Endif中(A)必须至少有一个Elseif语句(B)可以有任意多个ElseIf-Then语句(C)如果没有Else语句，运行时将出现错误(D)给定的条件只能是关系表达式或逻辑表达式【答案】B19．以下Case语句中错误的是(A)Case10To1(B)CaseIs>10(C)CaseIs>10,Is<50(D)Case3,5,Is>10【答案】A20．对DoUntil…Loop循环，正确的是()。A．如果循环条件为常数0，则一次循环也不执行B．如果循环条件为常数0，则至少执行一次循环C．如果循环条件是不为0的常数，则至少执行一次循环D．无论循环条件是否为"True"，则至少执行一次循环【答案】B21．以下语句的输出结果是（注：■表示一个空格）a=123b=456Printa;bA）123■456B）■123■456C）■123■456■D）■123■■456【答案】D22．下列程序执行的结果为

x=-6^2PrintSgn(x)+Abs(x)+Int(x)A）－36B）1C）－1D）－72【答案】C23．在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下的事件过程：PrivateSubCommand1_Click()s=0Fori=0To15X=2*i-1IfXMod3=0Thens=s+1NextiLabel1.Caption=sEndSub程序运行后，单击命令按钮，则标签中显示的内容为A）1B）5C）27D）45【答案】B24．在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、Label2、Label3的标签，然后编写如下的事件过程：PrivatexAsIntegerPrivateSubCommand1_Click()StaticyAsIntegerDimzAsIntegern=10z=n+zy=y+zx=x+zLabel1.Caption=xLabel2.Caption=yLabel3.Caption=zEndSub运行程序后，连续三次单击命令按钮后，则三个标签中显示的内容分别是A）101010B）303030C）303010D）1030【答案】C25．在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、Label2的标签，然后编写如下的事件过程：

PrivatexAsIntegerPrivateSubCommand1_Click()x=5:y=3CallProc(x,y)Label1.Caption=xLabel2.Caption=yEndSubPrivateSubProc(ByValaAsInteger,ByValbAsInteger)x=a*ay=b+bEndSub运行程序后，则两个标签中显示的内容分别是A）5和3B）25和3C）25和6D）5和6【答案】B26.下面程序段求两个数中的大数，不正确的是（A）Ifx＞yThenMax=xElseMax=y（B）Max=IIf(x＞y,x,y)（C）Ify＞=xThenMax=yMax=x(D)Ify＞xThenMax=yMax=x【答案】D27．如果x的值大于或等于y的立方，则打印“OK”，表示这个条件的单行格式的If语句是A）Ifx>=y^3Print“OK”B）Ifx>=y*y*yThen“OK”C）Ifx>=y^3ThenPrint“OK”D）Ifx>=y*y*yThenPrint“OK”EndIf【答案】C28．下列程序段执行结果为x=5y=-6IfNotx<0Thenx=y-3Elsey=x+3Printy-x;x-yA)3－3B)－95C)－33D)5－6【答案】A29．已知x的值，计算分段函数f(x)，下面选项不正确的是当x＞=1，f(x)=；当x＜1，f(x)=x2+3(A)SelectCasexCaseIs<1f=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(D)IFx>=1thenf=sqr(x+1)elsef=x^2+3【答案】B30．执行完下面的程序段后，循环执行了()次。Fori=1.7To5.9Step0.9a=a+1PrintaNextIA．3B．4C．5D．6【答案】C31、VB不要求程序员在使用变量前特别声明。如果没有声明变量，VB使用称为"_________"的缺省数据类型。32、VB变量有六种数据类型，分别为_________、_________、布尔型、日期型、_________和_________。33、在VB中，数组分为动态数组和静态数组。程序未运行时，_________不占用内存空间，编译系统为_________预留空间。31、变体类型32、数值型字符型对象型通用（变体）型33、在声明时动态数组34、调用Sub过程的两种方法是_________调用和_________调用。35、图片框（PictureBox）控件和图像（Image）控件均可以用来显示图像。其中_______可以作为其他控件的容器。_______可以自动调整控件大小以显示完整图形，_______可以延伸图片大小以适应控件大小。36、计算机的数据文件按数据存储方式分为_________文件、_________文件和_________文件。34、过程名[实参]Call过程名(实参)35、图片框（PictureBox）控件图像（Image）控件图像（Image）控件36、顺序随机二进制37、框架（Frame控件）可以用来__________________进行分组，以便于用户识别，主要用于为单选按钮分组。38、计时器控件通过定期激活Timer事件，使得Timer控件_________就执行一次Timer事件中的代码。39、工程文件是与_________和对象以及所设置的环境信息的一个简单列表。40、在程序中调用子过程需要指明_________，然后列出该子过程所要求的参数。37、对其它控件38、可以每隔一个时间段39、工程相关联的所有文件40、该过程的名称注意求100以内的素数，素数是指一个数x除了1和它本身，不能被其他任何整数整除。要求每行输出10个素数。在单击窗体的事件过程中添加代码，程序代码如下PrivateSubForm_click()ConstN=100Dimi,j,Line,a(N)AsIntegerFori=0ToN-l'置初值a(i)=iNextiFori=2ToSqr(N)Forj=i+1ToNIfa(i)<>0Anda(j)<>0ThenIfa(j)Moda(i)=0Thena(j)=0'能整除就赋0EndIfNextjNextiPrint"显示出100以内的素数"Fori=2ToN-1Ifa(i)<>0ThenPrinta(i);Spc(1);Line=Line+1EndIfIfLine<>0AndLineMod10=0ThenPrint'每行显示10个数NextiEndSubVB综合复习题第二套1、VisualBasic程序开发的特点是面向对象的事件驱动。（）2、Print_Text是一个不合法的变量名。（）3、VB支持弹出菜单，所谓“弹出菜单”是指单击鼠标后打开的菜单。（）4、设置字体大小应使用Font属性。（）5、Sub过程可以实现嵌套调用。（）6、可以用"&"，"+"合并字符串，但是用在数值变量时，"+"可能会将两个数值加起来。（）7、块结构条件语句以EndIf结束，而单行结构条件语句没有EndIF。（）8、当终值小于初值时，步长为负数。（）9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。（）10、关于数组的引用,在程序中,凡是简单变量可以出现的地方都可以出现数组元素的引用。()1、√

2、×3、×4、×5、√6、√

7、√8、√9、√10、√11．语句Dimarr(-3To5,2To6)AsInteger定义的数组元素有_______个。A)45B)40C)11D)54【答案】A12．下列关于OptionBase语句说法错误的是______A)OptionBase语句只能出现在窗体层或模块层B)OptionBase语句不能出现在过程中C)OptionBase语句必须位于数组的定义之前D)OptionBase语句只对一维数组有效【答案】D13、VisualBasic的特点不包括下面的（）A不需编程B面向对象的程序设计C可视化程序设计D时间驱动的程序设计【答案】A14、从键盘上能够输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是（）ALeftBMidCStringDInstr【答案】D15、如果将布尔常量值True赋值给一个整型变量，则整型变量的值为（B）A0B-1CTrueDfalse【答案】B16、下列符号常量的声明中，（）是不合法的。AConstaAsSingle=1.1BConstaAsInteger=“12”CConstaAsDouble=Sin(1)DConsta=”OK”C17、四个字符“E”,“y”,“B”,“8”的ASCII码值最大的是（B）A“E”B“y”C“B”D“8”B18、将变量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)+5e2写成VisualBasic的表达式，其正确的形式是（A）A)Cos(a+b)^2+5*exp(2)B)Cos^2(a+b)+5*exp(2)C)Cos(a+b)^2+5*ln(2)D)Cos^2(a+b)+5*ln(2)20、在顺序文件中，当使用Write#语句时，文件打开的方式必须是（）AOutput和InputBOutput和AppendCOutputDAppendB21．下列程序段的执行结果为()。n=0j=1DoUntiln>2n=n+1j=j+n*(n+1)LoopPrintn;jA．01B．37C．321D．313【答案】C以下正确的For…Next结构是（A）Forx=1To10fory=1to10…Next（B）Forx=1To10fory=1to10…Nexty,x（C）Forx=1To10fory=1to10NextxNexty（D）Forx=1To10fory=1to10…Nextx,y【答案】B23．下列程序中，第一个Do语句共执行了()次循环。DimiAsInteger,jAsIntegeri=1Doj=1DoSum=Sum+jj=j+2Printj;LoopUntilj>3i=i+2LoopUntili>10PrintSumA．10B．20C．5D．7【答案】A24．下列语句中，a是一个数组，则使用正确的是______A)OptionBase2B)RedimaC)EraseaD)a=Array()【答案】C25.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=1To3forj=2To4array1(i,j)=i+jnextjnextiText1.Text=arrry1(2,3)+array(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是______A)12B)13C)14D)15【答案】A26.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dima(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=1To3forj=1To3a(i,j)=(i–1)*3+jPrinta(i,j);nextjPrintnextiEndSub程序运行后，单击命令按钮，窗体上显示的是______A)123246369B)234345456C)147258369D)123456789【答案】D27.设有如下程序：OptionBase0PrivateSubForm_Click()DimaDimiAsIntegera=Array(1,2,3,4,5,6,7,8,9)Fori=0To3Printa(5–i);NextEndSub程序运行后，单击窗体，则在窗体上显示的是______A)4321B)5432C)6543D)7654【答案】C28．执行以下Command1的Click事件过程在窗体上显示_______。PrivateSubCommand1_Click()Dimaa=Array(“a”,”b”,”c”,”d”,”e”,”f,”,”g”)Printa(1);a(3);a(5)EndSubabcB)bdfC)aceD)出错【答案】B29、设有语句Open"c:\Test.Dat"ForOutputAs#1则以下错误的叙述是（）A）该语句打开C盘根目录下一个已存在的文件Test.DatB）该语句在C盘根目录下建立一个名为Test.Dat的文件C）该语句建立的文件的文件号为1D）执行该语句后，就可以通过Print#语句向文件Test.Dat中写入信息B30、以下代码完成对顺序文件test1.txt追加打开的是（）A）Opentest1.txtFo