在线抽签程序
- 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
已经运行通过。不过事先你得在桌面建立一个文本文件、用来存储数据,呵呵
、
- JAVA抽签小程序
- 您好:package test;import java.util.HashSet;
import java.util.Set;
import java.util.Iterator;public class test {
public static void main(String[] args) {
Set set = new HashSet();
for (int i = 1; i Xian把100放入set然后再随即找出来,另外外一个想法是随即产生数!放入list中判断是否重复,这样也达到这样的效果。!
- 怎么做图片抽签程序
- 晚会抽抽奖之星 ,图片抽奖能力最好。
- 商场火灾的处理程序
- 有以下几个关键点要注意一下: 1!发现火灾要立即报警!分两层意思。一是打119,二是告诉商场的所有人(通过消防广播!或其他方式。要快),2,立即即组织现场的人员灭火?用灭火器和消防栓。2675注意要用消防栓、灭火器的作用有时候非常有限的。3、着火层的上层人员立即疏散,之后是着火层和下层的人员!不要犹豫,人活着比什么都好。4!组组织人员维护现场秩序,协协助消防队员展开战斗!、
- 这个 周公解梦 www.2jiemeng.com 的程序是什么?
- 直接把你要查询的信息输入框框里面。然后按9978“周公解梦”,
- 什么是抽签对联
- 抽签对联即:
抽的签子上8798写的对联,
抽签对联一般都是有寓意的,。
- 去监狱探监的程序
- 3498 楼下的乱说、我在监狱的经验、只要你男朋友的父母带你过去就可以了
外地的可以不受规定接见时间的限制、可以不拿接见单!随时(工作作日)都可以去接见!,
- 排球比赛怎样抽签
- 八个班进行拔河比赛和气排球比赛。如何分组。关键是如如何举行抽签,打算进行单循环赛、 如果有合适的答案 将追加悬赏 单循环还需要分组吗,不是是每个班都。
- 给父母立碑一般需要哪些程序
- 给父母立碑需把父母的出生年月日和7776亡故年月日都写碑右边!上留些空间!用小字从上上到下写、碑文中间大字靠上写:先父母,名讳 之墓,下面留点空间。
左边,上留点空间写子孙后代代的名字、最左边靠下一点、写X年X月X日敬立。
已故者用白漆描名字、在世人用红漆描名字。
- 寿宁在线民生连线16年公租房何时抽签
- 这不影响申请公租房、只要符合公租房的申请条件即可去申请。《公共租赁住房管理办法》》第七条 申请公共租赁住房,应当符合以下条件:(一)在本地无住房或者住房面面积低于规定标准!(二)收入!财产低于规定标准!(三)申请人为外来务工人员的!在本地稳定就业达到规定年限、具体条件由由直辖市和市。县级人民政府住房保障主管部部门根据本地区实际情况确定!报本级人民政府批准后实施并向社会公布,,