求vb抽签程序代码做得好追加高分

来源：百度知道编辑：UC知道时间：2024/05/25 02:21:12

本人花了一个下午的时间尝试做出一个vb抽签程序
却总是失败
特求各路高手帮忙
做出符合我的要求的程序，并写出代码

要求：1、用VB6制作
2、可以无限量添加新的签
3、可以抽签
比如说，这个程序打开后有两个Text和两个Command，Command1的Caption为“添加新签”，Command2的Caption为“开始抽签”。在Text1中输入内容（比如“去睡觉”）后点Command1后就可以把Text1中的内容编上号并作为一个签（比如“去睡觉”编号变成了“1.去睡觉”），并放置在Text2中。以此类推，可以无限量添加，并且每次添加的签都要编上号，新增在Text2中。到最后我不想再添加，点开始抽签，就能利用Rnd产生随机数抽出一个数码，然后用Msgbox或其它方式显示出这个数码，我就能在Text2中对应这个数码找到相应编号的签了。

上面就是我的基本思路了，如果各位看不清楚也可以自由发挥，就当是一条脑力题吧~

P.s.制作符合我要求的，我会追加100分重赏之下必有勇夫嘛~

'新键两个 CommandButton和 TextBox ,其中 Text2 的 MultiLine 属性为 Ture ,ScrollBars 为 2 - Vertical

Dim lbNum As Integer

Private Sub Command1_Click()
    If Trim(Text1) <> "" Then 'trim 函数是用来删除 text1 两边的空格
        lbNum = lbNum + 1
        Text2.Text = Text2 & lbNum & "." & Text1 & vbCrLf  '记录,不过我建议这里用 listbox
    Else
        MsgBox "请输入内容"  '当没有输入内容时.....
    End If
End Sub

Private Sub Command2_Click()
    Randomize  '如果没有这句.每次重新启动程序时 Rnd 函数会还是得出原来的那几个数

  &nbs

求VB程序代码 VB程序代码求求一VB程序代码求一段VB程序代码 50分求VB程序代码. 求程序代码!(VB高手进来) vb程序代码 VB程序代码求热心的朋友添加vb程序代码怎样实现VB程序代码打包,求计算机高手近来看看

求vb抽签程序代码 做得好追加高分

求vb抽签程序代码做得好追加高分