江苏省高校等考(CCT)二级(VF)模拟试卷1
试卷名称:江苏省高校等考(CCT)二级(VB)模拟试卷1
 
                    
                    
                 OptionExplicit
OptionBase1
PrivateSubCommand1_Click()
DimnAsInteger,a()        AsInteger,kAsInteger,pAsIntegern=InputBox(“输入数据个数:“,“升序数数组“,10)ReDima(n)
Do
p=Int(Rnd900)Ifjudge(p)Then
k=k+1a(k)=p
Text1.Text=Text1.Text&Str(a(k))
IfkMod5=0ThenText1.Text=Text1.Text&vbCrLfEndIf
LoopUntilk>nEndSub
PrivateFunctionjudge(nAsInteger)AsBooleanDimiAsInteger,a(3)AsInteger
Fori=3To1Step-1a(i)=nMod10n=n10
Nexti
Fori=1To2
Ifa(i)>=a(i+1)ThenExitForNexti
judge=TrueEndFunction
OptionExplicit
OptionBase1
PrivateSubCommand1_Click()
DimnAsInteger,a()        AsInteger,kAsInteger,pAsIntegern=InputBox(“输入数据个数:“,“升序数数组“,10)ReDima(n)
Do
p=Int(Rnd900)Ifjudge(p)Then
k=k+1a(k)=p
Text1.Text=Text1.Text&Str(a(k))
IfkMod5=0ThenText1.Text=Text1.Text&vbCrLfEndIf
LoopUntilk>nEndSub
PrivateFunctionjudge(nAsInteger)AsBooleanDimiAsInteger,a(3)AsInteger
Fori=3To1Step-1a(i)=nMod10n=n10
Nexti
Fori=1To2
Ifa(i)>=a(i+1)ThenExitForNexti
judge=TrueEndFunction  
                        您可能感兴趣的题目
相关试卷
江苏省高校等考(CCT)二级(VF)模拟试卷1
江苏省高校等考(CCT)二级(C语言)模拟试卷1
江苏省高校等考(CCT)二级(C++)模拟试卷1
江苏省高校等考(CCT)二级(VB)模拟试卷1
江苏省高校等考(CCT)二级(Office 高级应用)模拟试卷1
江苏省高校等考(CCT)二级(FORTRAN90程序设计)模拟试卷1
高校等考(二级)模拟试卷3
高校等考(二级)模拟试卷2
高校等考(二级)模拟试卷1