抽签 没用的
直接去崂山吧专业一点
你想学但你的八字是否适应学.玄学能学成功者不过百之一二.你把生日时辰给我发过来
로출판
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 已经运行通过,不过事先你得在桌面建立一个文本文件,用来存储数据,呵呵
这个只是古老的迷信而已哟。如果抽签都这么准的话。人在世上几乎不怎么努力,都有钱花了。
如果不能罚点球定胜负,那就掷硬币,道理和抽签一样,靠运气。
使用工具:互动大师 操作时长:大约2小时 操作准备:在“互动大师注册账号”,并了解工具的基本操作。 主要为3个页面:姓名输入页面、结果显示页面、朋友圈分享页面 再看下在ih5编辑器里的对象树构成,本案例共9个页面,其中有1个姓名输入页面以及8个结果页面,舞台上放置姓名变量,以备结果页和微信分享标题里调用。
分两种情况.如果前面抽的要拿给大家看,这样对后面的就有利.对每个人而言就不公平. 如果前面抽的不拿给大家看,这样对后面的人就公平,即每个人抽到的概率都一样. 所以抽签与顺序有无关系要看前面抽到的给不给后面看 这个在高三会学到的
代码发了N遍发不上来,直接拿走用吧 html>