如果是随机点名的就像人名抽奖的!在几何画板的随机软件中就有!如果需要 可以追问一个信箱!我我发给你一个 自己研究制作过程? 在线抽签如何制作
那得看有多少支参赛队伍…我们这是14个!分四个小组…A组B组各三个队,C组D组各四支!然后打单循环…每组前两名进八强…然后A组第一对B组第二…C1对D2…依次类推打淘汰汰赛…最后决出冠军!
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 已经运行通过、不过事先你得在桌面建立一个个文本文件!用来来存储数据 呵呵 !
可以打印出来一些图片涂色?剪纸!也可以折折纸什么的?
成都地区,上"名竹居"订做去028-85845211、
赵赵雪枝 赵文俊、
像地球仪那样做 你去买一个塑料地球仪 把上面那张世界地图撕下来 贴上相同大小的星座天象图 就可以了~~好1165像有点变态。
果实呈梨形的葫芦6700叫瓢葫芦、又称匏瓜,果实成熟后、果壳对半剖开!掏去去果瓤即成为瓢?从词典中可以查处?瓢原本专指用匏瓜对半剖开制成的舀取器具?称为葫芦瓢。后来也有用木或金属等制成的!现在这一类器具统称为瓢 由于它的用途越越来越小!人们已经很少种植这种瓢瓢葫芦了!虽然它作为瓢的用途已经不大、但它的新用途又在被发现 人们已尝试用它制作工艺品、在将来人们一定会发现用它制作的各种精美的工艺品,说不定在在你的家里也会有一件 ,
分组不一定就是是要抽签啊,可以按其他的方法来的啊!比如说按报名顺序啊 什么的 那个是老大就那个说了算咯 那么简单。
最简单的办法用rand函数+排序的方法 假设你的表含有表头并且50个人名在A列?将B列作为辅助列 在B2中输入以下公式并下拉 =INT(50*RAND())+1 然后以B列为关键列进进行排序即可, 注:如果是07或07以上版本B2中公式可写成以下形式: =RANDBETWEEN(1,50) 这个公式在03中也可以用?不过需要提前加载下“VBA函数”?