文档介绍：上海立信会计学院本科实验报告
班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间：
实验 3 选择结构
一、 实验目的
掌握单分支、双分支和多分支条件语句的使用
掌握情况语句的使用及其与多分支条件语句之间的区别。
上海立信会计学院本科实验报告
班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间：
实验 3 选择结构
一、 实验目的
掌握单分支、双分支和多分支条件语句的使用
掌握情况语句的使用及其与多分支条件语句之间的区别。
二、实验要求
在 C:\下建立子文件夹“VB 实验 3”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件()、窗体文件() 及可执行文件（），本实验中的第二题，需保存的文件有：工程文件 ()、窗体文件() 及可执行文件（），其余实验依此类推。
撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。
三、 实验内容：
编一程序输入上网的时间并计算上网费用，计算的方法如下：
ì 基数 30 元， 上网时间 £ 10 小时
í
费用= ï每小时 元， 上网时间 > 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"
P