广告广告
  加入我的最爱 设为首页 风格修改
首页 首尾
 手机版   订阅   地图  繁体 
您是第 3345 个阅读者
 
发表文章 发表投票 回覆文章
  可列印版   加为IE收藏   收藏主题   上一主题 | 下一主题   
reizheu
数位造型
个人文章 个人相簿 个人日记 个人地图
路人甲
级别: 路人甲 该用户目前不上站
推文 x0 鲜花 x1
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片
推文 x0
文章表情[学习] vb 的问题!!!
有谁会用 Rnd 乱数来写一个程式.......

题目:设计一程式,在 TextBox 物件框里输入任一数(不可限制只能输入几位数!!!),按下 command button 物件所做的按钮后,TextBox 物件框里所显现出来的,是将之前所输入的任一数整个倒反过来。

拜托大家帮帮忙,我下星期一就要将这作业交出去了.........,拜托........


献花 x0 回到顶端 [楼 主] From:台湾台湾索尼 | Posted:2006-01-14 18:37 |
真希 手机 会员卡
个人文章 个人相簿 个人日记 个人地图
特殊贡献奖 社区建设奖
头衔:许你一个愿望许你一个愿望
风云人物
级别: 风云人物 该用户目前不上站
推文 x2 鲜花 x399
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

请问您的题目问题是说输入数字到txtbox内
假设为123456789按下BTN后txtbox内为987654321吗?
如果是这样那跟rnd有什么关系呢?

此文章被评分,最近评分记录
财富:30 (by 晨秋) | 理由: 您的热心程度已经到达了匪夷所思的地步了


献花 x0 回到顶端 [1 楼] From:台湾台湾电讯 | Posted:2006-01-16 13:36 |
apen 手机
数位造型
个人文章 个人相簿 个人日记 个人地图
初露锋芒
级别: 初露锋芒 该用户目前不上站
推文 x0 鲜花 x9
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

如果只是要将textbbox内容反转过来,确实跟乱数无关,而是跟字串转换有关。
可以查查看字串的函数。


献花 x0 回到顶端 [2 楼] From:台湾数位联合 | Posted:2006-01-16 23:35 |
真希 手机 会员卡
个人文章 个人相簿 个人日记 个人地图
特殊贡献奖 社区建设奖
头衔:许你一个愿望许你一个愿望
风云人物
级别: 风云人物 该用户目前不上站
推文 x2 鲜花 x399
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

可以使用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 晨秋) | 理由: 感谢您长期以来跨海协助 不胜感激


献花 x0 回到顶端 [3 楼] From:台湾台湾电讯 | Posted:2006-01-17 11:41 |
gvh87019 手机
数位造型
个人文章 个人相簿 个人日记 个人地图

小人物
级别: 小人物 该用户目前不上站
推文 x0 鲜花 x19
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

嗯嗯

楼上的大大写的真好


献花 x0 回到顶端 [4 楼] From:台湾中华电信 | Posted:2006-01-18 22:07 |
fanchen
数位造型
个人文章 个人相簿 个人日记 个人地图
路人甲
级别: 路人甲 该用户目前不上站
推文 x0 鲜花 x0
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

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 上跑会有问题


献花 x0 回到顶端 [5 楼] From:台湾中华电信 | Posted:2006-02-18 22:36 |
雷帝斯洛
个人头像
个人文章 个人相簿 个人日记 个人地图
初露锋芒
级别: 初露锋芒 该用户目前不上站
推文 x0 鲜花 x31
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

net和6的物件名称并不是完全相同的…


献花 x0 回到顶端 [6 楼] From:台湾中华电信 | Posted:2006-07-25 11:03 |

首页  发表文章 发表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.082755 second(s),query:16 Gzip disabled
本站由 瀛睿律师事务所 担任常年法律顾问 | 免责声明 | 本网站已依台湾网站内容分级规定处理 | 连络我们 | 访客留言