| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 418 人关注过本帖
标题:又做不出来了 来帮我分析哈撒
只看楼主 加入收藏
cqlan006
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2007-2-13
收藏
 问题点数:0 回复次数:4 
又做不出来了 来帮我分析哈撒

Private Sub Form_Load()
Text1.Text = ""
Command1.Caption = "单击"
End Sub

Private Sub Label1_change()
Label1.Caption = x
End Sub


Private Sub Label2_change()
Label2.Caption = y
End Sub

Private Sub Label3_change()
Label3.Caption = z
End Sub

Private Sub command1_Change()
Randomize
Dim n As Integer, x As Integer, y As Integer, z As Integer
x = Int((n - 1 + 1) * Rnd + 1)
y = Int((n - 1 + 1) * Rnd + 1)
z = Int((n - 1 + 1) * Rnd + 1)
End Sub

2007-02-15 14:12
cqlan006
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2007-2-13
收藏
得分:0 
问题简单了 就没人愿意来看看?
2007-02-15 15:14
找不到服务器
Rank: 4
等 级:贵宾
威 望:12
帖 子:2937
专家分:1
注 册:2006-8-29
收藏
得分:0 
[QUOTE]Private Sub command1_Change()
[/QUOTE]
按钮控件没有Change事件吧,你这个command1是什么事件?要分析什么?

史上点击数最高的贴
http://bbs.bccn.net/thread-146005-1-1.html
2007-02-15 15:34
cqlan006
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2007-2-13
收藏
得分:0 

在指定范围内产生3个随机整数,范围n在文本框中输入,3个随机整数显示在3个标签上

2007-02-15 16:02
Kendy123456
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:62
帖 子:2720
专家分:0
注 册:2007-1-3
收藏
得分:0 
1. n没有赋值 也就是0 那n-1+1就是0 乘rnd也还是0...你这样是弄不出随机数的
2. label和command button都不存在change事件

你应该把你所谓的label的change和command的change中的代码 统统都放到command的click事件中去.

click事件的代码应该如下: (俺偷下懒了 )
dim x,y,z,n
randonmize
n=...
x = ...
y=..
z=...

label1.text = cstr(x)
label2.text = cstr(y)
label3.text = cstr(z)

2007-02-15 17:48
快速回复:又做不出来了 来帮我分析哈撒
数据加载中...
 
   



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

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