基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

拿ＱＢ写的猜数字，开局选随机数种子，有十次猜数字的机会。

代码贴底下了

Dim a As Integer
Dim b As Integer
Dim c As Integer
Randomize
Print "changtiaozongshidengbulai,dansuoyourendouhuideng"
Print "huanying!zhelishiyouzyrlynbianxiedeQBcaishuzichrngxu."
Print "xiamianyouxikaishi"
b = Int((100 - 1 1) * Rnd 1)
c = 0
For c = 0 To 10
    input a
    If a = b Then
        Print "caiduile!"
    End If
    If a > b Then
        Print "taidale!"
    End If
    If a < b Then
        Print "taixiaole!"
    End If
    c = c 1
Next