VB做抽签程序的代码

Public j As Integer

Dim A() As String

Dim tem As String

Private Sub CMD1_Click() '注意这里如果没有exit sub，责会出现captio不会变的，其实已经变过了

If CMD1Caption = "开始" Then

CMD1Caption = "停止"

Timer1Enabled = True

Exit Sub

End If

If CMD1Caption = "停止" Then

CMD1Caption = "开始"

Timer1Enabled = False

If tem <> "" Then

Text1Text = tem

End If

End If

End Sub

Private Sub CMD2_Click()

Frame1Visible = True

Text2Visible = True

CMD3Visible = True

CMD4Visible = True

End Sub

Private Sub CMD3_Click()

Text2Visible = False

CMD3Visible = False

CMD4Visible = False

tem = Text2Text

End Sub

Private Sub CMD4_Click()

Text2Text = ""

Text2Visible = False

CMD3Visible = False

CMD4Visible = False

End Sub

Private Sub form_load()

Frame1Visible = False

Text2Visible = False

CMD3Visible = False

CMD4Visible = False

Timer1Enabled = False

Timer1Interval = 300

Open "C:\Documents and Settings\Administrator\桌面\新建 文本文档txt" For Input As 1

Do Until EOF(1)

ReDim Preserve A(0 To I)

Input #1, A(I)

I = I + 1

Loop

Close #1

End Sub

Private Sub Timer1_Timer()

Text1Text = A(j)

j = j + 1

If j = UBound(A) Then

j = 0

End If

End Sub

已经运行通过，不过事先你得在桌面建立一个文本文件，用来存储数据，呵呵

怎样做抽签

男的抽签程序是我们在生活和工作当中经常会遇到的情况，所以要学会制作简单的超前场决，对我们的工作重要，也是时常常会用到

Excel表格怎么制作简易号码抽签？有时候需要在excel制作排队抽签用的号码纸条，但是很多人不知道怎么制作，下面分享excel表格制作抽签的详细教程，需要的朋友可以参考下

方法

1

/4

用Excel制作简易号码抽签系统

1、新建一个空白excel表格

2、选中多个单元格，并进行合并居中（本步骤可以省略）

2

/4

3、选中单元格，输入公式=INT(RAND()(100-1+1))+1，按回车键确认

提示：

1）记住连同=号一起输入；

2）如果是在1-50中抽取，则将公式中100替换成50，以此类推。

3

/4

4、选中单元格，在“开始”选项卡中进行字体大小调整

4

/4

5、按键盘F9键进行刷新，即每按一次F9将出现新数字

提示：长按F9有数字滚动的效果哟~

注意事项

本公式在N次刷新中，可能出现重复的数字。

Dim 数组()

Dim 计数

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBaseLoad

数组 = {"李欢", "龚丽", "谭显亮", "王涛", "徐荣辉", "刘烨", "郑权恒", "廖伟", "郭威", "李襑"}

计数 = 数组Count

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1Click

Dim 随机 = New Random()Next(数组Count)

Do

If 数组(随机) <> "" Then

计数 -= 1

MeText = 数组(随机) & 计数

数组(随机) = ""

Exit Do

Else

随机 = New Random()Next(数组Count)

End If

Loop While (计数 > 1)

End Sub

以上就是关于VB做抽签程序的代码全部的内容，包括:VB做抽签程序的代码、怎样做抽签、VB抽签程序代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！