flag=True
Else
flag=False
EndIf
EndFunction
【要求】
1、新建工程,输入上述代码,改正程序中的错误;
2、改错题的界面应给出的参考界面相似,主要用来调试程序;
3、改错时,不得增加或删除语句,但可适当调整语句位置;
4、将窗体文件和工程文件分别命名为F1和P1,并保存到软盘A的根目录下。
二、编程题(23分)
【题目】找出50以内的所有不可表示成两个平方数之和的数。
【编程要求】
1、按“开始”按钮,则开始运行程序,按图示格式将符合条件的数显示在多行文本框中,每行显示5个数;按“清理”按钮,则将文本框清空;按“结束”按钮,结束程序运行;
2、程序至少要有一个通用过程,该过程的功能是判断一个数是否是平方数;
3、显示在文本框中的数据必须按参考界面中的形式对齐。
【要求】
1、程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见;
2、将窗体文件和工程文件分别命名为F2和P2,并保存到软盘A的根目录下。
改错题参考界面
编程题参考界面
二级VisualBasic语言(试卷代号VB03)
(本试卷完成时间70分钟)
【考试须知】
1、考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
2、程序代码书写应呈现锯齿形。
一、改错题(17分)
【题目】分离数字串。
从一个由若干个整数及带小数点的实型数组成的数字字符串(各个数之间由非数字字符分隔)中把整型数与实型数分离出来并分别输出到两个列表框中。
PrivateFunctionflag(sAsString)AsBoolean
IfInStr(s,".")=0Then
flag=True
Else
flag=False
EndIf
EndFunction
PrivateSubCommand1_Click()
DimsAsString,stAsString,IAsInteger
DimNAsInteger,st1AsString
s=Text1
ForI=1ToLen(s)
st1=Mid(s,I,1)
Ifst1>="0"Andst1<="9"Andst1="."Then
st=st1&st
Else
st=""
Ifst<>""Then
Ifflag(st)Then
List1.AddItemst
Else
List2.AddItemst
EndIf
EndIf
EndIf
NextI
Ifst<>""Then
Ifflag(st)Then
List1.AddItemst
Else
List2.AddItemst
EndIf
EndIf
EndSub
改错题参考界面
【要求】
1、新建工程,输入上述代码,改正程序中的错误;
2、改错题的界面应给出的参考界面相似,主要用来调试程序;
3、改错时,不得增加或删除语句,但可适当调整语句位置;
4、将窗体文件和工程文件分别命名为F1和P1,并保存到软盘A的根目录下。
二、编程题(23分)
【题目】随机生成15个两位正整数,从中找出所有的素数,并记下它是第几个数,再找出其中最大的素数,并给出它的位置。
【编程要求】
1、单击“执行”按钮,则随机生成15个两位正整数,并显示在文本框Text1中;然后从中找出所有的素数,并记下它是第几个数,按图示方式显示在列表框List1中,并将其中最大的素数及其位置分别显示在文本框Text2和Text3;
2、程序中至少包含一个判断某数是否为素数的通用(函数)过程。
【要求】
1、程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见;
2、将窗体文件和工程文件分别命名为F2和P2,并保存到软盘A的根目录下。
编程题参考界面
二级VisualBasic语言(试卷代号VB04)
(本试卷完成时间70分钟)
【考试须知】
1、考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
2、程序代码书写应呈现锯齿形。
一、改错题(17分)
【题目】设N>6,A1,A2,A3,……AK是所有小于N且与N互质(即它和N的最大公约数为1)的整数,找出50以内的所有非素数并且满足A2-A1=A3-A2=A4-A3……条件的数。
OptionExplicit
PrivateSubCommand1_Click()
DimFactor()AsInteger,IAsInteger,NAsLong,FlgAsBoolean
N=7
Flg=False
DoWhileN<=50
CallPrime(Factor,N,Flg)
IfFlgThen
Text1=Text1&Right(""&Str(N),2)&":
"
ForI=1ToUBound(Factor)
Text1=Text1&Str(Factor(I))
NextI
Text1=Text1&vbCrLf
EndIf
N=N+1
Loop
EndSub
PrivateSubPrime(F()AsInteger,NAsLong,LogicAsBoolean)
DimIAsInteger,JAsInteger,KAsInteger,MAsInteger
ReDimF
(1)
F
(1)=1
ForI=2ToN-1
ForJ=2ToI
IfIModJ=0AndNModJ=0Then
ExitFor
EndIf
NextJ
IfJ>IThen
ReDimPreserveF(UBound(F))
F(UBound(F))=I
EndIf
NextI
M=F
(2)-F
(1)
Logic=True
ForI=2ToUBound(F)-1
IfM=1OrM<>F(I+1)-F(I)ThenExitSub
NextI
EndSub
改错题参考界面
【要求】
1、新建工程,输入上述代码,改正程序中的错误;
2、改错题的界面应给出的参考界面相似,主要用来调试程序;
3、改错时,不得增加或删除语句,但可适当调整语句位置;
4、将窗体文件和工程文件分别命名为F1和P1,并保存到软盘A的根目录下。
二、编程题(23分)
【题目】找出50以内的所有的无平方因子数。
若一个数不能被大于1的平方数整除,则该数就是一个无平方因子数。
【编程要求】
1、按“开始”按钮,则开始运行程序,将结果按图示格式显示于多行文本框中,按“清理”按钮,则将文本框清空;按“结束”按钮,结束程序运行;
2、程序必须包含一个判断因子是否是平方数的通用过程;
3、显示在文本框中的运行结果必须按参考界面给出的形式对齐。
【要求】
1、程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见;
2、将窗体文件和工程文件分别命名为F2和P2,并保存到软盘A的根目录下。
编程题参考界面
二级VisualBasic语言(试卷代号VB05)
(本试卷完成时间70分钟)
【考试须知】
1、考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
2、程序代码书写应呈现锯齿形。
一、改错题(17分)
【题目】在给定的4×10二维数组中,从每行中找出与该行其余9个数均互质的数。
两个数互质是指它们的最大公约数为1。
OptionBase1
PrivateSubCommand1_Click()
DimA(4,10)AsInteger,IAsInteger,JAsInteger,NAsInteger
DimB()AsInteger
ForI=1To4
ForJ=1To10
A(I,J)=I*10+J
Picture1.PrintA(I,J);
NextJ
Picture1.Print
CallSub1(A,I,B)
ForN=1To10
Picture2.PrintStr(B(N));
NextN
Picture2.Print
NextI
EndSub
PrivateSubSub1(A()AsInteger,IAsInteger,B()AsInteger)
DimMAsInteger,JAsInteger,KAsInteger,LAsBoolean
DimIdxAsInteger
ForJ=1To10
L=True
ForM=1To10
IfJ<>MThen
ForK=2ToA(I,J)
IfA(I,J)ModK=0AndA(I,M)ModK=0Then
L=False
ExitSub
EndIf
NextK
EndIf
IfNotLThenExitFor
NextM
IfLThen
Idx=Idx+1
ReDimB(Idx)
B(Idx)=A(I,J)
EndIf
NextJ
EndSub
【要求】
1、新建工程,输入上述代码,改正程序中的错误;
2、改错题的界面应给出的参考界面相似,主要用来调试程序;
3、改错时,不得增加或删除语句,但可适当调整语句位置;
4、将窗体文件和工程文件分别命名为F1和P1,并保存到软盘A的根目录下。
二、编程题(23分)
【题目】编写求n项和的程序。
求和公式如下:
n可取值1、2、3、4、5……
【编程要求】
1、运行程序,分别在两个文本框中输入x和n的值,按“计算”按钮,则开始计算,将运行结果按图示格式显示于列表框中;按“清除“按钮,则将列表框、文本框清空,并将焦点置于输入x值的文本框;按:
“退出”按钮,结束程序运行;
2、编写求Sn的函数过程。
【要求】
1、程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见;
2、将窗体文件和工程文件分别命名为F2和P2,并保存到软盘A的根目录下。
改错题参考界面
编程题参考界面
二级VisualBasic语言(试卷代号VB06)
(本试卷完成时间70分钟)
【考试须知】
1、考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
2、程序代码书写应呈现锯齿形。
一、改错题(17分)
【题目】找出100至200之间且满足该数等于两个数之积的所有整数。
OptionExplicit
OptionBase1
PrivateSubCommand_Click()
DimIAsInteger,FlgAsBoolean,S1AsInteger,S2AsInteger
DimJAsInteger,KAsInteger,P()AsInteger
ReDimP
(1)
P
(1)=2
ForI=3To200Step2
ForJ=2ToSqr(I)
IfIModJ=0ThenExitFor
NextJ
IfJ>Sqr(I)Then
ReDimPreserveP(UBound(P)+1)
P(UBound(P)+1)=I
EndIf
NextI
ForI=100To200
IfFun(I,P,S1,S2)Then
Text1=Text1&Str(I)&":
"&Str(SI)&"*"&Str(S2)&vbCrLf
EndIf
NextI
EndSub
PrivateFunctionFun(NAsInteger,P()AsInteger,S1AsInteger,S2AsInteger)AsBoolean
DimIAsInteger,JAsInteger,MAsLong
ForI=1ToUBound(P)-1
ForJ=I+1ToUBound(P)
M=P(I)*P(J)
IfM=NThen
S1=P(I):
S2=P(J)
ExitFunction
Fun=True
EndIf
NextJ
NextI
EndFunction
改错题参考界面
【要求】
1、新建工程,输入上述代码,改正程序中的错误;
2、改错题的界面应给出的参考界面相似,主要用来调试程序;
3、改错时,不得增加或删除语句,但可适当调整语句位置;
4、将窗体文件和工程文件分别命名为F1和P1,并保存到软盘A的根目录下。
二、编程题(23分)
【题目】编写程序,找出所有满足下述条件的n位数(n=2、3、4):
当他们乘以数2、3、4、5、6、7、8、9时,其各位数字之和不变。
【编程要求】
1、运行程序,在文本框Text1中输入数字的位数,按“开始”按钮,则将符合条件的数按图标格式显示在多行文本框Text2中;按“清理”按钮,则将两个文本框清空,并将焦点置于Text1中;按“结束”按钮,结束程序运行;
2、程序至少要包含一个求某数各位数字之和的通用过程。
【要求】
1、程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见;
2、将窗体文件和工程文件分别命名为F2和P2,并保存到软盘A的根目录下。
编程题参考界面
二级VisualBasic语言(试卷代号VB07)
(本试卷完成时间70分钟)
【考试须知】
1、考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;
2、程序代码书写应呈现锯齿形。
一、改错题(17分)
【题目】随机生成范围在10至60之间的20个不同的整数,从中找出所有的由三个数构成的组合,使得每个组合中的三个数之和均为110。
OptionExplicit
PrivateSubCommand1_Click()
DimIAsInteger,JAsInteger,B()AsInteger,KAsInteger
CallSub1(B)
ForI=1To20
ForJ=1To20
IfJ>IThen
ForK=1To20
IfI<>KAndK<>JThen
IfB(I)+B(J)+B(K)=110Then
List1.AddItemStr(B(I))&Str(B(J))&Str(B(K))
EndIf
EndIf