大一下笔试题库程序设计课程试卷8共

VisualBasic（8）页考试形式闭 2002年5院 专学 成绩VisualBasic的使用目的 A开发Windows应用程 B图像处C制作WAV文 D文字处eexyx

2

，则对应VisualBasic表达式 ABExp(x+y)+Sqr(Abs(x+y))/C(Exp(x+y)+Sqr(Abs(x+y)))/D(Exp(x+y)+Sqr(Abs(x+y)))/3“x A．x+y<10,x–y> B．x+y<10Andx–y>C．(x+y<10):(x–y)> D．x+y<10&x–y>Print“2*5”的输出结果 D“100”名为sort的Sub子过程的形式参数为一数组，以下定义语句中正确的 PrivateSubsort（a（）asPrivateSubsort（a（10）asPrivateSubsort（a（10PrivateSubsort（ByvalA（）as ①全局变 B． D．数组重新时，原有的数组的内容将不保留VisualBasic的文件管理控件是 驱动器列表框 列表框、文件列表 列表框、组合文本框 列表框、文件列表驱动器列表框、框、文件列表以 Ctrl+C使 方法，可以将列表List1中所有项删除掉 B． C． D．语句ForI=N1TON2STEPN3，在该循环体内有下列四条语句，其中 在多窗体的应用程序中，当前窗体模块的Form_Click过程中包含如下语句，单 o显示在当前窗体上。Form1.Print B．Me.Print C．Debug.Print“ D．Form2.Print Text1上。

B．显示C．建立窗 假定变量Logic类型是Boolean，下面赋值语句 A．VBB．VB允许使用说明的变量，其类型都是Variant类

C．过程既可建在窗体模块中，也可以建在标准模块D．Cls在Vb程序设计中所产生的错误分为三类：语法错误、运行错误 逻 C．函 按钮的Click。 PrivateSubform_click()DimaAsInteger,bAsFori=10To15Step2a=a+2*iNextiPrinta;ii=100DoWhilei>=70b=b+ii=i-7Printb;IEndSub OptionPrivateSubDimXAsInteger,YAsIntegerX=3:Y=4DoWhileX+Y<Y=Y+5:X=X+PrintIfY>12ThenExitDoPrintYEndSub运行下面程序，单击命令按钮Command1后，文本框Text1中的内容是 EndEnd每次搜索起点OptionPrivateSubDimPathAsString,searchAsStringDimFpAsString,FnAsStringPath="C:\ProgramFiles\Macromedia\Flash5\Flash.exe"CallSearch_Path(Path,Fp,Fn)EndPrivateSubSearch_Path(PAsString,FpAsString,FnAsString)DimNsAsLong,CtAsLongNs=Ct=Ns=InStr(Ct+1,P,"\")LoopUntilNs=0Fp=Left(P,Ct-Fn=Right(P,Len(P)-Ct)EndSub OptionPrivatexAsInteger:PublicyAsIntegerSubtest()DimyAsPrint"x2=";x,"y2=";yx=1:y=2Print"x3=";x,"y3=";yEndSubPrivateSubForm_Click()x=3:y=4Print"x1=";x,"y1=";yPrint"x4=";x,"y4=";yEndSub PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsa=5:b=8:c=Callsub1(a,b,c)Printa,b,cCallsub1(a,a+b+c,b)Printa,b,cCallsub1(a+b,b/a,a)Printa,b,cEndPrivateSubsub1(ByValxAsInteger,ByValyAsInteger,zAsInteger)z=x+y+z OptionExplicitFunctionTSub(xAsInteger)AsDimnumAsIntegerx=x+1PrintIfx=1Thennum=3x=x-num=TSub(x)*2+1EndIfPrintnum\3;TSub=numEndFunctionPrivateSubForm_Click()TSub3End (16)，B(2,3)的值是 (17)，B(3,1)的值是(18)。OptionPrivateSubDimiAsInteger,jAsDimA(3,3)AsInteger,B(3,3)AsIntegerFori=1To3Forj=1ToA(i,j)InputBox("A("&i&&j&Fori=1ToForj=1ToB(i,j)=(A(A(i,j),A(j,i))+2)Mod3+PrintB(i,EndSub PrivateSubValue(ByValXAsInteger,YAsInteger)X=X+Y=X+Print"X=";X, Y=";EndPrivateSubDimmAsInteger,nAsIntegerm=5:n=7Print"M=";m,"N=";各自总和，并在框(PictureBox)内显示，框的名称属性为Picture1。OptionPrivateSubDimxAsInteger,s1AsInteger,s2AsIntegerDimn1AsInteger,n2AsInteger,iAsIntegerFori=1Tox=Int(Rnd*90)+If n1=n1+1s1=s1+x s2=s2+xEndIfNext End

"偶数和s2;"偶数个数=";n2,奇数和s1,"奇数个数 为素数，所以2333为超级素数。OptionPrivateSubDimiAsInteger,AsBooleanFori=1001To9999Step2Call IfThenPrintiEndIfEndSubPrivateSubSup_prime(ByValnAsInteger,FAsBoolean)DimPAsIntegerF=DoWhile IfPrime(n)Thenn=n ExitEndIfEndPublicFunctionPrime(PAsInteger)AsBooleanDimkAsIntegerIfP=1ExitFork=2ToIfPModk=0ThenExitFunctionNextk EndIfEndFunction1！+2！+3！+4！+5！的值。PrivateFunctionF(ByValMAsInteger)AsIntegerDimNAsIntegerN=1 DoWhileN<=MF=F*N EndFunctionPrivateSubDimSumAsInteger,iAsIntegerFori=1To5Sum Print"Sum=";SumEndSub4．C盘根下stu.txt文件中以下面的格式保存所有学生及班级信息本程序的功能…OptionExplicitOptionBase1PrivateSubDimstu()AsString,glass()AsString,iAsIntegerDimnAsInteger,nameAsString,kAsIntegerOpen"e:\123.txt"ForInputAs#11DoWhileNot n=n+1ReDimPreserve Input#11,stu(n),glass(n)name=InputBox("输入欲查找的学生：")Callsearch(name,stu,k)If MsgBoxname&找到了！班级：&MsgBox无此人。End