點(diǎn)名程序vb.net,點(diǎn)名程序數(shù)據(jù)庫

請會(huì)vb高手做個(gè)點(diǎn)名的程序：從40人中隨機(jī)點(diǎn)名，每次抽一人，一定要不重復(fù)的。一共點(diǎn)40次，出去13號

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

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

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?"所有人員均已點(diǎn)過！"

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編寫一個(gè)點(diǎn)名系統(tǒng)。

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

老師上課Vb隨機(jī)點(diǎn)名程序，用excel讀入學(xué)生名單

這個(gè)程序的重點(diǎn)就是讀Excel表格，如果能讀出來人員名單，下面就用隨機(jī)數(shù)就很好寫了

我測試代碼

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列，同理，如果還想要其它列（學(xué)號），在后后加上就行了

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

VB程序做點(diǎn)名器幫助，著急啊

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

當(dāng)前題目：點(diǎn)名程序vb.net,點(diǎn)名程序數(shù)據(jù)庫
鏈接URL：http://muchs.cn/article26/hcpejg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導(dǎo)航、標(biāo)簽優(yōu)化、網(wǎng)站營銷、全網(wǎng)營銷推廣、網(wǎng)站設(shè)計(jì)公司、移動(dòng)網(wǎng)站建設(shè)

廣告

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