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