资源预览内容
第1页 / 共6页
第2页 / 共6页
第3页 / 共6页
第4页 / 共6页
第5页 / 共6页
第6页 / 共6页
亲,该文档总共6页全部预览完了,如果喜欢就下载吧!
资源描述
上海立信会计学院本科实验报告上海立信会计学院本科实验报告班级: 学号: 姓名: 指导教师: 系部: 专业: 实验时间: 实验 3 选择结构一、 实验目的1 掌握单分支、双分支和多分支条件语句的使用2 掌握情况语句的使用及其与多分支条件语句之间的区别。二、实验要求1 在 C:下建立子文件夹“VB 实验 3” ,按照题目要求,在该文件夹下为各题保存相应的文件,如本实验中的第一题,需保存的文件有:工程文件(31.vbp)、窗体文件(31.frm) 及可执行文件(31.exe) ,本实验中的第二题,需保存的文件有:工程文件(32.vbp)、窗体文件(32.frm) 及可执行文件(32.exe) ,其余实验依此类推。2 撰写实验过程中出现了哪些问题、错误,你是如何解决的,做一个小结。三、实验内容:1.编一程序输入上网的时间并计算上网费用,计算的方法如下:费用= 50250102.51030小时上网时间元,每小时小时上网时间元,每小时小时上网时间元,基数同时为了鼓励多上网,采用累进计费制,但每月收费最多不超过 150 元。上网时间在 文本框中输入;上网费用在标签中输出,所有控件字体默认、大小为小四。要求使用 多分支结构(IF THEN ELSEIF)编写,效果如图 3-1 所示。图 3-1Option Explicit Private Sub Command1_Click()Dim s!, sum!s = Val(Text1.Text)If s 10 And s 50 And s 0 Or b 2 * a Or 4 * a b ThenMsgBox “输入数据错误,可能如下情况:输入数据错误,可能如下情况:“ + Chr(13) + Chr(10) + “总脚数非偶数总脚数非偶数“ + Chr(13) + Chr(10) + “总脚数小于总脚数小于 2 倍的头数倍的头数“ + Chr(13) + Chr(10) + “总脚数大于总脚数大于 4 倍的倍的 头数头数“ + Chr(13) + Chr(10) + “请重新输入请重新输入“, , “数据错误数据错误“Text1 = “Text2 = “Text1.SetFocus Else c = (b - a * 2) / 2 d = a - cPicture1.Print d Picture2.Print c End If End Sub4、 编一模拟袖珍计算器(四则运算即+、-、*、/)的完整程序,界面如图 3-4 所示。要求:输入两个操作数和一个操作符,根据操作符单击“计算”按钮进行计算。输入、 输出数据均存放于文本框中,窗体中所有控件字体默认、大小为小四。建议使用 Select Case 语句实现图 3-4 Option ExplicitPrivate Sub Command1_Click()Dim a!, b!, c As String * 1a = Val(Text1): b = Val(Text2): c = Trim(Text3)Select Case cCase “+“Text4 = a + bCase “-“Text4 = a - bCase “*“Text4 = a * bCase “/“Text4 = a / bEnd Select End SubPrivate Sub Command2_Click()End End Sub四、实验过程中的问题、错误,解决方法,总结、体会、建议。
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号