VB答案.docx

VB答案.docx

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

VB答案

一

2.PrivateSubCommand1_Click（）

Text1.PasswordChar=""

EndSub

PrivateSubCommand2_Click（）

Text1.PasswordChar="*"

EndSub

PrivateSubCommand3_Click（）

Text1.Text=""

Text1.SetFocus

EndSub

3.PrivateSubCommand1_Click（）

DimnAsInteger

Cls

n=InputBox（"请输入一个整数"）

Print"因子数=";fun（n）

EndSub

Functionfun（mAsInteger）

DimsAsInteger

s=0

Fork=1ToAbs（m）/2

IfmModk=0Then

s=s+1

Printk

EndIf

Nextk

fun=s

EndFunction

4.PrivateSubCommand1_Click（）

Dimk%

Fork=List1.ListCount-1To0Step-1

IfList1.Selected（k）=TrueThen

List2.AddItemList1.List（k）

List1.RemoveItemk

EndIf

Nextk

EndSub

PrivateSubCommand2_Click（）

Dimk%

Text1="已经选中的城市有：

"

Fork=0ToList2.ListCount-1Step1

Text1=Text1.Text&""&List2.List（k）

Nextk

EndSub

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）'斜率

stepx=Sgn（x-x0）*50

stepy=a*stepx

IfAbs（stepy）>Abs（stepx）Then

stepy=Sgn（y-y0）*50

stepx=stepy/a

EndIf

EndIf

Timer1.Enabled=True

Else

Timer1.Enabled=False

EndIf

EndSub

PrivateSubTimer1_Timer（）

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

EndSub

二

2.PrivateSubL1_Click（）

L1.RemoveItemL1.ListIndex

EndSub

3.PrivateSubc1_Click（）

DimsAsString

Ifop1.ValueThen

s="做飞机去"

Else

s="做火车去"

EndIf

Ifop3.ValueThen

s=s+op3.Caption

Else

s=s+op4.Caption

EndIf

Text1.Text=s

EndSub

PrivateSubForm_Unload（CancelAsInteger）

Open"out3.txt"ForOutputAs#1

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

Close#1

EndSub

4.PrivateSubForm_Unload（CancelAsInteger）

Open"out4.txt"ForOutputAs#1

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

Close#1

EndSub

PrivateSubop1_Click（）

DimsAsString

s=Text1.Text

Text1.Text=Text2.Text

Text2.Text=s

op1.Visible=False

EndSub

PrivateSubop2_Click（）

Text3.Text=Text1.Text+Text2.Text

EndSub

5.OptionBase1

DimArr1（20）AsInteger

DimArr2（20）AsInteger

DimsumAsInteger

SubReadData1（）

OpenApp.Path&"\"&"datain1.txt"ForInputAs#1

Fori=1To20

Input#1,Arr1（i）

Nexti

Close#1

EndSub

SubReadData2（）

OpenApp.Path&"\"&"datain2.txt"ForInputAs#1

Fori=1To20

Input#1,Arr2（i）

Nexti

Close#1

EndSub

SubWriteData（FilenameAsString,NumAsInteger）

OpenApp.Path&"\"&FilenameForOutputAs#1

Print#1,Num

Close#1

EndSub

PrivateSubc1_Click（）

CallReadData1

CallReadData2

EndSub

PrivateSubc2_Click（）

DimiAsInteger,sumAsSingle,arr3（20）AsInteger

Fori=1To20

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

sum=sum+arr3（i）

Nexti

Printsum

EndSub

PrivateSubc3_Click（）

CallWriteData（"dataout.dat",sum）

EndSub

三

2.PrivateSubCommand1_Click（）

Label1.FontName="宋体"

EndSub

PrivateSubCommand2_Click（）

Label1.FontName="黑体"

EndSub

3.PrivateSubCmd1_Click（）

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

Text1

（1）.Text="":

Text1

（2）.Text=""

Cmd1.Enabled=False

Cmd2.Enabled=True

EndSub

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

s=0.5

Ifm-3>0Then

s=s+（m-3）*0.15

EndIf

Text1

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

Cmd1.Enabled=True

Cmd2.Enabled=False

EndSub

4.Dima（5,10）AsInteger

Dims（5）

PrivateSubCommand1_Click（）

OpenApp.Path&"\in4.txt"ForInputAs#1

Fori=1To5

Forj=1To10

Input#1,a（i,j）

Nextj

Nexti

Close#1

EndSub

PrivateSubCommand2_Click（）

Fori=1To5

s（i）=0

Forj=1To10

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

Nextj

s（i）=CInt（s（i）/10）

Text1（i-1）=s（i）

Nexti

EndSub

PrivateSubCommand3_Click（）

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

Nextk

EndSub

5.OptionBase1

DimsAsString

PrivateSubCommand1_Click（）

OpenApp.Path&"\in5.dat"ForInputAs#1

s=Input（LOF

（1）,#1）

Close#1

EndSub

PrivateSubCommand2_Click（）

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=""AndbThen

b=False

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

EndIf

Nexti

Text1.Text=Len（s2）

Text2.Text=s2

EndSub

PrivateSubForm_Unload（CancelAsInteger）

OpenApp.Path&"\out5.dat"ForOutputAs#1

Print#1,Text1.Text,Text2.Text

Close#1

EndSub

四

2.PrivateSubHS1_Change（）

Text1.Width=HS1.Value

EndSub

3.PrivateSubC1_Click（）

DimkAsInteger

k=0

While（k

IfList2.Selected（k）=TrueThen

List1.AddItemList2.Text

List2.RemoveItemk

EndIf

k=k+1

Wend

EndSub

PrivateSubC2_Click（）

List2.AddItemList1.Text

List1.RemoveItemList1.ListIndex

EndSub

4.Subunload_sub（）

DimnAsInteger,kAsInteger

Fork=0To2

IfForm1.op1（k）.ValueThen

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

EndIf

Nextk

Open"out4.dat"ForOutputAs#1

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

Close#1

EndSub

5.PrivateSubC1_Click（）

DimaAsString

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

CD1.FilterIndex=2

CD1.Action=1

OpenCD1.FileNameForInputAs#1

Input#1,a

Close#1

Text1.Text=a

EndSub

PrivateSubC2_Click（）

Text1.Text=UCase（Text1.Text）

EndSub

PrivateSubC3_Click（）

CD1.FileName="out5.dat"

CD1.Action=2

OpenCD1.FileNameForOutputAs#1

Print#1,Text1.Text

Close#1

EndSub

五

2.PrivateSubCommand1_Click（）

Text1.Enabled=True

EndSub

PrivateSubText1_Change（）

Text2.Text=UCase（Text1.Text）

EndSub

3.Dima（20）AsInteger

PrivateSubCommand1_Click（）

DimkAsInteger

OpenApp.Path&"\in3.dat"ForInputAs#1

Fork=1To20

Input#1,a（k）

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

（2）

Nextk

Close#1

EndSub

PrivateSubCommand2_Click（）

'考生编写

DimkAsInteger,tAsInteger

Fork=1To10

t=a（k）

a（k）=a（21-k）

a（21-k）=t

Nextk

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

Fork=1To20

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

（2）

Nextk

EndSub

PrivateSubForm_Unload（CancelAsInteger）

OpenApp.Path&"\out3.dat"ForOutputAs#1

Print#1,Text2.Text

Close#1

EndSub

4.OptionBase1

DimxAsString,max_nAsInteger

PrivateSubCommand1_Click（）

OpenApp.Path&"\in4.dat"ForInputAs#1

s=Input（LOF

（1）,#1）

Close#1

Text1.Text=s

EndSub

PrivateSubCommand2_Click（）

Dima（26）AsInteger

sl=Text1.SelLength

st=Text1.SelText

Text2.Text=""

IfText1.SelText=""Then

MsgBox"请先选择文本！

"

Else

Fori=1Tosl

c=Mid（st,i,1）

Ifc<>""Then

n=Asc（UCase（c））-Asc（"A"）+1

a（n）=a（n）+1

EndIf

Next

Fori=1To26

Ifa（i）=0Then

Text2.Text=Text2.Text+""+Chr（Asc（"A"）+i-1）

EndIf

Next

EndIf

EndSub

5.OptionBase1

Dimn%,tag_in%

Dimstud（1To10）AsStudType

PrivateSubCommand1_Click（）

Ifn<10Then

tag_in=0

n=n+1

Else

tag_in=1

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

"

EndIf

Iftag_in=0Then

IfText1=""Then

MsgBox"学号不能为空，请重输！

"

n=n-1

Else

stud（n）.Num=Text1

stud（n）.Name=Text2

stud（n）.Average=Val（Text3）

EndIf

EndIf

Text1="":

Text2="":

Text3=""

EndSub

PrivateSubCommand2_Click（）

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

EndIf

Nextk

Nextj

Forj=1Ton

Picture1.Printstud（j）.Num;stud（j）.Name;stud（j）.Average

Nextj

EndSub

TypeStudType

NumAsString*6'学号

NameAsString*8'姓名

AverageAsSingle'平均分

EndType

六

2.PrivateSubCommand1_Click（）

Text1.FontBold=True

EndSub

PrivateSubCommand2_Click（）

Text1.FontItalic=True

EndSub

3.PrivateSubC1_Click（）

Timer1.Enabled=True

EndSub

PrivateSubC2_Click（）

Timer1.Enabled=False

EndSub

PrivateSubOp1_Click（IndexAsInteger）

SelectCaseIndex

Case0

Timer1.Interval=1000

Case1

Timer1.Interval=3000

EndSelect

EndSub

PrivateSubTimer1_Timer（）

Text1.Text=Text1.Text+1

EndSub

4.Dima（100）AsInteger,numAsInteger,nAsInteger

PrivateSubCommand1_Click（）

DimkAsInteger

n=60

OpenApp.Path&"\in4.dat"ForInputAs#1

Fork=1Ton

Input#1,a（k）

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

（2）

Nextk

Close#1

EndSub

PrivateSubCommand2_Click（）

num=InputBox（"请输入一个数"）

EndSub

PrivateSubCommand3_Click（）

Fori=1Ton'“读数据”事件过程中已给出n的初值

Ifnum=a（i）ThenExitFor

Nexti

Ifi>nThen

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

"

Else

n=n-1

ForJ=iTon

a（J）=a（J+1）

Next

EndIf

Text1=""

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

Fork=1Ton

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

（2）

Nextk

EndSub

5.OptionBase1

DimxAsString,max_nAsInteger

PrivateSubCommand1_Click（）

OpenApp.Path&"\in5.dat"ForInputAs#1

s=Input（LOF

（1）,#1）

Close#1

Text1.Text=s

EndSub

PrivateSubCommand2_Click（）

Dima（26）AsInteger

sl=Text1.SelLength

st=Text1.SelText

Text2