用vb编程实现抽签

私人？Sub？BEG_Click()

定时器1。启用？=?真实的

如果？求求。标题？=?“开始抽签”？然后

求求。标题？=?“停止”

其他

求求。标题？=?“开始抽签”

定时器1。启用？=?错误的

结束？如果

结束？潜水艇

私人？Sub？ADD_Click()

暗淡？STR？作为？线

STR？=?InputBox("请输入要添加的名称")

暗淡？康恩？作为？新的？ADODB。关系

暗淡？rs？作为？新的？ADODB。记录集

暗淡？Str1？作为？线

暗淡？Str2？作为？线

暗淡？Str3？作为？线

Str1？=?“提供商=微软。Jet . OLEDB.4.0”

Str2？=?“数据？Source=C:\Documents？然后呢。设置\管理员\桌面\DB2。MDB”

Str3？=?“喷气式飞机？OLEDB:数据库？密码= "

控制室。打开吗？Str1？& amp？Str2？& amp？Str3

strSQL？=?“选择？*?从哪里？表1？”

rs。开放？strSQL，？康恩？3,?三

rs。添加新内容

rs！名字？=?力量值

rs。更新

rs。关闭

关闭控制室

结束？潜水艇

私人？Sub？Form_Load()

定时器1。启用？=?错误的

暗淡？康恩？作为？新的？ADODB。关系

暗淡？rs？作为？新的？ADODB。记录集

暗淡？Str1？作为？线

暗淡？Str2？作为？线

暗淡？Str3？作为？线

Str1？=?“提供商=微软。Jet . OLEDB.4.0”

Str2？=?“数据？Source=C:\Documents？然后呢。设置\管理员\桌面\DB2。MDB”

Str3？=?“喷气式飞机？OLEDB:数据库？密码= "

控制室。打开吗？Str1？& amp？Str2？& amp？Str3

strSQL？=?“选择？*?从哪里？表1？”

rs。开放？strSQL，？康恩？3,?三

TEM？=?rs。记录计数

rs。关闭

为了什么？我？=?1?去哪？透射电镜

strSQL？=?“选择？*?从哪里？表1？在哪里？编号= "？& amp？我？& amp？""

rs。开放？strSQL，？康恩？3,?三

雷迪姆？保存？A(0？去哪？我)

甲(我)？=?rs！名字

rs。关闭

下一个？我

关闭控制室

结束？潜水艇

私人？Sub？定时器1 _定时器()

静电？j？作为？整数

Text1。文字？=?阿(J)

j？=?j？+?1

如果？j？=?UBound(A)？然后

j？=?1

结束？如果

结束？潜水艇

代码并运行，现在您在桌面上设置了一个名为db2的数据库，一个字段“name”。