VB做抽签程序的代码
发布网友
发布时间：2022-04-23 17:53
共2个回答
热心网友
时间：2023-10-11 20:37
Public j As Integer
Dim A() As String
Dim tem As String
Private Sub CMD1_Click() '注意这里如果没有exit sub，责会出现captio不会变的，其实已经变过了
If CMD1.Caption = "开始" Then
CMD1.Caption = "停止"
Timer1.Enabled = True
Exit Sub
End If
If CMD1.Caption = "停止" Then
CMD1.Caption = "开始"
Timer1.Enabled = False
If tem <> "" Then
Text1.Text = tem
End If
End If
End Sub
Private Sub CMD2_Click()
Frame1.Visible = True
Text2.Visible = True
CMD3.Visible = True
CMD4.Visible = True
End Sub
Private Sub CMD3_Click()
Text2.Visible = False
CMD3.Visible = False
CMD4.Visible = False
tem = Text2.Text
End Sub
Private Sub CMD4_Click()
Text2.Text = ""
Text2.Visible = False
CMD3.Visible = False
CMD4.Visible = False
End Sub
Private Sub form_load()
Frame1.Visible = False
Text2.Visible = False
CMD3.Visible = False
CMD4.Visible = False
Timer1.Enabled = False
Timer1.Interval = 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()
Text1.Text = A(j)
j = j + 1
If j = UBound(A) Then
j = 0
End If
End Sub
已经运行通过，不过事先你得在桌面建立一个文本文件，用来存储数据，呵呵
热心网友
时间：2023-10-11 20:37
Option Explicit
Private Sub Command1_Click()
'定义一个数组来存储人名
Dim RStr(0 To 9) As String
Dim i, j, k
'给要滚动的数给赋值
'实际使用应该是 RStr(0)="张三" :RStr(1)="李四" 之类
RStr(0) = "张三"
RStr(1) = "李四"
RStr(2) = "刘德华"
RStr(3) = "郭富城"
RStr(4) = "黎明"
RStr(5) = "无良"
RStr(6) = "梦梦"
RStr(7) = "张学友"
RStr(8) = "王志和"
RStr(9) = "老干妈"
'判断按钮标题
If Command1.Caption = "开始" Then
'改变标题
Command1.Caption = "结束"
'开始滚动显示
Do While 1
'检测到按钮标题变回开始,即点击结束后,退出死循环并赋值
If Command1.Caption = "开始" Then
Label1.Caption = "获奖人:" & Text1.Text
Exit Do
End If
'转让控制权,即使在循环中也可以点击按钮
DoEvents
'初始化随机数生成器。
Randomize
'随机生成一个0到9的数字
k = Int(Rnd * 10)
'写入text1
Text1.Text = RStr(k)
'刷新text1
Text1.Refresh
'用一段循环来延时,做出滚动效果,如果不用,一闪就没了
'可以加大数值延长滚动效果
For i = 1 To 30000
If Command1.Caption = "开始" Then Exit For
DoEvents
Next i
Loop
Else
'改变标题
Command1.Caption = "开始"
End If
End Sub
Private Sub Form_Load()
Command1.Caption = "开始"
Label1.Caption = "获奖人:"
Text1.Text = "请开始抽奖...."
End Sub
'==== 记得采纳哦 ===========
