VB答案Word文件下载.docx

VB答案Word文件下载.docx

《VB答案Word文件下载.docx》由会员分享，可在线阅读，更多相关《VB答案Word文件下载.docx（75页珍藏版）》请在冰豆网上搜索。

IfList1.Selected（k）=TrueThen

List2.AddItemList1.List（k）

List1.RemoveItemk

Text1="

已经选中的城市有：

Fork=0ToList2.ListCount-1Step1

Text1=Text1.Text&

"

&

List2.List（k）

5.DimstepyAsInteger'

纵向移动增量

DimstepxAsInteger'

横向移动增量

ConstLEFT_BUTTON=1

PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle）

Dimx0AsInteger,y0AsInteger,aAsSingle,radiusAsInteger

radius=Shape1.Width/2'

圆的半径

IfButton=LEFT_BUTTONThen

x0=Shape1.Left+radius'

圆心的x坐标

y0=Shape1.Top+radius'

圆心的y坐标

Ifx=x0Then

stepy=Sgn（y-y0）*50

stepx=Sgn（x-x0）*50

Else

a=（y-y0）/（x-x0）'

斜率

stepy=a*stepx

IfAbs（stepy）>

Abs（stepx）Then

stepx=stepy/a

Timer1.Enabled=True

Timer1.Enabled=False

PrivateSubTimer1_Timer（）

Shape1.MoveShape1.Left+stepx,Shape1.Top+stepy

二

2.PrivateSubL1_Click（）

L1.RemoveItemL1.ListIndex

3.PrivateSubc1_Click（）

DimsAsString

Ifop1.ValueThen

s="

做飞机去"

做火车去"

Ifop3.ValueThen

s=s+op3.Caption

s=s+op4.Caption

Text1.Text=s

PrivateSubForm_Unload（CancelAsInteger）

Open"

out3.txt"

ForOutputAs#1

Print#1,op1.Value,op2.Value,op3.Value,op4.Value,Text1.Text

Close#1

4.PrivateSubForm_Unload（CancelAsInteger）

out4.txt"

Print#1,Text1.Text,Text2.Text,Text3.Text

PrivateSubop1_Click（）

DimsAsString

s=Text1.Text

Text1.Text=Text2.Text

Text2.Text=s

op1.Visible=False

PrivateSubop2_Click（）

Text3.Text=Text1.Text+Text2.Text

5.OptionBase1

DimArr1（20）AsInteger

DimArr2（20）AsInteger

DimsumAsInteger

SubReadData1（）

OpenApp.Path&

\"

datain1.txt"

ForInputAs#1

Fori=1To20

Input#1,Arr1（i）

Nexti

SubReadData2（）

datain2.txt"

Input#1,Arr2（i）

SubWriteData（FilenameAsString,NumAsInteger）

FilenameForOutputAs#1

Print#1,Num

PrivateSubc1_Click（）

CallReadData1

CallReadData2

PrivateSubc2_Click（）

DimiAsInteger,sumAsSingle,arr3（20）AsInteger

Fori=1To20

arr3（i）=Arr1（i）+Arr2（i）

sum=sum+arr3（i）

Nexti

Printsum

PrivateSubc3_Click（）

CallWriteData（"

dataout.dat"

sum）

三

2.PrivateSubCommand1_Click（）

Label1.FontName="

宋体"

黑体"

EndSub

3.PrivateSubCmd1_Click（）

Text1（0）.Text=Str（Time（））

Text1

（1）.Text="

:

Text1

（2）.Text="

Cmd1.Enabled=False

Cmd2.Enabled=True

PrivateSubCmd2_Click（）

Text1

（1）.Text=Str（Time（））

t_start=Hour（Text1（0）.Text）*3600+Minute（Text1（0）.Text）*60+Second（Text1（0）.Text）

t_end=Hour（Text1

（1）.Text）*3600+Minute（Text1

（1）.Text）*60+Second（Text1

（1）.Text）

t=t_end-t_start

m=t\60

Ifm<

t/60Thenm=m+1

s=0.5

Ifm-3>

0Then

s=s+（m-3）*0.15

Text1

（2）.Text=Str（s）+"

元"

Cmd1.Enabled=True

Cmd2.Enabled=False

4.Dima（5,10）AsInteger

Dims（5）

PrivateSubCommand1_Click（）

\in4.txt"

Fori=1To5

Forj=1To10

Input#1,a（i,j）

Nextj

s（i）=0

s（i）=s（i）+a（i,j）

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

\in5.dat"

s=Input（LOF

（1）,#1）

DimlAsInteger,s1AsString,kAsInteger,s2AsString

DimiAsInteger,bAsBoolean

Fori=1ToLen（s）

s1=Mid（s,i,1）

Ifs1<

>

Andb=FalseThen

b=True

l=1

k=i

ElseIfs1<

AndbThen

l=l+1

ElseIfs1="

b=False

IfLen（Mid（s,k,l））>

Len（s2）Thens2=Mid（s,k,l）

EndIf

Text1.Text=Len（s2）

Text2.Text=s2

\out5.dat"

Print#1,Text1.Text,Text2.Text

四

2.PrivateSubHS1_Change（）

Text1.Width=HS1.Value

3.PrivateSubC1_Click（）

DimkAsInteger

k=0

While（k<

List2.ListCount-1）

IfList2.Selected（k）=TrueThen

List1.AddItemList2.Text

List2.RemoveItemk

k=k+1

Wend

PrivateSubC2_Click（）

List2.AddItemList1.Text

List1.RemoveItemList1.ListIndex

4.Subunload_sub（）

DimnAsInteger,kAsInteger

Fork=0To2

IfForm1.op1（k）.ValueThen

n=Val（Left$（Form1.op1（k）.Caption,2））

out4.dat"

Print#1,n,Val（Form1.Text1.Text）

5.PrivateSubC1_Click（）

DimaAsString

CD1.Filter="

所有文件|*.*|文本文件|*.txt|Word文件|*.doc"

CD1.FilterIndex=2

CD1.Action=1

OpenCD1.FileNameForInputAs#1

Input#1,a

Text1.Text=a

Text1.Text=UCase（Text1.Text）

PrivateSubC3_Click（）

CD1.FileName="

out5.dat"

CD1.Action=2

OpenCD1.FileNameForOutputAs#1

Print#1,Text1.Text

五

Text1.Enabled=True

PrivateSubText1_Change（）

Text2.Text=UCase（Text1.Text）

3.Dima（20）AsInteger

\in3.dat"

Fork=1To20

Input#1,a（k）

Text1=Text1+Str（a（k））+Space

（2）

'

考生编写

DimkAsInteger,tAsInteger

Fork=1To10

t=a（k）

a（k）=a（21-k）

a（21-k）=t

以下程序段将已变换的数组元素显示在Text2文本框中

Text2=Text2+Str（a（k））+Space

（2）

\out3.dat"

Print#1,Text2.Text

4.OptionBase1

DimxAsString,max_nAsInteger

\in4.dat"

Dima（26）AsInteger

sl=Text1.SelLength

st=Text1.SelText

Text2.Text="

IfText1.SelText="

Then

MsgBox"

请先选择文本！

Fori=1Tosl

c=Mid（st,i,1）

Ifc<

n=Asc（UCase（c））-Asc（"

A"

）+1

a（n）=a（n）+1

Next

Fori=1To26

Ifa（i）=0Then

Text2.Text=Text2.Text+"

+Chr（Asc（"

）+i-1）

Dimn%,tag_in%

Dimstud（1To10）AsStudType

Ifn<

10Then

tag_in=0

n=n+1

tag_in=1

输入的学生人数已超过数组声明的个数！

Iftag_in=0Then

IfText1="

学号不能为空，请重输！

n=n-1

stud（n）.Num=Text1

stud（n）.Name=Text2

stud（n）.Average=Val（Text3）

Text2="

Text3="

DimtAsStudType

Picture1.Cls

Forj=1Ton-1

Fork=j+1Ton

Ifstud（k）.Average>

stud（j）.AverageThen

t=stud（k）

stud（k）=stud（j）

stud（j）=t

Forj=1Ton

Picture1.Printstud（j）.Num;

stud（j）.Name;

stud（j）.Average

TypeStudType

NumAsString*6'

学号

NameAsString*8'

姓名

AverageAsSingle'

平均分

EndType

六

Text1.FontBold=True

Text1.FontItalic=True

Timer1.Enabled=False

PrivateSubOp1_Click（IndexAsInteger）

SelectCaseIndex

Case0

Timer1.Interval=1000

Case1

Timer1.Interval=3000

EndSelect

Text1.Text=Text1.Text+1

4.Dima（100）AsInteger,numAsInteger,nAsInteger

n=60

Fork=1Ton

num=InputBox（"

请输入一个数"

Fori=1Ton'

“读数据”事件过程中已给出n的初值

Ifnum=a（i）ThenExitFor

Ifi>

nThen

该数不存在于数组中，不能执行删除操作！

ForJ=iTon

a（J）=a（J+1）

'

以下程序段将执行删除操作后的数组a重新显示在Text1中

Text2