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学习打好基础。
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1