VB程序.docx
- 文档编号:27441787
- 上传时间:2023-07-01
- 格式:DOCX
- 页数:14
- 大小:16.56KB
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
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*m If2*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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序