怎么用VB做简单游戏，菜鸟问题
就是那种出现一组图片，然后消失，在原来图片的地方出现COMMAND，再旁边出现一张其中的照片，让游戏者点出这张图片的位置，就是考记忆力的那种游戏。谢谢，用最简单的语句来编写。
1、假设一共有9张图片
X X X
X X X
X X X
一般来讲,你可以定义一个数组.
Option Base 1 '从1开始
X(1,1) X(1,2) X(1,3)
X(2,1) X(2,2) X(2,3)
X(3,1) X(3,2) X(3,3)
2、显示这些图片之后,"消失"并不卸载,而是隐藏.
3、同理,定义一个Command控件数组.
4、接下来的就是关键了:
随机抽取一张图片,如果它的数组索引和Command数组索引相同,那么,说明,玩家答对了.
还有疑问联系我：w_binglong@163.com
怎么用VB做简单游戏,菜鸟问题
1、假设一共有9张图片 X X X X X X X X X 一般来讲,你可以定义一个数组.Option Base 1 '从1开始 X(1,1) X(1,2) X(1,3)X(2,1) X(2,2) X(2,3)X(3,1) X(3,2) X(3,3)2、显示这些图片之后,"消失"并不卸载,而是隐藏.3、同理,定义一个Command控件数组.4、接下来的...
我菜鸟,要用VB做一个简单东西 就是点击一个按钮 自动登录网页 (完成账号...
这个要用Wscript.Shell对象,能模拟键盘操作,如 dim program1 program1="D:\\Program Files\\Tencent\\coralQQ.exe"set wshshell=CreateObject("WScript.shell")set oexec=wshshell.exec(program1)WScript.sleep 2000 wshshell.appactivate "QQ登录"wshshell.sendkeys "+{TAB}"wshshell.sendkeys "88889999"WScr...
VB怎么用,我是菜鸟级的
1.x = “ 不合格 ” Int(Rnd) 是去小于1大于0的整数所以是0 2.x=24 相当于：x = 4 For j = 1 to 4 x = x + 5 Next j 即是：4+5+5+5+5 3.600.4 4.34 a(1)=2 a(2)=3 ..a(9)=10 p(1)=2 p(2)=a(4)=5 p(3)=a(9)=10 x =4+10+20 5.20 10...
VB关于排序的菜鸟问题
Private Sub Form_Click()Dim a()a = Array(7, 4, 9, 8, 6, 1)n = 5 'n为数组元素的下标 For i = 0 To n - 1 s = i For j = n To i + 1 Step -1 If a(s) < a(j) Then s = j Next j t = a(i): a(i) = a(s): a(s) = t Next i For i = ...
vb代码解说,解说语句含义,详细!我菜鸟中的菜鸟
Command5_Click '调用Command5_Click过程（按钮Command5的鼠标左键单击过程）End Sub Private Sub Command3_Click()'按钮Command3鼠标左键单击过程 Adodc1.RecordSource = "select * from 实验 where 货物编号 like '%" & Trim(Val(Text1.Text)) & "%'" 'Adodc1控件的数据源设置为：从表“实验...
一个关于VB查找的菜鸟问题
RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1 将开始查找的位置定位到光标以后即开始查找下一个的位置 RichTextBox1.find sfind, , Len(RichTextBox1)在上一句定义的起始位置和整个文本末尾之间查找sfind 中间那个空着的参数应该默认是“从光标处开始查找”...
VB的一个菜鸟问题
Load()过程中起作用，所以在Command1_Click()过程中所取得的值是n的初始值。正确的思路应该是这样：'\/\/ 这是在窗体头上定义的 Dim n as integer Private Sub Form_Load()'\/\/ 这里赋初值 n = 1 End Sub Private Sub Command1_Click()'\/\/ 这里显示它的值 Msgbox n End Sub ...
用VB编程,怎么编译 菜鸟一只,求高手指教
文件-＞生成xxx.exe
VB FOR循环菜鸟问题
在第一层循环，你的x始终是等于4，所以相当于没循环一样,就等价于给x赋值4 所以原程序等价于:x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j 同理，第二层循环x也是定植，所以也相当于给x赋值，所以源程序等价于:x = 4 x = 3 For k = 1 To ...
VB6.0的菜鸟问题
就是每隔一段时间 就执行一次代码～如 Private Sub Form_Load()Timer1.Interval = 500 ’设置每一次执行的间隔 ’这里500代表半秒钟 End Sub Private Sub Timer1_Timer()Print "hello"End Sub ’效果为 每半秒钟在屏幕上打印hello 不知道懂了么？
