大学计算机二级vb试卷

一、选择题(每题1分，共30分)1、能被对象所识别的动作与对象可执行的活动分别称为对象的b。A)方法、事件 B)事件、方法C)事件、属性 D)过程、方法2、执行语句PrintVal("12A12")的值为b。A)12A B)12C)1212 D)12A13、下列是合法的VB变量名。A)_ab B)W_cdeC)5student D)Name&City4、表达式6.5*5Mod28\8的值是C。；32.532.5A)0 B)1 C)2 D)35、如果在立即窗口中依次执行下列命令：a=8：b=9Printa>b则输出的结果是C。A)1 B)0 C)False D)True6、下列表达式的值为真的是D。A)"A">"a" B)"9">"a"C)12>12.1 D)"That">"Thank"7、表示“X>Y>Z”，正确的VB逻辑表达式是A。A)X>YAndY>Z B)X>Y>ZC)X>YORY>Z D)X>YAnd>Z8、函数CInt、Int、Fix都返回整数值，以下能正确地描述它们返回值的大小关系的是A。A)CInt(-4.51)＝Int(-4.51)<Fix(-4.51)B)Int(-4.51)<CInt(-4.51)<Fix(-4.51)C)CInt(-4.51)<Fix(-4.51)<CInt(-4.51)D)Int(-4.51)<Fix(-4.51)=CInt(-4.51)9、与语句Dimabc%作用相同的语句是B。A)DimabcAsLong B)DimabcAsIntegerC)DimabcAsString D)DimabcAsDate10、可以查找字符串中给定字符串位置的函数是D。

A)Ucase B)Len C)Mid D)Instr。11、数学表达式对应的正确VisualBasic表达式为C。A)-b+Sqr(b*b-4*a*c)/2*aB)-b+Sqr(b*b-4*a*c)/(2*a)C)(-b+Sqr(b*b-4*a*c))/(2*a)D)(-b+Sqr(b*b-4*a*c))/2*a12、窗体文件的扩展名是A。A).frm B).vbp C).bas D).frx13、VisualBasic程序中的注释所使用的字符是A。A)′ B): C)\ D)_14、要使一个文本框对象能够显示多行文字，应该将对象设置为True的属性值是B。A)Text B)MultiLineC)Style D)Visible15、执行下面语句后，Len函数值最大的是C。DimIAAsInteger,BAsSingle,SAsString*5,ChAsStringIA=32767:B=23.5:S="A":Ch="abcd"A)Len(IA) B)Len(B) C)Len(S) D)Len(Ch)16、若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置。A)Text属性值为* B)Caption属性值为*C)password属性值为空 D)Passwordchar属性值为*17、窗体上放置了三个文本框，若在Text1中输入456，在Text2中输入78，在程序中执行了语句Text3=Text1+Text2后，则在Text3中显示。A)434 B)45678 C)溢出 D)语法错误18、下列选项中，是十六进制数。A)1234 B)&1234 C)&O1234 D)&H123419、执行语句PrintInt(4*Rnd+1)后，不能可能出现的值为。A)2 B)3 C)4 D)520、语句段a=3:b=5t=a:a=b:b=t执行后，。A)a值为3，b值为3 B)a值为3，b值为5C)a值为5，b值为3 D)a值为5，b值为521、Print方法可在上输出数据。①窗体 ②文本框 ③图片框 ④标签 ⑤列表框 ⑥立即窗口A)①③⑥ B)②③⑤ C)①②⑤ D)③④⑥22、在运行程序时，将焦点移至指定的控件或窗体，则需使用的方法是。A)Change B)SetFocus C)GetFocus D)Move23、在VisualBasic中最基本的对象是，它是应用程序的基石。A)标签 B)窗体 C)文本框 D)命令按钮24、下列语句中的语句可以用来正确地声明一个动态数组。A)PrivateA(n)AsInteger B)DimA()AsIntegerC)DimA(,)AsInteger D)DimA(1ton)25、有程序代码：Text1.Text="VisualBasic"，其中的Text1、Text和"VisualBasic"分别代表。A)对象、值、属性 B)对象、方法、属性C)对象、属性、值 D)属性、对象、值26、在程序中可以通过复选框和单选框的属性来判断它们的当前状态。

A)Caption B)Value C)Checked D)Selected

27、用窗体的属性来设置窗体的标题。

A)Style B)Text C)Caption D)Name

28、如果在两个菜单命令项之间加一条分隔线，可在标题文本框中键入。

A)－ B)＋ C)& D)#

29、假设变量Lng为长整形变量，下面不能正常执行的语句是。

A)Lng=16384*2 B)Lng=4*0.5*16384

C)Lng=190^2 D)Lng=32768*2

30、在Form_Click事件中执行如下语句的正确结果是。

PrintFormat(1236.54,"+##,##0.0%")

A)123456 B)+123,654.0% C)+123,6.54% D)+123,654二、阅读程序(每题2分，共20分)1、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：程序运行后，单击命令按钮，在文本框中显示的值是什么？PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+3n=n+1Ifi>10ThenExitForNextiText1.Text=Str(n)EndSub答：2、建立一窗体并编写下列事件过程，单击窗体执行该事件过程，其输出结果是什么？PrivateSubForm_Click()DimxAsIntegerx=Int(Rnd+4)SelectCasexCase5Print"优秀"Case4Print"良好"Case3Print"合格"CaseElsePrint"不合格"EndSelectEndSub答：3、运行程序，当单击窗体时，窗体上显示内容的第三行是什么？PrivateSubForm_Click()DimsAsString,iAsInteger,n(9)AsIntegerDims1AsString*1,jAsIntegers=Trim("12345a307291b233")Fori=1ToLen(s)s1=Mid(s,i,1)Ifs1>="0"Ands1<="9"Thenj=Val(s1)n(j)=n(j)+1EndIfNextiForj=0To9Printj;":";n(j)NextjEndSub答：4、当发生Command1_Click事件后，以下程序输出结果是什么？PrivateSubCommand1_Click()DimyAsInteger,iAsIntegerDima(8)AsIntegery=18:i=0Doa(i)=yMod2i=i+1y=y\2LoopUntily<1Forj=i-1To0Step-1Printa(j);NextjEndSub答：5、写出程序运行时单击Command1后，窗体上显示内容的第二行是结果什么。PrivateSubCommand1_Click()DimchAsString,iAsIntegerch="DEF"Fori=1ToLen(ch)ch=Mid(ch,2*i-1,1)&Left(ch,Len(ch))PrintchNextiEndSub答：6、写出程序运行时单击Command1后，在窗体上的输出结果。PrivateSubCommand1_Click()DimiAsInteger,aAsIntegera=1Fori=aTo5Stepa+1a=a+1NextiPrinta,iEndSub答：7、写出程序运行时单击Command1后，在窗体上的输出结果。OptionExplicitPrivateSubCommand1_Click()DimIAsInteger,a(5)AsIntegerForI=1ToUBound(a)a(I)=I*2+1I=I+1NextIPrinta(3),LBound(a)EndSub答：8、写出程序运行时单击Command1后，在窗体上的输出结果。

PrivateSubCommand1_Click()DimnAsInteger,jAsIntegerj=0:n=0DoWhilen<3j=(j+1)*(j+2)n=n+1LoopPrintj;nEndSub答：9、建立一窗体Form，然后编写如下程序。程序运行后，单击窗体的输出第三行结果是什么？PrivateSubForm_Click()DimiAsInteger,jAsIntegerDimt(10,10)AsIntegerFori=1To3Forj=1To3t(i,j)=(i-1)*3+jPrintt(i,j);NextjPrintNextiEndSub答：10、建立一窗体Form，在窗体上画一文本框Text1和一命令按钮Command1,然后编写如下程序，运行程序后，单击命令按钮，在Text1中输出结果是什么？PrivateSubCommand1_Click）DimFb(10)AsInteger，IAsIntegerFb(l)＝2：Fb(2)＝3ForI=3To5Fb(I)＝Fb(I-2)+Fb(I-1)NextIForI=1To5Text1=Text1＆Str(Fb(I))＆“”NextIEndSub

答：三、程序填空(每空2分，共20分)1、下列程序的功能是从键盘上按行输入一个3×4二维数组，求二维数组各列的和，输出到窗体。请在下划线处填写适当的内容。OptionBase1PrivateSubForm_Click()Dima(3,4)AsInteger,s(4)AsIntegerForj=1To4Fori=1To3a(i,j)=InputBox("请输入一个元素的值")NextiNextjForj=1To4s(j)=0Fori=1To3NextiNextjFori=1To4NextiEndSub2、下列程序的功能是求一维数组的最大值和最小值及其下标，请在下划线处填写正确的内容。OptionBase1PrivateSubCommand1_Click()Dimt(10)AsInteger,min_iAsIntegerDimmax_iAsIntegerFori=1To10t(i)=InputBox("请输入一个元素值")Nextimin_i=：max_i=Fori=2To10IfThenmin_i=iIfThenmax_i=iNextiPrintt(min_i),min_i,t(max_i),max_iEndSub3、下面程序的功能是用直接选择排序法将数组a中的10个整数按降序排列，请在下划线处将程序补充完整。OptionBase1PrivateSubCommand1_Click()Dima,iAsInteger,tempAsIntegerDimjAsInteger,kAsIntegera=Array(678,45,324,528,439,387,87,875,273,823)Fori=k=iForj=Ifa(k)<a(j)Thenk=jNextjI