VB答案Word文件下载.docx
- 文档编号:16488756
- 上传时间:2022-11-24
- 格式:DOCX
- 页数:75
- 大小:28.71KB
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 答案
![提示](https://static.bdocx.com/images/bang_tan.gif)