VISUAL-BASIC上机模拟试卷一

VisualBasic上机模拟试卷一(本试卷上机时间为70分钟)一、改错题(14分)【题目】下列程序的功能是：按设定的数据位数N(N=2,3,4,5,6)，随机生成20个互不相等的正整数，按5个一行的形式输出到文本框中，并从中找出所有的偶数输出到列表框中(下图为参考界面)。1OptionExplicit2OptionBase13PrivateSubCommand1_Click()4DimIAsInteger,a()AsInteger,NAsInteger5Dimd(20)AsLong,JAsInteger,SdAsLong6N=Val(Text1)7Randomize8ReDima(N)9ForI=1To2010Do11Do12a(1)=Int(9*Rnd)13LoopWhilea(1)014ForJ=2ToN15A(J)=Int(9*Rnd)16NextJ17Sd=Str1(a)18ForJ=1ToI19IfVal(Sd)=d(J)ThenExitFor20NextJ21LoopWhileJI22IfJMod5=0Then23Text2.Text=Text2.Text&Str(Sd)&vbCrLf24Else25Text2.Text=Text2.Text&Str(Sd)26EndIf27d(I)=Sd28IfSdMod2=0ThenList1.AddItemSd29NextI30EndSub31PublicFunctionStr1(b()AsInteger,MAsInteger)AsString32DimIAsInteger33ForI=1ToM34Str1=Str1&CStr(b(I))35NextI36EndFunction【要求】1.新建工程，输入上述代码，改正程序中的错误2.改错时，不得增加或删除语句，但可适当调整语句位置。3.将窗体文件和工程文件分别命名为F1.frm和P1.vbp，并保存到软盘A的根目录下。二、编程题(26分)【题目】编写程序实现如下功能：用递推法求裴波拉契数列为3～999数的项，并求出其中为非素数的项。裴波拉契数列的递推公式中F(1)=1和F(2)=1为递推的初始条件，用下列公式来推导其余项。3)1()2(2111)(nnFnFnnnF，，，【编程要求】1.编程参考界面如下图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见。2.按“产生数列”按钮，则运行程序，将裴波拉契数列在列表框中显示；按“找出非素数”按钮，则将其中的非素数在文本框中显示；按“退出”按钮，则停止程序运行。3.程序中至少要包含一个通用过程。【要求】将窗体文件和工程文件分别命名为F2.frm和P2.vbp，并保存到软盘A的根目录下。VisualBasic上机模拟试卷二(本试卷上机时间为70分钟)一、改错题(14分)【题目】下列程序的功能是：一个正整数被称为奇妙平方数，如果此数的平方值与它的逆序数的平方互为逆序数。例如，12^2=144，21^2=441，12与21互逆，144与441互逆，12就是奇妙平方数。找出1～300以内所有的奇妙平方数(下图为参考界面)。1OptionExplicit2PrivateSubCommand1_Click()3DimIAsLong,SqAsInteger,JAsLong4J=05ForI=10To3006Ifsquare(I,J)AndIJThen7List1.AddItemI&^2=&Str(I^2)8List2.AddItemJ&^2=&Str(J^2)9EndIf10NextI11EndSub12PrivateFunctionsquare(NAsLong,KAsLong)AsBoolean13DimLAsInteger,IAsInteger,SAsString14DimSq1AsLong,Sq2AsLong15S=CStr(N)16ForI=Len(CStr(S))To1Step-117K=K*10+Val(Mid(S,I,1))18NextI19Sq1=N*N20Sq2=K*K21IfCStr(Sq1)=CStr(Sq2)Then22L=Len(CStr(Sq1))23I=124DoWhileI=L25IfMid(CStr(Sq1),I,1)Mid(CStr(Sq2),L-I,1)Then26square=False27ExitFunction28EndIf29I=I+130Loop31square=True32EndIf33EndFunction【要求】1.新建工程，输入上述代码，改正程序中的错误2.改错时，不得增加或删除语句，但可适当调整语句位置。3.将窗体文件和工程文件分别命名为F1.frm和P1.vbp，并保存到软盘A的根目录下。二、编程题(26分)【题目】编写程序实现如下功能：统计1～100以内二进制的A类数和B类数。将一个十进制正整数化为二进制数，对此二进制数，若其中数字1的个数多于数字0的个数，称这类数为A类数；否则就称其为B类数。例如：(13)10=(1101)2，则13为A类数；(10)10=(1010)2，则10为B类数。【编程要求】1.编程参考界面如下图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见。2.按“统计”按钮，则运行程序，将统计结果在文本框中显示；按“退出”按钮，则停止程序运行。3.程序中至少要包含一个通用过程。【要求】将窗体文件和工程文件分别命名为F2.frm和P2.vbp，并保存到软盘A的根目录下。VisualBasic上机模拟试卷三(本试卷上机时间为70分钟)一、改错题(14分)【题目】下列程序的功能是：在700～900找出满足下列条件的数：这个数的各位数都不相同，且该数与它的反序数均为素数(下图为参考界面)。1OptionExplicit2PrivateSubCommand1_Click()3DimM(0To9)AsInteger,PAsInteger,FnAsInteger4DimIAsInteger,FAsInteger5ForF=700To9006EraseM7CallAnalyze(F,M)8P=09ForI=0To910P=P+M(I)11NextI12CallRe_Num(F)13IfPrime(F)AndPrime(Fn)AndP3Then14List1.AddItemStr(F)&=&Str(Fn)15EndIf16NextF17EndSub18PrivateSubAnalyze(NAsInteger,An()AsInteger)19DimSAsString,IAsInteger,IdxAsInteger20S=CStr(N)21ForI=1ToN22Idx=Val(Mid(S,I,1))23An(Idx)=124NextI25EndSub26PrivateFunctionPrime(NAsInteger)AsBoolean27DimMAsInteger28ForM=2ToSqr(N)29IfNModM=0ThenExitFunction30NextM31Prime=True32EndFunction33PrivateFunctionRe_Num(ByValNAsInteger)AsInteger34Do35Re_Num=Re_Num*10+(NMod10)36N=N\1037LoopWhileN038EndFunction【要求】1.新建工程，输入上述代码，改正程序中的错误2.改错时，不得增加或删除语句，但可适当调整语句位置。3.将窗体文件和工程文件分别命名为F1.frm和P1.vbp，并保存到软盘A的根目录下。二、编程题(26分)【题目】编写程序实现如下功能：从由1，3，5，9这四个数字组成的没有重复数字的24个四位数中，找出一个具有倍数关系的四位数对。【编程要求】1.编程参考界面如下图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见。2.按“查找”按钮，则运行程序，将满足条件的数据在列表框中显示，并将查找结果在文本框中显示；按“清空”按钮，则将列表框和文本框的内容清空；按“退出”按钮，则停止程序运行。3.程序中至少要包含一个通用过程。【要求】将窗体文件和工程文件分别命名为F2.frm和P2.vbp，并保存到软盘A的根目录下。