- 博客(0)
- 资源 (15)
- 收藏
- 关注
PPT抽奖程序-名单抽取
需要调整ppt的 “工具--》宏--》安全性” 设置为低级。
代码如下:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim arrRM, F
'输入名单到: TextBox1 采用单个空格分隔,最前和最后一个数据后不要留空格(否则可能部分元素抽出为空)
'代码注释部分用于调试,或者你可以修改为其他用途,比如可以显示给用户观看。
Private Sub CommandButton1_Click()
If Me.CommandButton1.Caption = "停" Then
Me.CommandButton1.Caption = "开始"
Call CQ_do("stop")
Else
Me.CommandButton1.Caption = "停"
Call CQ_do("start")
End If
End Sub
Private Sub CQ_do(doTag)
Dim I
If doTag = "start" Then
arrRM = Split(Me.TextBox1, " ", -1, 1) '如果有需要你可以替换这里的空格,改为你需要的分隔符: 如个为英文分号 Split(Me.TextBox1, ";", -1, 1)
' TextBox3 = ""
' TextBox3.Visible = True
' TextBox4.Visible = True
' Me.TextBox4 = UBound(arrRM) & " " & arrRM(0) & " " & arrRM(UBound(arrRM))
F = 0
Do While True
Sleep 30
I = Int(((UBound(arrRM) + 1) * Rnd) + 0)
' TextBox3 = TextBox3 & "-" & I
TextBox2.Text = arrRM(I)
If F = 1 Then Exit Do
DoEvents
Loop
Else
F = 1
End If
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
2011-08-09
tools-工具集合三
3comdaemon服务(tftp,ftp,systemlog)
ACDSEE
ACRONIS-磁盘镜像
ChangeIP快速切换ip
FINALDATA-数据恢复
FOXITREADER-PDF阅读器
FREEWB-输入法
GHOST11
2008-12-31
tools-工具集合二
记事本
监视软件安装的所有过程
进程端口查看tcp view
可以删除硬盘中任意文件的小工具
鼠标自动点击
图像到文本 Ascgen dotNET v0.9.6
微软五笔
微软中国日历
系统检测
隐藏系统进程-带源码
影音播放
2008-12-31
jdbc-odbc桥 驱动
mysql数据库 <br>驱动版本:<div color=red>mysql-connector-java-5.1.6<div><br>如有重复请见谅。
2008-03-19
jsp论文-基于JSP的网上购物系统设计
ABSTRACT………………………………………………………………………………………………….2<br>前言 3<br>1 系统概述 4<br>1.1 JSP的技术原理 4<br>1.2 服务器配置 6<br>1.3 配置WEB站点 6<br>2 系统需求分析及总体设计 10<br>2.1 需求分析 10<br>2.2 系统功能模块设计 10<br>2.3 数据库需求分析 10<br>3 数据库结构设计 12<br>3.1 数据库实现 12<br>3.2 用JSP连接数据库 14<br>4 系统详细设计 17<br>4.1 前台部分 17<br>4.1.1 前台总体框架 17<br>4.1.2 用户管理模块 18<br>4.1.3 用户资料修改 25<br>4.1.4 购物车模块 26<br>4.1.5 订单查询模块 31<br>4.1.6 留言板模块 32<br>4.2 后台部分 34<br>4.2.1 后台总体框架 34<br>4.2.2 管理员登录 36<br>4.2.3 添加商品 37<br>4.2.4 订单信息管理 38<br>4.2.5 查询用户信息 41<br>4.2.6 添加链接 42<br>5 结束语 44<br>参考文献 45<br>致谢 46<br><br>
2008-01-12
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人