1樓：匿名使用者
60個人的記錄，把隨機函式控制成小於等於60
2樓：
private type student
name as string * 10
end type
private sub command1_click() '寫入資料dim stu as student
open "d:\student.txt" for random as #1 len = len(stu)
for i = 1 to 60
stu.name = inputbox("請輸入姓名")put #1, i, stu
next i
close #1
end sub
private sub command2_click() '抽取randomize
dim bb as student, n%n = int(rnd * 60) + 1open "d:\student.txt" for random as #1 len = len(bb)
get #1, n, bb
text1.text = bb.name
close #1
end sub
用vb編寫了這個隨機抽取人名的程式，要求一個文字框，一個按鈕
3樓：
option explicit
dim jm(35) as string
dim i, cs as integer
private sub command1_click()timer1.enabled = truecs = cs + 1
label1.visible = truecommand1.enabled = falsecommand2.enabled = trueend sub
private sub command3_click()endend sub
private sub command2_click()timer1.enabled = falsejm(i) = jm(32 - cs)
command1.enabled = truecommand2.enabled = falsestatusbar1.panels.item(3) = 32 - cs
end sub
private sub form_load()jm(0) = "李珊珊等《西遊記》"
jm(1) = "劉澤玉 小王佳《知足》"
jm(2) = "小王佳 王敏《一個像夏天，一個像秋天》"
jm(3) = "李銘 李兵《你是我心內的一首歌》"
jm(4) = "劉澤玉 孫皓晨《因為愛情》"
jm(5) = "趙京城 《尋找》"
jm(6) = "王振遠 高磊《寂寞沙洲冷》"
jm(7) = "李宗瑤《小星星》"
jm(8) = "逯鵬 張志遠《最美的太陽》"
jm(9) = "李彤彤 葛文芮《baby don't cry》"
jm(10) = "王敏 楊雪《夜夜夜夜》"
jm(11) = "張月明 李曉雨 大王佳《過火》"
jm(12) = "葛文芮 孫皓晨《timeless》"
jm(13) = "葉小雨 郭津銘《未完成的歌》"
jm(14) = "逯鵬 孫杰《父親》"
jm(15) = "王昭政《那些年》"
jm(16) = "葉小雨 高磊《奔跑》"
jm(17) = "顧慶傑 韓曦《我們都一樣》"
jm(18) = "張遵策 郭津銘《心跳》"
jm(19) = "張遵策《空城》"
jm(20) = "逯鵬 李宗瑤《江南》"
jm(21) = "郅睿 王敏《會呼吸的痛》"
jm(22) = "韓紹飛 呂典傑《水手》"
jm(23) = "郅睿 張東劍《後會無期》"
jm(24) = "大王佳 韓曦《小酒窩》"
jm(25) = "趙文青 時靜璐《遺失的美好》"
jm(26) = "甄嶽《沒有什麼不同》"
jm(27) = "吳巧 李曉慧《我的歌聲裡》"
jm(28) = "李瑤 李姍姍《最炫民族風》"
jm(29) = "大王佳 侯家慧《星空》"
jm(30) = "三組全體《大笑江湖》"
jm(31) = "大王佳 張鋒《肩上蝶》"
end sub
private sub timer1_timer()randomize
i = int(rnd * (32 - cs))label1.caption = jm(i)if 32 - cs <= 0 then
timer1.enabled = falsecommand1.enabled = falsecommand2.
enabled = falsemsgbox "節目已完成，感謝你使用本程式!"
command3.value = trueend if
end sub
4樓：聽不清啊
dim xm, n as integer
private sub command1_click()static k
k = k + 1
if k mod 2 = 1 then
timer1.interval = 20
command1.caption = "停"
else
timer1.interval = 0
command1.caption = "開始"
end if
end sub
private sub form_load()xm = array("張三", "李四", "王五", "趙六", "錢七", "孫八", "周九", "吳十", "鄭土")
n = ubound(xm) + 1
text1.fontsize = 16
text1 = ""
command1.caption = "開始"
end sub
private sub timer1_timer()x = int(rnd * n)
text1 = xm(x)
end sub
怎麼用vb編個隨機抽取人名的小程式，做到不重複並能直接列印顯示已抽到的人名
5樓：
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編寫的一個學生姓名隨機抽取程式
6樓：
你的功能我可以幫你實現，並且還可以實現隨機抽取的記錄保證不一樣，當然了編碼的時候用隨機函式生成一個學生號，再根據編號判斷是否重複，不重複資訊將實時顯示出來，以下是關鍵**，如果你除錯通過，則你太幸運了，哈哈，希望能幫到你吧，當時費了好多腦細胞才編寫出來
我的程式例子將釋出在csdn部落格上，你到時候可以關注的，http://blog.csdn.net/twtiqfn
7樓：匿名使用者
學生的名單只是txt檔案麼?還是也有excel也有txt.
如果是excel的話請問版本是什麼？
還有這些檔案的路徑在**？還是需要自己指定？
8樓：
條件不夠。。
試問你的學號跟名字在**查詢？
用vb程式設計，隨機抽取兩個人的姓名？
9樓：匿名使用者
先在窗體上新增一個按鈕和一個列表
把以下**寫入按鈕的click事件中，單擊按鈕就可以看到執行結果private sub command1_click()dim namelist as new collection'把參與抽取的名字新增到名字集合中
namelist.add "姓名01"
namelist.add "姓名02"
namelist.add "姓名03"
namelist.add "姓名04"
namelist.add "姓名05"
namelist.add "姓名06"
namelist.add "姓名07"
namelist.add "姓名08"
namelist.add "姓名09"
namelist.add "姓名10"
namelist.add "姓名11"
namelist.add "姓名12"
namelist.add "姓名13"
namelist.add "姓名14"
namelist.add "姓名15"
namelist.add "姓名16"
namelist.add "姓名17"
namelist.add "姓名18"
namelist.add "姓名19"
namelist.add "姓名20"
namelist.add "姓名21"
dim strgetname as stringdim a as integer
randomize
list1.clear
doif namelist.count > 0 thena = int(rnd * namelist.count) + 1if strgetname <> "" thenstrgetname = strgetname & " " & namelist.
item(a)
list1.additem strgetnamestrgetname = ""
else
strgetname = namelist.item(a)end if
namelist.remove a
else
if strgetname <> "" then list1.additem strgetname
exit do
end if
loop
end sub
如何用vb設計隨機抽取人名程式？
10樓：ii個人的寂寞
sub ss()
dim ss(50) as string
dim myvalue
for i = 1 to 50
ss(i) = "李四" & i
next
'可以單獨給每個賦值，我這裡為了方便迴圈一次性賦值了。
'ss(1)="zhangsan"
'ss(2)="lisi"
'vb中隨機函式
'int((upperbound - lowerbound + 1) * rnd + lowerbound)這裡，
'upperbound 是隨機數範圍的上限，而 lowerbound 則是隨機數範圍的下限。
randomize
myvalue = int((rnd * (ubound(ss) - 1 + 1)) + 1)
msgbox ss(myvalue)
end sub
用VB做姓名隨機抽取的軟體但是名字不能重複抽取謝謝
private sub command1 click dim i as long,n as long,y as long,x as long,a as integer y list1.listcount n val text1.text 獲取輸入的數量，text1可以自己改 if n 1 then ...
VB程式設計 隨機產生10 99之間（含10，99）的整數，找出其中最大 最小的元素
給你基本思路 利用vb內部函式 rnd 產生隨機函式 為0 1之間的隨即數字，轉換成10 99之間的隨機數字 然後利用交換法來找出最大和最小數字，最後輸出就可以了 小李無刀 使用陣列儲存,隨機函式使用,最小值最大值檢索 以下是關鍵 其他的我就不打了 dim i as integer dim max ...
RND隨機函式如何寫入VB程式設計中？
這有一個隨機函式的公式。int upperbound lowerbound 1 rnd lowerbound 這裡，upperbound 是隨機數範圍的上限，而 lowerbound 則是隨機數範圍的下限。明白了吧。int 100 0 1 rnd 0 就是rnd 101 vb 10 100 100 ...