求用VB编的一个抽奖系统,有源代码的,最好有解释。从49个人中抽_百度知...

发布网友发布时间：2024-08-12 22:17

共2个回答

热心网友时间：2024-08-15 11:00

Dim p1 As Integer, p2 As Integer, p3 As Integer

'产生一等奖号码
p1 = Rnd * 48 + 0.5 + 1

'产生二等奖号码
Do
p2 = Rnd * 48 + 0.5 + 1
Loop Until p2 <> p1

'产生三等奖号码
Do
p3 = Rnd * 48 + 0.5 + 1
Loop Until p3 <> p1 And p3 <> p2

MsgBox "一等奖：" & p1 & vbCrLf & _
"二等奖：" & p2 & vbCrLf & _
"三等奖：" & p3 & vbCrLf, vbInformation

热心网友时间：2024-08-15 11:05

你建一个数组，里面有三个列就够了，
然后用随机函数，定义1-49之间，
分别赋值给三个元素就OK

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com