点名程序vb.net,点名程序数据库

请会vb高手做个点名的程序：从40人中随机点名，每次抽一人，一定要不重复的。一共点40次，出去13号

程序在下面，除去13号后总共点名39次，每次都不重复. 点完39次后可以复位又可以点名了。

琅琊网站建设公司创新互联公司,琅琊网站设计制作，有大型网站制作公司丰富经验。已为琅琊近1000家提供企业网站建设服务。企业网站搭建\外贸营销网站建设要多少钱，请找那个售后服务好的琅琊做网站的公司定做！

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编写一个点名系统。

你已经做了，知道这个程序不是特别简单，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,点名程序数据库
当前链接：http://bzwzjz.com/article/hcpejg.html