VB语言与测绘程序设计李胜乐.docx

VB语言与测绘程序设计李胜乐.docx

《VB语言与测绘程序设计李胜乐.docx》由会员分享，可在线阅读，更多相关《VB语言与测绘程序设计李胜乐.docx（28页珍藏版）》请在冰豆网上搜索。

VB语言与测绘程序设计李胜乐

第二章

1．使控件居中

PrivateSubCommand1_Click（）

Command1.Left=Form1.Width/2-Command1.Width/2

Command1.Top=Form1.Height/2-Command1.Height/2

Command1.Width=Form1.Width/2

Command1.Height=Form1.Height/2

EndSub

2．增大或减小窗体

PrivateSubForm_Click（）

Form1.Width=Form1.Width+100

Form1.Height=Form1.Height+100

EndSub

PrivateSubForm_DblClick（）

Form1.Width=Form1.Width-200

Form1.Height=Form1.Height-200

EndSub

3．左右，上下移动窗体

PrivateSubForm_Click（）

Form1.MoveForm1.Left-100,Form1.Top-100

EndSub

PrivateSubForm_DblClick（）

Form1.MoveForm1.Left+200,Form1.Top+200

EndSub

4.标签例子

PrivateSubLabel2_Click（）

Label1.ForeColor=Label2.BackColor

Label1.Left=Label1.Left+100

EndSub

PrivateSubLabel3_Click（）

Label1.ForeColor=Label3.BackColor

Label1.Left=Label1.Left+100

EndSub

PrivateSubLabel4_Click（）

Label1.ForeColor=Label4.BackColor

Label1.Left=Label1.Left+100

EndSub

5.输入字母大小写转换

PrivateSubText1_Change（）

Text2.Text=UCase（Text1.Text）

EndSub

6.字体缩放

PrivateSubCommand1_Click（）

Label1.FontSize=Label1.FontSize+4

EndSub

PrivateSubCommand2_Click（）

Label1.FontSize=Label1.FontSize-4

EndSub

7.显示日期和时间的窗体

PrivateSubTimer1_Timer（）

Form1.Caption=Now

EndSub

8．改变标签移动速度

PrivateSubHScroll1_Change（）

Timer1.Interval=10000-HScroll1.Value

EndSub

PrivateSubTimer1_Timer（）

Label1.Left=Label1.Left+100

EndSub

9.滚动条改变颜色

PrivateSubHSB_Change（）

txtB=HSB.Value

Label4.BackColor=RGB（Val（txtR）,Val（txtG）,Val（txtB））

EndSub

PrivateSubHSG_Change（）

txtG.Text=HSG.Value

Label4.BackColor=RGB（Val（txtR）,Val（txtG）,Val（txtB））

EndSub

PrivateSubHSR_Change（）

txtR.Text=HSR.Value

Label4.BackColor=RGB（Val（txtR）,Val（txtG）,Val（txtB））

EndSub

第三章

1.信息输入框

PrivateSubForm_Click（）

Dimm

m=InputBox（"输入分数（0到100之间）","数据输入","80"）

EndSub

2.inputbox求三角形的面积

PrivateSubCommand1_Click（）

Dima#,b#,c#,p#,s#

a=InputBox（"输入边长a：

","输入第一个边长","3"）

b=InputBox（"输入边长b：

","输入第二个边长","4"）

c=InputBox（"输入边长c：

","输入第三个边长","5"）

p=（a+b+c）/2

s=Sqr（（p-a）*（p-b）*（p-c）*p）

Text1.Text=s

EndSub

3.信息框的样式

PrivateSubForm_Click（）

MsgBox"直接显示提示信息，用户只能选择确定按钮"

MsgBox"显示三个按钮，让用户进行选择！

",3,"信息提示"

EndSub

4.信息框的示例

PrivateSubCommand1_Click（）

MsgBox"你选择了北京",,"目的地选择"

EndSub

PrivateSubCommand2_Click（）

MsgBox"你选择了上海",,"目的地选择"

EndSub

PrivateSubCommand3_Click（）

MsgBox"你选择了广州",,"目的地选择"

EndSub

PrivateSubCommand4_Click（）

MsgBox"你选择了深圳",,"目的地选择"

EndSub

5.关于打印

PrivateSubForm_Click（）

Form1.PrintTab（12）;"测量程序平差设计（第一版）"

Form1.Print

PrintTab（8）;"山东科技大学泰安校区";Spc

（2）;"资源与土木工程系"

EndSub

6.三个数的大小比较

PrivateSubCommand1_Click（）

Dima#,b#,c#

a=Text1.Text

b=Text2.Text

c=Text3.Text

Ifa>bAndb>cThen

PrintStr（a）&","&Str（b）;","&Str（c）

ElseIfa>cAndc>bThen

PrintStr（a）&","&Str（c）;","&Str（b）

ElseIfb>aAnda>cThen

PrintStr（b）&","&Str（a）;","&Str（c）

ElseIfb>cAndc>aThen

PrintStr（b）&","&Str（c）;","&Str（a）

ElseIfc>aAnda>bThen

PrintStr（c）&","&Str（a）;","&Str（b）

ElseIfc>bAndb>aThen

PrintStr（c）&","&Str（b）;","&Str（a）

ElseIfa=bOrb=cOra=cThen

MsgBox"不可判断"

EndIf

EndSub

7.判断字符

PrivateSubForm_click（）

Char=InputBox（"输入一个字符","测试字符值"）

IfChar>="0"AndChar<="9"Then

MsgBox"输入字符是数字的是数字"

ElseIfChar>="A"AndChar<="Z"Then

MsgBox"输入的字符大写字母"

ElseIfChar>="a"AndChar<="z"Then

MsgBox"输入的字符小写字母"

Else

MsgBox"输入的字母是其它的字符"

EndIf

EndSub

8.点所在象限

PrivateSubForm_Click（）

Dimx#,y#

x=Val（Text1.Text）

y=Val（Text2.Text）

Cls

Ifx>0Andy>0Then

Print"点在第一象限"

ElseIfx<0Andy>0Then

Print"点在第二象限"

ElseIfx<0Andy<0Then

Print"点在第三象限"

ElseIfx>0Andy<0Then

Print"点在第四象限"

Else

Print"点在坐标轴上"

EndIf

EndSub

9.优良等级的判断

PrivateSubCommand1_Click（）

Dimx%

x=Val（Text1.Text）

Cls

SelectCaseInt（x/10）

Case10

Print"满分"

Case9

Print"优秀"

Case8

Print"良好"

Case7

Print"中等"

Case6

Print"及格"

CaseElse

Print"不及格"

EndSelect

EndSub

10.自我介绍程序

PrivateSubCheck1_Click（）

IfCheck1.Value=1ThenText1.Text=Text1.Text&"我喜欢篮球"

EndSub

PrivateSubCheck2_Click（）

IfCheck2.Value=1ThenText1.Text=Text1.Text&"我喜欢足球"

EndSub

PrivateSubCheck3_Click（）

IfCheck3.Value=1ThenText1.Text=Text1.Text&"我喜欢排球"

EndSub

PrivateSubCheck4_Click（）

IfCheck4.Value=1ThenText1.Text=Text1.Text&"我喜欢游泳"

EndSub

PrivateSubForm_Load（）

EndSub

PrivateSubOption1_Click（）

Text1.Text="我的专业是工程测量"

EndSub

PrivateSubOption2_Click（）

Text1.Text="我的专业是大地测量"

EndSub

PrivateSubOption3_Click（）

Text1.Text="我是一个男生"

EndSub

PrivateSubOption4_Click（）

Text1.Text="我是一个女生"

EndSub

11.列表框示例

PrivateSubCommand1_Click（）

n=List1.ListCount-1

i=0

DoWhilei<=n

IfList1.Selected（i）Then

List2.AddItemList1.List（i）:

List1.RemoveItemi

n=n-1

Else

i=i+1

EndIf

Loop

EndSub

PrivateSubCommand2_Click（）

n=List2.ListCount-1:

i=0

DoWhilei<=n

IfList2.Selected（i）Then

List1.AddItemList2.List（i）:

List2.RemoveItemi

n=n-1

Else

i=i+1

EndIf

Loop

EndSub

12.组合框基本应用方法

PrivateSubCombo1_Change（）

Label1.Caption="你输入的是：

"+Combo1.Text

EndSub

PrivateSubCombo1_Click（）

Label1.Caption="你选择的是：

"+Combo1.Text

EndSub

第四章

1.1－100之和

PrivateSubForm_Click（）

DimsAsInteger,iAsInteger

s=0

Fori=1To100

s=s+i

Nexti

Prints

EndSub

2.1－100奇数之和

PrivateSubForm_Click（）

DimsAsInteger,iAsInteger

s=0

Fori=1To100Step2

s=s+i

Nexti

Prints

EndSub

3.求20！

阶乘

PrivateSubForm_Click（）

DimsAsDouble,iAsInteger

s=1

Fori=1To20

s=s*i

Nexti

Prints

EndSub

4.求π的近似值

PrivateSubForm_Click（）

DimPi#,n#,i#

n=10000:

Pi=1

Fori=1Ton

Pi=Pi*（2*i*2*i）/（（2*i-1）*（2*i+1））

Nexti

Pi=Pi*2

PrintPi

EndSub

5.打印ASSII码

PrivateSubForm_click（）

Dimi%

PrintTab（30）;"打印ASCII码表"

Fori=1To128

Printi;"-->";Chr（i）;Spc

（2）

IfiMod8=0ThenPrint

Nexti

EndSub

6.判断是不是素数

PrivateSubCommand1_Click（）

Dimi%,m%,bAsBoolean

m=Val（InputBox（"请输入一个正整数：

"））

b=True

Fori=2Tom-1

IfmModi=0Then

b=False

ExitFor

EndIf

Nexti

Ifb=TrueThen

Printm;"是一个素数"

Else

Printm;"不是一个素数"

EndIf

EndSub

7.猴子吃桃

PrivateSubForm_Click（）

Dimn%,i%,x%

x=1

Print"第8天的桃子数为：

1只"

Fori=7To1Step-1

x=（x+1）*2

Print"第";i;"天的桃子数为:

";x;"只"

Nexti

EndSub

8.房屋贷款

PrivateSubCommand1_Click（）

Dimn,a,b,r

r=0.0585:

a=20:

n=15

b=a*（1+r）^15

Print"15年后归还的总额为：

";Format（b,"0.000000"）

EndSub

PrivateSubCommand2_Click（）

Dimn,a,b,r

r=0.0585:

a=20:

n=0

n=0

Do

n=n+1

b=a*（1+r）^n

LoopUntilb>35

Print"要使归还总额低于35万，应在";Str（n）;"年内还清"'

EndSub

9.打印九九乘法表

PrivateSubForm_Click（）

Dimi%,j%

FontSize=10

PrintTab（35）;"九九乘法表"

PrintTab（33）;"___"

Fori=1To9

Forj=1Toi

PrintTab（（j-1）*9+1）;i&"*"&j&"="&i*j;

Nextj

Print

Nexti

EndSub

10.穷举法百元换零

PrivateSubCommand1_Click（）

Dimx,y,z

Forx=0To40

Fory=0To40

Forz=0To40

Ifx+2*y+5*z=100_

Andx+y+z=40Then

Printx,y,z

EndIf

Nextz

Nexty

Nextx

EndSub

PrivateSubCommand2_Click（）

Dimx,y,z

Forz=0To20

Fory=0To40

If（40-z-y）+2*y+5*z=100_

Andz+y<41Then

Print（40-z-y）,y,z

EndIf

Nexty

Nextz

EndSub

出租车计价器

PrivateSubForm_Click（）

Dims,m

s=InputBox（"请输入所走的路程：

","打车"）

Ifs<3Then

m=10

Else

m=10+（Int（s）-2）*2

EndIf

Print"您应付：

";m;"元"

EndSub

四章补充计算最小公倍数

PrivateSubCommand1_Click（）

Dims,t,x,i,w

s=Val（InputBox（"请输入一个正整数"））

t=Val（InputBox（"请输入一个正整数"））

x=IIf（s

Fori=xTo1Step-1

IfsModi=0AndtModi=0Then

w=i

ExitFor

EndIf

Nexti

Prints*t/w

EndSub

四章补充随机产生两个数求出它们的最大值，最小值，平均值

PrivateSubCommand1_Click（）

Dimn,s,i

n=Val（InputBox（"请输入一个正整数"））

s=Int（Rnd*100）+1

Max=s

Min=s

aver=s

Fori=2Ton

s=Int（Rnd*100）+1

Ifs>MaxThenMax=s

Ifs

aver=aver+s

Nexti

aver=aver/n

PrintMax,Min,aver

EndSub

PrivateSubCommand2_Click（）

End

EndSub

四章补充百元买百鸡

PrivateSubForm_Click（）

Dimx,y,z

Forx=0To20

Fory=0To50

If5*x+2*y+（100-x-y）/3=100_

Andx+y<71Then

Printx,y,（100-x-y）

EndIf

Nexty

Nextx

EndSub

四章补充补充循环与选择语句的嵌套

PrivateSubForm_Click（）

Dimi,b,j,m,n

Fori=2To97

b=True

Forj=2ToInt（Sqr（i））

IfiModj=0Then

b=False

ExitFor

EndIf

Nextj

Ifb=TrueThen

Form=1Toi

IfInt（Sqr（m））=Sqr（m）Then

Forn=mToi

IfInt（Sqr（n））=Sqr（n）Andi=m+nThen

Printi,m,n

EndIf

Nextn

EndIf

Nextm

EndIf

Nexti

EndSub

四章补充100－999之内的水仙花数

PrivateSubForm_Click（）

Dimi,a,b,c

Fori=100To999

a=Int（i/100）

b=Int（（i-100*a）/10）

c=i-100*a-10*b

Ifi=a^3+b^3+c^3Then

Printi

EndIf

Nexti

EndSub

四章补充输出100以内所有的素数

PrivateSubCommand1_Click（）

Dimi%,j%,bAsBoolean

Fori=2To100

b=True

Forj=2Toi-1

IfiModj=0Then

b=False

ExitFor

EndIf

Nextj

Ifb=TrueThen

Printj

Nexti

EndSub

关于3的倍数

PrivateSubForm_Click（）

DimsAsInteger

s=InputBox（"请输入一个值：

"）

IfsMod3=0ThenMsgBoxsElseMsgBox（"不为3的倍数"）

EndSub

秒表程序

PrivateSubCommand1_Click（）

Timer1=True

EndSub

PrivateSubCommand2_Click（）

Timer1=False

EndSub

PrivateSubCommand3_Click（）

Label1.Caption=0

EndSub

PrivateSubCommand4_Click（）

End

EndSub

PrivateSubForm_Load（）

Label1.Caption=0

Timer1=False

Command1.Caption="开始"

Command2.Caption="停止"

Command3.Caption="归零"

Command4.Caption="退出"

EndSub

Private