vb实用案例50例

实验报告11

实验报告2：

实验题目1：设计窗体。参考界面如下：

运行前运行后

要求：

1）在窗体上添加一个标签，通过属性窗囗设置标签格式：

Caption：字体格式Alignment：2—Center（居中）BorderStyle ：1—Fixed Single（有边框）Backstyle：0—Tansparent（背景透明）

2）运行时，单击“字号”，将标签内容的字号设置为30；单击“加粗”，将标签内容加粗；单击“下划线”，则在标签内容下加下划线。

提示：字号FontSize、加粗FontBold、下划线FontUnderline

实验题目1源程序代码：

Private Sub Command1_Click()

Label1.FontSize = 30

End Sub

Private Sub Command2_Click()

Label1.FontBold = true

End Sub

Private Sub Command3_Click()

Label1.FontUnderline = True

End Sub

实验题目2：设计一个计算器。参考界面如下：

要求：

1）实现算术运算（+、-、*、/）的功能；

2）实现清除和结束的功能；

3）实现清除后，将焦点移到第一个文本框中。

实验题目2源程序代码：

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text3.Text = Val(Text1.Text) - Val(Text2.Text)

End Sub

Private Sub Command3_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

Private Sub Command4_Click()

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

End Sub

实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。参考界面如下：

要求：没有计算出总分前，计算均分的命令按钮不可用，计算出总分后，计算均分的命令按钮才可用。

说明：设计时先将计算均分的命令按钮的Enabled属性设置为false。

实验题目3源程序代码：

Private Sub Command1_Click()

Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)

Command2.Enabled = True

End Sub

Private Sub Command2_Click()

Text5.Text = Val(Text4.Text) / 3

End Sub

Private Sub Command3_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

End Sub

实验题目4：设计界面，编写程序计算圆的周长和面积。参考界面如下：

要求：

①设置窗体的标题为“计算圆的周长和面积”。

②“计算”命令按钮的功能：定义变量和符号常量，计算出圆的周长和面积。

③“清除”命令按钮的功能：将三个文本框的内容清除，并将焦点移到第一个文本框中。

④“退出”命令按钮的功能：程序运行结束。

实验题目4源程序代码：

Private Sub Command1_Click()

Dim r As Double, s As Double

Const pi = 3.1415926

r = Val(Text1.Text)

s = pi * r * r

c = 2 * pi * r

Text2.Text = Str(c)

Text3.Text = Str(s)

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

End Sub

实验题目5：设计界面，编写程序验证算术运算符的功能。参考界面如下：

要求：

①设置窗体的标题为“验证算术运算符”。

②“计算”命令按钮的功能：计算两个数的除、整除和取余。

③“清除”命令按钮的功能：将五个文本框的内容清除，并将焦点移到第一个文本框中。

④“退出”命令按钮的功能：程序运行结束。

实验题目5源程序代码：

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

Text4.Text = Val(Text1.Text) \ Val(Text2.Text)

Text5.Text = Val(Text1.Text) Mod Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

End Sub

Private Sub Command3_Click()

End