VB实验报告.docx

1、VB实验报告Visual Basic 程序设计实验（训）报告学号：09090xx 姓名： xxx 班级099xcx： 实验时间：201xx.4.24 实验编号VB03实验名称Inputbox()函数、Msgbox()函数、条件语句实验目的和要求1. 掌握Inputbox()函数的使用。2. 掌握Msgbox()函数的使用。3. 掌握单行if语句、if-elseif语句和select case结构的使用。实验内容1. Inputbox()函数2. Msgbox()函数的使用。3. if-elseif语句和select case一、实验题目1. 设计计算一元二次方程的计算器，功能：单击开始按钮，弹

2、出输入对话框，从键盘上分别输入a,b,c系数的值，若有实数根则显示输出结果和输入的a,b,c三个系数的值，若没有实数根，显示输出a,b,c系数和无实数根的信息提示框。（根据界面写代码）（1）属性设置：控件名属性名属性值Command1Caption开始Command2Caption清除Label1CaptionALabel2CaptionX2+bLabel3Captionx+cLabel4Caption结果是Text1Text2Text3Text4（2）代码编写：Private Sub Command1_Click()Dim a!, b!, c!, d!, x1!, x2!, x!a = Va

3、l(InputBox(请输入a的数值)b = Val(InputBox(请输出b的数值)c = Val(InputBox(请输入c的数值)d = b * b - 4 * a * cText1.Text = aText2.Text = bText3.Text = cIf d 0 Thenx1 = (-b + Sqr(d) / (2 * a)x2 = (-b - Sqr(d) / (2 * a)Text4.Text = x1= & x1 & Space(5) & x2= & x2ElseIf d = 0 Thenx = -b / (2 * a)Text4.Text = x= & xElseIf d

4、 0 ThenMsgBox 无数根End IfEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Text4.Text = End Sub（3）运行结果截图 2. 计算实发工资（基本工资800营业提成），营业额1000以下提成为1%，营业额10002000提成为2%，营业额20003000提成3%，300010000提成4%，10000以上提成5%。单击“开始”按钮，从键盘上输入该员工的营业额，计算显示出实发工资。（1）属性设置：控件名属性名属性值Label1Caption实发工资Text1Comm

5、and1Caption开始（2）代码编写：Private Sub Command1_Click()Dim x!, y!x = Val(InputBox(请输入营业额)If x 1000 And x 2000 And x 3000 And x 10000 Theny = 800 + x * 0.05End IfText1.Text = yEnd Sub（3）运行截图3制作测试体重计算器：h值是体重（kg）身高（m）的平方，若h值在1720之间为正常，低于17为偏瘦，高于20为偏胖。功能：单击“开始”按钮，弹出对话框输入体重和身高，并计算机出h值。弹出“输入密码”提示框，输入密码，若密码正确则在文

6、本二中显示体形结果，若输入错误则弹出“密码错误”提示框。（1）属性设置：控件名属性名属性值Label1Caption密码Label2Caption体型Text1Text2Command1Caption开始Command2Caption清除（2）代码编写：Private Sub Command1_Click()Dim h!, a!, b!, m!a = Val(InputBox(请输入体重)b = Val(InputBox(请输入身高)m = Val(InputBox(请输入密码)h = a / (b 2)If m 123 Thenm = MsgBox(密码错误, 16)ElseIf h 17

7、And h 20 ThenText2.Text = 正常ElseIf h a max then max=bIf cmax then max=cPrint a；“ “;b;” “;c;”最大的值是:：”;maxEnd sub 二、实验感受(包括上机过程中遇到的问题和如何解决的问题、通过上机实践学到了些什么知识、对上机的意见等)对于程序的编写，重要的在于弄懂程序的具体语言，什么情况下该有空格，什么情况下该有分隔符，都是需要自己熟记于心的，否则，一小小的错误，却要搞半天才知道问题出在哪！其实只要多加练习，编程的语言还是不难把握的，又是通过自己的一番探索最终把程序编出来，虽然有些慢，但体味到了其中成就感，同时对程序语言开始有点眉目，为以后的VB学习打好基础。