vb小游戏自己做

这款猜数字小游戏的游戏规则:点击“开始游戏/重置”随机生成四位数(各位上的数互不相同),在四个输入框中输入你猜的数字,点击“确定”,会显示提示,根据提示继续奋斗吧!

操作方法

  • 01

    打开vb6.0,如图设计Form1界面 Form1 的 BorderStyle属性设为3-…… Command1 为 开始游戏/重置 Command2 为 确定 Command3 为 退出 Command4 为 显示答案 Command5 为 清除数字 Command6 为 清空提示框 Text1至4 为 依次从左到右的4个输入框,设Font属性为宋体,加粗,四号 Text5 为 大提示框,Scrollbars属性设置为2-Vertical,MultiLine 属性为true Label1 为 显示答案的提示框

  • 02

    添加Form2 Form1 的 BorderStyle属性设为3-…… Label1的Caption改为 请输入数字 Font属性为宋体,加粗,一号

  • 03

    Form1中输入代码 Private Sub Command2_Click() Dim h As Integer, j As Integer h = 0 j = 0 If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then Form2.Show Else Open "C:\Users\Administrator\Documents\游戏.txt" For Input As #1 d = Input(1, #1) e = Input(1, #1) f = Input(1, #1) g = Input(1, #1) If d <> Text1.Text Then h = h Else: h = h + 1 End If If e <> Text2.Text Then h = h Else: h = h + 1 End If If f <> Text3.Text Then h = h Else: h = h + 1 End If If g <> Text4.Text Then h = h Else: h = h + 1 End If If d = Text1.Text Or d = Text2.Text Or d = Text3.Text Or d = Text4.Text Then j = j + 1 End If If e = Text1.Text Or e = Text2.Text Or e = Text3.Text Or e = Text4.Text Then j = j + 1 End If If f = Text1.Text Or f = Text2.Text Or f = Text3.Text Or f = Text4.Text Then j = j + 1 End If If g = Text1.Text Or g = Text2.Text Or g = Text3.Text Or g = Text4.Text Then j = j + 1 End If Text5.Text = Text5.Text & "有" & h & "个位置对了," & "包含" & j & "个相同数字" & vbCrLf End If Close End Sub Private Sub Command3_Click() End End Sub Private Sub Command1_Click() Dim w As Integer Dim x As Integer Dim y As Integer Dim z As Integer Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Label1 = "" Text5.Text = "" Dim b As String a = a + 1 Randomize If a = 0 Then Command2.Enabled = False Else Command2.Enabled = True End If w = Int(Rnd() * 9 + 1) x = Int(Rnd() * 9 + 1) y = Int(Rnd() * 9 + 1) z = Int(Rnd() * 9 + 1) Do While w = x Or w = y Or w = z Or x = y Or x = z Or y = z w = Int(Rnd() * 9 + 1) x = Int(Rnd() * 9 + 1) y = Int(Rnd() * 9 + 1) z = Int(Rnd() * 9 + 1) Loop b = w * 1000 + x * 100 + y * 10 + z Open "C:\Users\Administrator\Documents\游戏.txt" For Output As #1 Print #1, b Close End Sub Private Sub Command4_Click() Dim i As Single Open "C:\Users\Administrator\Documents\游戏.txt" For Input As #1 i = Input(4, #1) Label1 = i Close End Sub Private Sub Command5_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub Private Sub Command6_Click() Label1 = "" Text5.Text = "" End Sub Private Sub Form_Load() Dim a As Integer If a = 0 Then Command2.Enabled = False Else Command2.Enabled = True End If End Sub

  • 04

    打开“文档”,新建txt文档,重命名“游戏”

(0)

相关推荐

  • 怎么用C语言做简易小游戏(2048开发)

    问:C语言都学了这么久了,怎么连个小游戏都做不了? 答:主要是C语言中的库函数并没有完全掌握,只凭着基础语法很难做出游戏的. 问:我想做个游戏界面,怎么办? 答:如果你有图形库的话可以使用 #incl ...

  • 微信小程序能做游戏吗?微信小程序可以做什么?

    历经一年的等待后,小程序在2017年1月9日凌晨终于揭开神秘面纱,正式上线,那么有不少网友朋友问微信小程序能做游戏吗?微信小程序可以做什么?微信小程序能提供/不提供什么功能?下面我们的小编带来微信小程 ...

  • 内科医生做手术小游戏攻略

    这是一款很好玩的休闲小游戏,游戏讲述的是现在你是一名内科医生助理,今天你们接到一名叫凯文的男子,他不小心把危险品给吞到了肚子里,现在你要作的就是协助你的主治医生给病人进行一个胃部手术,并且取出危险物品 ...

  • PowerPoint2003做个迷宫小游戏

    PowerPoint已经成为了各种交流不可缺少的软件.它用于教师上课,用于行业交流等展示手法.而随着时代的不断变化,PPT2003已经被2007等更容易用的软件代替了.但是PPT2003还是很好用的, ...

  • 给自己做蛋糕小游戏攻略

    给自己做蛋糕小游戏,想吃茶杯蛋糕?别指望外面的有多合你口味了,还是自己试着给自己做一份吧.来试试看. 步骤/方法 01 鼠标点击"play"进入游戏. 02 游戏开始了. 03 把 ...

  • 巧虎做饼干小游戏攻略

    巧虎做饼干小游戏,我们的小巧虎又来咯!这次他会跟妈妈一起学做饼干,小朋友们想不想知道呢?那就快来和巧虎一起做饼干吧. 步骤/方法 01 鼠标点击"开始". 02 游戏看是了,虎妈妈 ...

  • Win10没有Win7经典小游戏怎么办?

    微软发布Windows 10 操作系统已超过半个月,目前的安装率看来微软的免费策略效果不错,而且改回的熟悉的开始菜单,一些之前版本中非常受欢迎功能的重现也非常讨喜,但是你会发现缺少了什么,第三方游戏? ...

  • 微信公众平台怎么制作一个世界杯足球小游戏

    2018年俄罗斯世界杯将在6月14日开打,毫无疑问这将吸引全世界足球迷的目光.如此大型的世界性质的体育赛事,自然是很多公司宣传自己产品的好时机.无论是餐饮.电商.快消.还是服饰行业,大家都想跃跃欲试参 ...

  • 微信抽奖游戏怎么做,公众号制作大转盘和九宫格

    如果一个微信公众号天天如出一辙的内容形式,你觉得这个公众号的粉丝能提升上去吗?如此单调枯燥,为何不给微信公众号来点微信抽奖游戏以活跃气氛呢?如果不会弄,那没关系,因为下面将会极简单的三个步骤,教大家制 ...