VB 抽奖小程序

205关注1233浏览

我需要一个类似于抽奖的小程序,我的编译软件是visual basic,大概就这么个意思,有30个人名,我按个开始键,开始检索,后来检索结束,出来7个随机的检索名单,请问可以给我一个源代码吗,谢谢,非常感谢,急,在线等。
是不是要在VB的可视化界面做两个按键上去,然后在代码界面里面输入代码,但是我运行总是不对,哎
我按F5运行后,点开始键,总是提示“实时错误,要求对象”。然后我点“调试“,错误代码直接指向Timer1.Enabled = True。我没用VB很多年了,一些东西实在不记

展开全部
收起
4回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 朱果果

    16人对此回答表示赞同

    Private Sub Command1_Click()

    Dim i As Integer
    Dim a(30) As String
    List1.Clear
    a(1) = "姓名1"
    a(2) = "姓名2"
    a(3) = "姓名3"
    a(4) = "姓名4"
    a(5) = "姓名5"
    a(6) = &quo
    展开
    16
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Eli4321

    16人对此回答表示赞同

    参加人26个字母,呵呵,自己也凑热闹
    Option Explicit
    Option Base 1

    Dim Rec() As String * 1
    Dim FirPrize(3) As String * 1
    Dim SecPrize(5) As String * 1
    Dim ThiPrize(10) As String * 1
    Dim RecNum As Integer

    Private Sub Cd1()
    展开
    16
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 亚马逊河游客

    16人对此回答表示赞同

    完化楼上的,,可以摇人名,,不会出现重复,,不会出现空白
    加一个LIST 和一个TIMER ,COMMAND

    Dim a(30) As String
    Private Sub Command1_Click()

    If Command1.Caption = "开始" Then

    a(1) = "姓名1"
    a(2) = "姓名2"
    a(3) = &q
    展开
    16
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 月下独酌素笺淡墨

    10人对此回答表示赞同

    太简单了吧。。

    将30个人名存储到数组a(i)里,然后。
    for j=0 to 6
    Randomize
    print a(Int(30 * Rnd))
    next
    展开
    10
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部