java抽奖小程序源码

import java.util.Scanner

public class ChouJiang {

public static void main(String[] args) {

System.out.println("我行我素购物管理系统>幸运抽奖")

System.out.println("")

System.out.println("")

Scanner input=new Scanner(System.in)

System.out.print("请输入四位会员号：")

int hyh=input.nextInt()

int q,b,s,g,sum

q=hyh/1000

b=hyh/100%10

s=hyh/孙正10%10

g=hyh%10

sum=q+b+s+g

if(sum>=23)

{

System.out.println(hyh+"是幸运客户，获精美MP3一台枝凯袜！"猛激)

}else

{

System.out.println(hyh+"谢谢您的支持！")

}

}

}

Dim n As Integer

Dim a()

Private Sub Command1_Click()

    If n = 0 Then            '第一次点击时执行

        m = Val(Text1)

        ReDim a(1 To m)

        For i = 1 To m      '生成数组a，元素为1至m这m个数

            a(i) = i

        Next

        For i = 1 To m - 1             '随机打乱数组a中元素

       闹拿返     r = Int(Rnd * m + 1)

            tmp = a(i)

            a(i) = a(r)

            a(r) = tmp

        敏卖Next

    End If

    n = n + 1                 '计数点击次数

    If n > Val(Text1) Then    '次数超过指定次数，抽奖结束

        MsgBox "抽奖结束！"

        Exit Sub

    End If

    Text2 = a(n)              '从数组中液饥抽出第n个数，由于数组中是随机排列，所以相当于生成一个随机数，并且不会重复

End Sub

---