根据n的值1~3,转换成"风","雨","雪"的语句如下:
Tq = chose(n, "风", "雨", "雪")
当n的值为1时,返回字符窜"风",当n的值为2时,返回字符窜"雨", 当n 的值为3时,返回字符窜"雪",返回的字符窜放入Tq变量中.如果n的值不在1~3范围内,则函数返回NULL值.

这个CHOSE函数的例子怎么做啊,我是个新手.我是这样做的:,但是错的,我不知道该怎么做

Private Sub Command1_Click()
Dim Tq As Single
Tq = Val(Text1.Text)
Tq = chose(n, "风", "雨", "雪")
Label1.Caption = Tq
End Sub

你可以使用Select语句：

select case n
case 1: RetStr="风"
case 2: RetStr="雨"
case 3: RetStr="雪"
case else:
end select

可是我想要知道的是chose函数怎么用啊,