不知道你所见到的具体页面与内容是什么样的。下面的公式直接输入到任意单元格里就可以实现了。 抽签程序主要用到的是随机函数 rand 例如班上一共有60个人,学号从1到60,则公式:=ROUND((1-RAND())*60,0) 就是从1到60的随机数。 然后每改变一次其他单元格的数值,或者按一下F9,其数值均会改变一次。
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 已经运行通过,不过事先你得在桌面建立一个文本文件,用来存储数据,呵呵
1、把矿泉水瓶的上半部分剪去 2、在里面放一些用粗沙、细沙、活性炭、棉花 3、在里面种水草,这样鱼会有氧气,而鱼的粪便会变成水草的养分 4、在里面放水约2/3的水,上面放一些浮萍,(不要放太多,鱼会没活动的地方)
1、把矿泉水瓶的上半部分剪去 2、在里面放一些用粗沙、细沙、活性炭、棉花 3、在里面种水草,这样鱼会有氧气,而鱼的粪便会变成水草的养分 4、在里面放水约2/3的水,上面放一些浮萍,(不要放太多,鱼会没活动的地方)
应该是这样的制作顺序,鼠,牛,虎,兔,龙,蛇,马,羊,猴,鸡,狗,猪。
很简单啊
没读堵得慌好的好的厚度等哈应技大还发还差就发还发依然果然和他大爷人呀回答任何图回答还发个关系福娃人啊在
红咖喱甘蔗蛤蟆 材料 甘蔗100克,蛤蟆1只,青、红椒块共30克。调料红咖喱酱35克,泰国鱼露5克,椰汁10克,料酒、盐、味精各8克,鸡粉10克,白糖、辣椒油、牛油、生粉各10克,鸡蛋面30克,色拉油500克,干葱蓉5克,湿淀粉5克。 做法 1、锅内放入牛油,烧至六成热时入干葱蓉、红咖喱酱小火炒香,出锅加泰国鱼露、椰汁调匀,上笼大火蒸5分钟成酱汁。 2、甘蔗去皮,切长5厘米、宽1厘米、厚1厘米的条;蛤蟆冲洗干净,改刀重约10克的块,用盐3克、味精、料酒腌渍10分钟至入味,加生粉拌匀备用。 3、锅入沸水,入甘蔗条大火汆0.5分钟,捞出控水,垫入锅仔底。 4、锅内放入色拉油,烧至五成热时放入蛤蟆小火滑1分钟,捞出控油;锅内留油15克,烧至七成热时下青、红椒块中火炒香,入调好的红咖喱酱、清水15克小火烧开,入盐、鸡粉、白糖调味,下蛤蟆大火翻匀,加湿淀粉勾芡,淋入辣椒油,出锅装入锅仔内,带煮好的鸡蛋面上桌。
2018才是狗年,现在制作早了吧
软件的费用和功能多少,难易程度有关。如果功能不是很复杂,软件很便宜的。大漠驼铃软件工作室,专业定做软件,可以参考。