VB小程序源代码Word下载.docx
- 文档编号:17808881
- 上传时间:2022-12-10
- 格式:DOCX
- 页数:7
- 大小:14.96KB
VB小程序源代码Word下载.docx
《VB小程序源代码Word下载.docx》由会员分享,可在线阅读,更多相关《VB小程序源代码Word下载.docx(7页珍藏版)》请在冰豆网上搜索。
EndIf
中心问题
PrivateSubForm_Resize()
Command1.Left=(Form1.ScaleWidth-Command1.Width)/2
Command1.Top=(Form1.ScaleHeight-Command1.Height)/2
Command1.Width=0.2*Form1.ScaleWidth
曲线问题
PrivateSubForm_Paint()
Scale(0,0)-(3000,3000)
Form1.DrawWidth=5
Form1.ForeColor=RGB(255,0,0)
Line(0,1500)-(3000,1500)
Line(1500,0)-(1500,3000)
Circle(1500,1500),35
Forx=0To3000
y=1500-200*(Sin((x-1500)*3.1415926/180))
PSet(x,y)
Nextx
查找
a=InStr(1,Text1,Text2)
Text1.SelStart=a-1
Text1.SelLength=Len(Text2)
Text1.SetFocus
PrivateSubText1_Change()
改变字体
PrivateSubCheck1_Click()
IfCheck1.Value=1Then
Text1.Font.Name="
隶书"
宋体"
EndIf
PrivateSubCheck2_Click()
IfCheck2.Value=1Then
Text1.Font.Bold=True
Text1.Font.Bold=False
PrivateSubCheck3_Click()
IfCheck3.Value=1Then
Text1.Font.Italic=True
Text1.Font.Italic=False
PrivateSubCheck4_Click()
IfCheck4.Value=1Then
Text1.ForeColor=vbRed
Text1.ForeColor=vbBlue
同步
Text2=Text1.Text
PrivateSubText2_Change()
Text1=Text2.Text
Sin函数
Scale(0,0)-(2000,2000)
PSet(1000,1000)
Line(1000,0)-(950,50)
Line(1050,50)-(1000,0)
Line(1950,950)-(2000,1000)
Line(1950,1050)-(2000,1000)
Line(0,1000)-(2000,1000)
Line(1000,0)-(1000,2000)
Circle(1000,1000),50
Forx=0To2000
y=1000-300*(Sin((x-1000)*3.1415926/180))
考试程序
正确"
Text1="
错误"
PrivateSubForm_Load()
复制粘贴查找替换
PrivateSubCommand3_Click()
a=InStr(1,Text1,Text3)
Text1.SelLength=Len(Text3)
PrivateSubCommand4_Click()
Text1.SelText=Text4
图片路径
PrivateSubDir1_Change()
File1.Path=Dir1.Path
PrivateSubDrive1_Change()
Dir1.Path=Drive1.Drive
PrivateSubFile1_Click()
Picture1.Picture=LoadPicture(File1.Path+File1.FileName)
改变字体颜色
Text1.Font.Name="
Text1.Font.Italic=False
Text1.ForeColor=vbBlack
兴趣选择
"
Text1=Text1&
Check1.Caption
Check2.Caption
Check3.Caption
Check4.Caption
1.求三角形的面积代码:
OptionExplicit
Dima!
b!
c!
r,!
s!
a=InputBox("
a="
"
请输入a的数值"
)
b=InputBox("
b="
请输入b的数值"
c=InputBox("
c="
请输入c的数值"
Ifa+b>
cAnda+c>
bAndb+c>
aAnda>
0Andb>
0Andc>
0Then
r=1/2*(a+b+c)
s=Sqr(r*(r-a)*(r-b)*(r-c))
Label1.Caption="
三角形的面积为"
&
s
Label2.Caption="
输入的数据不能构成三角形"
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序 源代码