VB制作抽签程序
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 已经运行通过，不过事先你得在桌面建立一个文本文件，用来存储数据，呵呵
抽签的纸条。求大神们帮忙
风吹云散尽，朗月满中天，广寒宫殿启，丹桂赠青年 楼主签文反了！ 要看什么事情的，运气尚可！
如何用笔芯制作笔筒
笔芯、胶水502一类的、彩色线绳、和一个矿泉水瓶硬一点的最好 矿泉水瓶剪成笔筒的高度留底，比笔芯略矮一点，然后把笔芯用胶水一根一根紧密排列黏在矿泉水瓶上，确保把矿泉水瓶都包裹住，然后用彩色线绳紧密缠在做好的半成品上，最后用胶水黏下线头，就齐活了呗~
如何用笔芯制作笔筒
笔芯、胶水502一类的、彩色线绳、和一个矿泉水瓶硬一点的最好 矿泉水瓶剪成笔筒的高度留底，比笔芯略矮一点，然后把笔芯用胶水一根一根紧密排列黏在矿泉水瓶上，确保把矿泉水瓶都包裹住，然后用彩色线绳紧密缠在做好的半成品上，最后用胶水黏下线头，就齐活了呗~
圣诞时我们单位要每个人准备一份有意义的小礼物，到时抽签送礼物，所以男女不定，价钱在10-50元之间，
拼图．成盒装的那装．
怎么制作日历表
佳能、惠普等打印机自带打印软件，还可用光影魔术手、星智日历软件等。
梦见纸条
梦见纸条，敏锐的一天！洞察别人内心的能力，会在今天给到你显而易见的帮助。
梦见写纸条，适合制定预算开支！接下来的投资理财活动会变得相当活跃，财务上的收支项目也变得繁多起来。
梦见别人给纸条我：身体略有小恙，无碍。
病人梦见别人给自己纸条：会卧床不起。
老人梦见别人给自己纸条，则近期运势运程：万事逐渐转为顺利，但不可操之过急，一定要按步就班。
未婚者梦见别人给自己纸条，预示您的恋情会成功。
求学者梦见别人给自己纸条，预兆考试成绩好。
用一个矿泉水瓶做一个与环保有关的小制作 怎么做？
做一个沙漏
我想求助一个小程序，要抽签用的。课堂上课用。谢谢你拉。大好人！
自己弄过随机数就行了
小制作台灯取什么名字
蓝天下的守望，蓝天下的阳光，温暖之光
