vb实用案例50例.doc

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

2、ommand1_Click()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(

3、Text1.Text) + 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) / 3E

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

6、im 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(Text2.Text)End SubPrivate Sub Command2_Click()Text1.Text = “Tex

8、t2.Text = “Text3.Text = “Text4.Text = “Text5.Text = “End SubPrivate Sub Command3_Click()EndEnd Sub实验题目 6：设计界面，编写程序分离出一个三位数的个位、十位、百位上的数字。参考界面如下：要求：设置窗体的标题为“分离三位数” 。“分离”命令按钮的功能：分离出一个三位数的个位、十位、百位上的数字。“清除”命令按钮的功能：将四个文本框的内容清除，并将焦点移到第一个文本框中。“退出”命令按钮的功能：程序运行结束。实验题目 6 源程序代码：Private Sub Command1_Click()Dim a

9、 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 = “Text3.Text = “Text4.Text = “Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd Sub实验题目 7：输入一个三位数，将它按逆序输出。参考界面如下：要求此题用两种解法：

10、第一种解法：将文本框中的数据按字符型数据进行处理，用函数实现；第二种解法：将文本框中的数据按数值型数据进行处理，用算术表达式实现（利用mod、*、+等运算符） 。实验题目 7 源程序代码：第一种解法：Private Sub Command1_Click()Dim a As String, b As 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_Cli

11、ck()Text1.Text = “Text2.Text = “End Sub第二种解法：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, 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实验题

12、目 8：输入两个数，将这两个数交换。要求：不允许使用第三个文本框，可以借助一个中间变量。实验题目 8 源程序代码：Private Sub Command1_Click()Dim a As Integer, 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 属性表示选定的内容。要求：文本框可以多行输入。说明

13、：设计时先将文本框的 multiline 属性设置为 true。实验题目 9 源程序代码：Private Sub Command1_Click()Text2.Text = Text1.SelTextEnd SubPrivate 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：编

14、写程序计算某个学生三门课程的平均成绩。要求：（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 Integera = Val(Inpu

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

16、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()endEnd Sub实验报告 4：实验题目 1：编写程序求出四个数中的最小数。实验题目 1 源程序代码：Pri

17、vate 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 函数输入一个数，将结果输出在窗体上。提示：水仙花数是一个三位数，这个三位数各个位上数字的立方和等于它本身。实验题目

18、 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 中输入 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“ElseIf a = 4 ThenText2.Text = “thursday“