[用vb程序语言设计一个秒表计时器包括开始停止和调试]Private x As Double Private Sub Form_Load() Timer1.Interval = 100 Timer1.Enabled = False End Sub Private Sub Command1_Click() Timer1.Enabled = True End Sub Priv...+阅读
利用vb控件做个坦克大战类的游戏即可，炮弹和坦克都用控件实现就行。唯一难点是控制控件移动以及炮弹击中目标的碰撞检测判断。给你一个简单实现代码
这是一种碰撞检测方法，下述属于简化的矩形碰撞检测，若是需要复杂碰撞可以用一个数组来记录大量需要碰撞检测的物体
image1里读入坦克的图片 image2里读入地雷的图片
然后用下面代码即可实现
Private Sub Form_KeyPress(KeyAscii As Integer)
'按键盘A和D键控制猫图片image1左右移动
If KeyAscii = 97 Then Image1.Left = Image1.Left - 10
If KeyAscii = 100 Then Image1.Left = Image1.Left + 10
'如果坦克图片与地雷图片相遇则提示碰撞到了
If Image1.Left + Image1.Width >Image2.Left Then
If Image1.Left If Image1.Top + Image1.Height >Image2.Top Then
If Image1.Top MsgBox ＂坦克碰到地雷，已经被炸毁了＂
End If
End If
End If
End If
End Sub
求VB小游戏代码
1个picture控件，一个label控件，一个time控件就完全足够了，呵呵
Public nn As Long
Public n As Long
Public x, y As Long
Private Sub Form_Load()
nn = 0
n = 1
''Picture1(i).Picture = ＂图片地址＂
Picture1(i).Width = 300
Picture1(i).Height = 300
Timer1.Interval = 100
Timer1.Enabled = True
Label1.Caption = 0
Picture1(0).Visible = False
End Sub
Private Sub Picture1_Click(Index As Integer)
nn = nn + 1
Unload Picture1(Index)
Label1.Caption = nn
End Sub
Private Sub Timer1_Timer()
Randomize
x = Int((Form1.Width - 300 + 1) * Rnd + 300)
y = Int((Form1.Height - 1800 + 1) * Rnd + 1000)
Load Picture1(n)
Picture1(n).Left = x
Picture1(n).Top = y
Picture1(n).Visible = True
n = n + 1
if nn>=200 then
timer1.enable=false
''执行语句
end if
End Sub
打窗口上随机出现的砖块游戏
简单的VB语言程序
展开全部
具体要求说的不明，需要什么控件？怎样的操作流程都没有说清楚？只好根据自己的想法写一个简单点的，然后你根据自己情况修改即可。代码如下：
Private Sub Form_Load()
Dim A As Integer, B As Integer, C As Integer
Dim R As Integer, W As Integer, F As Integer
Me.Show
Me.AutoRedraw = True
Randomize
Do
A = Int(10 * Rnd)
B = Int(10 * Rnd)
F = 0 'F用于记录答错次数，答错3次则进入下一题
Do
C = Val(InputBox（＂请输入以下题目的正确答案：＂ & vbCrLf & vbCrLf & A & ＂+＂ & B & ＂=＂， ＂第＂ & R + W + 1 & ＂题＂））
If C = A + B Then
R = R + 1 'R为答对题数
Exit Do
Else
F = F + 1
If F < 3 Then
MsgBox ＂您输入的答案错误。还有＂ & 3 - F & ＂次答题机会。＂， vbInformation， ＂答案错误＂
Else
W = W + 1 'W为答错次数
MsgBox ＂您输入的答案错误，正确答案是＂ & A + B & ＂。进入下一题。＂， vbInformation， ＂答案错误＂
Exit Do
End If
End If
Loop
Me.Cls
Me.Print ＂答对 ＂ & R & ＂ 题，答错 ＂ & W & ＂题。＂
Loop Until R + W = 5 '设置连续出5道题
End Sub
以下为关联文档：
以家为主题设计一个大班结构游戏一、设计意图 建构教材十月主题活动＂美丽的家乡＂正在安吉实验幼儿园大班年级组如荼如火地进行着。孩子们在各种活动中（谈话、参观、语言、绘画等）感受、理解安吉近几年的发展与...
教你如何使用C语言编写简单小游戏编写程序，实现如下表所示的5-魔方阵。 17 24 1 8 15 23 5 7 14 16 4 6 13 20 22 10 12 19 21 3 11 18 25 2 9 5-魔方阵 问题分析 所谓“n-魔方阵”，指的是使用1〜n2共n2个自然...
谁能用C语言设计一个小游戏啊猜数游戏···在规定时间内猜出电脑给出的随机数，练练反应~~~你说什么游戏都可以的啊~ #include ＂time.h＂ #include ＂stdlib.h＂ #include ＂stdio.h＂ #include ＂conio.h＂ main() { ch...
用软梯设计一个体育游戏咱们是同行，我以往上课的话跑步让学生难免会厌烦，没，我觉得可以放音乐跳大众健美操，要是用跑步来热身的话，可以将跑布形式多样化，就像蛇形跑，成螺旋形跑，或是不要绕操场跑，改变一下跑...
让你设计一个庆六一的主题班会你如何设计“庆六一”主题班会 一、 活动目标： 通过开展庆祝“六一”活动，为孩子们提供一个展示的舞台，让 每个孩子个性得到飞扬，潜能得到充分的发挥，在积极的参与中体验成功、合作与交往的...
为一个正常12月的宝宝设计精细动作游戏.运动 扶栏上下楼梯 以前是婴儿拉着父母的手迈上楼梯，现在可以鼓励他（她）自己扶着栏杆迈上楼梯。开始时可让婴儿先从2-3阶楼梯开始练习，父母可在上边用食物或玩具逗引，并给其鼓励...
用C语言编写一个具有简单界面的猜数字游戏分析： 先产生一个随机数N。 然后输入数I，如果i大于N，则提示大于信息。 如果I小于N，则提示小于信息。 直到I==N，则输出成功信息。 这是我用C语言写的。 环境： WIN-C ,TORBO C，如果是...
高级语言程序设计VB(1) Sub Main() Dim 字符串数组（3） As String For I As Integer = 0 To 3 字符串数组（I） = Console.ReadLine Next For Each 字符串 As String In 字符串数组 Console.WriteLine...
计算机初级C语言程序设计就是设计一个简单程序的源代码#include<stdio.h> void main ( ) { double a,b,c,s,v; printf(＂input a,b,c：＂)；//要有引号，不要回车 scanf(＂%lf%lf%lf＂,&a,&b,&c);//double对应%lf long float s=a*b; v=a*b*c; p...
