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 已经运行通过，不过事先你得在桌面建立一个文本文件，用来存储数据，呵呵
求一个抽签程序
代码发了N遍发不上来,直接拿走用吧 html>
我要做一个关于日本的PPT 很重要啊 求各位老大帮帮忙啊！！！抽签抽成小日人的 晕死了
第一张弄个标题，你的名字什么的 第二张 做成提纲型的，有超链接的那种 第三张 日本简介 下面随你喜欢，可以做 历史、地理、资源、经济、景点、民族特色、风俗……百度百科里有好多资料的 文字间插一些图片，类似樱花、著名的景点照片什么的 还可以找视频、音乐，看上去内容就丰富了 模板差不多就这样咯
我要做一个关于日本的PPT 很重要啊 求各位老大帮帮忙啊！！！抽签抽成小日人的 晕死了
第一张弄个标题，你的名字什么的 第二张 做成提纲型的，有超链接的那种 第三张 日本简介 下面随你喜欢，可以做 历史、地理、资源、经济、景点、民族特色、风俗……百度百科里有好多资料的 文字间插一些图片，类似樱花、著名的景点照片什么的 还可以找视频、音乐，看上去内容就丰富了 模板差不多就这样咯
观音借库日的程序
下列是最常见的作福物品∶香三枝。红烛一对。或另加长寿香。拜观音的金银衣纸一份：观音衣、大光宝、寿金或潮州金、长禄马、圆禄马、转运宝牒、百解符、贵人符等。五斋：五种不同的蔬菜生果。可用橙、苹果、提子、雪梨、水晶梨或其他生果。罗汉斋用五种菜炒在一起，故罗汉斋代表另外五种斋菜。茶三杯、水三杯、筷子三对。切忌用酒、用荤。先燃点红烛，叩拜三次，然后插在香炉上。接着燃点檀香三枝，也叩拜三次，插香炉上。如果念咒颂经，增强感通。流行的经文有心经、观音心咒，或六字大明咒，效力一样。说一些吉利话，祈求观世音菩萨保佑，身体健康，恶运尽除。最后，将金银衣纸焚化。焚化时再念观音心咒十八遍或一○八遍。礼成。观音咒：南呒佛南呒佛南呒僧南无救苦救难观世音菩萨怛只他（丹之拖）唵（庵）伽罗伐哆（骑喇花多）伽罗伐哆（骑喇花多）伽诃伐哆（喇骑花多）罗伽伐哆（喇骑花多）娑婆诃（梭婆呵）观音借库：准备香烛；诚心上香；上香祈拜之后，敲钟三下，示意观音大士得悉∶信徒前往借库；依照指示，到“金银库”取利是，然后再取生菜红包，内有花生或莲子等食物，最好吃下肚里去，不要丢弃。离开观音庙之前，再一次向观音许下承诺，年底回来酬神。善信为了表示诚心祈求，在“借库”前后，有几点值得注意∶借库前，斋戒沐浴，以表真诚；上香前请洗手；借库时，要表达阁下是何许人？家住何方？及出生日期。不能求赌胜之道，要求正财；你有什么希望？祈求时立即道出，记着∶不要太贪心，足够便可；借库日不一定要在农历正月二十五日，只要诚心，任何一日均可。还有一点更重要的是借库之日忌食与肉有关的食物，例如猪肉、鸡红绝不能沾口，否则会遭遇血光之灾。其次，借库返家后，要在东南方向注上九九共八十一枝香，以谢神恩为要。那么，到“观音庙”求财，应该借贷若干？据说，“观音开库”借贷数目是没有限制的，从一千万到十亿都可以，不过，信徒应该知道，在观音大士之前不要太贪心，其实，除了钱之外，健康、平安和好姻缘也是非常重要的。一位庙祝向信徒告诫说∶“除了向观音借贷之外，同时也可以向观音借心愿，也许，完成自己的心愿，比金钱更为重要。”许多风水师认为∶正月二十六日，观音开库，港九最有利的财位是位于新界北区的八乡观音庙，及位于东南面的红磡观音庙，最好的良辰是早上五时到七时，九时到十一时，或下午的一时至三时。
帮忙给小程序起个名字
食为天，好莱坞，敲背，铺床
EXCEL抽签程序，要求不要重复抽过的
楼主，你好！其VBA程序代码如下，望笑纳。 Sub choujiang() Dim i1, i2, i3, i4, i5 On Error Resume Next Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") Do i1 = i1 + 1 i2 = Int(Rnd() * 1000) i3 = Application.WorksheetFunction.CountIf(mysheet1.Range("A2:A10000"), i2) If i3 = 0 Then i4 = 1 Do i4 = i4 + 1 If mysheet1.Cells(i4, 1) = "" Then mysheet1.Cells(i4, 1) = i2 Exit Do End If If i4 > 200000 Then Exit Do End If Loop Exit Do End If If i1 > 200000 Then Exit Do End If Loop MsgBox "中奖号码为：" & i2 End Sub
我想开一个科技工作室，开发软件/微信公众号和小程序，请问应该怎么起名字？经营范围怎么写？
广东不然你就设备
本命佛摔坏了一点有影响吗匿名
本命佛是非常有灵性的，本命佛摔坏了一点，其实是本命佛为我们挡了一劫。、这对于我们来说是并没有什么影响的，只需在另行奉请一尊开光的就好。影响再次佩戴的话，可以红布包起来放好，也可以用土埋起来，寓意回归自然。
在淘宝买东西，付款的时候有个匿名购买是什么意思啊？
如果不开匿名购买的购买后会显示使用者名称，所有人都能看到你的购买记录，包括以前买过什么等等，匿名后就看不到了。
