10年编程题打印用.docx
- 文档编号:4431689
- 上传时间:2022-12-01
- 格式:DOCX
- 页数:36
- 大小:1.34MB
10年编程题打印用.docx
《10年编程题打印用.docx》由会员分享,可在线阅读,更多相关《10年编程题打印用.docx(36页珍藏版)》请在冰豆网上搜索。
10年编程题打印用
10年12月25日编程题
0123
PrivateSubCommand1_Click()
DimNAsInteger,SAsDouble(注:
此行代码由系统自动生成)
DimiAsInteger
N=Val(Text1.Text)
S=0
Fori=1ToN
S=S+i^i
Next
Text2.Text=S
EndSub
0124
PrivateSubCommand1_Click()
DimNAsInteger(注:
此行代码由系统自动生成)
DimiAsInteger
N=Val(Text1.Text)
Fori=NTo1000
IfiMod8=1Then
Text2.Text=Text2.Text&i&""
EndIf
Next
EndSub
0125
PrivateSubCommand1_Click()
DimNAsInteger(注:
此行代码由系统自动生成)
DimiAsInteger,sAsLong
N=Val(Text1.Text)
s=0
Fori=1ToN
IfiMod2=0Then
s=s+i
EndIf
Next
Text2.Text=Str(s)
EndSub
0126
PrivateSubCommand1_Click()
DimNAsInteger(注:
此行代码由系统自动生成)
N=Val(Text1.Text)
IfN>=80Then
Text2.Text="优良"
ElseIfN>=60Then
Text2.Text="合格"
Else
Text2.Text="不合格"
EndIf
EndSub
0127
DimNAsInteger(注:
此行代码由系统自动生成)
PrivateSubCommand1_Click()
DimiAsInteger
N=Val(Text1.Text)
Label2.Caption=""
Fori=1ToN
Label2.Caption=Label2.Caption&Sjzf()
Next
EndSub
FunctionSjzf()AsString(注:
此函数过程由系统自动生成)
DimkAsInteger
Randomize
k=Int(Rnd*2)
Ifk=0Then
Sjzf=Chr$(Int(Rnd*26)+65)
Else
Sjzf=Chr$(Int(Rnd*26)+97)
EndIf
EndFunction
0223
PrivateSubCommand1_Click()
DimnAsInteger,iAsInteger
Text2.Text=""
n=Len(Text1.Text)
Fori=1Ton
Text2.Text=Mid(Text1.Text,i,1)&Text2.Text
Next
EndSub
0224
DimA(1To40)AsInteger(注:
此行代码由系统自动生成)
PrivateSubCommand1_Click()
DimiAsInteger
Text1.Text=""
Open"K:
\ks50\6830101\fs.txt"ForInputAs#1
Fori=1To40
Input#1,A(i)
Text1.Text=Text1.Text&A(i)&""
Next
Close#1
EndSub
PrivateSubCommand2_Click()
DimiAsInteger,sumAsInteger,averAsInteger
sum=0
Fori=1To40
sum=sum+A(i)
Next
aver=sum/40
Text2.Text=aver
EndSub
0225
PrivateSubCommand1_Click()
DimsAsString
Text1.Text=""
Open"K:
\ks50\6830101\pdzm.txt"ForInputAs#1
LineInput#1,s
Text1.Text=s
Close#1
EndSub
PrivateSubCommand2_Click()
DimiAsInteger,countAsInteger
DimsAsString
Text3.Text=""
count=0
s=UCase(Text2.Text)
Fori=1ToLen(Text1.Text)
IfUCase(Mid(Text1.Text,i,1))=sThen
count=count+1
EndIf
Next
Text3.Text=Str(count)
EndSub
0226
OptionBase1(注:
此行代码由系统自动生成)
DimA(20)AsInteger(注:
此行代码由系统自动生成)
PrivateSubcommand1_click()
DimiAsInteger
Text1.Text=""
Randomize
Fori=1To20
A(i)=Int(51*Rnd()+50)
Text1.Text=Text1.Text&Str(A(i))&""
Next
EndSub
PrivateSubCommand2_Click()
DimiAsInteger
Text2.Text=""
Fori=1To20
IfA(i)Mod3=0OrA(i)Mod7=0Then
Text2.Text=Text2.Text&Str(A(i))&""
EndIf
Next
EndSub
0227
PrivateSubCommand1_Click()
Randomize
Text1.Text=Int(9000*Rnd()+1000)
EndSub
PrivateSubCommand2_Click()
DimnAsInteger
DimgwAsInteger,swAsInteger,bwAsInteger,qwAsInteger
DimsumAsInteger
n=Val(Text1.Text)
qw=n\1000
bw=(nMod1000)\100
sw=(nMod100)\10
gw=nMod10
sum=gw+sw+bw+qw
Text2.Text=Str(sum)
EndSub
09年12月26日编程题
0113
PrivateSubCommand1_Click()
Text2.Text=Left(Text1.Text,5)
Text3.Text=Right(Text1.Text,5)
Text4.Text=Text2.Text&Text3.Text
EndSub
0114
PrivateSubCommand1_Click()
Dimnum1AsInteger,num2AsInteger,sumAsInteger,chaAsInteger
num1=Val(Text1.Text)
num2=Val(Text2.Text)
sum=num1+num2
cha=num1-num2
IfSqr(sum)=Fix(Sqr(sum))AndSqr(cha)=Fix(Sqr(cha))Then
Text3.Text="yes"
Else
Text3.Text="no"
EndIf
EndSub
0115
PrivateSubCommand1_Click()
DimNAsInteger(注:
此行代码由系统自动生成)
DimiAsInteger
N=Val(Text1.Text)
Text2.Text=""
Fori=1ToN
IfSqr(i)=Fix(Sqr(i))Then
Text2.Text=Text2.Text&Str(i)&""
EndIf
Next
EndSub
0116
PrivateSubCommand1_Click()
DimsAsString
Text1.Text=""
Open"K:
\ks101\6830301\zfcwj.txt"ForInputAs#1
LineInput#1,s
Text1.Text=s
Text2.Text=Len(s)
Close#1
EndSub
0117
PrivateSubCommand1_Click()
DimiAsInteger,a
Randomize
Text1.Text=""
Fori=1To20
a=Int(90*Rnd+10)
Text1.Text=Text1.Text&a&""
Ifa>=65Anda<=90Then
Text2.Text=Text2.Text&Chr(a)&""
EndIf
Next
EndSub
0213
DimN(1To25)AsString(注:
此行代码由系统自动生成)
PrivateSubCommand1_Click()
DimiAsInteger
List1.Clear
Open"K:
\ks101\6830120\xzfwj.txt"ForInputAs#1
Fori=1To25
Input#1,N(i)
List1.AddItemN(i)
Nexti
Close#1
EndSub
PrivateSubCommand2_Click()
DimiAsInteger
List2.Clear
Fori=1To25
IfN(i)>"D"Then
List2.AddItemN(i)
EndIf
Nexti
EndSub
0214
PrivateSubCommand1_Click()
Text2.Text=zh(Text1.Text)
EndSub
PrivateFunctionzh(s2AsString)AsDouble(注:
此函数过程是系统自动生成的)
DimkAsInteger,iAsInteger,rAsString,nAsInteger
k=Len(s2)
zh=0
Fori=1Tok
r=Mid(s2,i,1)
Ifr<="9"Then
n=Val(r)
Else
n=Asc(r)-55
EndIf
zh=zh+n*16^(k-i)
Nexti
EndFunction
0215
DimArr(10)AsString(注:
此行代码由系统自动生成)
PrivateSubCommand1_Click()
DimiAsInteger
Open"K:
\ks101\6830225\rywj.txt"ForInputAs#1
Fori=1To10
Input#1,Arr(i)
Nexti
Close#1
EndSub
PrivateSubCommand2_Click()
DimiAsInteger
Text1.Text=""
Fori=1To10
IfLeft(Arr(i),1)="黄"OrLeft(Arr(i),1)="陈"Then
Text1.Text=Text1.Text&Arr(i)&""
EndIf
Next
EndSub
0217
PrivateSubCommand1_Click()
DimiAsInteger
Text1.Text=""
Fori=1To100
Text1.Text=Text1.Text&sczf()&""
Next
EndSub
PrivateSubCommand2_Click()
DimiAsInteger,countAsInteger
DimcAsString
count=0
c=Text2.Text
Fori=1ToLen(Text1.Text)
IfMid(Text1.Text,i,1)=cThen
count=count+1
EndIf
Next
Text3.Text=count
EndSub
PrivateFunctionsczf()AsString(注:
此函数过程是系统自动生成的)
Randomize
sczf=Chr(Int(Rnd*26+65)+32*Int(Rnd*2))
EndFunction
08年12月27日编程题
0102
PrivateSubCommand1_Click()
DimnAsInteger,iAsInteger,pAsLong
n=Val(Text1.Text)
p=1
Fori=1Ton
IfiMod7=0Then
p=p*i
EndIf
Nexti
Text2.Text=Str(p)
EndSub
0103
PrivateSubCommand1_Click()
DimiAsInteger
Text1.Text=""
Fori=1To100
IfiMod9=0Then
Text1.Text=Text1.Text&Str(i^2)&""
EndIf
Nexti
EndSub
0104
PrivateSubCommand1_Click()
DimnAsInteger,iAsInteger
DimmaxcharAsString,sAsString
n=Len(Text1.Text)
maxchar=Left(Text1.Text,1)
Fori=2Ton
s=Mid(Text1.Text,i,1)
IfAsc(s)>Asc(maxchar)Thenmaxchar=s
Next
Label2.Caption=maxchar
EndSub
0105
PrivateSubCommand1_Click()
DimsumAsInteger,iAsInteger,nAsInteger
DimsAsString
n=Len(Text1.Text)
sum=0
Fori=1Ton
s=Mid(Text1.Text,i,1)
sum=sum+Val(s)
Next
Text2.Text=Str(sum)
EndSub
0106
PrivateSubCommand1_Click()
DimnAsInteger
n=Val(Text1.Text)
If(nMod4=0AndnMod100<>0)_
Or(nMod400=0)Then
Text2.Text=366
Else
Text2.Text=365
EndIf
EndSub
0201
DimN(1To10)AsString,iAsInteger
(注:
上行代码由系统自动生成)
PrivateSubCommand1_Click()
List1.Clear
Open"K:
\ks101\6830120\yzfwj.txt"ForInputAs#1
Fori=1To10
Input#1,N(i)
List1.AddItemN(i)
Nexti
Close#1
EndSub
PrivateSubCommand2_Click()
DimtAsString
Fori=1To5
t=N(i)
N(i)=N(11-i)
N(11-i)=t
Nexti
List2.Clear
Fori=1To10
List2.AddItemN(i)
Nexti
EndSub
0202
PrivateSubCommand1_Click()
Text2.Text=zh(Text1.Text)
EndSub
PrivateFunctionzh(s2AsString)AsDouble(注:
此函数过程是系统自动生成的)
DimkAsInteger,iAsInteger,rAsInteger
k=Len(s2)
zh=0
Fori=1Tok
r=Val(Mid(s2,i,1))
zh=zh+r*8^(k-i)
Nexti
EndFunction
0203
DimArr(10)AsString(注:
此行代码由系统自动生成)
PrivateSubCommand1_Click()
DimiAsInteger
Open"K:
\ks101\6830225\rywj.txt"ForInputAs#1
Fori=1To10
Input#1,Arr(i)
Nexti
Close#1
EndSub
PrivateSubCommand2_Click()
DimiAsInteger
T1.Text=""
Fori=1To10
IfLen(Arr(i))=2Then
T1.Text=T1.Text&Arr(i)&""
EndIf
Next
EndSub
0204
PrivateSubCommand1_Click()
DimsAsString
Text1.Text=""
Open"K:
\ks101\6830301\YY.txt"ForInputAs#1
DoWhileNotEOF
(1)
LineInput#1,s
Text1.Text=Text1.Text&s&vbCrLf
Loop
Close#1
EndSub
PrivateSubCommand2_Click()
DimiAsInteger
DimnAsInteger
DimcountAsInteger
DimsAsString
n=Len(Text1.Text)
count=0
Fori=1Ton
s=UCase(Mid(Text1.Text,i,1))
Ifs<"A"Ors>"Z"Then
count=count+1
EndIf
Nexti
Label1.Caption="共"&count&"个非英文字母"
EndSub
0206
PrivateSubCommand1_Click()
DimnAsInteger
DimiAsInteger
n=Val(Text1.Text)
Open"K:
\ks101\6830311\zfwj.txt"ForOutputAs#1
Fori=1Ton
Print#1,String(i,Format(i))
Nexti
Close#1
EndSub
1.
PrivateSubCommand1_Click()
DimiAsInteger
Text1.Text=""
Fori=1To200
If(iMod3=0)And(iMod7=0)Then
Text1.Text=Text1.Text&""&i
EndIf
Nexti
EndSub
2.
PrivateSubCommand1_Click()
DimnAsInteger
DimiAsInteger
List1.Clear
Forn=200To300
Fori=2Ton-1
IfnModi=0ThenExitFor
Nexti
Ifi>n-1Then
List1.AddItemn
EndIf
Nextn
EndSub
3.
PrivateSubcommand1_Click()
DimaAsInteger,bAsInteger,cAsInteger
DimmaxAsInteger,minAsInteger
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
max=IIf(a>b,a,b)
max=IIf(max>c,max,c)
min=IIf(a
min=IIf(min Tex
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 10 编程 打印