10.1.4定义枚举类型 所谓“枚举”是指将变量的值一一列举出来,变量的值只限 于列举出来的值 IPublic private]Enum枚举类型名 成员名1|=常数表达式] 成员名2=常数表达式 End Enum ★
所谓“枚举”是指将变量的值一一列举出来，变量的值只限 于列举出来的值 [Public|Private] Enum 枚举类型名 成员名1 [=常数表达式] 成员名2 [=常数表达式] …… End Enum 10.1.4 定义枚举类型
例10.1应用枚举类型示例 输入一个数字表示星期几,判断输出是“休息日”还是“工作日 Private Enum weekdays 定义 Weekdays为枚举类型 Su un Mon ue Wed Thu Fri Sat End Enum ★
输入一个数字表示星期几，判断输出是“休息日”还是“工作日” Private Enum weekdays '定义Weekdays为枚举类型 Sun Mon Tue Wed Thu Fri Sat End Enum 例10.1 应用枚举类型示例
Private Sub Command1 Click Dim myday as weekdays 定义 Myday为 Weekdays枚举类型 myday=Ⅴal( InputBox("今天是星期几(0~6)")输入0~6 If myday <Sun Or myday Sat Then MsB0x"输入的星期数错误 Else If myday= Sun Or myday= Sat Then Msg Box"休息日 Else MsB0x工作日 End if End if End sub ★
Private Sub Command1_Click() Dim myday As weekdays '定义Myday为Weekdays枚举类型 myday = Val(InputBox("今天是星期几(0～6)")) '输入0～6 If myday <Sun Or myday > Sat Then MsgBox "输入的星期数错误" Else If myday = Sun Or myday = Sat Then MsgBox "休息日" Else MsgBox "工作日" End If End If End Sub
10.1.5GoTo型控制 包括GoTo语句和 On goTo语句 1.GoTo语句 语法格式:GoTo{行号标号} 功能:改变程序的执行顺序,跳转到程序中指定的行开始执行 例10.2应用G0T语句示例 Private Sub Form Load Show Print"整型数 GoTo Linel 跳转到标号Line1指定的行 Print"单精度数 Linel Print"字符串 ★ End sub
包括GoTo语句和On...GoTo语句 1. GoTo语句 语法格式：GoTo {行号|标号} 功能：改变程序的执行顺序，跳转到程序中指定的行开始执行 例10.2 应用GoTo语句示例 Private Sub Form_Load() Show Print "整型数" GoTo Line1 '跳转到标号Line1指定的行 Print "单精度数" Line1: Print "字符串" End Sub 10.1.5 GoTo型控制
2. On.GoTo语句 On.GoTo语句用来实现分支选择控制(类似于 Select. End select 语法格式:On数值表达式GoTo{行号表标号表} 功能:根据“数值表达式”的值,控制转移到几个指定的语句 行中的一个语句行。 例如 On k GoTo Linel Line2 Line3 执行过程:将K四舍五入取整,如果其值为1,则转移到 Line1 标号行;如果为2,则转移到Line2标号行;如果为3,则转移到 Line3标号行。如果K的值等于0或大于3,则自动执行本语句的 下一个语句 ★
On...GoTo语句用来实现分支选择控制(类似于Select...End Select) 语法格式：On 数值表达式 GoTo {行号表|标号表} 功能：根据“数值表达式”的值，控制转移到几个指定的语句 行中的一个语句行。 例如 On K GoTo Line1, Line2, Line3 执行过程：将K四舍五入取整，如果其值为1，则转移到Line1 标号行；如果为2，则转移到Line2标号行；如果为3，则转移到 Line3标号行。如果K的值等于0或大于3，则自动执行本语句的 下一个语句 2. On...GoTo语句