(完整版)vb实用案例50例
颜真卿书法特点-
实验报告
11
实验报告
2
：
实验题目
1
：
设计窗体。参考界面如下：
运行前
运行后
要求：
1
）
在窗体上添加一个标签，通过属性窗囗设置标签格式：
Caption
：字体格式
Alignment
：
2
< br>—
Center
（居中）
BorderStyle
：
1
—
Fixed
Single
（有边框）
Bac
kstyle
：
0
—
< br>Tansparent
（背景透明）
2
）
运行时
，单击“字号”
，将标签内容的字号设置为
30
；单击“加粗”
，将标签内容加粗；
单击“下划线”<
/p>
，则在标签内容下加下划线。
提示
：字号
FontSize
、加粗
FontBold
、下划线
FontUnderl
ine
实验题目
1
< br>源程序代码：
Private Sub
Command1_Click()
ze = 30
End
Sub
Private Sub
Command2_Click()
ld = true
End Sub
Private
Sub Command3_Click()
derline = True
End Sub
实验题目
2
：
设计一个计算器。参考界面如下：
要求：
1
）
实现算术运算（
+
、
-
、
*
、
/
）的功能；
2
）实现清除和结束的功能；
3
）实现清除后，将焦点移到第一个文本框中。
实验题目
2
源程序代码：
Private Sub Command1_Click()
= Val() + Val()
End Sub
Private Sub
Command2_Click()
= Val() - Val()
End Sub
Private
Sub Command3_Click()
= Val() * Val()
End Sub
Private
Sub Command4_Click()
= Val() / Val()
End Sub
实验题目
3
：
设计一个能够统计某学生三门课程成绩总分和
平均分的程序。
参考界面如下：
要求
：
没有计算出总分前，计算均分的命令按钮不可用，
计算出总分
后，计算均分的命令按
钮才可用。
说
明：设计时先将计算均分的命令按钮的
Enabled
属性设置
为
false
。
实验题目
3
源程序代码：
Private Sub Command1_Click()
= Val() + Val() + Val()
d =
True
End Sub
Private Sub Command2_Click()
= Val() / 3
End Sub
Private Sub
Command3_Click()
=
=
=
=
=
End Sub
实验题目
4
：
设计界面，编写程序计算圆的周长和面积。参考界面如下：
要求：
①设置窗体的标题为“计算圆的周长和面积”
。
②“计算”命令按钮的功能：定义变量和符号常量，计算出圆的周长和面积。
③
“清除”
命令按钮的
功能：
将三个文本框的内容清除，
并将焦点移到第一个文本框中
。
④“退出”命令按钮的功能：程序运行结束。
实验题目
4
源程序代码：
Private Sub Command1_Click()
Dim r As Double, s As Double
Const pi = 3.1415926
r =
Val()
s = pi * r * r
c = 2 *
pi * r
= Str(c)
= Str(s)
End Sub
Private
Sub Command2_Click()
=
=
=
us
End
Sub
实验题目
5
< br>：
设计界面，编写程序验证算术运算符的功能。参考界面如下：
< br>
要求：
< br>①设置窗体的标题为“验证算术运算符”
。
②“计算”命令按钮的功能：计算两个数的除、整除和取余。
③
“清除”
命令按钮的功能：
将五个文本框的内容清除，
并将焦点移到第一个文本框中。
④“退出”命令按钮的功能：程序运行结束。
<
/p>
实验题目
5
源程序代码：
Private Sub Command1_Click()
= Val() / Val()
= Val()
Val()
= Val() Mod Val()
End
Sub
Private Sub
Command2_Click()
=
=
=
=
=
End Sub
Private
Sub Command3_Click()
End
End
Sub
实验题目
6
：
设计界面，编写程序分离出一个三位数的个位、十位、百位上的数字。参考
界面
如下：
要求：
①设置窗体的标题为“分离三位数”
。
②“分离”命令按钮的功能：分离出一个三位数的个位、十位、百位上的数字。
③
“清除”
命令按钮
的功能：
将四个文本框的内容清除，
并将焦点移到第一个文本框
中。
④“退出”命令按钮的功能：程序运行结束。
实验题目
6
源程序代码：
Private Sub Command1_Click()
Dim a As Integer
a = Val()
= Str(a 100)
= Str((a Mod
100) 10)
= Str(a Mod 10)
End Sub
Private
Sub Command2_Click()
=
=
=
=
us
End Sub
Private
Sub Command3_Click()
End
End
Sub
实验题目
7
< br>：
输入一个三位数，将它按逆序输出。参考界面如下：
要求此题用两种解法
：
第一种解法：
将文本框中的数据按字符型数据进行处理，用函数实现；
第二种解法：
将文本框中的数据按数值型数
据进行处理，用算术表达式实现（利用
mod
、
、
*
、
+
等运算符）
。
< br>实验题目
7
源程序代码：
第一种解法：
Private
Sub Command1_Click()
Dim a As String, b
As String, c As String, d As String
a =
Trim()
b = Left(a, 1)
c =
Mid(a, 2, 1)
d = Right(a, 1)
= d & c & b
End Sub
Private Sub
Command2_Click()
=
=
End Sub
第二种解法：
Private
Sub Command1_Click()
Dim a As Integer,
b As Integer, c As Integer, d As Integer
a = Val()
b = a 100
c = (a Mod 100) 10
d = a
Mod 10
= Str(d * 100 + c * 10 + b)
End Sub
Private
Sub Command2_Click()
=
=
End Sub
实验题目
8
：
输入两个数，将这两个数交换。
要求：不允许使用第三个文本框，可以借助一个中间变量。
<
/p>
实验题目
8
源程序代码：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As
Integer
a = Val()
b = Val()
c = a
a = b
b = c
= Str(a)
= Str(b)
End Sub
实验题目
9
：
设计文本编辑窗体。
复制按钮的功能：
移动按钮的功能：
提示：文本框的
SelText
属性表示选定的内容。
要求：文本框可以多行输入。
说明：设计时先将文本框的
multiline
属性设置为
true
。
实验题目
9
源程序代码：
Private Sub
Command1_Click()
= t
End
Sub
Private Sub
Command2_Click()
= t
t =
End Sub
Private
Sub Command3_Click()
=
=
End Sub
Private
Sub Command4_Click()
End
End
Sub
实验报告
3
：
实验题目
1
：
编写程序计算某个学生三门课程的平均成绩。
要求：
（
1
）单击“计算”命令按钮，输入学生的成绩并在文本框中显示该学生的平均分。
（调
用三次
inputbox
< br>函数输入三门课程的成绩，并用三个内存变量保存成绩）
提示：如
a
表示一门课程的成绩，则调用
inputbox
函数输入为：
a=val(inputb
ox(
请输入
第一门课的成绩
（
2
）单击“结束”命令按钮结束程序运行。<
/p>
界面如下：
实验题目
1
源程序代码：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As
Integer, d As Integer
a = Val(InputBox(
请输入第一门成绩
b = Val(I
nputBox(
请输入第二门成绩
c
= Val(InputBox(
请输入第三门成绩
d = (a + b + c) / 3
= d
End Sub
实验题目
2
：
编写程序计算长方体的体积。
要求：
（
1
）单击“计算”命令按钮，输入长方体的长、宽和高（调用三次
inputbox
函数输入，
并用三个内存变量保存）
，
计算出长方体的体积后通过输出对话框输出
（
调用
MsgBox
函数，
输出框的标题
为“计算长方体的面积”
。
）输出对话框参考界面如下：
（
2
）单击“结束”命令按钮结束程序运行。
实验题
目
2
源程序代码：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As
Integer, v As Integer
a = Val(InputBox(
请输入长方体的长
b = Val(I
nputBox(
请输入长方体的宽
c
= Val(InputBox(
请输入长方体的高
v = a * b * c
MsgBox
长
方体的体积为：
计算长方形的体积
End Sub
Private
Sub Command2_Click()
end
End Sub
实验报告
4
：
实验题目
1
：
编写程序求出四个数中的最小数。
实验题目
< br>1
源程序代码：
Private Sub Command1_Click()
Dim a!, b!, c!, d!, min!
a =
Val(Text1)
b = Val(Text2)
c
= Val(Text3)
d = Val(Text4)
min = a
If b < min Then min
= b
If c < min Then min = c
If d < min Then min = b
Label1 =
最小的数是：
End
Sub
实验题目
2
< br>：
编写程序判断某个数是否是水仙花数。
要求：用
inputbox
函数输入一个数，将结果
输出在窗体上。
提示：水仙花数是一个三位数，这个三位数各
个位上数字的立方和等于它本身。
实验题目
< br>2
源程序代码：
Private Sub Form_Click()
Dim
a As Integer, b As Integer, c As Integer, d As
Integer
d = InputBox(
请输入一个三位
数
判断水仙花数
a = d 100
b = (d Mod 100) 10
c = d Mod 10
If d = a ^ 3 +
b ^ 3 + c ^ 3 Then
Print True
Else
Print False
End If
End Sub
实验题目
3
：
编写
程序，实现数字和英文单词的对应。
提示：在文本框
1
中输入
0
到
6
之间的整数，在文本框
2
中显示对应的星期英文单词。
实验题目
< br>3
源程序代码：
Private Sub Command1_Click()
Dim a As Integer
a = Val()
If a = 0 Then
=
ElseIf a = 1 Then
=
ElseIf a = 2 Then
=
ElseIf a = 3 Then
=
ElseIf a = 4 Then
=
ElseIf a = 5 Then
=
ElseIf a = 6 Then
=
End If
End Sub
实验题目
4
：
设计
程序，判断从键盘上输入的某个字符为哪类字符。
（大写字母、小
写字母、数字字符或其他字符）
要求：用
select
case
语句实现。
提示：字符输入
在一个文本框中，字符类别信息显示在标签上。将文本框的
maxlength
属性设置为
1
，则一次只能输入一个字符。
实验题目
4
源程
序代码：
Private Sub
Command1_Click()
Dim a As String
a =
Select Case a
Case
n =
它是小写字母
Case
n =
它是大写字母
Case
n =
它是数字字符
Case Else
n =
其他字符
End Select
End Sub
实验题目
5
：
设计一个简单的文本编辑器，可以实现文本的简单格式化操作。
具体要求如下：
（
1
）可以设置字号，包括
10
、
20
、
30
号
（
2
）可以设置字体，包括宋体、隶书、幼圆
（
3
）可以设置字型，包括加粗、倾斜、下划线
（
4
）可以设置字的颜色，包括红
色、绿色、蓝色
实验题目
5
源程序代码：
Private Sub
Check1_Click()
If = 1 Then
ld = True
Else
ld
= false
End If
End Sub
Private Sub Check2_Click()
If =1 Then
alic = True
Else
alic = false
End If
End Sub
Private Sub Check3_Click()
If =1 Then
derline = True
Else
derline = false
End If
End Sub
Private Sub Option1_Click()
ze = 10
End Sub
Private Sub Option2_Click()
ze = 20
End Sub
Private Sub Option3_Click()
ze = 30
End Sub
Private Sub Option4_Click()
me =
宋体
End Sub
Private Sub Option5_Click()
me =
隶书
End Sub
Private Sub Option6_Click()
me =
幼圆
End Sub
Private Sub Option7_Click()
lor = vbRed
End Sub
Private Sub Option8_Click()
lor = vbGreen
End Sub
Private Sub Option9_Click()
lor = vbBlue
End Sub
实验报告
5
：
实验题目
1
：
编写程序输出图形，运行界面如下：
实验题目
1
源程序代码：
Private Sub Command1_Click()
Dim a%