VB程序设计实验教程（第2版）：实验结果与三角形构成判断

实验目的

➢掌握选择结构程序的编写，理解选择结构的执行过程。

➢掌握If语句的单行格式、多行格式及Select Case语句的正确使用。

【实验5-1】从键盘任意输入1个数，判断其是奇数还是偶数。

方法分析：

① 要求从键盘输入数据，则需要应用InputBox函数。

② 对于输入的数据，要么是奇数要么是偶数，因此可用简单分支的If语句。

③ 判断1个数是奇数还是偶数，只需判断这个数除以2的余数，如果结果为0，则为偶数，否则为奇数。

具体程序代码如下：

【实验5-2】任意输入一个字母，如果输入的是大写字母，请输出它对应的小写字母；如果输入的是小写字母，请输出对应的大写字母。

方法分析：

① 要求从键盘输入数据，则需要应用InputBox函数。

② 对于输入的数据，要么是小写字母要么是大写字母，因此用简单分支的If语句。

③ 本问题中关键是判断所输入的字母是大写字母还是小写字母，也就是对条件“字母 >= "a" And 字母 <= "z"”的判断，如果条件为True，则输出相应大写字母，否则输出小写字母。

④ 将小写字母转换为大写字母，可以用函数Asc（）计算该字母的ASCII值，然后减去32即可变为相应大写字母的ASCII值，再通过函数Chr（）转换为字符串输出；反之，将输入字母ASCII加32即可得到相应的小写字母的ASCII值。

具体程序代码如下：

【实验5-3】编写一个网吧收费程序。若上机时间小于3小时，收费标准为2元/小时；如果上网时间大于等于3小时，但少于5小时（不包括5小时），上网费用可以打8折；如果上网时间超过5小时但少于10小时（不包括10小时），上网费用可以打6.5折；如果上网时间超过10小时，上网费用可以打5折。请输入上网时间，输出相应的上网费用。

方法分析：

① 这是一个典型的多分支结构，可以用多行的If语句来实现。

② 假设x代表上网时间，y代表上网费用，首先判断x<3的值，如果为真，则令y=2*x；否则意味着上网时间超过3小时，这时只需要判断x<5的值，如果为真，令y=2*x*0.8；否则意味着上网时间超过了5小时，这时再判断x<10的值，如果为真，令y=2*x*0.65，如果为假，意味着上网时间超过了10小时，令y=2*x*0.5。

③ 由于在单击命令按钮后才开始计算，所以有关上网费用计算的语句应该编写在命令按钮的Click事件过程中。

具体步骤如下：

① 在窗体中添加1个文本框、1个标签和1个命令按钮。

② 窗体及各控件的属性按表5-1进行设置。(www.xing528.com)

表5-1　各对象的属性值

③ 所编写代码如下：

【实验5-4】任意输入3个数代表三角形的3条边长，判断能否构成一个三角形。如果能构成三角形，在窗体上显示这三条边并输出“能够构成三角形”；如果构不成三角形，用MsgBox函数按图5-1的形式给出出错信息“输入的三条边长构不成三角形”，且如果用户点击消息框中的“重试”按钮，则返回主界面，点击“取消”，则结束程序。

图5-1

方法分析：

① 利用InputBox函数提示用户输入三个数，代表三角形的三条边。

② 判断能否构成三角形的条件是：任意两边之和大于第三边。假设三条边分别是a，b，c，则相当于判断表达式a + b > c And b + c > a And a + c > b的值，如果为True，则输出相应提示信息；如果为False，则用Msgbox函数给出出错信息。这是典型的If语句结构。

③ 题目要求消息框中包含“重试”与“取消”按钮，此二者的按钮值为5，警告图标的按钮值为48，因此Msgbox函数应写为：MsgBox（"输入的三条边长构不成三角形"，5 + 48， "出错"）。

④ 题目中还要求根据用户在消息框中单击“重试”按钮还是“取消”按钮来决定程序的流向，即对Msgbox函数的返回值的进行判断，如果返回值是2，则意味着单击“取消”按钮，执行结束程序；否则意味着用户单击的是“重试”按钮，自动返回主界面。

⑤ 由于Msgbox函数返回值的判断是构不成三角形的情况下才会被判断到，因此判断返回值的语句应出现在条件“a + b > c And b + c > a And a + c > b”的Else部分，从而形成了If语句的嵌套。

具体步骤如下：

① 在窗体中添加1个命令按钮。

② 将命令按钮的Caption属性值更改为“判断”。

③ 编写如下代码：

【实验5-5】编写程序，其功能是在窗体中的文本框Text1中输入一个1～12之间的整数代表月份，单击“判断”命令按钮，如果输入的数据不在1～12之间，则给出错误提示，提示用户重新输入数据，并将文本框清空；如果在1～12之间，判断此月份属于哪个季节。如果数据在3～5之间，则输出“Spring”， 如果数据在6～8之间，则输出“Summer”；如果数据在9～11之间，则输出“Autumn”；否则输出“Winter”。

方法分析：

① 对于判断月份属于哪个季节存在多个判断条件，因此用Select Case比较方便。

② 测试条件就是文本框Text1的Text属性值，其值若与Case 3 to 5、Case6 to 8、Case 9 to 11、Case 12，1，2中某一个值列表相匹配，则输出相应的季节。

程序代码如下：