bshy.net
当前位置:首页>>关于vb 猜数游戏 计算机随机生成一个1~100之间的整数(...的资料>>

vb 猜数游戏 计算机随机生成一个1~100之间的整数(...

1、我仔细看了下,发现这段语句没什么用: If i = 5 Then Exit Sub End If 因为i=5时,for循环也结束了,所以有没有这段循环都会结束。所以这段代码可以删除了,当然不删也不影响,考虑到代码的质量的话,删去吧。 2、我估计你是想在这里加入一...

count++;(guess==number)||(guess==-1)

'两个文字列表框,一个文本框,两个按钮Dim k As BooleanPrivate Sub Command1_Click() '产生一个随机数 Text1 = "" Label1 = "" Label2 = "请在框中输入数字,按回车键猜数" k = False Do While k = False Label1 = Int(100 * Rnd()) '产生的随...

已发送你邮箱! 求采纳

先说程序的错误 1.把Int((10 * Rnd) + 1)放到CMD1里 也就是每点一次产生的数都不一样 怎么猜啊 2.没加计数器,不能判断出猜了几次 所以修改后的代码: 加一个按钮CMD2,用来重新产生随机数,进行新一轮猜数 Dim x As Integer, y As Integer, z As...

添加两个按钮(一个是 “生成一个数”,另一个是 “猜测”),一个label1,一个text1 所有 代码如下: Dim a As Integer, b As Integer Private Sub Command1_Click() '生成一个数 按钮 Label1.Visible = False 'label1 不可见 Randomize a = Int(4 *...

Dim state As Integer '状态 0表示没开始 1表示已开始 Dim min As Integer '最小值 Dim max As Integer '最大值 Dim now As Integer '中值 Dim c As Integer '猜的次数 Private Sub Command1_Click() '开始 state = 1 Guess End Sub Private Sub...

窗体上放command1,text1,label1,打开代码窗口,复制下列代码: Private Num As Integer Private Sub Command1_Click() '点击猜下一个数 Call Form_Load Text1.Text = "" End Sub Private Sub Form_Load() Num = Rnd() * 100 + 1 '产生1-100随...

OK 我发给你 .

网站首页 | 网站地图
All rights reserved Powered by www.bshy.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com