VB程序设计实验要求及报告.docxVIP

上海立信会计学院本科实验报告 专业：实验时间： 专业： 实验时间： 系部：  实验 3 选择结构 一、 实验目的 掌握单分支、双分支和多分支条件语句的使用 掌握情况语句的使用及其与多分支条件语句之间的区别。 二、实验要求 在 下建立子文件夹“ VB 实验 3”，按照题目要求，在该文件夹下为各题保存相应的文 件，如本实验中的第一题，需保存的文件有：工程文件、窗体文件 及可执行文件（） ， 本实验中的第二题，需保存的文件有：工程文件、窗体文件 及可执行文件（） ，其余实验依此类推。 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。 三、 实验内容： 编一程序输入上网的时间并计算上网费用，计算的方法如下： 基数30元， 上网时间 10小时 费用 = 每小时 2.5元， 上网时间 10 ~ 50小时 每小时 2元， 上网时间 50小时 同时为了鼓励多上网，采用累进计费制，但每月收费最多不超过 150 元。上网时间在文本框中输入；上网费用在标签中输出，所有控件字体默认、大小为小四。要求使用多分 支结构（ IF THEN ELSEIF）编写，效果如图 3-1 所示。 图 3-1 Option Explicit Private Sub Command1_Click() Dim s!, sum! s = Val If s = 0 Then MsgBox 上网时间不能为负数和零 , , 输入错误 Text1 = Else If s = 10 Then sum = 30 ElseIf s 10 And s = 50 Then sum = 30 + (s - 10) * ElseIf s 50 And s = 60 Then sum = 130 + (s - 50) * 2 Else sum = 150 End If = sum End If End Sub 利用 InputBox 函数输入 a、b、c 三个整数， 按从大到小的顺序显示 （用 Print 方法输出）， 窗体中所有控件字体大小为小四。效果如图 3-2（ a）、（ b）所示。 图 图 3-2（ a） 图 3-2（ b） Option Explicit Private Sub Command1_Click() Dim a%, b%, c%, t% a = InputBox( 输入 a 的值 , 数据输入 ) b = InputBox( 输 入 b 的值 , 数据输入 ) c = InputBox( 输入 c 的值 , 数据输入 ) Print ; a; ; b; ; c Print 排序前 ; ; a; ; b; ; c If 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 If Print 排序后 ; ; a; ; b; ; c Print End Sub 3、 利用计算机解决古代数学问题“鸡兔同笼问题” 。即已知在同一笼子里有鸡和兔的总头数为 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% a = 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 = Else c = (b - a * 2) / 2 d = a - c d c End If End Sub 4、 编一模拟袖珍计算器 （四则运算即 +、-、* 、/ ）的完整程序， 界面如图 3-4 所示。 要求： 输入两个操作数和一个操作符，根据操作符单击“计算”按钮进行计算。输入、输出数 据均存放于文本框中，窗体中所有