Question

VB的一个问题

我想用VB写个简单的循环，类似回合制打斗，A打B多少点血，B打A多少点血，直到某一方的血小于0退出循环，但写了一个早上都不对，请问应该怎么写？打对方的伤害每回合都是随机数。。。跪求谢谢大家。

Answer 1

思路是定义两个变量，分别是A和B的血量
循环次数可以设定一个很大的数值，比如10000次
在循环中要出现2次随机数，这里面范围需要界定，比如说满格是100，每次打击在0到50之间随机，不然程序没办法做
用剩余血量-获取随机数为双方剩余的血量，A和B分别计算一次
每次计算后要检查剩余血量是否小于零，然后break退出循环

你按这个调整下程序就行了

Answer 2

Dim AHp, Bhp As Integer
Do While AHp > 0 And Bhp > 0
AHp = AHp - Int(Rand() * 50 + 1) '造成1-50的伤害，最少为1，最多为50
Bhp = Bhp - Int(Rand() * 50)
Loop
If AHp < 0 Then
'A死了
Else
'B死了
End If

Answer 3

1.定时结束事件（在指定的时间内结束时间：谁的血多谁赢）
2.使用函数：当A打B，B打A时调用函数。传递参数分别为（A打B多少血，B打A多少血）
3.函数返回：真假（真时：两者都有血，假是有一个死亡）