chose函数的例子,我是菜鸟不会做
根据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