123vbWord下载.docx
《123vbWord下载.docx》由会员分享，可在线阅读，更多相关《123vbWord下载.docx（26页珍藏版）》请在冰豆网上搜索。
PrivateSubRead_Click（）
ReadData
PrivateSubCalc_Click（）
DimSAsString
Sum=0
Fori=1To100
IfInt（Arr（i）/3）=Arr（i）/3Then
Sum=Sum+Arr（i）
S=S&
Str（Arr（i））&
Nexti
Text1.Text=S
Sum="
;
Sum
PrivateSubSave_Click（）
WriteData"
DataOut.txt"
Sum
第三十三套
二、
（1）PrivateSubCommand2_Click（）
Max=a
（1）
Min=a
（1）
Fori=2To100
Ifisnarc（a（i））=TrueThen
Ifa（i）>
MaxThenMax=a（i）
Ifa（i）<
MinThenMin=a（i）
Text1.Text=Max
Text2.Text=Min
（2）PrivateSubC1_Click（）
DimnAsInteger,kAsInteger,sAsLong
n=Val（Cb1.Text）
s=0
Fork=nTo5000
Ifk/n=Int（k/n）Then
s=s+k
Nextk
Text1.Text=s
三、1）Ifwhich=1Then
2）ElseIfwhich=2Then
3）Text1.Text=Text1+Text3.Text
4）Text2.Text=Text2+Text3.Text
第三十七套
二、
（1）1）arrN（i）=Int（Rnd*1000）
2）Min=arrN
（1）
3）IfarrN（i）<
MinThen
（2）FunctionFun（）
Fori=0To1000
IfiMod7<
>
0Then
Y=Y+1
Fun=Y
EndFunction
PrivateSubCommand1_Click（）
d=Fun（）
Text1.Text=d
SaveData
三、PrivateSubC1_Click（）
ReadData1
ReadData2
PrivateSubC2_Click（）
DimArr3（20）AsInteger
DimSumAsInteger
Fori=1To20
Arr3（i）=Arr1（i）-Arr2（i）
Sum=Sum+Arr3（i）
Sum=taout.txt"
第三十八套
2）Sum=0
3）Sum=Sum+arrN（i）
4）Aver=Sum/20
Fori=0To200
IfiMod3=0Then
Sum=Sum+i
Fun=Sum
三、PrivateSubCommand2_Click（）
Fori=1To12
Sum=a（i,1）
Forj=2To10
Sum=Sum+a（i,j）
Nextj
s（i）=Int（Sum/10）
第四十三套
二、
（1）PrivateSubOption1_Click（）
Text1.Alignment=0
PrivateSubOption2_Click（）
Text1.Alignment=2
PrivateSubOption3_Click（）
Text1.Alignment=1
PrivateSubOption4_Click（）
Text1.FontName="
宋体"
PrivateSubOption5_Click（）
黑体"
（2）PrivateSubCommand2_Click（）
Timer1.Enabled=False
1）Fork=0To359Step360/12
2）x=radius*Cos（k*3.14159/180）+x0
3）Line1.Y2=y0-len1*Sin（a*3.14159/180）
4）b=b-30/12
三、1）s=a（n,1）
2）Fork=2To7
3）getmark=s*3*a（n,8）
PrivateSubCommand2_Click（）
DimkAsInteger
maxmark=getmark
（1）
m=1
Fork=2To5
Ifmaxmark<
getmark（k）Then
maxmark=getmark（k）
m=k
Text2=athlete（m）
Text3=maxmark
第四十七套
二、
（1）1）Timer1.Enabled=True
2）IfShape1.Top<
=Line1.Y1Then
3）IfShape1.Top+Shape1.Height>
=Line2.Y1Then
（2）Functioneven（）
DimsAsSingle,nAsInteger
Fork=1To100
Ifa（k）/2=Fix（a（k）/2）Then
s=s+a（k）
n=n+1
s=s/n
even=CInt（s）
Functionodd（）
Ifa（k）/2<
Fix（a（k）/2）Then
odd=CInt（s）
Functionall（）
s=s/100
all=CInt（s）
SelectCaseCombo1.ListIndex
Case0
Text1=even（）
Case1
Text1=odd（）
Case2
Text1=all（）
EndSelect
三、1）DimMat（M,N）AsInteger
2）OpenApp.Path&
\"
&
datain.txt"
ForInputAs#1
3）Input#1,Mat%（i,j）
4）Mat%（i,4）=t
第四十八套
二、
（1）PrivateSubC1_Click（IndexAsInteger）
SelectCaseIndex
Timer1.Enabled=True
PrivateSubTimer1_Timer（）
Text1.Text=Text1.Text+1
（2）1）SelectCases
2）CaseIs<
=4
3）f=10+（s-4）*1.2
4）CaseElse
5）f=10+（15-4）*1.2+（s-15）*1.8
Dima（26）AsInteger
n=Len（s）
Fori=1Ton
c=UCase（Mid（s,i,1））
Ifc>
="
A"
Andc<
Z"
Then
j=Asc（c）-Asc（"
）+1
a（j）=a（j）+1
t=Chr（Asc（"
））
Fori=2To26
MaxThen
Max=a（i）
）+i-1）
Text1.Text=t
Text2.Text=Max
第四十九套
二、
（1）1）tmp=1
2）tmp=tmp*i
3）xn=tmp
4）z=z+xn（t）
（2）1）arr=Array（"
第一项"
"
第二项"
第三项"
第四项"
）
2）StaticiAsInteger
3）i=0
Dimi%,j%,temp%,flagAsBoolean
i=0
j=9
temp=Text1（j）
flag=True
While（i<
j）
IfflagThen
IfText1（i）Mod2=0Then
Text1（j）=Text1（i）
j=j-1
flag=Notflag
Else
i=i+1
IfText1（j）Mod2=1Then
Text1（i）=Text1（j）
Wend
Text1（i）=temp
第五十套
DimaAsString
a="
IfOp1.ValueThen
Text1.Text=a&
Op1.Caption
Op2.Caption
我的爱好是"
IfCh1.Value=1Then
Text2.Text=a&
Ch1.Caption
a=Text2.Text
IfCh2.Value=1Then
Ch2.Caption
（2）1）i=0
2）Timer1.Interval=1000
3）Label1.Caption=List1.List（i）
三、OptionBase1
Dimsum（6）AsInteger
OpenApp.Path&
Text1.Text=Input（LOF
（1）,#1）
Close#1
Fori=1To6
sum（i）=0
IfLen（Text1.Text）=0Then
MsgBox"
请先使用“读数”功能！
"
Fori=1ToLen（Text1.Text）
c=LCase（Mid（Text1.Text,i,1））
SelectCasec
Case"
i"
sum
（1）=sum
（1）+1
j"
sum
（2）=sum
（2）+1
k"
sum（3）=sum（3）+1
l"
sum（4）=sum（4）+1
m"
sum（5）=sum（5）+1
n"
sum（6）=sum（6）+1
PrivateSubCommand3_Click（）
\out5.txt"
ForOutputAs#1
Print#1,sum（i）
第五十一套
DimA$,B$,k%,n%
A$="
n%=Asc（"
a"
）-Asc（"
Fork%=1ToLen（Text1.Text）
B$=Mid（Text1.Text,k%,1）
IfB$>
AndB$<
z"
B$=String（1,Asc（B$）-n%）
B$=String（1,Asc（B$）+32）
A$=A$+B$
Nextk%
Text1.Text=A
（2）1）Ifnum<
a（i）ThenExitFor
2）Forj=60ToiStep-1
3）a（j+1）=a（j）
4）a（i）=num
5）Fork=1To61
n=Len（s）:
t="
Dimword_maxAsInteger,word_numAsInteger,word_lenAsInteger
c=Mid（s,i,1）
Ifc<
t=t+c
word_len=word_len+Len（t）
word_num=word_num+1
IfLen（t）>
word_maxThen
word_max=Len（t）
Text1.Text=CInt（（word_len+Len（t））/（word_num+1））
Text2.Text=word_max
第五十二套
二、
（1）1）Text1（0）.Text=Str（Time（））
2）s=s+（m-3）*0.15
3）Cmd1.Enabled=True
4）Cmd2.Enabled=False
（2）PrivateSubCommand2_Click（）
s（i）=0
Forj=1To10
s（i）=a（i,j）+s（i）
s（i）=CInt（s（i）/10）
Text1（i-1）=s（i）
Fork=1To5
Shape1（k-1）.Height=s（k）*20
m=Line2.Y1
Shape1（k-1）.Top=m-Shape1（k-1）.Height
Shape1（k-1）.Visible=True
DimMax_lenAsInteger
Max_lenThen
Max_len=Len（t）
Max_word=t
Text1.Text=Max_len
Text2.Text=Max_word
第五十三套
二、
（1）1）HScroll1.Max=Shape2.Width+Shape2.Left-Shape1.Width
2）VScroll1.Max=Shape2.Height+Shape2.Top-Shape1.Height
3）Shape1.Left=HScroll1.Value
4）Shape1.Top=VScroll1
（2）1）Timer1.Enabled=True
2）Timer1.Enabled=False
3）d=d-Image1.Top
4）t=t+1
ia=1:
ib=1:
ic=1
DoWhileia<
=30Andib<
=30
Ifa（ia）<
b（ib）Then
c（ic）=a（ia）:
ia=ia+1
c（ic）=b（ib）:
ib=ib+1
ic=ic+1
Loop
ia=ia+1:
DoWhileib<
ib=ib+1:
Fork=1To60
Text3=Text3+Str（c（k））+Space
（2）
第五十四套
二、
（1）1）Fori=1To5
2）Forj=1To2*i-1
3）Forj=1Toi+1
4）Forj=1To9-2*i
（2）PrivateSubCommand1_Click（）
Timer1=False
1）Shape2.Top=Shape2.Top+d*50
2）IfShape2.Top<
=Shape1.TopOrShape2.Top+Shape2.Width>
=Shape1.Top+Shape1.HeightThen
3）Shape2.Left=Shape2.Left+d*50
三、1）n=n+1
2）List1.AddItemch$
p=0.3
d=Int（Text1.Text/500）
SelectCased
升级会员 