| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 825 人关注过本帖
标题:chose函数的例子,我是菜鸟不会做
只看楼主 加入收藏
vbrunner
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-3-31
收藏
 问题点数:0 回复次数:2 
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



搜索更多相关主题的帖子: chose 函数 例子 
2006-04-12 17:26
kevin0122
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-4-12
收藏
得分:0 

你可以使用Select语句:

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

2006-04-12 18:18
vbrunner
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-3-31
收藏
得分:0 
可是我想要知道的是chose函数怎么用啊,
2006-04-12 22:27
快速回复:chose函数的例子,我是菜鸟不会做
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016541 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved