請會vb高手做個點名的程序：從40人中隨機點名，每次抽一人，一定要不重復的。一共點40次，出去13號

程序在下面，除去13號后總共點名39次，每次都不重復.?點完39次后可以復位又可以點名了。

瑯琊網站建設公司創(chuàng)新互聯公司,瑯琊網站設計制作，有大型網站制作公司豐富經驗。已為瑯琊近1000家提供企業(yè)網站建設服務。企業(yè)網站搭建\外貿營銷網站建設要多少錢，請找那個售后服務好的瑯琊做網站的公司定做！

Dim?times,?j?As?Integer

Dim?num(1?To?40)?As?Integer

Private?Sub?Command1_Click()

start:?Randomize

a?=?Int(Rnd?*?40?+?1)

For?i?=?1?To?40

If?a?=?num(i)?Or?a?=?13?Then

GoTo?start

End?If

Next

Text1.Text?=?a

j?=?j?+?1

num(j)?=?a

If?j?=?39?Then

MsgBox?"所有人員均已點過！"

Command1.Enabled?=?False

Command2.Enabled?=?True

End?If

End?Sub

Private?Sub?Command2_Click()

j?=?0

For?i?=?1?To?40

num(i)?=?0

Next

Command2.Enabled?=?False

Command1.Enabled?=?True

Text1.Text?=?""

End?Sub

界面：

求大神幫忙用VB編寫一個點名系統(tǒng)。

你已經做了，知道這個程序不是特別簡單，15分可能沒有人為你效勞吧？

老師上課Vb隨機點名程序，用excel讀入學生名單

這個程序的重點就是讀Excel表格，如果能讀出來人員名單，下面就用隨機數就很好寫了

我測試代碼

Dim ExcelApp As Object

Dim ExcelBook As Object

Dim ExcelSheet As Object

Dim n As Long

Set ExcelApp = CreateObject("Excel.Application")

Set ExcelBook = ExcelApp.Workbooks.Open("c:\0.xls")

Set ExcelSheet = ExcelBook.Worksheets(1)

n = 1

Do

List1.AddItem ExcelSheet.Range("D" n).Value

n = n + 1

Loop Until ExcelSheet.Range("D" n).Value = ""

Set ExcelSheet = Nothing

Set ExcelBook = Nothing

Set ExcelApp = Nothing

我的人員名稱是在D列，同理，如果還想要其它列（學號），在后后加上就行了

為了操作excel，還引用了"Microsoft Excel 11.0 Object Library"對像

VB程序做點名器幫助，著急啊

此提示是你的文件名或文件的路徑錯誤！找不到文件！單看這個不能幫你的，要看代碼！

當前題目：點名程序vb.net,點名程序數據庫
鏈接URL：http://chinadenli.net/article26/hcpejg.html

成都網站建設公司_創(chuàng)新互聯，為您提供網站導航、標簽優(yōu)化、網站營銷、全網營銷推廣、網站設計公司、移動網站建設

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯