vb实用案例50例[青松学堂]

1、实验报告11实验报告2：实验题目1：设计窗体。参考界面如下： 运行前 运行后要求：1） 在窗体上添加一个标签，通过属性窗囗设置标签格式：Caption：字体格式 Alignment：2Center（居中）BorderStyle ：1Fixed Single（有边框） Backstyle：0Tansparent（背景透明）2） 运行时，单击“字号”，将标签内容的字号设置为30；单击“加粗”，将标签内容加粗；单击“下划线”，则在标签内容下加下划线。提示：字号FontSize、加粗FontBold、下划线FontUnderline实验题目1源程序代码：Private Sub Command1_Cli

2、ck()Label1.FontSize = 30End SubPrivate Sub Command2_Click()Label1.FontBold = trueEnd SubPrivate Sub Command3_Click()Label1.FontUnderline = TrueEnd Sub实验题目2： 设计一个计算器。参考界面如下：要求：1）实现算术运算（+、-、*、/）的功能；2）实现清除和结束的功能；3）实现清除后，将焦点移到第一个文本框中。实验题目2源程序代码：Private Sub Command1_Click()Text3.Text = Val(Text1.Text) +

3、Val(Text2.Text)End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) - Val(Text2.Text)End SubPrivate Sub Command3_Click()Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command4_Click()Text3.Text = Val(Text1.Text) / Val(Text2.Text)End Sub实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。参考

4、界面如下：要求：没有计算出总分前，计算均分的命令按钮不可用，计算出总分后，计算均分的命令按钮才可用。说明：设计时先将计算均分的命令按钮的Enabled属性设置为false。实验题目3源程序代码：Private Sub Command1_Click()Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Text5.Text = Val(Text4.Text) / 3End SubPrivate Sub Co

5、mmand3_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""End Sub实验题目4：设计界面，编写程序计算圆的周长和面积。参考界面如下：要求：设置窗体的标题为“计算圆的周长和面积”。“计算”命令按钮的功能：定义变量和符号常量，计算出圆的周长和面积。“清除”命令按钮的功能：将三个文本框的内容清除，并将焦点移到第一个文本框中。“退出”命令按钮的功能：程序运行结束。实验题目4源程序代

6、码：Private Sub Command1_Click()Dim r As Double, s As DoubleConst pi = 3.1415926r = Val(Text1.Text)s = pi * r * rc = 2 * pi * rText2.Text = Str(c)Text3.Text = Str(s)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd Sub实验题目5：

7、设计界面，编写程序验证算术运算符的功能。参考界面如下：要求：设置窗体的标题为“验证算术运算符”。“计算”命令按钮的功能：计算两个数的除、整除和取余。“清除”命令按钮的功能：将五个文本框的内容清除，并将焦点移到第一个文本框中。“退出”命令按钮的功能：程序运行结束。实验题目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(Tex

8、t2.Text)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub实验题目6：设计界面，编写程序分离出一个三位数的个位、十位、百位上的数字。参考界面如下：要求：设置窗体的标题为“分离三位数”。“分离”命令按钮的功能：分离出一个三位数的个位、

9、十位、百位上的数字。“清除”命令按钮的功能：将四个文本框的内容清除，并将焦点移到第一个文本框中。“退出”命令按钮的功能：程序运行结束。实验题目6源程序代码：Private Sub Command1_Click()Dim a As Integera = Val(Text1.Text)Text4.Text = Str(a 100)Text3.Text = Str(a Mod 100) 10)Text2.Text = Str(a Mod 10)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = "

10、"Text3.Text = ""Text4.Text = ""Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd Sub实验题目7：输入一个三位数，将它按逆序输出。参考界面如下：要求此题用两种解法：第一种解法：将文本框中的数据按字符型数据进行处理，用函数实现；第二种解法：将文本框中的数据按数值型数据进行处理，用算术表达式实现（利用mod、*、+等运算符）。实验题目7源程序代码：第一种解法：Private Sub Command1_Click()Dim a As String, b As

11、 String, c As String, d As Stringa = Trim(Text1.Text)b = Left(a, 1)c = Mid(a, 2, 1)d = Right(a, 1)Text2.Text = d & c & bEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""End Sub第二种解法：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer,

12、d As Integera = Val(Text1.Text)b = a 100c = (a Mod 100) 10d = a Mod 10Text2.Text = Str(d * 100 + c * 10 + b)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""End Sub实验题目8：输入两个数，将这两个数交换。要求：不允许使用第三个文本框，可以借助一个中间变量。实验题目8源程序代码：Private Sub Command1_Click()Dim a As Intege

13、r, b As Integer, c As Integera = Val(Text1.Text)b = Val(Text2.Text)c = aa = bb = cText1.Text = Str(a)Text2.Text = Str(b)End Sub实验题目9：设计文本编辑窗体。复制按钮的功能：移动按钮的功能： 提示：文本框的SelText属性表示选定的内容。要求：文本框可以多行输入。说明：设计时先将文本框的multiline属性设置为true。实验题目9源程序代码：Private Sub Command1_Click()Text2.Text = Text1.SelTextEnd SubP

14、rivate Sub Command2_Click()Text2.Text = Text1.SelTextText1.SelText = ""End SubPrivate Sub Command3_Click()Text1.Text = ""Text2.Text = ""End SubPrivate Sub Command4_Click()EndEnd Sub实验报告3：实验题目1：编写程序计算某个学生三门课程的平均成绩。要求：（1）单击“计算”命令按钮，输入学生的成绩并在文本框中显示该学生的平均分。（调用三次inputbox函数输入

15、三门课程的成绩，并用三个内存变量保存成绩）提示：如a表示一门课程的成绩，则调用inputbox函数输入为：a=val(inputbox("请输入第一门课的成绩")（2）单击“结束”命令按钮结束程序运行。界面如下：实验题目1源程序代码：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, d As Integera = Val(InputBox("请输入第一门成绩")b = Val(InputBox("请输入第二门成绩")c = Val(Inp

16、utBox("请输入第三门成绩")d = (a + b + c) / 3Text1.Text = dEnd Sub实验题目2：编写程序计算长方体的体积。要求：（1）单击“计算”命令按钮，输入长方体的长、宽和高（调用三次inputbox函数输入，并用三个内存变量保存），计算出长方体的体积后通过输出对话框输出（调用MsgBox函数，输出框的标题为“计算长方体的面积”。）输出对话框参考界面如下：（2）单击“结束”命令按钮结束程序运行。实验题目2源程序代码：Private Sub Command1_Click()Dim a As Integer, b As Integer, c A

17、s Integer, v As Integera = Val(InputBox("请输入长方体的长")b = Val(InputBox("请输入长方体的宽")c = Val(InputBox("请输入长方体的高")v = a * b * cMsgBox "长方体的体积为：" & v, , "计算长方形的体积"End SubPrivate Sub Command2_Click()endEnd Sub实验报告4：实验题目1：编写程序求出四个数中的最小数。实验题目1源程序代码：Private

18、Sub Command1_Click()Dim a!, b!, c!, d!, min!a = Val(Text1)b = Val(Text2)c = Val(Text3)d = Val(Text4)min = aIf b < min Then min = bIf c < min Then min = cIf d < min Then min = bLabel1 = "最小的数是：" & minEnd Sub实验题目2：编写程序判断某个数是否是水仙花数。要求：用inputbox函数输入一个数，将结果输出在窗体上。提示：水仙花数是一个三位数，这个三位

19、数各个位上数字的立方和等于它本身。实验题目2源程序代码：Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integer, d As Integerd = InputBox("请输入一个三位数", "判断水仙花数")a = d 100b = (d Mod 100) 10c = d Mod 10If d = a 3 + b 3 + c 3 ThenPrint TrueElsePrint FalseEnd IfEnd Sub实验题目3：编写程序，实现数字和英文单词的对应。提示：在文本框1

20、中输入0到6之间的整数，在文本框2中显示对应的星期英文单词。实验题目3源程序代码：Private Sub Command1_Click()Dim a As Integera = Val(Text1.Text)If a = 0 ThenText2.Text = "sunday"ElseIf a = 1 ThenText2.Text = "monday"ElseIf a = 2 ThenText2.Text = "tuesday"ElseIf a = 3 ThenText2.Text = "wednesday"Else

21、If a = 4 ThenText2.Text = "thursday"ElseIf a = 5 ThenText2.Text = "friday"ElseIf a = 6 ThenText2.Text = "saturday"End IfEnd Sub 实验题目4：设计程序，判断从键盘上输入的某个字符为哪类字符。（大写字母、小写字母、数字字符或其他字符）要求：用select case语句实现。提示：字符输入在一个文本框中，字符类别信息显示在标签上。将文本框的maxlength属性设置为1，则一次只能输入一个字符。实验题目4源程序代码

22、： Private Sub Command1_Click()Dim a As Stringa = Text1.TextSelect Case aCase "a" To "z"Label1.Caption = "它是小写字母"Case "A" To "Z"Label1.Caption = "它是大写字母"Case "0" To "9"Label1.Caption = "它是数字字符"Case ElseLabel1.Ca

23、ption = "其他字符"End SelectEnd Sub实验题目5：设计一个简单的文本编辑器，可以实现文本的简单格式化操作。具体要求如下：（1）可以设置字号，包括10、20、30号（2）可以设置字体，包括宋体、隶书、幼圆（3）可以设置字型，包括加粗、倾斜、下划线（4）可以设置字的颜色，包括红色、绿色、蓝色实验题目5源程序代码：Private Sub Check1_Click()If Check1.Value = 1 ThenText1.FontBold = TrueElseText1.fontbold = falseEnd IfEnd SubPrivate Sub C

24、heck2_Click()If Check2.Value =1 ThenText1.FontItalic = TrueElseText1.fontitalic = falseEnd IfEnd SubPrivate Sub Check3_Click()If Check3.Value =1 ThenText1.FontUnderline = TrueElseText1.fontunderline = falseEnd IfEnd SubPrivate Sub Option1_Click()Text1.FontSize = 10End SubPrivate Sub Option2_Click()T

25、ext1.FontSize = 20End SubPrivate Sub Option3_Click()Text1.FontSize = 30End SubPrivate Sub Option4_Click()Text1.FontName = "宋体"End SubPrivate Sub Option5_Click()Text1.FontName = "隶书"End SubPrivate Sub Option6_Click()Text1.FontName = "幼圆"End SubPrivate Sub Option7_Click()

26、Text1.ForeColor = vbRedEnd SubPrivate Sub Option8_Click()Text1.ForeColor = vbGreenEnd SubPrivate Sub Option9_Click()Text1.ForeColor = vbBlueEnd Sub实验报告5：实验题目1：编写程序输出图形，运行界面如下：实验题目1源程序代码：Private Sub Command1_Click()Dim a%a = 1While a <= 6Print "*"a = a + 1WendEnd Sub 实验题目2：编写程序求n！。实验题目2源

27、程序代码：Private Sub Command1_Click()Dim a as integer, b as integer, c As Longa = Val(Text1.Text)b = 1: c = 1Do While b <= ac = c * bb = b + 1LoopLabel2.Caption = a & "!=" & cEnd Sub 实验题目3：编写程序，求出某班所有同学某门课程的平均成绩。实验题目3源程序代码：Private Sub Command1_Click()Dim s As Integer, i As Integer,

28、n As Integer, d As Integer, a As Doubles = 0: i = 1: n = Val(Text1.Text)Do While i <= nd = InputBox("输入第" & i & "位同学的成绩", "成绩输入")s = s + di = i + 1Loopa = s / nMsgBox "全班" & n & "位同学的平均分为:" & a, , "求平均分"End Sub实验题目4：编

29、写程序输出1-100之间所有能被3整除的整数，要求每行输出5个。并输出这些整数的和。（用for语句实现）实验题目4源程序代码：Private Sub Command1_Click()Dim i As Integer, n As Integer, s As Integers = 0n = 0For i = 1 To 100 Step 1If i Mod 3 = 0 ThenPrint i;n = n + 1If n Mod 5 = 0 ThenPrintEnd Ifs = s + iEnd IfNext iPrint sEnd Sub 实验题目5：编写程序，统计输入的一个字符串中各类字符的个数。

30、（用for语句实现）实验题目5源程序代码：Private Sub Command1_Click()Dim i%, a%, b%, c%, d%, s As Strings = Text1.TextFor i = 1 To Len(s) Step 1Select Case Mid(s, i, 1)Case "a" To "z"a = a + 1Case "A" To "Z"b = b + 1Case "0" To "9"c = c + 1Case Elsed = d + 1En

31、d SelectNext iPrint a, b, c, d,End Sub实验报告6：实验题目1：编写程序，定义包含10个数组元素的一维数组，给该数组中的数组元素赋值为3，6，9，12数字，并以顺序和逆序两种方式输出各元素值。 实验题目1源程序代码：Private Sub Command1_Click()Dim i As IntegerDim a(1 To 10) As IntegerFor i = 1 To 10a(i) = 3 * iPrint a(i);Next iPrintFor i = 10 To 1 Step -1Print a(i);Next iEnd Sub实验题目2：随机生

32、成20个100以内的正整数，将其中的奇数和偶数分两行显示在窗体上，并分别统计奇数和偶数的个数。 实验题目2源程序代码： Private Sub Command1_Click()Dim i As Integer, n As Integer, m As IntegerDim a(1 To 20) As IntegerFor i = 1 To 20a(i) = Int(100 * Rnd + 1)If a(i) Mod 2 = 0 ThenPrint a(i);n = n + 1End IfNextPrintFor i = 1 To 20If a(i) Mod 2 <> 0 ThenPr

33、int a(i);m = m + 1End IfNext iPrintPrint m, nEnd Sub实验题目3：用数组实现从键盘输入10个学生的计算机课程成绩，求其平均成绩和高于平均成绩的人数。实验题目3源程序代码：Option base 1Private Sub Command1_Click()Dim sum As Integer, i As Integer, n As Integer, m As IntegerDim data(10) As Integer, average As Singlesum = 0: i = 1: n = Val(Text1.Text)Do While i &

34、lt;= ndata(i) = InputBox("输入第" & i & "位学生的成绩", "成绩输入")sum = sum + data(i)i = i + 1Loopaverage = sum / nMsgBox "全班" & n & "位学生的平均成绩为:" & average, , "求平均分"For i = 1 To 10 If data(i) > average Then m = m + 1 End If Next

35、Print mEnd Sub实验题目4：用数组实现从键盘输入10个学生的计算机课程成绩，求最高分和最低分。实验题目4源程序代码： Option base 1Private Sub Command1_Click()Dim i As Integer, n As Integer, max As integer, min As integerDim data(10) As Integerdata(1) = InputBox("输入第" & 1 & "位学生的成绩", "成绩输入")max = data(1): min = da

36、ta(1)For i = 2 To 10data(i) = InputBox("输入第" & i & "位学生的成绩", "成绩输入")If data(i) > max Then max = data(i)End IfIf data(i) < min Then min = data(i)End IfNextPrint "最高分是：" max, "最低分是：" minEnd Sub实验题目5：阅读并上机运行下面程序，理解动态数组的用法。实验题目5程序运行结果：21实验题

37、目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

38、ThenLabel1.BackColor = vbRedElseIf Index = 1 ThenLabel1.BackColor = vbGreenElseIf Index = 2 ThenLabel1.BackColor = vbBlueEnd IfEnd Sub实验报告7：实验题目1：阅读并运行以下程序，理解过程中的参数传递。 实验题目1各参数传递的方式：i和j是按值传递；k是按地址传递。两种方式参数传递的区别：按值传递是把实参的值传给形参，形参值的变化不会影响到实参，而按地址传递是把实参的地址传给形参，实参和形参共用一个存储单元，形参值的变化也就是实参值的变化。 实验题目1程序运行结果

39、：8实验题目2：编写程序，实现两个变量值的交换。要求用过程。实验题目2源程序代码：Public Sub gc(ByRef x As Integer, ByRef y As Integer)Dim t As Integert = x: x = y: y = tEnd SubPrivate Sub Command1_Click()Dim a As Integer, b As Integera = val(text1.text)b = val(text2.text)Call gc(a, b)text1.text = atext2.text = bEnd Sub实验题目3：以下代码的功能是：调用max

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

41、的最大值。请将以下代码补充完整。实验题目4源程序代码：Function max(m%, n%) As IntegerIf m > n Thenmax = mElsemax = nEnd IfEnd FunctionPrivate Sub Form_Click()Dim x%, y%, z%x = Val(InputBox("请输入数据")y = Val(InputBox("请输入数据")z = max(x, y)Print "最大值是:" zEnd Sub实验题目5：阅读并运行下面的程序代码，多次单击command1命令按钮，比

42、较两种数组的区别。实验题目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 SubPrivate Sub Option2_Click()Picture1.Picture = LoadPicture(App.Path + "2.jpg")End SubPrivate Sub Option3_Click()Picture1.Picture = LoadPicture(App.Path + "3.jpg")End Sub实验题目2：设计个人情况登