10年编程题打印用.docx

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