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

上海立信会计学院本科实验报告

班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间：

实验3 选择结构

一、 实验目的

1． 掌握单分支、双分支和多分支条件语句的使用

2． 掌握情况语句的使用及其与多分支条件语句之间的区别。

二、实验要求

1． 在C:\下建立子文件夹“VB 实验3”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件、窗体文件 及可执行文件（），本实验中的第二题，需保存的文件有：工程文件、窗体文件 及可执行文件（），其余实验依此类推。

2． 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。

三、 实验内容：

1. 编一程序输入上网的时间并计算上网费用，计算的方法如下：

费用= 50250~102.51030⎪⎩

⎪⎨⎧>≤>≤小时上网时间元，每小时小时上网时间元，每小时小时上网时间元，基数

同时为了鼓励多上网，采用累进计费制，但每月收费最多不超过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

2.利用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所示。要求：

输入两个操作数和一个操作符，根据操作符单击“计算”按钮进行计算。输入、输出数据均存放于文本框中，窗体中所有控件字体默认、大小为小四。建议使用Select Case语句实现

图3-4

Option Explicit

Private 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 "-"