55问答网
所有问题
当前搜索:
怎么用vb程序做游戏
vb
猜数字
游戏程序
编写
答:
编写的时候遇到了几个问题,希望可以帮我解决一下 1.
怎样用
随机函数产生一个1~10之间的整数 2.怎么才能使在输入三次数字后结束
程序
。 以下是我的代码 Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer Dim myvalue myv... 展开 p.s.如果可以帮我修改一下代码就更好了~~有...
帮我
用vb
编写一个猜数字的
小游戏
,数字1到100,
程序
语言3到5行即可...
答:
Private Sub Command1_Click()Dim a As Long a = Rnd * 100 MsgBox IIf(a = Val(Text1), "你猜对了,数字是:" & a, "你猜错了,正确答案是:" & a)End Sub
用VB做
石头剪刀布
游戏
答:
这是一个很简单的
游戏
。大致流程如下:在点击下picture的时候,生成一个1-3随机数(也就是电脑出的),可以把石头、剪刀、布分别看作0、1、2然后用if来进行判断,最后记下胜负。代码如下:请在
程序
目录下放上三个jpg图片名为“剪刀”、“石头”、“布”picture123的图片请自己在属性列表中设置,pict...
帮忙
用vb
语言编一个与电脑玩剪刀石头布
游戏
。(控制台
程序
)这是我的代码...
答:
两个vLABEL 三e个fCOMMAND 复制代码,就可以4了t '-2石头 '0剪刀u '3布 Private Sub Command3_Click() Dim a, b As Integer Randomize a = -6 b = Int(Rnd * (-3) + 7) Label0。Caption = "石头" Select Case a - b Case -7: Label8。Caption = "布": MsgBox "电脑胜" ...
如何用VB程序
设计打地鼠
游戏
答:
Private Sub new_
game
_Click() num = num + 1 Dim t As Integer If (num > 0) Then t = MsgBox("
新游戏
开始之前,是否保存",
vb
YesNo, "保存提示") If t = 6 Then flags1 = True If Timer1.Interval = 1000 Then Open "C:\Users\Administrator\Desktop\打地鼠\primary.dat" For...
我想
用VB
和3DSMAX一起做一个简单的3D
小游戏
,请问
怎么做
?
答:
Set Mesh = Scene.CreateMeshBuilder '定义Mesh对象为TVMesh的一个实例,用Scene的CreateMeshBuilder方法生成 Scene.SetSceneBackGround 1, 0, 0 '设置背景颜色 Mesh.CreateTeapot '建立茶壶模型 Mesh.SetPosition 0, 0, 10 'Z越小,图像越大 Form1.Show Do '开始进入
游戏
循环 DoEvents '用DoEvents...
用VB怎么做
一个
小游戏
啊?
答:
ClassNames(i)返回的是类名,所以你可以用instr函数查找你需要的ATO...另外这个示例是以窗口标题查找的,比如我这是打开“我的电脑”就可以运行下面示例最后说明这个是网友Seneal的,我只是引用和解释---PrivateSubForm_Load()GetChildWindowFindWindow(
vb
NullString,Trim("我的电脑")) 已赞过 已踩过< 你对这个...
vb程序
设计 猜数
游戏
答:
" Text1.Enabeld = False Command1.Enabled = True Exit Sub End If If Val(Text1.Text) = a Then Command1.Enabled = True Label2.Caption = "正确" ElseIf Val(Text1.Text) < a Then Label2.Caption = "太小" b = b + 1 ElseIf Val(Text1.Text) > ...
VB
猜数字
游戏程序
代码
答:
Option ExplicitPrivate Sub Command1_Click()On Error Resume NextDim I As IntegerI = MsgBox("下面
游戏
开始,你准备好了吗?",
vb
YesNo)If I = 6 Then Frame1.Visible = True: Text1 = "" Else Frame1.Visible = FalseText1.SetFocusRandomize (Timer)Text2 = Int(Rnd() * 10) + 1...
做一个
VB
的
小游戏
,难度不用太高,
程序
十句左右就够了,只要简单的和case语...
答:
' 锤子剪刀布 Private Sub Command1_Click()Iguess = Int(Rnd * 3) + 1 Do YouGuess = Val(InputBox("我已想好了,你出什么?(1=锤子, 2=剪刀,3=布:", "猜拳"))Loop Until YouGuess <= 3 And YouGuess >= 1 If Iguess = YouGuess Then k = 1 ElseIf Iguess < YouGuess...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
用vb做的程序怎么调试
怎么用vb做有趣小程序
vb程序题怎么做
vb程序阅读题怎么做
vb程序填空题怎么做
用vb做excel外接程序
用vb做一个点菜程序
用vb做一个抽奖程序
vb可以做什么小程序