揺奖小程序

  • VB 抽奖小程序

    PrivateSubCommand1_Click()DimiAsIntegerDima(30)AsStringList1.Cleara(1)="姓名1"a(2)="姓名2"a(3)="姓名3"a(4)="姓名4"a(5)="姓名5"a(6)=&quo

    详情

    朱果果 2018-09-18 17:23 0评论 16赞同

  • VB 抽奖小程序

    参加人26个字母,呵呵,自己也凑热闹OptionExplicitOptionBase1DimRec()AsString*1DimFirPrize(3)AsString*1DimSecPrize(5)AsString*1DimThiPrize(10)AsString*1DimRecNumAsIntegerPrivateSubCd1()

    详情

    Eli4321 2018-09-18 17:23 0评论 16赞同

  • 如何利用vb制作抽奖小程序

    使用timer控件和随机函数就好了!

    详情

    Sadie 2018-09-18 17:21 0评论 8赞同

  • VB 抽奖小程序

    太简单了吧。。将30个人名存储到数组a(i)里,然后。forj=0to6Randomizeprinta(Int(30*Rnd))next

    详情

    月下独酌素笺淡墨 2018-09-18 17:21 0评论 10赞同

  • VB 抽奖小程序

    完化楼上的,,可以摇人名,,不会出现重复,,不会出现空白加一个LIST和一个TIMER,COMMANDDima(30)AsStringPrivateSubCommand1_Click()IfCommand1.Caption="开始"Thena(1)="姓名1"a(2)="姓名2"a(3)=&q

    详情

    亚马逊河游客 2018-09-18 17:18 0评论 16赞同

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