如何在电脑上制作抽奖器
答案:3 悬赏:50 手机版
解决时间 2021-02-28 10:49
- 提问者网友：佞臣
- 2021-02-27 16:22
学校搞迎新晚会 有个抽奖的活动 要用电脑做个抽奖器投放到大屏幕上 请问达人们如何完成？
最佳答案
- 五星知识达人网友：患得患失的劫
- 2021-02-27 17:29
利用随即函数，再放了文本文件：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer, str As String
Randomize
a = Int(10 * Rnd)
b = Int(10 * Rnd)
c = Int(10 * Rnd)
d = Int(10 * Rnd)
Text1 = a & b & c & d
End Sub
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer, str As String
Randomize
a = Int(10 * Rnd)
b = Int(10 * Rnd)
c = Int(10 * Rnd)
d = Int(10 * Rnd)
Text1 = a & b & c & d
End Sub
全部回答
- 1楼网友：上分大魔王
- 2021-02-27 18:19
编程制作
- 2楼网友：鱼芗
- 2021-02-27 17:51
电脑上制作抽奖器的方法：
利用随即函数，再放了文本文件：
private sub command1_click()
dim a as integer, b as integer, c as integer, d as integer, str as string
randomize
a = int(10 * rnd)
b = int(10 * rnd)
c = int(10 * rnd)
d = int(10 * rnd)
text1 = a & b & c & d
end sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯