导读 您好,现在柳柳来为大家解答以上的问题。vb随机函数rand使用方法，vb随机函数相信很多小伙伴还不知道,现在让我们一起来看看吧！1、Dim s(2)
您好,现在柳柳来为大家解答以上的问题。vb随机函数rand使用方法，vb随机函数相信很多小伙伴还不知道,现在让我们一起来看看吧！
1、Dim s(2) As StringDim a As IntegerDim b As IntegerDim c As StringDim d As StringPrivate Sub Form_Load()Randomize Dim z As Integer For z = 1 To 15 a = Int(90 * Rnd + 0) b = Int(90 * Rnd + 0) s(1) = "+" s(2) = "-"c = Int((Rnd * 2) + 1)If c = 1 ThenDo While a + b > 100 a = Int(90 * Rnd + 0) b = Int(90 * Rnd + 0) Loop End IfIf c = 2 ThenDo While a - b < 0a = Int(90 * Rnd + 0)b = Int(90 * Rnd + 0)LoopEnd Ifd = Str(a) & s(c) & Str(b)Text1.Text = ""Select Case s(c)Case "+" List1.AddItem Str(a) & s(c) & Str(b) & "=" & (a + b)Case "-" List1.AddItem Str(a) & s(c) & Str(b) & "=" & (a - b)End SelectNext zEnd Sub。
本文就为大家分享到这里，希望小伙伴们会喜欢。