资源描述
精选优质文档-倾情为你奉上上海立信会计学院本科实验报告班级: 学号: 姓名: 指导教师: 系部: 专业: 实验时间: 实验3 选择结构一、 实验目的1 掌握单分支、双分支和多分支条件语句的使用2 掌握情况语句的使用及其与多分支条件语句之间的区别。二、实验要求1 在C:下建立子文件夹“VB实验3”,按照题目要求,在该文件夹下为各题保存相应的文件,如本实验中的第一题,需保存的文件有:工程文件(31.vbp)、窗体文件(31.frm) 及可执行文件(31.exe),本实验中的第二题,需保存的文件有:工程文件(32.vbp)、窗体文件(32.frm) 及可执行文件(32.exe),其余实验依此类推。2 撰写实验过程中出现了哪些问题、错误,你是如何解决的,做一个小结。三、 实验内容:1. 编一程序输入上网的时间并计算上网费用,计算的方法如下:费用=同时为了鼓励多上网,采用累进计费制,但每月收费最多不超过150元。上网时间在文本框中输入;上网费用在标签中输出,所有控件字体默认、大小为小四。要求使用多分支结构(IF THEN ELSEIF)编写,效果如图3-1所示。图3-1Option ExplicitPrivate Sub Command1_Click() Dim s!, sum! s = Val(Text1.Text) If s <= 0 Then MsgBox "上网时间不能为负数和零", , "输入错误" Text1 = "" Text1.SetFocus Else If s <= 10 Then sum = 30 ElseIf s > 10 And s <= 50 Then sum = 30 + (s - 10) * 2.5 ElseIf s > 50 And s <= 60 Then sum = 130 + (s - 50) * 2 Else sum = 150 End If Label2.Caption = sum End IfEnd Sub2. 利用InputBox函数输入a、b、c三个整数,按从大到小的顺序显示(用Print方法输出),窗体中所有控件字体大小为小四。效果如图3-2(a)、(b)所示。图3-2(a)图3-2(b)Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%, t%a = InputBox("输入a的值 ", "数据输入")b = InputBox("输入b的值 ", "数据输入")c = InputBox("输入c的值", "数据输入")Print " " "a" " " "b" " " "c"Print "排序前" " " a; " " b; " " cIf a < b Then t = a: a = b: b = t If b < c Then t = b: b = c: c = t If a < b Then t = a: a = b: b = t End If End IfPrint "排序后" " " a; " " b; " " cPrintEnd Sub3、 利用计算机解决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有鸡和兔的总头数为m头,鸡和兔的总脚数为n只,求鸡和兔各有多少只?另要求输入的数据必须经过检验,如果错误则作出提示,“确定”后自动清除错误数据并要求重新输入数据。触发事件发生在输入总脚数后焦点失去时,在文本框中输入数据;在图片框中输出结果,所有控件字体默认、大小为小四。效果如图3-3(a)、(b)、(c)所示。图3-3(a)图3-3(b)图3-3(c)Private Sub Text2_LostFocus()Dim a%, b%, c%, d%Picture1.ClsPicture2.Clsa = Val(Text1)b = Val(Text2)If b Mod 2 <> 0 Or b < 2 * a Or 4 * a < b Then MsgBox "输入数据错误,可能如下情况:" + Chr(13) + Chr(10) + "总脚数非偶数" + Chr(13) + Chr(10) + "总脚数小于2倍的头数" + Chr(13) + Chr(10) + "总脚数大于4倍的头数" + Chr(13) + Chr(10) + "请重新输入", , "数据错误" Text1 = "" Text2 = "" Text1.SetFocusElsec = (b - a * 2) / 2d = a - cPicture1.Print dPicture2.Print cEnd IfEnd Sub4、 编一模拟袖珍计算器(四则运算即+、-、*、/)的完整程序,界面如图3-4所示。要求:输入两个操作数和一个操作符,根据操作符单击“计算”按钮进行计算。输入、输出数据均存放于文本框中,窗体中所有控件字体默认、大小为小四。建议使用Select Case语句实现图3-4Option ExplicitPrivate Sub Command1_Click() Dim a!, b!, c As String * 1 a = Val(Text1): b = Val(Text2): c = Trim(Text3) Select Case c Case "+" Text4 = a + b Case "-" Text4 = a - b Case "*" Text4 = a * b Case "/" Text4 = a / b End SelectEnd SubPrivate Sub Command2_Click() EndEnd Sub四、 实验过程中的问题、错误,解决方法,总结、体会、建议。专心-专注-专业
展开阅读全文