编程题.docx
《编程题.docx》由会员分享，可在线阅读，更多相关《编程题.docx（19页珍藏版）》请在冰豆网上搜索。
编程题
PrivateSubCommand1_Click（）
'''不得删除本行注释
Dims1AsInteger,s2AsInteger,iAsInteger
s1=Val（Text1.Text）
s2=Val（Text2.Text）
Open"d:
\vb\ly.txt"ForOutputAs#1
Fori=s1Tos2
IfIsLeapYear（i）Then
Print#1,i
EndIf
Nexti
Close#1
EndSub
'#####################################################
PrivateFunctionIsLeapYear（ByValyAsInteger）AsBoolean（在通用段）
If（yMod4=0AndyMod100<>0）OryMod400=0Then
IsLeapYear=True
Else
IsLeapYear=False
EndIf
EndFunction
1、PrivateSubCommand1_Click（）
'''不得删除本行注释
DimsAsString,iAsInteger,jAsInteger
Text2.Text=""
j=Len（Text1.Text）
Fori=jTo1Step-1
Text2.Text=Text2.Text&Mid（Text1.Text,i,1）
Nexti
EndSub
2、PrivateSubCommand1_Click（）
'''不得删除本行注释
DimstrAsString
Open"d:
\vb\bdata.txt"ForInputAs#1
DoWhileNotEOF
（1）
LineInput#1,str
Text1.Text=Text1.Text&str&vbCrLf
Loop
Close#1
EndSub
1、PrivateSubCommand1_Click（）
'''不得删除本行注释
Randomize
Text1.Text=Str（Int（91*Rnd+10））
Text2.Text=Str（Int（91*Rnd+10））
Text3.Text=Str（Int（91*Rnd+10））
Text4.Text=Str（Int（91*Rnd+10））
EndSub
PrivateSubCommand2_Click（）
'''不得删除本行注释
Dima（1To4）AsInteger,iAsInteger,tAsInteger,jAsInteger
a
（1）=Val（Text1.Text）
a
（2）=Val（Text2.Text）
a（3）=Val（Text3.Text）
a（4）=Val（Text4.Text）
Fori=1To3
Forj=i+1To4
Ifa（i）t=a（i）
a（i）=a（j）
a（j）=t
EndIf
Nextj
Nexti
Text1.Text=Str（a
（1））
Text2.Text=Str（a
（2））
Text3.Text=Str（a（3））
Text4.Text=Str（a（4））
EndSub
2、PrivateSubCommand1_Click（）
'''不得删除本行注释
Open"d:
\vb\aout.txt"ForOutputAs#1
Print#1,Label1.Caption
Close#1
EndSub
1、PrivateSubCommand1_Click（）
'''不得删改本行注释
Dimstr1AsString
CallGetChar（str1）
Text1.Text=str1
If（str1>="a"Andstr1<="z"）Or（str1>="A"Andstr1<="Z"）Then
Label1.Caption="是字母字符"
ElseIfstr1>="0"Andstr1<="9"Then
Label1.Caption="是数字字符"
Else
Label1.Caption="是其它字符"
EndIf
EndSub
'#################################################（试题中提供的）
SubGetChar（ByRefchar）
Randomize
char=Chr（Int（Rnd*256））
EndSub
2、'''不得删改以下声明
DimA（0To99）AsInteger
DimB（0To99）AsInteger
DimiAsInteger,jAsInteger
PrivateSubCommand1_Click（）
'''不得删改本行注释
DimiAsInteger
Open"d:
\vb\in.txt"ForInputAs#1
i=0
Fori=0To99
Input#1,A（i）
Next
Close#1
EndSub
PrivateSubCommand2_Click（）
'''不得删改本行注释
DimiAsInteger,jAsInteger
j=0
Fori=0To99
IfA（i）Mod2<>0Then
B（j）=A（i）
j=j+1
EndIf
Nexti
EndSub
1、PrivateSubCommand1_Click（）
'''不得删除本行注释
DimnAsInteger,iAsInteger
n=Val（Text1.Text）
Fori=2ToInt（Sqr（n））
IfnModi=0Then
ExitFor
EndIf
Nexti
Ifi>Int（Sqr（n））Then
Label2.Caption="YES"
Else
Label2.Caption="NO"
EndIf
EndSub
2、PrivateSubCommand1_Click（）
'''不得删除本行注释
Dimcount1AsInteger,str1AsString
str1=Text1.Text
count1=CountChar（str1）
Open"d:
\vb\paperout.txt"ForOutputAs#1
Print#1,count1
Close#1
EndSub
'####################################################（试题中提供的）
PrivateFunctionCountChar（chAsString）AsLong
DimiCounterAsLong
ch=Text1.Text
ch=UCase（ch）
iCounter=0
OpenApp.Path&"\PaperIn.txt"ForInputAs#1
DoWhileNotEOF
（1）
MyChar=Input（1,#1）
IfUCase（MyChar）=chThen
iCounter=iCounter+1
EndIf
Loop
Close#1
CountChar=iCounter
EndFunction
1、PrivateSubCommand1_Click（）
'''不得删除该行注释
Dimy1AsInteger
y1=Val（Text1.Text）
Ify1Mod100=0Then
Ify1Mod400=0Then
Label2.Caption="闰年"
Else
Label2.Caption="非闰年"
EndIf
ElseIfy1Mod4=0Then
Label2.Caption="闰年"
Else
Label2.Caption="非闰年"
EndIf
EndSub
2、'''下一句声明不得删改
DimArr（4）AsInteger
PrivateSubCommand1_Click（）
'''不得删除本行注释
Open"d:
\vb\intdata.txt"ForInputAs#1
Fori=0To4
Input#1,Arr（i）
Nexti
Close#1
EndSub
PrivateSubCommand2_Click（）
'''不得删除本行注释
DimiAsInteger,jAsInteger,tAsInteger
Fori=0To3
Forj=i+1To4
IfArr（i）>Arr（j）Then
t=Arr（i）
Arr（i）=Arr（j）
Arr（j）=t
EndIf
Nextj
Nexti
EndSub
PrivateSubCommand3_Click（）
'''不得删除本行注释
'ReDimT1（0To4）'重新定义文本框控件数组与ARR数组个数相同
DimiAsInteger
Fori=0To4
T1（i）=Str（Arr（i））
Nexti
EndSub
'##################################################（试题中提供的）
PrivateSubForm_Load（）
DimiAsInteger
Fori=1To4
LoadT1（i）
T1（i）.Visible=True
T1（i）.Top=T1（i-1）.Top
T1（i）.Left=T1（i-1）.Left+T1（i）.Width+100
Nexti
EndSub
PrivateSubAaa（）
DimiAsInteger
DimjAsInteger
DimkAsInteger
Fori=0To3
Forj=i+1To4
IfArr（i）>Arr（j）Then
k=Arr（i）
Arr（i）=Arr（j）
Arr（j）=k
EndIf
Nextj
Nexti
EndSub
1、PrivateSubCommand1_Click（）
'''不得删除本句注释行
DimxAsInteger,n0AsInteger,m0AsInteger,nAsInteger,mAsInteger
n0=Val（Text1.Text）
m0=Val（Text2.Text）
n=IIf（n0m=IIf（n0>m0,n0,m0）
x=mModn
DoWhilex<>0
m=n
n=x
x=mModn
Loop
Label3.Caption=Str（n）
EndSub
1、PrivateSubCommand1_Click（）
'''不得删除本行注释
DimiAsInteger
Fori=0To4
IfVal（List1.List（i））>=90Then
List2.AddItem"优秀"
ElseIfVal（List1.List（i））>=80Then
List2.AddItem"良好"
ElseIfVal（List1.List（i））>=70Then
List2.AddItem"中等"
ElseIfVal（List1.List（i））>=60Then
List2.AddItem"及格"
Else
List2.AddItem"不及格"
EndIf
Nexti
EndSub
'#################################################（试题中提供的）
PrivateSubForm_Load（）
Randomize
i=0
DoWhilei<5
temp=Int（Rnd*100）+1
Iftemp>40Then
List1.AddItemtemp
i=i+1
EndIf
Loop
EndSub
2、'''以下两行声明不得删改
DimArr（15）AsInteger
PrivateSubCommand1_Click（）
'''不得删除本行注释
DimiAsInteger
Open"d:
\vb\jsdata.txt"ForInputAs#1
Fori=1To15
Input#1,Arr（i）
Nexti
Close#1
IfOp1Then
T1.Text=Str（Aaa）
ElseIfOp2Then
T1.Text=Str（Bbb）
EndIf
EndSub
'#########################################（试题中提供的）
PrivateFunctionAaa（）
DimiAsInteger
Fori=1To15
Aaa=Aaa+Arr（i）
Nexti
EndFunction
PrivateFunctionBbb（）
DimiAsInteger
Bbb=1
Fori=1To15
Bbb=Bbb*Arr（i）
Nexti
EndFunction
1、PrivateSubCommand1_Click（）
'''不得删改本行注释
DimiAsInteger,a（1To10）AsInteger,max1AsInteger,min1AsInteger
Fori=1To10
a（i）=Int（101*Rnd）
Nexti
max1=a
（1）
min1=a
（1）
Fori=2To10
Ifa（i）>max1Thenmax1=a（i）
Ifa（i）Nexti
Text1.Text=Str（max1）
Text2.Text=Str（min1）
EndSub
2、DimstrAsString
PrivateSubCommand1_Click（）
'''不得删改该行注释
'Dimstr1AsString
'Open"d:
\vb\infile.txt"ForInputAs#1
'Input#1,str1
'Text1.Text=str1
'Close#1
Text1.Text=Aaa
EndSub
PrivateSubCommand2_Click（）
'''不得删改该行注释
Open"d:
\vb\outfile.txt"ForOutputAs#1
Print#1,Text1.Text
Close#1
EndSub
'#################################################
FunctionAaa（）
Dimstr1AsString,str2AsString
OpenApp.Path&"\Infile.txt"ForInputAs#1
Input#1,str1
Text1.Text=str1
Close
Fori=1ToLen（str1）
str2=Mid（str1,i,1）
Ifstr2>="a"Andstr2<="z"Then
str2=UCase（str2）
ElseIfstr2>="A"Andstr2<="Z"Then
str2=LCase（str2）
EndIf
Aaa=Aaa&str2
Nexti
EndFunction
升级会员 