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值
升级会员 