搜索
首页 电脑/网络 软件

VB编码这个猜数程序

  题目:设计一个能实现100以内猜数的趣味程序 使用的控件对象:文本框、标签、命令按钮 基本功能: 1。 点击开始按钮,能随机进行100以内的猜数 2。 游戏者在猜数文本框中输入所猜的数,按命令按钮确认 3。 游戏者确认后,在提示文本框中给出信息,如果猜数不正确,提示本次所猜数据是太大了还是太小了,如果猜数正确,则输出信息“完全正确”。
   4。 猜数正确积分加10分,猜数错误积分减10分 5。 当积分累加到100分,输出信息“神机妙算”。 6。 一个数最多允许猜10次,10次到未猜中程序结束。 7。 点击退出按钮,程序结束 需要的预备知识: 1。 随机函数的使用: 1) 为了生成真正的随机数,在程序的首部需要使用randomize命令 2) 生成0~100之间的随机数:X=int(rnd*101) 2。
  
   窗体的通用声名区 涵盖内容: 1。 变量、函数(str$()、val()、rnd())、表达式(关系运算、逻辑运算、算术运算)的使用 2。 循环结构、选择结构的使用 3。 面向对象编程中对象、属性、事件、事件驱动的概念及运用 程序界面参考: 。

全部回答

2006-11-20

0 0

    主要代码如下: '*******通用区声明******* Dim x, num As Integer '************************ Private Sub Command1_Click()'确定按钮 If Text1。
  Text x Then num = num - 1 Text2。  Text = "太大了,还有 " & num & " 次机会!" ElseIf Text1。
  Text = x Then Text2。Text = "恭喜你,猜对了!" Text3。Text = Int(Text3。Text) + 10 Text1。  Enabled = False Command1。
  Enabled = False Command2。Enabled = True End If If num = 0 Then Text2。Text = "很可惜,所猜次数已经10次了!正确为 " & x Text1。
    Enabled = False Text3。Text = Int(Text3。Text) - 10 Command1。Enabled = False Command2。
  Enabled = True End If End Sub Private Sub Command2_Click()'开始按钮 Randomize x = Int(rnd * 101) Text1。
    Text = "" Text1。Enabled = True num = 10 Command1。Enabled = True Command2。Enabled = False End Sub Private Sub Command3_Click()'退出按钮 End End Sub Private Sub Form_Load() Text3。
    Text = 0'初始化积分 End Sub '********用于限制Text1只能输入数字******* Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii <> 8 And (KeyAscii 57) Then KeyAscii = 0 End Sub '****************************************。
    。

类似问题换一批

热点推荐

热度TOP

相关推荐
加载中...

热点搜索 换一换

电脑/网络
软件
程序设计
电脑装机
操作系统/系统故障
硬件
笔记本电脑
百度
互联网
反病毒
软件
软件
多媒体软件
系统软件
办公软件
网络软件
图像处理软件
举报
举报原因(必选):
取消确定举报