苏州大学VB课程测试卷(附答案)

VisualBasic程序设计模拟测试试卷（一）参考答案一、选择题（每题1分，共20分）1.VisualBasic中的数据也可以以十六进制或八进制表示，十六进制数据以__D__符号开头。A.$EB.$HC.&OD.&HP472.下列符号常量的声明中，__C__是不合法的。A.ConstaAsSingle=1.1B.ConstaAsInteger=”12”C.ConstaAsInteger=Sin(1)D.Consta=”OK”P443.函数Val(“.123E2CD”)的值为__B__。A..123B.12.3C.0D..123E2CD4.以下说法错误的是__D__。A.标准模块也称程序模块文件，扩展名为.basB.标准模块由程序代码组成C.标准模块用来声明全局变量和定义一些通用过程D.标准模块附属于窗体5.以下控件可以作为其他控件容器的是__B__。A.PictureBox和ImageC.ListBox和FrameB.Frame和PictureBoxD.TextBox和Image6.可以显示（输出）文本信息，但不能作为输入文本的控件是__A__。A.LabelB.TextBoxC.ListBoxD.ComboBox7.在某过程中已说明变量a为Integer类型、变量s为String类型，过程中的以下语句中，不能正常执行的是__D__。P59A.a=True:s=2*a+1&a=-1C.a=1:s=2*a>3&s=FalseB.s=”237”&“.11”:a=s&a=237D.a=4:s=8200*a&溢出8.下列赋值语句中错误的是__C__。P59A.v1&=5*x%\3+x%Mody%B.v2%=5*x%\3+x%Mody%D.v4$=5*x%\3+x%Mody%C.v3&=”5*x%\3+x%Mody%”9.在窗体的Click过程代码中有如下语句，正确的结果是__A_C__。PrintFormat(1732.46,”+##,##0.0”)A.+1,732.5B.1,732.5C.+1,732.5D.+1,732.410.运行下面的程序，单击命令按钮Command1，则窗体上显示的结果是__A__。PrivateSubCommand1_Click()DimAAsInteger,BAsBoolean,CAsInteger,DAsIntegerA=20/3:B=True:C=B:D=A+CPrintA,D,A=A+CEndSubA.76FalseC.76A=6B.6.65.6FalseD.78A=811.在窗体的通用声明处有语句“DimA()AsSingle”，以下在事件过程中重新定义此数组的一组语句正确的是__D__。A.ReDimA(3,3)B.ReDimA(3,3)ReDimA(4,4)AsIntegerReDimPreserveA(4,4)7-1C.ReDimA(3)D.ReDimA(3,3)ReDimA(3,3)AsIntegerReDimPreserveA(3,4)12.在窗体的通用声明处有如下语句，会产生错误的语句是__D__。P47①ConstAAsInteger=25②PublicStAsString*8③ReDimB(3)AsInteger④DimConstXAsInteger=10A.①②13.在默认情况下InputBox函数返回值的类型为__B__。A.数值B.字符串C.变体B.①③C.①②③D.②③④D.数值或字符串15.可以Print方法在PictureBox控件上显示文本信息，若想清除这些信息，可用的方法是__A__。A.ClsB.RemoveC.ClearD.Close16.针对语句IfI=1ThenJ=1，下列说法正确的是__A__。A.I=1为关系表达式，J=1为赋值语句B.I=1为赋值语句，J=1为关系表达式C.I=1和J=1均为赋值语句D.I=1和J=1均为关系表达式17.关于固定数组的维界的说法中正确的是__D__。A.必须同时指定上界和下界C.上下界的值必须是整数B.系统默认的缺省下界为1D.上下界说明必须是常数表达式18.下面表达式中，__D__的值是整形（Integer或Long）。①57-6/254②254+Fix(9.62)263③19+6.3\1.325④927&7392773⑤”485”+46954⑥9.5Mod3.52A.①②④⑥B.③④⑤⑥C.②④⑤⑥D.③⑥19.若有数组声明语句：Dima(3,-1To16)。则数组a包含的元素个数为__B__。A.36B.72C.11D.1820.在一个语句行内写多条语句时，语句之间应该用__D__分隔。A.逗号B.分号C.顿号D.冒号二、填空题（1~15题每空2分，共30分）abc1.算术表达式(|d|1)(ef)1对应的VB表达式是__((a*b)+c)/((abs(d)+1)*(e+f))+1__。2exsin(30)2.算术表达式(xy)lnx对应的VB表达式是_(2*exp(x)*sin(3.1415/6))/((x+y)*log(x))_。3.算术表达式a2b22abcosx对应的VB表达式是__sqr(a^2+b^2-2*a*b*cos(x))__。4.条件“变量X为能被5整除的偶数”对应的逻辑表达式是__xmod10=0__。5.命题“A是一个带小数的正数，且B是一个带小数的负数”所对应的逻辑表达式是_______fix(a)<aandfix(b)>b__。P516.一元二次方程ax2+bx+c=0有实根的条件是：a≠0，并且b2-4ac≥0。表示该条件的逻辑表达式是____a<>0andb^2-4*a*c>=0____。7-27.将任意一个两位整数N的个位数与十位数对换得到新数的VB表达式是__________________(NMod10)*10+N\10_____。8.运行下面的程序，单击窗体，在输入框中输入12，在窗体上显示的内容为__2346_。PrivateSubForm_Click()DimNAsInteger,IAsIntegerN=InputBox("输入一个整数")ForI=2ToN/2IfNModI=0ThenPrintI;NextEndSub9.运行下面的程序，单击窗体，在窗体上显示的内容为__131218__。PrivateSubForm_Click()DimpAsInteger,IAsInteger,nAsIntegerp=3:n=30ForI=1TonSteppp=p+3n=n-4I=I+2Ifp>=10ThenExitForNextPrintI;p;nEndSub10.运行下面的程序，单击窗体，在输入框中输入14，在窗体上显示的内容为___1110___。PrivateSubForm_Click()DimNAsInteger,SAsString,RAsIntegerN=InputBox("输入一个整数")DoWhileN<>0R=NMod2S=R&SN=N\2LoopPrintSEndSubText1Text211.在文本框Text1中输入如图1所示字符串，单击“OK”按钮后，在文本框Text2中显示的内容为______4__________。PrivateSubcmdOK_Click()DimSAsString,IAsInteger,pAsIntegerS=Trim(Text1.Text)p=InStr(S,Space(1))图1DoWhilep<>0I=I+1S=Trim(Mid(S,p+1))p=InStr(S,Space(1))7-3LoopI=I+1Text2.Text=IEndSub12.执行下列程序，单击窗体，在窗体第三行显示的内容是____6612_______。PrivateSubForm_Click()DimiAsInteger,jAsInteger,kAsIntegerk=0Fori=0To10Stepk+3Forj=1To10Ifj>5Thenk=k+4:ExitForNextjPrinti,j,kIfi>8ThenExitForNextiEndSub13.执行下列程序，单击命令按钮Cmd1，窗体上显示的内容是_____69____。PrivateSubCmd1_Click()DimxAsInteger,IAsIntegerx=1ForI=1To5x=x+(2*I+1)/(2*I-1)Ifx>=20ThenExitForNextPrintI,xEndSub14.执行下列程序，单击窗体，在窗体上显示的内容是_________12_______。PrivateSubForm_Click()DimM(10)AsInteger,IAsIntegerForI=0To10M(I)=2*INextPrintM(M(3))EndSub15.执行下列程序，单击窗体后，在两个输入框中分别输入4和6，则窗体上输出的内容为__________12___________。PrivateSubForm_Click()DimMAsInteger,NAsInteger,TAsInteger,IAsIntegerM=InputBox("输入第一个数M")N=InputBox("输入第二个数N")IfM<NThenT=MM=NN=T7-4

EndIfI=MDoWhileIModN<>0OrIModM<>0I=I+1LoopPrintIEndSub（16~21题每空3分，共36分）16.以下程序用于计算1-2+32-42+…+(N-1)2-N2（N为偶数），请完善程序。22PrivateSubCommand1_Click()DimNAsInteger,SAsInteger,IAsInteger,CAsIntegerN=InputBox("请输入一个大于0的偶数N",,2)S=0:I=1:C=1DoS=S+C*I^2C=___-C___I=I+1LoopWhile__I<=N___Print"S=";SEndSub17.下列程序的功能是输出一个5×5的方阵，其中两条对角线上的元素值为1，其余元素值为0，如图2所示。请完善程序。图2OptionBase1PrivateSubForm_Click()DimA(5,5)AsInteger,IAsInteger,JAsIntegerForI=1To5ForJ=1To5If__I=JOrI+J=6__ThenA(I,J)=1ElseA(I,J)=0EndIfPrintA(I,J);Next______Print_______7-5NextEndSub18.下列程序的功能是用辗转法求两个自然数的最大公约数，请完善程序。PrivateSubForm_Click()DimMAsInteger,NAsInteger,RAsIntegerM=InputBox("请输入M的值：")N=InputBox("请输入N的值：")PrintM;"与";N;____R=MModN__________________DoWhileR<>0M=N_N=R____________R=MModNLoopPrint"最大公约数为:";NEndSub19.下列程序的功能是统计文本中字母（不分大小写）出现的次数。请完善程序。PrivateSubForm_Click()DimSAsString,ChAsString,Count(65To90)AsInteger,IAsIntegerS=Text1.Text„Text1中是一段英文文本ForI=1ToLen(S)Ch=_Mid(S,I,1)_______________________IfCh<="Z"AndCh>="A"ThenCount(Asc(Ch))=Count(Asc(Ch))+1EndIfNextForI=___65To90________________IfCount(I)>0ThenPrintChr(I),Count(I)Next„将字母出现的次数输出EndSub20.数组A中存放的是随生成的两位整数，下面程序的功能是用直接排序法对数组中的数按从小到大的顺序进行排序。请完善程序。OptionBase1PrivateSubForm_Click()DimA(10)AsInteger,IAsInteger,JAsInteger,TempAsIntegerDimPAsIntegerRandomizePrint"排序前：";ForI=1To10A(I)=Int(90*Rnd)+10PrintA