Choose函数指定数字选择对应字符串

2016年8月9日 作者： 来源：

第1.3例 Choose函数
一、题目：
　　要求编写一段代码，运用Choose函数根据指定数字选择对应的字符串。
二、代码：
Sub 示例_1_03()
        Dim Num%
        Num=2
        MsgBox  Choose(Num, "一月", "二月", "三月")
End Sub
三、代码详解
     1、Sub 示例_1_03()：宏程序的开始语句。宏名为示例_1_03。
     2、Dim Num% ：变量Num声明为整型变量。
     3、Num=2 ：把2赋给变量Num。
     4、MsgBox  Choose(Num, "一月", "二月", "三月") ：
     Choose函数从参数列表中选择并返回一个值。
     语法
     Choose(index, choice-1[, choice-2, ... [, choice-n]])
     Choose 会根据 index 的值来返回选择项列表中的某个值。如果 index 是 1，则 Choose 会返回列表中的第 1 个选择项。如果 index 是 2，则会返回列表中的第 2 个选择项，以此类推。
     Index是必要参数，数值表达式或字段，它的运算结果是一个数值，且界于 1 和可选择的项目数之间。当index小于 1 或大于列出的选择项数目时，Choose 函数返回 Null。如果 index 不是整数，则会先四舍五入为与其最接近的整数。