VS2010旗舰版的VB.NET数字操作系统FORM8程序代码

Imports System.Runtime.InteropServices

Public Class Form8

<DllImport("kernel32.dll")>
Public Shared Function Beep(ByVal dwFreq As Integer, ByVal dwDuration As Integer) As Integer
End Function







Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim s As String = TextBox1.Text

    For i As Integer = 1 To Len(s)
        Select Case CInt(Mid(s, i, 1))

            Case 0
                Beep(0, 200)

            Case 1
                Beep(533, 200)
            Case 2
                Beep(933, 200)
            Case 3
                Beep(1133, 200)
            Case 4
                Beep(1333, 200)
            Case 5
                Beep(1633, 200)
            Case 6
                Beep(1933, 200)
            Case 7
                Beep(2133, 200)
        End Select
    Next
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    End
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim s As String = "01234567"
    For i As Integer = 0 To 100
        Dim r As Integer = CInt(Rnd() * (Len(s)))
        TextBox1.Text = TextBox1.Text & Int(Rnd() * r) & Int(Rnd() * r) & Int(Rnd() * r) & Int(Rnd() * r) & Int(Rnd() * r) & Int(Rnd() * r)
    Next
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    TextBox1.Text = ""
End Sub

End Class