|
网站首页
|
业界新闻
|
小组
|
威客
|
人才
|
下载频道
|
博客
|
代码贴
|
在线编程
|
编程论坛
|
登录
注册
短消息
我发表的主题
我参与的主题
我收藏的贴子
我上传的附件
我下过的附件
编辑个人资料
我的博客
用户控制面板
搜索
道具
恢复默认风格
碧海青天
秋意盎然
棕红预览
粉色回忆
蓝雅绿
紫色淡雅
青青河草
e点小镇
橘子红了
红红夜思
水晶紫色
雪花飘飘
新年快乐
风格
短消息
论坛展区
帮助
编程论坛
→
开发语言
→
『 VB6论坛 』
→ VB怎样表达1~100的整数
我的收件箱(0)
欢迎加入我们,一同切磋技术
用户名:
密 码:
共有
2906
人关注过本帖,
1
人收藏
标题:
VB怎样表达1~100的整数
只看楼主
加入收藏
thhabc
等 级:
新手上路
帖 子:15
专家分:0
注 册:2010-11-14
结帖率:
100%
楼主
收藏
(1)
问题点数:0 回复次数:12
VB怎样表达1~100的整数
比如当text1=1~100的整数时,text2=a
搜索更多相关主题的帖子:
整数
表达
2010-12-10 18:13
举报帖子
使用道具
赠送鲜花
Artless
等 级:
贵宾
威 望:
103
帖 子:4211
专家分:28888
注 册:2009-4-8
第
2
楼
收藏
得分:0
当text1<>1~100的整数时,text2=?
无知
2010-12-10 18:16
举报帖子
使用道具
赠送鲜花
thhabc
等 级:
新手上路
帖 子:15
专家分:0
注 册:2010-11-14
第
3
楼
收藏
得分:0
回复 2楼 Artless
当text1<>1~100的整数时,text2=b
2010-12-10 21:27
举报帖子
使用道具
赠送鲜花
Artless
等 级:
贵宾
威 望:
103
帖 子:4211
专家分:28888
注 册:2009-4-8
第
4
楼
收藏
得分:0
if val(text1.text)>1 and val(text1.text)<100 then
text2.text=a
else
text2.text=b
end if
无知
2010-12-10 21:30
举报帖子
使用道具
赠送鲜花
thhabc
等 级:
新手上路
帖 子:15
专家分:0
注 册:2010-11-14
第
5
楼
收藏
得分:0
回复 4楼 Artless
要整数不要小数
2010-12-10 22:04
举报帖子
使用道具
赠送鲜花
爆炸之子
等 级:
新手上路
帖 子:1
专家分:0
注 册:2010-12-11
第
6
楼
收藏
得分:0
可以用int()函数啊
2010-12-11 00:40
举报帖子
使用道具
赠送鲜花
haiyungood
等 级:
论坛游民
帖 子:83
专家分:98
注 册:2008-7-2
第
7
楼
收藏
得分:0
用数组,定义一个1到100的整数数组,然后把Text和数组进行比较,
2010-12-11 01:02
举报帖子
使用道具
赠送鲜花
thhabc
等 级:
新手上路
帖 子:15
专家分:0
注 册:2010-11-14
第
8
楼
收藏
得分:0
具体该怎样?
2010-12-11 22:00
举报帖子
使用道具
赠送鲜花
cccool
等 级:
黑侠
帖 子:268
专家分:555
注 册:2007-5-1
第
9
楼
收藏
得分:0
回复 8楼 thhabc
可以这样
先判断是否为整数:
if (Val(Text1.text)-Int(Val(Text1.text)))=0 then
if Val(Text1.text)>=1 and Val(Text1.text)<=100 then
Text2.text=a
else
Text2.text=b
end if
end if
[
本帖最后由 cccool 于 2010-12-11 23:26 编辑
]
[fly]让心情飞一会[/fly]
">Email to Me
2010-12-11 23:23
举报帖子
使用道具
赠送鲜花
alexbem
等 级:
新手上路
帖 子:4
专家分:0
注 册:2010-12-12
第
10
楼
收藏
得分:0
不要把问题复杂化了。。用集合。。。
2010-12-12 13:56
举报帖子
使用道具
赠送鲜花
13
1/2页
1
2
快速回复:
VB怎样表达1~100的整数
数据加载中...
关于我们
|
广告合作
|
编程中国
|
清除Cookies
|
TOP
|
手机版
编程中国
版权所有,并保留所有权利。
Powered by
Discuz
, Processed in 0.016628 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved