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
升级会员 