1樓：匿名使用者
option base 1
dim rname() as stringdim currenti as integerpublic namemax as integerprivate sub cmdstart_click()if cmdstart.caption = "start" thenif namemax = 0 then
msgbox "隨機選擇結束", vbokonly + vbinformation, "提示"
exit sub
end if
cmdstart.caption = "stop"
timer1.enabled = trueelse
cmdstart.caption = "start"
timer1.enabled = falserichtextbox1.text = richtextbox1.text + vbcrlf + rname(currenti)
if namemax > 0 then
rname(currenti) = rname(namemax)namemax = namemax - 1end if
end if
end sub
private sub form_load()namemax = 4
redim rname(namemax)
rname(1) = "張三"
rname(2) = "李四"
rname(3) = "王二"
rname(4) = "有幾個加幾個"
end sub
private sub timer1_timer()randomize
currenti = fix(rnd * namemax) + 1label1.caption = rname(currenti)doevents
label1.refresh
form1.refresh
end sub
以上是**，附件裡有工程檔案，可以滿足你的要求，姓名可以保證在程式裡，不容易被修改，用的都是常用控制元件，richtextbox控制元件應該也有吧，如果沒有，用textbox也一樣
2樓：設計營地
你要用來幹什麼？資料需不需要儲存？
用vb編寫個隨機滾動抽取人名的**系統，怎麼樣做到不重複並新增一個記錄顯示已抽到的人名
3樓：
很簡單。你先把所有的人名放在一個字串陣列裡面。
然後用隨機函式按照下標上限抽選中獎者。
選出一個後就可以記錄、輸出等等操作。
然後將他與最末尾的那個人對換。
下一次抽選時，抽選的下標上限降低一個人就可以了。
4樓：蘇州老三石
你這個才十分，編個程式起碼半個小時
5樓：匿名使用者
樓上正解。
具體**要看你有多少人了
怎麼用vb編個隨機抽取人名的小程式，做到不重複並能直接列印顯示已抽到的人名
6樓：
dim n as integer
dim a()
private sub command1_click()if n = 0 then '第點選執行m = val(text1)
redim a(1 to m)
for i = 1 to m '陣列a元素1至mm數a(i) = i
next
for i = 1 to m - 1 '隨機打亂陣列a元素
r = int(rnd * m + 1)
tmp = a(i)
a(i) = a(r)
a(r) = tmp
next
end if
n = n + 1 '計數點選數if n > val(text1) then '數超指定數**結束
msgbox "**結束"
exit sub
end if
text2 = a(n) '陣列抽第n數由於陣列隨機排列所相於隨機數並且重複
end sub
用vb做一個姓名隨機抽取的軟體 但是 名字不能重複抽取謝謝
7樓：匿名使用者
先判斷已經抽取的結果，如果存在重新抽取。
怎樣用VB語言設計抽號機，怎樣用VB語言設計一個抽號機
不重複的抽號機 我幫你實現 怎麼用vb做抽號機 private sub command1 click randomize text1.text int 1 999 1 rnd 999 end sub 如何用vb製作隨機學號抽取器？這個需要應用以下幾個步驟 寫一個獲取隨機學號函式。將這個函式繫結在某個...
找出不大於1000的最大素數用VB怎麼寫
private sub form click dim i as long for i 2 to 1000 if i mod 13 0 and i mod 11 0 and i mod 7 0 and i mod 5 0 and i mod 3 0 and i mod 2 0 then print i...
寫人聰明可以用什麼事例，寫人活潑可以用哪些事例
可以用，他聰明的例子來寫，比如說幾歲贏得過什麼獎項，或者是遇見什麼事情他提供了一個新的思路。可以寫在做事的時候總能想到別人想不到的方法，而且總能又快又巧。善於動腦筋。寫人活潑可以用哪些事例 比如說，愛交朋友，開朗活潑，樂觀。就說剛認識她的時候，她很熱情地與你交朋友。這樣子的例子把。樂於助人，遊戲中有...