VB小程序源代码Word下载.docx

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="

输入的数据不能构成三角形"