[用C语言编一个迷宫程序]-# --------### # ## # # ### ----# # #-## # # # #### #### # ## ## #-# ## # # # #---# ## # ## # # # # -# ### ## #### ## # # ----# # # ## # # # ## ### ## -# --# --...+阅读
'窗体添加label1控件，将index属性设置为0，使成为控件数组，再添加timer1控件
Option Explicit
Private Declare Function GetAsyncKeyState Lib ＂user32＂ (ByVal vKey As Long) As Integer
Dim m As Integer
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim j As Integer
If KeyAscii = 13 Then
Timer1.Enabled = True
ElseIf KeyAscii = 27 Then 'ESC暂停
Timer1.Enabled = False
ElseIf Timer1.Enabled = True Then
For j = 0 To 9
If Label1(j).Caption = UCase(Chr(KeyAscii)) Then
m = m + 1
If m = 30 Then Me.Caption = ＂第1级＂
If m = 60 Then Me.Caption = ＂第2级＂
If m = 90 Then Me.Caption = ＂第3级＂
Label1(j).Top = 0
Exit For
End If
Next
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 9
Load Label1(i)
Label1(i).Visible = True
Next
For i = 0 To 9
Label1(i).Top = 0
Next
Timer1.Enabled = False
Timer1.Interval = 100
Label1(0).Caption = ＂按回车开始游戏＂
Me.Caption = ＂第0级＂
End Sub
Private Sub Timer1_Timer()
Static n As Integer
Dim i As Integer
If n = 10 Then
MsgBox ＂游戏结束＂
Timer1.Enabled = False
End If
For i = 0 To 9
If Label1(i).Top > Form1.Height Then
Label1(i).Top = 0
Randomize
Label1(i).Caption = Chr(Int(Rnd * 26 + 65))
n = n + 1
ElseIf Label1(i).Top = 0 Then
Randomize
Label1(i).Caption = Chr(Int(Rnd * 26 + 65))
Label1(i).Top = Label1(i).Top + 100
Else
Label1(i).Top = Label1(i).Top + 100
End If
Next
End Sub
用VB语言编写一个猜数字的游戏
View.Enabled = False End Sub Private Sub New_Click（) 注释：开始一个新游戏时 View.Enabled = True 注释：可以看答案 List1.Clear 注释：清空列表框 Degree = 0 注释： 对随机数生成器做初始化 Randomize Num = 1 Label1.Caption = 0 & “A＂ & 0 & “B＂ 注释：电脑给出的每一位数 PcA = Int(9 * Rnd) Do PcB = Int(9 * Rnd) Loop While PcB = PcA Do PcC = Int(9 * Rnd) Loop While PcC = PcA Or PcC = PcB Do PcD = Int(9 * Rnd) Loop While PcD = PcA Or PcD = PcB Or PcD = PcC For i = 0 To 9 Command1(i).Enabled = True Next i Command2.Enabled = False Command3.Enabled = True End Sub Private Sub Command1_Click(Index As Integer) 注释：用户输入时 注释：使得输入过的按钮无效 If Num <= 4 Then Command1(Index).Enabled = False End If 注释：判断用户输入了几位，如果输入了四位则确认按钮有效 If Num = 4 Then Command2.Enabled = True End If 注释：取得用户输入 Select Case Index Case 0 UserEnter (0) 注释：调用UserEnter过程 Case 1 UserEnter
(1) Case 2 UserEnter
(2) Case 3 UserEnter
(3) Case 4 UserEnter
(4) Case 5 UserEnter
(5) Case 6 UserEnter
(6) Case 7 UserEnter
(7) Case 8 UserEnter
(8) Case 9 UserEnter
(9) End Select End Sub Private Sub Command2_Click（) 注释：单击确定按钮时 注释：判断用户输入是否正确 Dim A, B As Integer
帮忙用vb语言编一个剪刀石头布游戏
两个LABEL 三个COMMAND 复制代码，就可以了 '-1石头 '0剪刀 '1布 Private Sub Command1_Click() Dim a, b As Integer Randomize a = -1 b = Int(Rnd * (-3) + 2) Label1.Caption = ＂石头＂ Select Case a - b Case -2: Label2.Caption = ＂布＂： MsgBox ＂电脑胜＂ Case 0: Label2.Caption = ＂石头＂： MsgBox ＂平＂ Case -1: Label2.Caption = ＂剪刀＂： MsgBox ＂玩家胜＂ End Select End Sub Private Sub Command2_Click() Dim a, b As Integer Randomize a = 0 b = Int(Rnd * (-3) + 2) Label1.Caption = ＂剪刀＂ Select Case a - b Case 1: Label2.Caption = ＂布＂： MsgBox ＂玩家胜＂ Case 0: Label2.Caption = ＂剪刀＂： MsgBox ＂平＂ Case -1: Label2.Caption = ＂石头＂： MsgBox ＂电脑胜＂ End Select End Sub Private Sub Command3_Click() Dim a, b As Integer Randomize a = 1 b = Int(Rnd * (-3) + 2) Label1.Caption = ＂布＂ Select Case a - b Case 2: Label2.Caption = ＂石头＂： MsgBox ＂玩家胜＂ Case 0: Label2.Caption = ＂布＂： MsgBox ＂平＂ Case 1: Label2.Caption = ＂剪刀＂： MsgBox ＂电脑胜＂ End Select End Sub Private Sub Form_Load() Command1.Caption = ＂石头＂ Command2.Caption = ＂剪刀＂ Command3.Caption = ＂布＂ End Sub
如何编写一套完整的VB小游戏程序
楼上的朋友所说个人认为一些纰漏.
第一，不要在设计时经常改动设计方案，否则工期会延误. 难道在编码和设计的时候经常改动？ 在设计的时候改动与后期的改动谁会带来比较大的损失呢？况且软件危机是怎样产生的？ 这是软件工程出现的原因吧，所以首先分析好你的游戏框架，多花时间分析上！.
第二，网络版则必须写 软件设计概要书 和 用户使用说明书...任何上规模的软件项目可以不写说明书？ 具体点吧，保留下最本质的数据流图，更多的文档资料所带来的结果就是让你的软件更容易维护，即可测性，可修改性，可理解性都必须具备..
如果只是几百或者1千行并且不是太复杂的小游戏的话，并且不希望非常大的扩展下去，那就随便画画草图脑子有个大概思路就差不多可以开始了.
如果楼主想用vb做，那可能不太合适，本人也只是用过它做过一些俄罗斯方块，贪食蛇之类的小游戏还有类似斗地主那样的牌类游戏.
简单的说吧，首先你要知道你想做什么，并且可以用VB实现吗？如果可以继续分析，怎样做？ 用什么样的技术？等确定了之后，大概的将编码写在纸上，如果自己觉得逻辑合适就将其输入电脑运行之，并在输入电脑运行之后不段调试尽量多找一些难发现的错误..
以下为关联文档：
C编程问题：编一个迷宫游戏程序在书找的，只打了个结构体（太多了），我利用stack做的！希望能对你有所帮助！程序如下： typedef struct{ int ord；//通道块的路径上的序号 PosType seat；//通道块在迷宫的坐标位置 int di；/...
C语言编程题编一个排序函数啊用了一个冒泡法，从小到大排序，请参考 #include <stdio.h> void Sort(int token[], int count)； /*在此处做函数声明最好*/ void main() { int i,count,token[100]; printf（＂请输...
C语言编程题编一个排序函数啊！例子，下面是冒泡排序代码： token[] = { 6, 2, 5, 8, 4, 3, 7 }; for (int r = 0; r < count - 1; r++)//比较的轮数 { //次数：元素总数-当前轮数 r+1 for (int c = 0; c < int...
怎么用c语言编程一个分段函数实验报告 1、有一分段函数： 设计一程序完成， 主控函数main（)输入X的值并输出Y值.函数VAL计算Y的值。 1.需求规格说明 本题要求掌握C语言的数据类型，程序结构，基本输出输入，函数应...
用C语言编个小游戏// pukepai.cpp ： 定义控制台应用程序的入口点。 // #include ＂stdafx.h＂ #include#include#define N 100 #define M 21 void swapnum(int n, int m) { int tmp = 0; tmp = n;...
求用C语言编一个猜数字游戏#include <stdio.h> #include <stdlib.h> int main() { int a,b,math,c; char f; printf（＂开始游戏？y/n＂）; scanf(＂%c＂,&f); switch(f){ case('y'): printf（＂请输入数字。＂）； b=1+rand()...
C语言编程编一个可以将任意一个正整数按三位分节输出如输入我的楼..... #include <stdio.h> void main() { int i=0,k=0,t; char str[20]; scanf(＂%d＂,&t); while(t) { if(k==3) { k=0; str[i++]=','; } else { k++; str[i++]=t%10+'0'...
用C编程工具：猜数游戏程序产生一个1到100之间的随机整数并提这么简单还用问？#include #include #include usingnamespacestd; constintTIMES=7; intmain() {; boolcorrect=false; intsecret=0; intguess=0; do{ correct=false; srand((...
用C语言为手机游戏编程晕 C语言可以编手机游戏. 你叫他去死 不过我这有 贪吃蛇的代码，你倒可以看看 （用TC 编译一定过） #include#include#include#include#include#define Enter 7181 #define ESC 28...
