vb实用案例例.doc

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

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

3、k()= Val / ValEnd Sub实验题目 3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。参考界面如下：要求：没有计算出总分前，计算均分的命令按钮不可用，计算出总分后，计算均分的命令按钮才可用。说明：设计时先将计算均分的命令按钮的Enabled 属性设置为false。实验题目 3 源程序代码：Private Sub Command1_Click()= Val + Val + Val= True= Val / 3 End SubPrivate Sub Command3_Click()= = = = = End Sub实验题目 4：设计界面，编写程序计算圆的周长和面积。参考界面

4、如下：要求：设置窗体的标题为“计算圆的周长和面积”。“计算”命令按钮的功能：定义变量和符号常量，计算出圆的周长和面积。“清除”命令按钮的功能：将三个文本框的内容清除，并将焦点移到第一个文本框中。“退出”命令按钮的功能：程序运行结束。实验题目 4 源程序代码：Private Sub Command1_Click()Dim r As Double, s As DoubleConst pi =r = Vals = pi * r * rc = 2 * pi * r= Str(c)= Str(s)= = = End Sub实验题目 5：设计界面，编写程序验证算术运算符的功能。参考界面如下：要求：设置窗体

5、的标题为“验证算术运算符”。“计算”命令按钮的功能：计算两个数的除、整除和取余。“清除”命令按钮的功能：将五个文本框的内容清除，并将焦点移到第一个文本框中。“退出”命令按钮的功能：程序运行结束。实验题目 5 源程序代码：Private Sub Command1_Click()= Val / Val= Val Val= Val Mod Val End SubPrivate Sub Command2_Click()= = = = = End SubPrivate Sub Command3_Click()EndEnd Sub实验题目 6：设计界面，编写程序分离出一个三位数的个位、十位、百位上的数字。

6、参考界面如下：要求：设置窗体的标题为“分离三位数”。“分离”命令按钮的功能：分离出一个三位数的个位、十位、百位上的数字。“清除”命令按钮的功能：将四个文本框的内容清除，并将焦点移到第一个文本框中。“退出”命令按钮的功能：程序运行结束。实验题目 6 源程序代码：Private Sub Command1_Click()Dim a As Integera = Val= Str(a 100)= Str(a Mod 100) 10)= Str(a Mod 10)= = = = End SubPrivate Sub Command3_Click()EndEnd Sub实验题目 7：输入一个三位数，将它按逆

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

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

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

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

11、Command1_Click()Dim a As Integer, b As Integer, c As Integer, d As Integera = Val(InputBox(请输入第一门成绩)b = Val(InputBox(请输入第二门成绩)c = Val(InputBox(请输入第三门成绩)d = (a + b + c) / 3= dEnd Sub实验题目2：编写程序计算长方体的体积。要求：（ 1）单击“计算”命令按钮，输入长方体的长、宽和高（调用三次inputbox函数输入，并用三个内存变量保存），计算出长方体的体积后通过输出对话框输出（调用MsgBox 函数， 输出框的标题为“

12、计算长方体的面积”。）输出对话框参考界面如下：（ 2）单击“结束”命令按钮结束程序运行。实验题目2 源程序代码：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, v As Integera = Val(InputBox(请输入长方体的长)b = Val(InputBox(请输入长方体的宽)c = Val(InputBox(请输入长方体的高)v = a * b * cMsgBox 长方体的体积为： & v, , 计算长方形的体积 End SubPrivate Sub Command2_Click()

13、endEnd 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 = aIf b min Then min = bIf c min Then min = cIf d min Then min = bLabel1 = 最小的数是： & minEnd Sub实验题目 2： 编写程序判断某个数是否是水仙花数。要求：用inputbox函数输入一

14、个数，将结果输出在窗体上。提示：水仙花数是一个三位数，这个三位数各个位上数字的立方和等于它本身。实验题目 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 TrueElse, 判断水仙花数)Print FalseEnd IfEnd Sub实验题目 3： 编写程序，实现数字和英文单词的

15、对应。提示：在文本框1 中输入 0 到 6 之间的整数，在文本框2 中显示对应的星期英文单词。实验题目 3 源程序代码：Private Sub Command1_Click()Dim a As Integera = ValIf a = 0 Then= sunday ElseIf a = 1 Then= monday= tuesday ElseIf a = 3 Then= wednesday ElseIf a = 4 Then= thursday ElseIf a = 5 Then= friday= saturday End IfEnd Sub实验题目 4：设计程序，判断从键盘上输入的某个字符为

16、哪类字符。（大写字母、小写字母、数字字符或其他字符）要求：用select case语句实现。提示：字符输入在一个文本框中，字符类别信息显示在标签上。将文本框的maxlength属性设置为1，则一次只能输入一个字符。实验题目 4 源程序代码：Private Sub Command1_Click()Dim a As Stringa =Select Case aCase a To z= 它是小写字母 Case A To Z= 它是大写字母 Case 0 To 9= 它是数字字符 Case Else= 其他字符 End Select End Sub实验题目 5： 设计一个简单的文本编辑器，可以实现文本

17、的简单格式化操作。具体要求如下：（1）可以设置字号，包括10、 20、 30 号（ 2）可以设置字体，包括宋体、隶书、幼圆（ 3）可以设置字型，包括加粗、倾斜、下划线（ 4）可以设置字的颜色，包括红色、绿色、蓝色实验题目 5 源程序代码：Private Sub Check1_Click()If = 1 Then= True Else= falseEnd If End SubPrivate Sub Check2_Click() If =1 Then= True= falseEnd If End SubPrivate Sub Check3_Click() If =1 Then= TrueElse=

18、 falseEnd If End SubPrivate Sub Option1_Click()= 10= 20 End SubPrivate Sub Option3_Click()= 30End SubPrivate Sub Option4_Click()= 宋体 End SubPrivate Sub Option5_Click()= 隶书End SubPrivate Sub Option6_Click()= 幼圆 End SubPrivate Sub Option7_Click()= vbRed= vbGreen End SubPrivate Sub Option9_Click()= vbB

19、lueEnd Sub实验报告5：实验题目 1： 编写程序输出图形，运行界面如下：实验题目 1 源程序代码：Private Sub Command1_Click()Dim a%a = 1While a = 6Print *a = a + 1WendEnd Sub实验题目 2：编写程序求n！。实验题目 2 源程序代码：Private Sub Command1_Click()Dim a as integer, b as integer, c As Longa = Valb = 1: c = 1Do While b = ac = c * bb = b + 1Loop= a & != & c End S

20、ub实验题目 3：编写程序，求出某班所有同学某门课程的平均成绩。实验题目 3 源程序代码：Private Sub Command1_Click()Dim s As Integer, i As Integer, n As Integer, d As Integer, a As Doubles = 0: i = 1: n = ValDo While i = nd = InputBox( 输入第 & i & 位同学的成绩 , 成绩输入 )s = s + di = i + 1Loopa = s / nMsgBox 全班 & n & 位同学的平均分为 : & a, , 求平均分 End Sub实验题目

21、4：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： 编写程序，统计输入的一个字符串

22、中各类字符的个数。（用实验题目 5 源程序代码：Private Sub Command1_Click()Dim i%, a%, b%, c%, d%, s As Strings =For i = 1 To Len(s) Step 1Select Case Mid(s, i, 1)Case a To za = a + 1Case A To Zb = b + 1Case 0 To 9c = c + 1Case Elsed = d + 1End SelectNext iPrint a, b, c, d,End Sub实验报告6：for语句实现）实验题目 1： 编写程序，定义包含10 个数组元素的一维

23、数组，给该数组中的数组元素赋值为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：随机生成 20 个 100 以内的正整数，将其中的奇数和偶数分两行显示在窗体上，并分别统计奇数和偶数的个数。实验题目 2 源程序代码：

24、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 ThenPrint a(i);m = m + 1End IfNext iPrintPrint m, nEnd Sub实验题目 3： 用数组实现从键盘输

25、入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 = ValDo While i average Thenm = m + 1位学生的平均成绩为: & average, , 求平均分End IfNextPrint mEnd Sub实验题目

26、 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 = data(1)For i = 2 To 10data(i) = InputBox(输入第 & i & 位学生的成绩, If dat

27、a(i) max Thenmax = data(i)成绩输入成绩输入)End IfIf data(i) 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“函数过程”，求出两个数中的最大值。请将以下代码补充完整。实验题目 4 源程序代码：Function max(m%, n%) As Integ

28、erIf 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命令按钮，比较两种数组的区别。阅读并运行下面的程序代码，多次单击实验题目 5 两种数组的区别是： 用 static定义的数组表示静态数组，如果没有给该数组赋初值，第一次运行时，各元素的初值都为0，再次运行时以上一次运行的结果作为初

29、始值；用dim 定义的数组则表示动态数组，如果没有给该数组赋初值，每次运行时，各元素的初值都为0。实验题目 5 程序运行结果：第一次输出 2222222222第二次输出 4444422222实验报告 8：实验题目 1： 设计窗体，界面如下：当单击“图片1”，“图片 2”，“图片 3”时，图片（像）框分别加载不同图片。（要求：图片自己从网上下载）实验题目 1 源程序代码：Private Sub Option1_Click()= LoadPicture + ) End SubPrivate Sub Option2_Click()= LoadPicture + )= LoadPicture + ) End Sub实验题目 2： 设计个人情况登记程序。程序初始界面如下：窗体中共包含3 个标签， 3 个组合框，1 个图片框和2 个命