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

1、3、单选按钮 84、框架及单选按钮的使用 95、 “静夜思” 9第4章 控制结构 101、分支 112、求三角形的面积 113、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

2、-8 图1-9 图1-10代码设计如下。Private Sub Command1_Click（）Text2.Text = Text1.Text * Text1.TextEnd SubPrivate Sub Command2_Click（）End2、命令按钮在屏幕上开辟一个窗口，窗口的下部有四个命令按钮，四个按钮为“欢迎”、“改变颜色”、“清屏”和“结束”。图1-11 图1-12代码设计：Text1.FontSize = 18Text1.Text = 欢迎进入Visual Basic世界！Text1.ForeColor = RGB（Rnd * 255, Rnd * 255, Rnd * 255）

3、Private Sub Command3_Click（）Private Sub Command4_Click（）第二章1、随机函数Text1.Text = Int（Rnd（） * 90） + 10Text2.Text = Int（Rnd（） * 90） + 10Text3.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

4、Text2.Text = Int（Rnd * 90） + 10If Val（Text3.Text） = Val（Text1.Text） + Val（Text2.Text） Then Label1.Caption = 对Else错End If第三章1、窗体与标签Private Sub Form_Click（）Label1.ForeColor = RGB（255, 255, 255） 直接在窗体上显示Label1.FontSize = 22Label1.Caption = 你单击了窗体！Private Sub Form_DblClick（）Label1.ForeColor = RGB（255, 2

5、55, 0）你双击了窗体！Private Sub Form_Load（）Form1.BackColor = RGB（255, 0, 0）Private Sub Form_MouseMove（Button As Integer, Shift As Integer, X As Single, Y As Single）你移动了鼠标！2、复选框的使用Private Sub Check1_Click（）Label1.FontBold = True 粗体Private Sub Check2_Click（）Label1.FontItalic = True 斜体Private Sub Check3_Click

6、（）Label1.FontUnderline = True 下划线Private Sub Check4_Click（）Label1.FontStrikethru = True 删除线（注：If check1.value Then 如果选中就是真Label1.FontItalic=TrueLabel1. FontItalic=False 否则是假End if）3、单选按钮Private Sub Option1_Click（）+4、框架及单选按钮的使用Label1.Font = 宋体Private Sub Option2_Click（）隶书Private Sub Option3_Click（）La

7、bel1.ForeColor = RGB（255, 0, 0）Private Sub Option4_Click（）5、 “静夜思”Form1.AutoRedraw = TrueBackColor = RGB（2005, 255, 255）ForeColor = RGB（0, 0, 255）FontName = 楷体FontSize = 20CurrentX = 1200CurrentY = 350Print 静夜思（唐诗）幼圆PrintFontSize = 13Print Spc（6）; 床前明月光，疑是地上霜举头望明月，低头思故乡 Cls End第4章 控制结构1、分支2、求三角形的面积a

8、 = Val（Text1.Text）b = Val（Text2.Text）c = Val（Text3.Text）If a 0 And b 0 And c 0 And a + b c And a + c b And b + c a Thenp = （a + b + c） / 2s = Sqr（p * （p - a） * （p - b） * （p - c）Text4 = sText4 = 数据错误Text2.Text = Text4.Text = Text1.SetFocus3、For-Next循环求阶乘、累加和打印九九乘法表打印等腰三角形打印菱形产生20个数，求出最大值，最小值，平均值打印平行四

9、边形第五章 数组一、顺序逆序1、打印2、编程利用二维数组打印 1 3 5 2 4 6二、控件数组Static n As IntegerImage2.Picture = Image1（n）.Picturen = n + 1If n = 8 Then n = 0三、记事本四、颜色If Check1.Value = Checked Then Text1.FontBold = True Text1.FontBold = FalseIf Check2.Value = Checked Then Text1.FontItalic = True Text1.FontItalic = FalseIf Check

10、3.Value = Checked Then Text1.FontUnderline = True Text1.FontUnderline = FalseText1.FontName = 黑体Text1.ForeColor = RGB（255, 0, 0）Private Sub Option5_Click（）Text1.ForeColor = RGB（0, 255, 0）Private Sub Option6_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值