1樓：
給你個思路，因為我也是菜鳥，所以用的方法也比較菜，請不要介意：
1、先用listbox把所有的名字都裝起來。
2、用rnd產生個隨機數，這個隨機數為listbox的listindex，然後顯示隨機數所指的名字。
注意一下rnd所產生的數值的最大值不能超過你所有名字的數量（即listbox控制元件的listcount）
2樓：爛掉の蘿蔔
新增一個text控制元件一個command控制元件
生成exe後。在程式所在資料夾下新建一個txt文字檔案
命名為name.txt
每行輸入一個人名。
執行程式後，點按鈕即可隨機抽取。
option explicit
' 記憶體中的提示資料庫。
dim tips as new collection
' 提示檔名稱
const tip_file = "name.txt"
' 當前正在顯示的提示集合的索引。
dim currenttip as long
private sub donexttip()
' 隨機選擇一條提示。
currenttip = int((tips.count * rnd) + 1)
form1.displaycurrenttip
end sub
function loadtips(sfile as string) as boolean
dim nexttip as string ' 從檔案中讀出的每條提示。
dim infile as integer ' 檔案的描述符。
' 包含下一個自由檔案描述符。
infile = freefile
' 確定為指定檔案。
if sfile = "" then
loadtips = false
exit function
end if
' 在開啟前確保檔案存在。
if dir(sfile) = "" then
loadtips = false
exit function
end if
' 從文字檔案中讀取集合。
open sfile for input as infile
while not eof(infile)
line input #infile, nexttip
tips.add nexttip
wend
close infile
' 隨機顯示一條提示。
donexttip
loadtips = true
end function
private sub command1_click()
' 隨機尋找
randomize
' 讀取提示檔案並且隨機顯示一條提示。
if loadtips(tip_file) = false then
text1.text = "檔案 " & tip_file & " 沒有被找到嗎? " & vbcrlf & vbcrlf & _
"建立文字檔名為 " & tip_file & " 使用記事本每行寫一條名字。 " & _
"然後將它存放在應用程式所在的目錄 "
end if
end sub
public sub displaycurrenttip()
if tips.count > 0 then
text1.text = tips.item(currenttip)
end if
end sub
3樓：戈琰
如果有編號就非常容易，如果50人裡面抽的話，每按一下按鈕可以抽1個號private sub command1_click()randomize
a=int(rnd * 49)+1
text1.text=a
end sub
4樓：匿名使用者
word格式操作起來有點麻煩，不過你可以把文件存成rtf格式，這樣用vb的richtextbox控制元件就可以開啟了。特殊段加個特別的符號，這樣用在程式裡查詢並替換掉就可以了。
你好，我想做自己的樣子下來可以嗎
我來回答這個問題，你想做一個自己的樣子下來可以嗎？這個問題我回答如下，你想做自己很容易，只要自己想做的，你就大膽去去做，自己想幹的你就大膽的去幹，只要是光明正大的不違法的，你什麼樣的事情都可以幹，只要政策允許的你也去幹，你要大膽的闖，大膽的幹，長江前浪推後浪，一浪更比一浪強，我相信你一定能夠自己闖出...
你好，我想做有機肥，投資大概多少錢
自然奇蹟綠康有機肥 這個投資大小的問題較難回答。不過，質量較好的有機肥前景還是可以的。投資大小，關鍵是看你的原料和生產量來決定。象規模大，就要大的廠地.廠房等投資就大。各地區的土地費用差別較大，不太也判斷。機電機械也大小投資都不一樣。小規模的肯定 便宜，大規模生產量大的肯定投資就大。這個問題要根據自...
玻璃頂棚你好我有四十平米頂樓 想做不鋼化玻璃頂棚大約多少錢
萬里調一 不鋼化的一平方也就二百多點，不過建意你還是做鋼化的，這樣安全一點，更好的就是鋼化加膠的更安全，不過會貴點， 葉飛天 200 40 8000 元，不到10000元吧 玻璃頂棚多少一平方米 刀一南 不鏽鋼支撐，8十8的加膠玻璃作陽光頂，造價合多錢 玻璃頂棚一般是鋼化夾膠玻璃，不等 300元左右...