VB编个比较大小的小程序

来源：百度知道 编辑：UC知道 时间：2024/05/29 20:23:13
首先随机生成3个能被10整除的数，范围在10-9990之间，假设这3个数是A，B，C。然后把他们相加得到D。然后再用A，B，C，分别乘以30，20，10.得其结果为A1，B1，C1，当A1，B1，C1同时大于D得时候就将A，B，C，D显示出来。
好像不得行啊 你运行过么 d = a + b + c + d 调试这里出问题 咋个回事啊 提示溢出哟
你没看人家定义的啊 就是&啊 所以我就很纳闷呀

Private Sub Command1_Click()
Dim a As Long, b As Long, c As Long, d As Long
Dim a1 As Long, b1 As Long, c1 As Long
Do
Randomize
a = (Int(Rnd() * 999) + 1) * 10: a1 = a * 30
Randomize
b = (Int(Rnd() * 999) + 1) * 10: b1 = b * 20
Randomize
c = (Int(Rnd() * 999) + 1) * 10: c1 = c * 10
d = a + b + c
If (a1 > d) And (b1 > d) And (c1 > d) Then
Print a; b; c; d
Exit Do
End If
Loop
End Sub
改一下，就好了。

d 默认的是整型数（或者你自已定义为整型数） 就是 integer
它的最大范围只能到 32767 超过这个数就 溢出
你可以把d定义为长整型 long 就可以了 dim d as long