VB实训提高部分文档格式.docx

VB实训提高部分文档格式.docx

《VB实训提高部分文档格式.docx》由会员分享，可在线阅读，更多相关《VB实训提高部分文档格式.docx（19页珍藏版）》请在冰豆网上搜索。

3、单选按钮8

4、框架及单选按钮的使用9

5、“静夜思”9

第4章控制结构10

1、分支11

2、求三角形的面积11

3、For-Next循环12

求阶乘、累加和12

打印九九乘法表12

打印等腰三角形12

打印菱形12

产生20个数，求出最大值，最小值，平均值13

打印平行四边形13

第五章数组14

一、顺序逆序14

二、控件数组16

三、记事本17

四、颜色18

五、求s=1+21+22+23+24+…263的值20

六、求x/4=1-1/2+1/3-1/4+1/5-….-1/100的x值20

第一章

1、求正方形面积

设计一个应用程序，由用户输入正方形的边长，计算并输出正方形的面积。

图1-8图1-9图1-10

代码设计如下。

PrivateSubCommand1_Click（）

Text2.Text=Text1.Text*Text1.Text

EndSub

PrivateSubCommand2_Click（）

End

2、命令按钮

在屏幕上开辟一个窗口，窗口的下部有四个命令按钮，四个按钮为“欢迎”、“改变颜色”、“清屏”和“结束”。

图1-11图1-12

代码设计：

Text1.FontSize=18

Text1.Text="

欢迎进入VisualBasic世界！

"

Text1.ForeColor=RGB（Rnd*255,Rnd*255,Rnd*255）

PrivateSubCommand3_Click（）

PrivateSubCommand4_Click（）

第二章

1、随机函数

Text1.Text=Int（Rnd（）*90）+10

Text2.Text=Int（Rnd（）*90）+10

Text3.Text="

Text3.Text=Val（Text1.Text）+Val（Text2.Text）

2、十位个位交换显示

Text2.Text=Right（Text1.Text,1）+Left（Text1.Text,1）

3、时间日期函数

4、加法练习

Text1.Text=Int（Rnd*90）+10

Text2.Text=Int（Rnd*90）+10

IfVal（Text3.Text）=Val（Text1.Text）+Val（Text2.Text）Then

Label1.Caption="

对"

Else

错"

EndIf

第三章

1、窗体与标签

PrivateSubForm_Click（）

Label1.ForeColor=RGB（255,255,255）’直接在窗体上显示

Label1.FontSize=22

Label1.Caption="

你单击了窗体！

PrivateSubForm_DblClick（）

Label1.ForeColor=RGB（255,255,0）

你双击了窗体！

PrivateSubForm_Load（）

Form1.BackColor=RGB（255,0,0）

PrivateSubForm_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

你移动了鼠标！

2、复选框的使用

PrivateSubCheck1_Click（）

Label1.FontBold=True’粗体

PrivateSubCheck2_Click（）

Label1.FontItalic=True’斜体

PrivateSubCheck3_Click（）

Label1.FontUnderline=True’下划线

PrivateSubCheck4_Click（）

Label1.FontStrikethru=True’删除线

（注：

Ifcheck1.valueThen’如果选中就是真

Label1.FontItalic=True

Label1.FontItalic=False’否则是假

Endif）

3、单选按钮

PrivateSubOption1_Click（）

+"

4、框架及单选按钮的使用

Label1.Font="

宋体"

PrivateSubOption2_Click（）

隶书"

PrivateSubOption3_Click（）

Label1.ForeColor=RGB（255,0,0）

PrivateSubOption4_Click（）

5、“静夜思”

Form1.AutoRedraw=True

BackColor=RGB（2005,255,255）

ForeColor=RGB（0,0,255）

FontName="

楷体"

FontSize=20

CurrentX=1200

CurrentY=350

Print"

静夜思（唐诗）"

幼圆"

Print

FontSize=13

PrintSpc（6）;

"

床前明月光，疑是地上霜"

举头望明月，低头思故乡"

Cls

End

第4章控制结构

1、分支

2、求三角形的面积

a=Val（Text1.Text）

b=Val（Text2.Text）

c=Val（Text3.Text）

Ifa>

0Andb>

0Andc>

0Anda+b>

cAnda+c>

bAndb+c>

aThen

p=（a+b+c）/2

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

Text4=s

Text4="

数据错误"

Text2.Text="

Text4.Text="

Text1.SetFocus

3、For-Next循环

求阶乘、累加和

打印九九乘法表

打印等腰三角形

打印菱形

产生20个数，求出最大值，最小值，平均值

打印平行四边形

第五章数组

一、顺序逆序

1、打印

2、编程利用二维数组打印135

246

二、控件数组

StaticnAsInteger

Image2.Picture=Image1（n）.Picture

n=n+1

Ifn=8Thenn=0

三、记事本

四、颜色

IfCheck1.Value=CheckedThen

Text1.FontBold=True

Text1.FontBold=False

IfCheck2.Value=CheckedThen

Text1.FontItalic=True

Text1.FontItalic=False

IfCheck3.Value=CheckedThen

Text1.FontUnderline=True

Text1.FontUnderline=False

Text1.FontName="

黑体"

Text1.ForeColor=RGB（255,0,0）

PrivateSubOption5_Click（）

Text1.ForeColor=RGB（0,255,0）

PrivateSubOption6_Click（）

Text1.ForeColor=RGB（0,0,255）

五、求s=1+21+22+23+24+…263的值

六、求x/4=1-1/2+1/3-1/4+1/5-….-1/100的x值