实验六visualbasic控制结构.doc

实验六 Visual Basic控制结构 学 号： 座机电话号码 姓名：缪以红 学院（系）： 食品科学技术学院 专业：食品质量与安全 班级： 02 一、实验目的 1、掌握简单块If语句、多分支块If语句、行If语句、IIf 函数的使用。 2、掌握情况语句（Select Case）的使用。 3、掌握简单循环语句及其使用。 二、实验内容 1、实验一：验证性实验，判断某个数是否是水仙花数。 2、实验二：验证性实验，计算机票购买优惠率。 3、实验三：程序设计，求出1-100之间能被3和5同时整除的数。 三、问题和要求 1、如何把IIF 函数变换为简单块If语句？ 答:IIF函数的格式:result IIF 条件,ture部分,false部分 换为IF语句： IF〈表达式〉THEN 〈语句块1〉 ELSE 〈语句块2〉 END IF 2、多分支块If语句与多个单行If语句的区别是什么？ 答：多个单行IF语句，它的条件语句可以嵌套，其深度（嵌套层数）没有具体的规定，但受每行字符数的限制。多分支块IF语句，它的块形式的条件语句可以嵌套，但嵌套必须完全“包住”，不能互相“骑跨” 3、情况语句（Select Case）表达式的书写方法有几种？ 1.表达式[，表达式]…… Case 2,4,6,8 2.表达式To表达式 Case 1 to 5 3.Is 关系运算表达式 Case Is a+b 4、验证实验一：写出程序运行界面及代码。 程序代码：Private Sub Command1_Click Dim n As Integer, gw As Integer, sw As Integer, bw As Integer n InputBox 请输入一个三位数: bw n \ 100 sw n - bw * 100 \ 10 gw n - bw * 100 - sw * 10 If gw ^ 3 + sw ^ 3 + bw ^ 3 n Then Print n; 是水仙花数。 Else Print n; 不是水仙花数。 End If End Sub 程序界面： 5、验证实验二：写出程序运行界面及代码。 程序代码： Private Sub Cmd1_Click Dim m As Integer, n As Integer, r As Integer m Val Text1.Text n Val Text2.Text Select Case m Case 7 To 9 If n 20 Then r 5 Else r 15 Case Is 5, 10, 11 If n 20 Then r 20 Else r 30 Case Else r 10 End Select Label4.Caption 所订机票的优惠率为: r % End Sub 6、程序设计：写出程序运行界面及代码。 Private Sub Command1_Click Dim number As Integer For i 1 To 100 If Int i / 3 i / 3 And Int i / 5 i / 5 Then Print i End If Next i End Sub 界面