level 5
我要做一个猜数字游戏,答案数字通过点击Form1给出,猜的时候输入数字并点击Command1确认,这样Command1就需要将我猜的数字跟Form1给出的数字进行比对,自然Command1和Form1要用到同一个变量key_num。请问如何使key_num能让Command1和Form1共同使用?
2020年08月07日 11点08分
1
level 15
变量作用域的常识先学习一下
在“通用-声明”区域用Private来定义变量key_num即可(Private也可以写成Dim)
2020年08月07日 11点08分
2
level 12
模块上函数体外面用dim戓者private声明的变量当前模块任何地方都可以访问到。在标准模块中用public声明的变量整个工程任意模块任何地方都可以访问到。
2020年08月07日 15点08分
3
level 5
难道是我没理解问题?难道不是form1生成个数赋值key_num,用自己输入的数跟keynum比较,if = 正确,if<小了,if>大了?
2020年08月08日 11点08分
4
你声明一个【窗体级】全局变量就搞定了。也就是说,在程序代码最前面,不进入任何程序块,就用【Dim KK As Integer】声明变量,那么这个【KK】就可以在本窗体的任何程序块中【携带数值游走】。
2020年08月10日 02点08分
这个猜数字游戏没有“小了、大了”那么简单。
2020年08月11日 07点08分
@抠脽酝jq87 我觉得楼主已经把他要问的问题说清楚了,又不是要找人代做程序,干嘛要说清楚完整的题目?
2020年08月18日 02点08分
level 9
给个提示
Private Sub Form_Load()
Dim num%, inp%, i%
num = 1000 * Rnd + 1
For i = 0 To 10000
inp = Val(InputBox("猜数字:"))
If inp < num Then MsgBox "猜小了!", 64
If inp > num Then MsgBox "猜大了!", 64
If inp = num Then
MsgBox "对了!", 64
Exit For
End If
Next
End Sub
2020年08月11日 13点08分
6
这样的话一个控件也不要,甚至你可以在next后面换行写end
2020年08月11日 13点08分
我当时不知道有全局变量这回事,现在我用全局变量,已经编好了。我说你怎么知道我这个猜数字是怎么个猜法?不是大了小了这么简单的。
2020年08月17日 08点08分
@抠脽酝jq87 说到猜数字游戏,我的第一反应是这样一个游戏:有4个不重复的数字,让你猜,每次猜了之后会告诉你有几个数字完全正确(数字正确并且位置也正确),有几个数字出现了但是位置不对;这个游戏我自己也写过的
2020年08月18日 02点08分