vb实用案例50例.doc

实验报告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
End Sub
实验题目6：设计界面，编写程序分离出一个三位数的个位、十位、百位上的数字。参考界面如下：

要求：
①设置窗体的标题为“分离三位数”。
②“分离”命令按钮的功能：分离出一个三位数的个位、十位、百位上的数字。
③“清除”命令按钮的功能：将四个文本框的内容清除，并将焦点移到第一个文本框中。
④“退出”命令按钮的功能：程序运行结束。
实验题目6源程序代码：
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
Text4.Text = Str(a \ 100)
Text3.Text = Str((a Mod 100) \ 10)
Text2.Text = Str(a Mod 10)
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub
实验题目7：输入一个三位数，将它按逆序输出。参考界面如下：

要求此题用两种解法：
第一种解法：将文本框中的数据按字符型数据进行处理，用函数实现；
第二种解法：将文本框中的数据按数值型数据进行处理，用算术表达式实现（利用mod、\、*、+等运算符）。
实验题目7源程序代码：
第一种解法：
Private Sub Command1_Click()
Dim a As String, b As String, c As String, d As String
a = Trim(Text1.Text)
b = Left(a, 1)
c = Mid(a, 2, 1)
d = Right(a, 1)
Text2.Text = d & c & b
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

第二种解法：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
a = Val(Text1.Text)
b = a \ 100
c = (a Mod 100) \ 10
d = a Mod 10
Text2.Text = Str(d * 100 + c * 10 + b)
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
实验题目8：输入两个数，将这两个数交换。
要求：不允许使用第三个文本框，可以借助一个中间变量。
实验题目8源程序代码：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a
a = b
b = c
Text1.Text = Str(a)
Text2.Text = Str(b)
End Sub
实验题目9：设计文本编辑窗体。
复制按钮的功能：
移动按钮的功能：

提示：文本框的SelText属性表示选定的内容。
要求：文本框可以多行输入。
说明：设计时先将文本框的multiline属性设置为true。
实验题目9源程序代码：
Private Sub Command1_Click()
Text2.Text = Text1.SelText
End Sub

Private Sub Command2_Click()
Text2.Text = Text1.SelText
Text1.SelText = ""
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command4_Click()
End
End Sub
实验报告3：
实验题目1：编写程序计算某个学生三门课程的平均成绩。
要求：
（1）单击“计算”命令按钮，输入学生的成绩并在文本框中显示该学生的平均分。（调用三次inputbox函数输入三门课程的成绩，并用三个内存变量保存成绩）
提示：如a表示一门课程的成绩，则调用inputbox函数输入为：a=val(inputbox("请输入第一门课的成绩"))
（2）单击“结束”命令按钮结束程序运行。
界面如下：

实验题目1源程序代码：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
a = Val(InputBox("请输入第一门成绩"))
b = Val(InputBox("请输入第二门成绩"))
c = Val(InputBox("请输入第三门成绩"))
d = (a + b + c) / 3
Text1.Text = 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(InputBox("请输入长方体的宽"))
c = Val(InputBox("请输入长方体的高"))
v = a * b * c
MsgBox "长方体的体积为：" & v, , "计算长方形的体积"
End Sub

Private Sub Command2_Click()
end
End Sub
实验报告4：
实验题目1：编写程序求出四个数中的最小数。
实验题目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 = "最小的数是：" & min
End Sub
实验题目2：编写程序判断某个数是否是水仙花数。
要求：用inputbox函数输入一个数，将结果输出在窗体上。
提示：水仙花数是一个三位数，这个三位数各个位上数字的立方和等于它本身。
实验题目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中显示对应的星期英文单词。
实验题目3源程序代码：
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
If a = 0 Then
Text2.Text = "sunday"
ElseIf a = 1 Then
Text2.Text = "monday"
ElseIf a = 2 Then
Text2.Text = "tuesday"
ElseIf a = 3 Then
Text2.Text = "wednesday"
ElseIf a = 4 Then
Text2.Text = "thursday"
ElseIf a = 5 Then
Text2.Text = "friday"
ElseIf a = 6 Then
Text2.Text = "saturday"
End If
End Sub
实验题目4：设计程序，判断从键盘上输入的某个字符为哪类字符。（大写字母、小写字母、数字字符或其他字符）
要求：用select case语句实现。
提示：字符输入在一个文本框中，字符类别信息显示在标签上。将文本框的maxlength属性设置为1，则一次只能输入一个字符。
实验题目4源程序代码：
Private Sub Command1_Click()
Dim a As String
a = Text1.Text
Select Case a
Case "a" To "z"
Label1.Caption = "它是小写字母"
Case "A" To "Z"
Label1.Caption = "它是大写字母"
Case "0" To "9"
Label1.Caption = "它是数字字符"
Case Else
Label1.Caption = "其他字符"
End Select
End Sub
实验题目5：设计一个简单的文本编辑器，可以实现文本的简单格式化操作。
具体要求如下：
（1）可以设置字号，包括10、20、30号
（2）可以设置字体，包括宋体、隶书、幼圆
（3）可以设置字型，包括加粗、倾斜、下划线
（4）可以设置字的颜色，包括红色、绿色、蓝色
实验题目5源程序代码：
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.FontBold = True
Else
Text1.fontbold = false
End If
End Sub

Private Sub Check2_Click()
If Check2.Value =1 Then
Text1.FontItalic = True
Else
Text1.fontitalic = false
End If
End Sub

Private Sub Check3_Click()
If Check3.Value =1 Then
Text1.FontUnderline = True
Else
Text1.fontunderline = false
End If
End Sub

Private Sub Option1_Click()
Text1.FontSize = 10
End Sub

Private Sub Option2_Click()
Text1.FontSize = 20
End Sub

Private Sub Option3_Click()
Text1.FontSize = 30
End Sub

Private Sub Option4_Click()
Text1.FontName = "宋体"
End Sub

Private Sub Option5_Click()
Text1.FontName = "隶书"
End Sub

Private Sub Option6_Click()
Text1.FontName = "幼圆"
End Sub

Private Sub Option7_Click()
Text1.ForeColor = vbRed
End Sub

Private Sub Option8_Click()
Text1.ForeColor = vbGreen
End Sub

Private Sub Option9_Click()
Text1.ForeColor = vbBlue
End Sub
实验报告5：
实验题目1：编写程序输出图形，运行界面如下：

实验题目1源程序代码：
Private Sub Command1_Click()
Dim a%
a = 1
While a <= 6
Print "******"
a = a + 1
Wend
End Sub
实验题目2：编写程序求n！。
实验题目2源程序代码：
Private Sub Command1_Click()
Dim a as integer, b as integer, c As Long
a = Val(Text1.Text)
b = 1: c = 1
Do While b <= a
c = c * b
b = b + 1
Loop
Label2.Caption = a & "!=" & c
End Sub
实验题目3：编写程序，求出某班所有同学某门课程的平均成绩。
实验题目3源程序代码：
Private Sub Command1_Click()
Dim s As Integer, i As Integer, n As Integer, d As Integer, a As Double
s = 0: i = 1: n = Val(Text1.Text)
Do While i <= n
d = InputBox("输入第" & i & "位同学的成绩", "成绩输入")
s = s + d
i = i + 1
Loop
a = s / n
MsgBox "全班" & n & "位同学的平均分为:" & a, , "求平均分"
End Sub
实验题目4：编写程序输出1-100之间所有能被3整除的整数，要求每行输出5个。并输出这些整数的和。（用for语句实现）
实验题目4源程序代码：
Private Sub Command1_Click()
Dim i As Integer, n As Integer, s As Integer
s = 0
n = 0
For i = 1 To 100 Step 1
If i Mod 3 = 0 Then
Print i;
n = n + 1
If n Mod 5 = 0 Then
Print
End If
s = s + i
End If
Next i
Print s
End Sub
实验题目5：编写程序，统计输入的一个字符串中各类字符的个数。（用for语句实现）
实验题目5源程序代码：
Private Sub Command1_Click()
Dim i%, a%, b%, c%, d%, s As String
s = Text1.Text
For i = 1 To Len(s) Step 1
Select Case Mid(s, i, 1)
Case "a" To "z"
a = a + 1
Case "A" To "Z"
b = b + 1
Case "0" To "9"
c = c + 1
Case Else
d = d + 1
End Select
Next i
Print a, b, c, d,
End Sub
实验报告6：
实验题目1：编写程序，定义包含10个数组元素的一维数组，给该数组中的数组元素赋值为3，6，9，12……数字，并以顺序和逆序两种方式输出各元素值。
实验题目1源程序代码：
Private Sub Command1_Click()
Dim i As Integer
Dim a(1 To 10) As Integer
For i = 1 To 10
a(i) = 3 * i
Print a(i);
Next i
Print
For i = 10 To 1 Step -1
Print a(i);
Next i
End Sub
实验题目2：随机生成20个100以内的正整数，将其中的奇数和偶数分两行显示在窗体上，并分别统计奇数和偶数的个数。
实验题目2源程序代码：
Private Sub Command1_Click()
Dim i As Integer, n As Integer, m As Integer
Dim a(1 To 20) As Integer
For i = 1 To 20
a(i) = Int(100 * Rnd + 1)
If a(i) Mod 2 = 0 Then
Print a(i);
n = n + 1
End If
Next
Print
For i = 1 To 20
If a(i) Mod 2 <> 0 Then
Print a(i);
m = m + 1
End If
Next i
Print
Print m, n
End Sub
实验题目3：用数组实现从键盘输入10个学生的计算机课程成绩，求其平均成绩和高于平均成绩的人数。
实验题目3源程序代码：
Option base 1
Private Sub Command1_Click()
Dim sum As Integer, i As Integer, n As Integer, m As Integer
Dim data(10) As Integer, average As Single
sum = 0: i = 1: n = Val(Text1.Text)
Do While i <= n
data(i) = InputBox("输入第" & i & "位学生的成绩", "成绩输入")
sum = sum + data(i)
i = i + 1
Loop
average = sum / n
MsgBox "全班" & n & "位学生的平均成绩为:" & average, , "求平均分"
For i = 1 To 10
If data(i) > average Then
m = m + 1
End If
Next
Print m
End Sub
实验题目4：用数组实现从键盘输入10个学生的计算机课程成绩，求最高分和最低分。
实验题目4源程序代码：
Option base 1
Private Sub Command1_Click()
Dim i As Integer, n As Integer, max As integer, min As integer
Dim data(10) As Integer
data(1) = InputBox("输入第" & 1 & "位学生的成绩", "成绩输入")
max = data(1): min = data(1)
For i = 2 To 10
data(i) = InputBox("输入第" & i & "位学生的成绩", "成绩输入")
If data(i) > max Then
max = data(i)
End If
If data(i) < min Then
min = data(i)
End If
Next
Print "最高分是："; max, "最低分是："; min
End Sub
实验题目5：阅读并上机运行下面程序，理解动态数组的用法。

实验题目5程序运行结果：21
实验题目6：阅读并上机运行下面程序，理解array函数的用法。

实验题目6程序运行结果：1234
实验题目7：阅读并上机运行下面程序，理解for each …… next语句的用法。 在实验题目7中用到for each …… next语句，该语句中用到的Temp变量必须是什么类型的？
答：变体类型
实验题目8：用控件数组实现下面界面的设计。（建立一个含有3个单选按钮的控件数组，当单击某个单选按钮时，标签的背景分别显示不同的颜色）
提示：根据控件数组的index值进行判断，用if语句实现。

实验题目8源程序代码：
Private Sub Option1_Click(Index As Integer)
If Index = 0 Then
Label1.BackColor = vbRed
ElseIf Index = 1 Then
Label1.BackColor = vbGreen
ElseIf Index = 2 Then
Label1.BackColor = vbBlue
End If
End Sub
实验报告7：
实验题目1：阅读并运行以下程序，理解过程中的参数传递。

实验题目1各参数传递的方式：i和j是按值传递；k是按地址传递。
两种方式参数传递的区别：按值传递是把实参的值传给形参，形参值的变化不会影响到实参，而按地址传递是把实参的地址传给形参，实参和形参共用一个存储单元，形参值的变化也就是实参值的变化。
实验题目1程序运行结果：8
实验题目2：编写程序，实现两个变量值的交换。要求用过程。
实验题目2源程序代码：
Public Sub gc(ByRef x As Integer, ByRef y As Integer)
Dim t As Integer
t = x: x = y: y = t
End Sub

Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = val(text1.text)
b = val(text2.text)
Call gc(a, b)
text1.text = a
text2.text = b
End Sub
实验题目3：以下代码的功能是：调用max “子过程”，求出两个数中的最大值。请将以下代码补充完整。

实验题目3源程序代码：
Public Sub max(m%, n%, t%)
If m > n Then
t = m
Else
t = n
End If
End Sub
Private Sub Form_Click()
Dim x%, y%, z%
x = Val(InputBox("请输入数据"))
y = Val(InputBox("请输入数据"))
Call max(x, y, z)
Print "最大值是:"; z
End Sub
实验题目4：以下代码的功能是：调用max“函数过程”，求出两个数中的最大值。请将以下代码补充完整。

实验题目4源程序代码：
Function max(m%, n%) As Integer
If m > n Then
max = m
Else
max = n
End If
End Function
Private Sub Form_Click()
Dim x%, y%, z%
x = Val(InputBox("请输入数据"))
y = Val(InputBox("请输入数据"))
z = max(x, y)
Print "最大值是:"; z
End Sub
实验题目5：阅读并运行下面的程序代码，多次单击command1命令按钮，比较两种数组的区别。

实验题目5两种数组的区别是：用static定义的数组表示静态数组，如果没有给该数组赋初值，第一次运行时，各元素的初值都为0，再次运行时以上一次运行的结果作为初始值；用dim定义的数组则表示动态数组，如果没有给该数组赋初值，每次运行时，各元素的初值都为0。
实验题目5程序运行结果：
第一次输出 22222
22222
第二次输出 44444
22222
……
实验报告8：
实验题目1：设计窗体，界面如下：当单击“图片1”，“图片2”，“图片3”时，图片（像）框分别加载不同图片。（要求：图片自己从网上下载）

实验题目1源程序代码：
Private Sub Option1_Click()
Picture1.Picture = LoadPicture(App.Path + "\1.jpg")
End Sub

Private Sub Option2_Click()
Picture1.Picture = LoadPicture(App.Path + "\2.jpg")
End Sub

Private Sub Option3_Click()
Picture1.Picture = LoadPicture(App.Path + "\3.jpg")
End Sub
实验题目2：设计个人情况登记程序。程序初始界面如下：

窗体中共包含3个标签，3个组合框，1个图片框和2个命令按钮。
Combo1提供2个选项：东校区、西校区
Combo2提供3个选项：中文系、外语系、教心系
Combo3提供3个选项：0901、0902、0903
程序运行时，当在3个组合框中分别选择相应内容后，单击“确认”按钮，会将选择的内容在图片框中打印出来。
实验题目2源程序代码：
Private Sub Command1_Click()
Picture1.Print Combo1.Text & Combo2.Text & Combo3.Text
End Sub

Private Sub Command2_Click()
End
End Sub
实验题目3：设计“商品统计”窗体。初始界面如下：

运行时，在“商品列表”列表框中选择商品（注：可以多选），然后在组合框中选择卡号，单击“确定”按钮，在“您的卡号”所对应的文本框中显示所选择的卡号，同时在“您所选的商品数量”所对应的文本框中显示用户所选择的商品数量。
实验题目3源程序代码：
Private Sub Command1_Click()
Text1.Text = Combo1.Text
Dim i As Integer, j As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
j = j + 1
End If
Next
Text2.Text = j
End Sub

Private Sub Command2_Click()
End
End Sub
实验题目4：设计界面，实现调色板功能。
实验题目4源程序代码：
Private Sub HScroll1_Change(Index As Integer)
Text1(Index).Text = HScroll1(Index).Value
Picture1.BackColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value)
Label1.ForeColor = Picture1.BackColor

Private Sub HScroll1_scroll(Index As Integer)
Text1(Index).Text = HScroll1(Index).Value
Picture2.BackColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value)
End Sub
实验题目5：
设计一个窗体含1个图像框和1个计时器。运行程序时，图像从右下角向左上角移动，当图像移出左上角后，再从右下角向左上角移动，周而复始。Interval属性设置为50。

实验题目5源程序代码：
Private Sub form_load()
Image1.Left = Form1.Width
Image1.Top = Form1.Height
End Sub

Private Sub timer1_timer()
Image1.Move Image1.Left - 50, Image1.Top - 50
If Image1.Left <= 0 Then
Image1.Left = Form1.Width
Image1.Top = Form1.Height
End If
End Sub