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 已经运行通过,不过事先你得在桌面建立一个文本文件,用来存储数据,呵呵
不知道你所见到的具体页面与内容是什么样的。下面的公式直接输入到任意单元格里就可以实现了。 抽签程序主要用到的是随机函数 rand 例如班上一共有60个人,学号从1到60,则公式:=ROUND((1-RAND())*60,0) 就是从1到60的随机数。 然后每改变一次其他单元格的数值,或者按一下F9,其数值均会改变一次。
第一个是定位。 比如你在一个拥挤的广场上,找一个人,你喊“我找他”,没人理你,因为根本不知道你说的是谁,假如你说我找张三、或者李四,那么人们就知道你要找谁了。 第二个是联想。 这个和人脑的记忆特点有关。人脑记东西,存储的不是干巴巴的文字,而是进入眼睛的图像、进入耳朵的声音、进入鼻子的气味、进入口中的味道。当我们想到一个人或者一件东西的名字时,是先用这个名字到大脑的数据库中去搜索,唤起相关的生动活泼的记忆,比如他的样子、笑容、声音,你和他一起走过的路、做过的事。此时,名字就像压缩文件,解压缩后得到一些图片或一段视频,在脑海里播放。 第三个是激发行动。 联想之后,一个名字会自动传递一些信号,暗示、唤起、勾引我们去做一些事情。 不管是一个人,还是一件产品,名字就是他在人们心中的关键词,让人找到他,联想起相关的回忆而记住他,因为它的暗示去做一些事情。 这就是名字的三大作用。
第一个是定位。 比如你在一个拥挤的广场上,找一个人,你喊“我找他”,没人理你,因为根本不知道你说的是谁,假如你说我找张三、或者李四,那么人们就知道你要找谁了。 第二个是联想。 这个和人脑的记忆特点有关。人脑记东西,存储的不是干巴巴的文字,而是进入眼睛的图像、进入耳朵的声音、进入鼻子的气味、进入口中的味道。当我们想到一个人或者一件东西的名字时,是先用这个名字到大脑的数据库中去搜索,唤起相关的生动活泼的记忆,比如他的样子、笑容、声音,你和他一起走过的路、做过的事。此时,名字就像压缩文件,解压缩后得到一些图片或一段视频,在脑海里播放。 第三个是激发行动。 联想之后,一个名字会自动传递一些信号,暗示、唤起、勾引我们去做一些事情。 不管是一个人,还是一件产品,名字就是他在人们心中的关键词,让人找到他,联想起相关的回忆而记住他,因为它的暗示去做一些事情。 这就是名字的三大作用。
淘气的小精灵 忧伤的卡洛里 可爱的小宇宙 美妙的童年期 欢快的行者孙 离别的异乡情
需要设计公众号?
我这里有,我可以告诉你
这里这里 纯原创分享滴~~
恋恋国风,文章、歌曲、诗词、图片等多种古风类型。
公众号起名可以根据你的姓氏。来加一些你说说的视图什么的都是可以的。。。