您尚未
登入
注册
忘记密码
搜寻
赞助
赞助本站
数位公仔
纪念T恤
纪念马克杯
广告
刊登广告
广告价格
线上申请刊登
用雅币刊登
免费刊登
目前客户
简讯
简讯说明
购买金币
发送简讯
预约简讯
发送记录
好友通讯
罐头简讯
论命
数位论命馆
免费排盘工具
葫芦墩 优生造命
葫芦墩 八字命书
影音论命(葫芦墩)
影音占卜(葫芦墩)
购买金币
星座分析
孔明神数
周公解梦
星侨线上论命
娱乐
影 像 行 脚
数 位 造 型
数 位 画 廊
心 情 日 记
公 益 彩 券
送生日蛋糕
俄罗斯方块
四 川 省
猜 数 字
比 大 小
泡 泡 龙
许 愿 池
万 年 历
经 期 计 算
体 重 测 量
音 乐 点 播
卫 星 地 图
时间戳字幕
男女聊天室
求助
论坛守则
会员等级
会员权限
语法教学
常见问题
最新活动
打工赚雅币
首页
新版首页(全页)
传统首页(全页)
新版首页(选单)
传统首页(选单)
MyChat 数位男女
命理风水
15
星侨五术软体
4
葫芦墩命理网
5
命理问答
9
四柱八字
1
紫微斗数
1
姓名学
手面相
易经占卜
1
风水研讨
1
择日&三式
1
西洋占星
无视论塔罗牌
10
修行&武术
1
中医研讨
五术哈啦
1
电脑资讯
13
硬体讨论
5
超频 & 开箱
3
数位生活
2
PDA 讨论
手机讨论区
软体推荐
2
软体讨论
6
Apple 讨论
1
Unix-like
网路&防毒
2
程式设计
网站架设
4
电脑教学资源
生活休闲
14
休闲哈啦
7
感情世界
2
上班一族
5
国考&法律
7
生活医学
4
运动体育
1
单车讨论
1
钓鱼讨论
6
旅游讨论
4
天文观星
3
摄影分享
8
图片分享
4
数位影视
2
笑话集锦
3
兴趣嗜好
13
文学散文
7
绘图艺术
1
布袋戏
3
动漫画讨论
3
美食天地
6
理财专区
心理测验
1
汽、机车
3
宠物园地
模型&手工艺
4
花卉园艺
魔术方块
独轮车专区
电玩游戏
13
游戏欢乐包
4
CS讨论
8
Steam
3
MineCraft
2
东方Project
英雄联盟LOL
1
单机游戏
2
WebGame
3
线上游戏1
6
线上游戏2
5
电视游乐器
1
掌上型游戏
2
模拟器游戏
1
工商服务
6
虚拟城市
7
好康分享
新品贩售
二手拍卖
1
租屋&找屋
工商建议区
1
站务专区
10
最新活动
活动成果
数位造型
心情日记
个人图库
新人报到练习
论坛问题建议
1
荣会及电子报讨论
-最近版区-
-最近浏览-
»
生活休闲
休闲哈啦
感情世界
上班一族
国考&法律
生活医学
运动体育
单车讨论
钓鱼讨论
旅游讨论
天文观星
摄影分享
图片分享
数位影视
笑话集锦
»
休闲哈啦
网友自唱
网友自拍
公益互助
好站推荐
诈骗资讯
不爽发泄(儿童不宜)
哈啦旧文区
»
哈啦旧文区
»
vb 的问题!!!
手机版
订阅
地图
繁体
您是第
3303
个阅读者
可列印版
加为IE收藏
收藏主题
上一主题
|
下一主题
reizheu
级别:
路人甲
x0
x1
分享:
▼
x
0
[学习] vb 的问题!!!
有谁会用 Rnd 乱数来写一个程式.......
题目:设计一程式,在 TextBox 物件框里输入任一数(不可限制只能输入几位数!!!),按下 command button 物件所做的按钮后,TextBox 物件框里所显现出来的,是将之前所输入的任一数整个倒反过来。
拜托大家帮帮忙,我下星期一就要将这作业交出去了.........,拜托........
x
0
[楼 主]
From:台湾台湾索尼 |
Posted:
2006-01-14 18:37 |
真希
许你一个愿望
级别:
风云人物
x2
x399
分享:
▲
▼
请问您的题目问题是说输入数字到txtbox内
假设为123456789按下BTN后txtbox内为987654321吗?
如果是这样那跟rnd有什么关系呢?
此文章被评分,最近评分记录
财富:30 (by 晨秋) | 理由:
您的热心程度已经到达了匪夷所思的地步了
x
0
[1 楼]
From:台湾台湾电讯 |
Posted:
2006-01-16 13:36 |
apen
级别:
初露锋芒
x0
x9
分享:
▲
▼
如果只是要将textbbox内容反转过来,确实跟乱数无关,而是跟字串转换有关。
可以查查看字串的函数。
x
0
[2 楼]
From:台湾数位联合 |
Posted:
2006-01-16 23:35 |
真希
许你一个愿望
级别:
风云人物
x2
x399
分享:
▲
▼
可以使用Mid 和 for回圈搭配取出字串
Private Sub Command1_Click()
Label1.Caption = ""
For Y= Len(Text1.Text) To 1 Step -1
Label1.Caption = Label1.Caption & Mid(Text1.Text,Y 1)
Next
End Sub
这部分不一定使用Mid主要是for回圈怎么去定义而已
用right去搭配回圈将字串从最后方去一个一个取回
也是一个方法
此文章被评分,最近评分记录
财富:30 (by 晨秋) | 理由:
感谢您长期以来跨海协助 不胜感激
x
0
[3 楼]
From:台湾台湾电讯 |
Posted:
2006-01-17 11:41 |
gvh87019
级别:
小人物
x0
x19
分享:
▲
▼
嗯嗯
楼上的大大写的真好
x
0
[4 楼]
From:台湾中华电信 |
Posted:
2006-01-18 22:07 |
fanchen
级别:
路人甲
x0
x0
分享:
▲
▼
Private Sub Command1_Click()
Label1.Caption = ""
For Y= Len(Text1.Text) To 1 Step -1
Label1.Caption = Label1.Caption & Mid(Text1.Text,Y 1)
Next
End Sub
这段程式在VB.NET 上跑会有问题
x
0
[5 楼]
From:台湾中华电信 |
Posted:
2006-02-18 22:36 |
雷帝斯洛
级别:
初露锋芒
x0
x31
分享:
▲
net和6的物件名称并不是完全相同的…
㊖记帐士同ya✌公会㊑
x
0
[6 楼]
From:台湾中华电信 |
Posted:
2006-07-25 11:03 |
MyChat 数位男女
»
哈啦旧文区
Powered by
PHPWind
v1.3.6
Copyright © 2003-04
PHPWind
Processed in 0.072786 second(s),query:16 Gzip disabled
本站由
瀛睿律师事务所
担任常年法律顾问 |
免责声明
|
本网站已依台湾网站内容分级规定处理
|
连络我们
|
访客留言