简单的4d软件。（附代码）

rcyaw2

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim score As New Random
        ListBox1.Items.Clear()

        ListBox1.Items.Add("1st Prize: " & zero(score.Next("0001", "10000")))
        ListBox1.Items.Add("2nd Prize: " & zero(score.Next("0001", "10000")))
        ListBox1.Items.Add("3rd Prize: " & zero(score.Next("0001", "10000")))

        ListBox1.Items.Add("Conso: " & zero(score.Next("0001", "10000")))
        ListBox1.Items.Add("Conso: " & zero(score.Next("0001", "10000")))
        ListBox1.Items.Add("Conso: " & zero(score.Next("0001", "10000")))
        ListBox1.Items.Add("Conso: " & zero(score.Next("0001", "10000")))
        ListBox1.Items.Add("Conso: " & zero(score.Next("0001", "10000")))

        ListBox1.Items.Add("Special: " & zero(score.Next("0001", "10000")))
        ListBox1.Items.Add("Special: " & zero(score.Next("0001", "10000")))
        ListBox1.Items.Add("Special: " & zero(score.Next("0001", "10000")))
        ListBox1.Items.Add("Special: " & zero(score.Next("0001", "10000")))
        ListBox1.Items.Add("Special: " & zero(score.Next("0001", "10000")))
        ListBox1.Items.Add("Special: " & zero(score.Next("0001", "10000")))
        ListBox1.Items.Add("Special: " & zero(score.Next("0001", "10000")))
        ListBox1.Items.Add("Special: " & zero(score.Next("0001", "10000")))
        ListBox1.Items.Add("Special: " & zero(score.Next("0001", "10000")))
        ListBox1.Items.Add("Special: " & zero(score.Next("0001", "10000")))
        ListBox1.Items.Add("Special: " & zero(score.Next("0001", "10000")))
        ListBox1.Items.Add("Special: " & zero(score.Next("0001", "10000")))
        ListBox1.Items.Add("Special: " & zero(score.Next("0001", "10000")))
        ListBox1.Items.Add("Special: " & zero(score.Next("0001", "10000")))
        ListBox1.Items.Add("Special: " & zero(score.Next("0001", "10000")))

        'MessageBox.Show(score.Next("0001", "10000"))

    End Sub
    Private Function zero(ByRef st)
        If st < 10 Then
            Return "000" & st
        ElseIf st < 100 Then
            Return "00" & st
        ElseIf st < 1000 Then
            Return "0" & st
        Else
            Return st
        End If

    End Function

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class
rem chakhua@gmail.com (016-5542106)

zhensoft

这样也算？

rcyaw2

你要完整就要收钱嘛，这个是免费版的。
想要用Java来写，或者C++

hooi1983

rcyaw2 发表于 23-11-2012 09:31 PM
你要完整就要收钱嘛，这个是免费版的。
想要用Java来写，或者C++

这个明明就是 VB.Net。。。和 Java/C++ 有关系吗？

shakalaka

抱歉讲一句，这根本是刚开始读IT foundation study的咚咚，你太夸大了