VB程序.docx
《VB程序.docx》由会员分享，可在线阅读，更多相关《VB程序.docx（14页珍藏版）》请在冰豆网上搜索。
VB程序
SIN函授
Dimi%,j%
Form1.Scale（-10,3）-（10,-3）
Line（-10,0）-（10,0）
Line（0,3）-（0,-3）
Fori=-10To10Step1
Line（i,0）-（i,0.2）
CurrentX=i-0.15
CurrentY=0
Printi
CurrentX=9:
Print"x"
CurrentY=3:
Print"y"
Next
Forj=-3To3Step1
Ifj<>0Then
Line（0,j）-（0.2,j）
CurrentX=0-0.25
CurrentY=j+0.1
Printj
EndIf
Next
Forx=-6.28To6.28Step0.001
Line（x,Sin（x））-（x+0.001,Sin（x+0.001））
Next
乘法口诀表
PrivateSubForm_Click（）
Dimi%,j%
Fori=1To9
Forj=1To9
PrintTab（10*j）;i&"*"&j&"="&i*j;
Nextj
Print
Nexti
打印雪花
Form1.PrintTab
（1）;"*****";Spc（10）;"*"
PrintTab
（2）;"****";Spc（10）;"**"
PrintTab（3）;"***";Spc（10）;"***"
PrintTab（4）;"**";Spc（10）;"****"
PrintTab（5）;"*";Spc（10）;"*****
购买物品
Dimx!
y!
x=InputBox（"请输入钱数"）
Ifx<1000Then
y=x
EndIf
Ifx<=2000Andx>=1000Then
y=0.9*x
EndIf
Ifx>=2000Andx<=3000Then
y=0.8*x
EndIf
Ifx>=3000Then
y=0.7*x
EndIf
Text1.Text=y"
鸡兔同笼
PrivateSubCommand1_Click（）
Dimm%,n%,x%,y%
m=Text1.Text
n=Text2.Text
If2*m>nOr4*mIf2*m<=nAnd4*m>=nAndnMod2=0Then
y=n/2-m
x=m-y
Text3.Text=x
Text4.Text=y
EndIf
EndSub
2
Dimm!
n!
x!
y!
a!
r:
m=Val（InputBox（"请输入头数"））
n=Val（InputBox（"请输入脚数"））
IfnMod2=0Andn>=2*mAndn<=4*mThen
y=n/2-m
x=m-y
Text1.Text=x
Text2.Text=y
Else
a=MsgBox（"脚数错误请重新输入",53）
GoTor
EndIf
计算周长半径
PrivateSubCommand1_Click（）
Dimr!
d!
s!
ConstPI=3.1415
r=Text1.Text
d=PI*2*r
s=PI*r^2
Text2.Text=d
Text3.Text=s
EndSub
界面设置
PrivateSubM11_Click（）
Text1=Clear
EndSub
PrivateSubM12_Click（）
UnloadMe
EndSub
PrivateSubM21_Click（）
Text1.FontSize=12
EndSub
PrivateSubM22_Click（）
Text1.FontSize=16
EndSub
PrivateSubM23_Click（）
M23.Checked=NotM23.Checked
Text1.FontBold=M23.Checked
EndSub
PrivateSubM24_Click（）
M24.Checked=NotM24.Checked
Text1.FontItalic=M24.Checked
EndSub
PrivateSubText1_Change（）
IfText1.Text=""Then
M2.Visible=False
Else:
M2.Visible=True
EndIf
EndSub
PrivateSubText1_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
IfButton=2Then
PopupMenuM2
EndIf
EndSub
界面设置更新
PrivateSubM11_Click（）
Text1=Clear
EndSub
PrivateSubM12_Click（）
UnloadMe
EndSub
PrivateSubM21_Click（）
M21.Checked=NotM21.Checked
Text1.FontSize=12
IfM21.Checked=TrueThen
M22.Checked=False
EndIf
EndSub
PrivateSubM22_Click（）
M22.Checked=NotM22.Checked
排序
PrivateSubCommand1_Click（）
Dimj%,w%
Fori=1To3
Forj=i+1To4
Ifa（i）w=a（i）
a（i）=a（j）
a（j）=w
EndIf
Nextj
Nexti
Fori=1To4
Text2=Text2&""&a（i）
Nexti
EndSub
PrivateSubText3_KeyPress（KeyAsciiAsInteger）
IfKeyAscii=13Then
i=i+1
a（i）=Val（Text3.Text）
Text1=Text1&Text3&""
Text3.Text=""
EndIf
EndSub
三视图
PrivateSubForm_Click（）
Form1.Scale（-300,400）-（300,-400）
DrawWidth=2
CurrentX=-250:
CurrentY=50
Line-Step（200,50）,,B
Line-Step（-30,200）,,B
Line-Step（-140,-200）,,B
LineStep（30,0）-Step（0,200）
CircleStep（55,-100）,20
DrawWidth=1
DrawStyle=3
LineStep（-48,0）-Step（96,0）
LineStep（-48,-66）-Step（0,132）
DrawWidth=2
Line（-250,-50）-Step（200,-200）,,B
Line-Step（-30,140）,,B
Line-Step（-110,-140）,,B
Line-Step（-30,140）,,B
Line-Step（0,60）
CircleStep（85,-130）,55,,,,40/110
DrawWidth=1
DrawStyle=3
LineStep（-66,0）-Step（132,0）
LineStep（-66,-36）-Step（0,72）
LineStep（0,26）-Step（0,76）
EndSub
剩余残料
PrivateSubForm_Click（）
Dimi%,j%,r%,a%,b%,c%
a=200
Fori=1To321\17
Forj=1To321\27
r=321-17*i-27*j
Ifr>=0Andr<=321Then
Ifa>=rThen
a=r
b=i
c=j
EndIf
EndIf
Next
Next
Print"剩余残料";a
Print"截得a材料";b
Print"截得b材料";c
水仙花PrivateSubForm_Click（）
Dimi%,j%,k%,a%
Fori=1To9
Forj=0To9
Fork=0To9
a=i*100+j*10+k
Ifa=i^3+j^3+k^3Then
Printa
EndIf
Next
Next
Next
通话时间
PrivateSubLabel1_Click（）
Text1.Text=Time
EndSub
PrivateSubLabel2_Click（）
Text2.Text=Time
EndSub
PrivateSubLabel3_Click（）
DimsAsDate,eAsDate
Dimt!
s=CDate（Text1.Text）
e=CDate（Text2.Text）
t=DateDiff（"s",s,e）/60
Text3.Text=t
Dimy!
a=Val（Left（Text1.Text,2））
Ift<=3Then
Ifa>=7Anda<=19Then
y=0.5
Else
y=0.25
EndIf
Else
Ifa>=7Anda<=19Then
y=（t-3）*0.15+0.5
Else:
y=（（t-3）*0.15+0.5）*0.5
EndIf
EndIf
Text4.Text=y
EndSub
统计字符
PrivateSubCommand1_Click（）
Dima（1To26）AsInteger,cAsString
le=Len（Text1）
Fori=1Tole
c=UCase（Mid（Text1,i,1））
Ifc>="A"Andc<="Z"Then
j=Asc（c）-65+1
a（j）=a（j）+1
EndIf
Next
Forj=1To26
Ifa（j）>0Then
Text2=Text2&UCase（Chr（j+64））&"="&a（j）&""
EndIf
Nextj
温度转换
PrivateSubCommand1_Click（）
Dimc!
Dimf!
f=Text1.Text
c=（f-32）*5/9
Text2.Text=c
EndSub
PrivateSubCommand2_Click（）
Dimc!
Dimf!
c=Text2.Text
f=9*c/5+32
Text1.Text=f
EndSub
选菜
vateSubCommand1_Click（）
Dimi%,itemAsString
Fori=0ToList1.ListCount-1
IfList1.Selected（i）Then
List2.AddItemList1.List（i）
EndIf
Next
EndSub
学生成绩
PrivateSubForm_Click（）
Dimmark（）AsSingle,n%,i%,j%,k%,sum%
n=Val（InputBox（"输入学生人数"））
ReDimmark（1Ton）
Fori=1Ton
mark（i）=Val（InputBox（"输入第"&i&"个学生的成绩"））
sum=sum+mark（i）
Print"mark（"&i&"）="&mark（i）;""
Print
Next
sum=sum\n
Print"平均数"&"="∑
Print
k=0
Fori=1Ton
Ifmark（i）>sumThen
k=k+1
EndIf
Next
Print"高于平均分的人数"&"="&k
EndSub
移动标签PrivateSubTimer1_Timer（）
Label1.FontSize=Int（20+Rnd*20）
Label1.MoveLabel1.Left-HScroll1.Value,Label1.Top-HScroll1.Value
IfLabel1.Left<=0Then
Label1.Left=1200
Label1.Top=1500
EndIf
IfLabel1.Top<=0Then
Label1.Left=1200
Label1.Top=1500
EndIf
升级会员 