| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 369 人关注过本帖
标题:「新手求助」不知道这算什么问题,请近来帮忙看看吧,谢谢!
只看楼主 加入收藏
银子_mAn
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-10-22
收藏
 问题点数:0 回复次数:3 
「新手求助」不知道这算什么问题,请近来帮忙看看吧,谢谢!


VB的那个分支 Select Case语句
Dim silver As Byte silver = Val(InputBox("请输入"))
 Select Case silver
 Case yes Print "哈哈"
 Case no Print "不哈哈"
 End Select  
比如这样写,为什么运行时候输入no还是出哈哈?
但是如果dim silver As double时候 Case 0 To 100 这样使用数字就没有这个问题...
这是为什么呀? byte数据类型不能用英文吗? 用string时候也是一样不行...

我是才学VB的,什么都不懂,以后在论坛希望大家能多多帮助一下,谢谢!
2010-10-22 01:53
bczgvip
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:66
帖 子:1310
专家分:5312
注 册:2009-2-26
收藏
得分:0 
Dim silver As Byte silver = Val(InputBox("请输入"))
msgbox silver '呃,试试看不就知道了?
2010-10-22 02:32
银子_mAn
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-10-22
收藏
得分:0 
刚学到 vb6的:分支Select Case语句,教程给的例子是学生的成绩分类,0to50是不及格,50to60是及格,60to80是良好,80to100是优秀.
然后用Select Case语句代替If......Then语句进行分支的,我按照教程做的没问题,但是想换别的试试,于是把表示成绩的数字换成了英文,汉字.
可是这样就不行了,我不知道为什么...
Dim silver As String,Byte,Double等等都试过了,都是不行,所以想求真相...
希望能得到解释...谢谢!
2010-10-22 04:29
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
VB的那个分支 Select Case语句
Dim silver As Byte silver = Val(InputBox("请输入"))
Select Case silver
Case yes Print "哈哈"
Case no Print "不哈哈"
End Select  

yes  是一个变量还是一个字符串?
no   呢?

如果是变量,那么它们的值是多少?
如果是字符串,那么 双引号 在哪里?

Dim silver As Byte          '只能保存一个字符
silver = Val(InputBox("请输入"))    '输入范围是: 0 - 255
Dim yes As Byte
Dim no As Byte
yes=90
no=50
Select Case silver
Case yes           '当输入的值为 90 是为下面这个分支
Print "哈哈"
Case no           '当输入值为 50 时.为下面这个分支
Print "不哈哈"
End Select        '输入其它值时,不进行处理



授人于鱼,不如授人于渔
早已停用QQ了
2010-10-22 08:05
快速回复:「新手求助」不知道这算什么问题,请近来帮忙看看吧,谢谢!
数据加载中...
 
   



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

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