| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1238 人关注过本帖
标题:本人新手,各位能解释下每句的意思吗
只看楼主 加入收藏
cnmb123aaa
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2016-5-28
结帖率:0
收藏
已结贴  问题点数:20 回复次数:1 
本人新手,各位能解释下每句的意思吗
Option Explicit

Dim xm As String  
Dim index As Integer  
Dim k%

Dim RStr As String
Dim RStr1(0 To 99) As String
Dim RStr2(0 To 99) As String

'Private Sub Command1_Click()
''定义一个数组来存储人名
'
'Dim i, j, k '给要滚动的数给赋值'实际使用应该是 RStr(0)="张三" :RStr(1)="李四" 之类
'
''判断按钮标题
'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 - index))
''写入text1
'Text1.Text = RStr1(k) & "号"
'
''刷新text1
'Text1.Refresh
'
'Loop
'List2.AddItem List1.List(k)
'List1.RemoveItem (k)
'index = index + 1
'Else
''改变标题
'Command1.Caption = "按编号抽奖"
''MsgBox "恭喜" & Text1.Text & "获奖!", vbOKOnly, "恭喜获奖!"
'
'Exit Sub
'End If
''End If
'
'End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
    '定义一个数组来存储人名

Dim i, j '给要滚动的数给赋值'实际使用应该是 RStr(0)="张三" :RStr(1)="李四" 之类

'判断按钮标题
If Command3.Caption = "开始抽奖" Then
'改变标题
    Command3.Caption = "结束"
'开始滚动显示
Do While 1
'检测到按钮标题变回开始,即点击结束后,退出死循环并赋值
        If Command3.Caption = "开始抽奖" Then
        Label1.Caption = "获奖人:" & Text1.Text
Exit Do
    End If
'转让控制权,即使在循环中也可以点击按钮
DoEvents
'初始化随机数生成器。
Randomize
'随机生成一个0到9的数字
i = Int(Rnd * (k - index))
'写入text1
Text1.Text = List1.List(i)

'刷新text1
Text1.Refresh

Loop
If index < k Then
List2.AddItem List1.List(i)
List1.RemoveItem (i)
index = index + 1
Else
MsgBox "已没有抽奖人员!"
End If

Else
'改变标题
Command3.Caption = "开始抽奖"
'MsgBox "恭喜" & Text1.Text & "获奖!", vbOKOnly, "恭喜获奖!"

Exit Sub
End If
End Sub


Private Sub Form_Load()

Dim i As Integer
Dim j As Integer

Adodc1.ConnectionString = "provider=microsoft.jet.OLEDB.4.0;Data source=" & App.Path & "\user.mdb;persist security Info=false"
Adodc1.RecordSource = "select * from usepass "
Adodc1.Refresh


'Command1.Caption = "按编号抽奖"
Command3.Caption = "开始抽奖"
Label1.Caption = "获奖人:"
Text1.Text = "请开始抽奖...."



'Open App.Path & "\抽奖名单.txt" For Input As #1
'    While Not EOF(1)
'    Line Input #1, RStr
   Do Until Adodc1.Recordset.EOF
   List1.AddItem Adodc1.Recordset(0) & "  " & Adodc1.Recordset(1)
   Adodc1.Recordset.MoveNext
   
   Loop
'    Wend
'Close #1
k = Adodc1.Recordset.RecordCount
For i = 1 To List1.ListCount
    If i < 10 Then
        RStr1(i) = "0" & i
    Else
        RStr1(i) = i
    End If
Next i


End Sub
搜索更多相关主题的帖子: 检测 
2016-05-28 23:22
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:941
专家分:5244
注 册:2015-8-10
收藏
得分:20 
学习vb或者其他的编程软件,都是看代码,改代码,最后是写自己代码的过程,
你看代码的都让别人做了,还学什么VB
2016-05-30 08:47
快速回复:本人新手,各位能解释下每句的意思吗
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.039215 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved