タイピング入門をつくりました（笑）

Option Strict On 'VisualBasic2008 

'入門用、タイピングGame 

Public Class Form1

    Private Const Moji_Suu As Integer = 10

    Private mondai(Moji_Suu - 1) As String

    Private Rnd As System.Random

    Private Level As Integer = 20 '________________レベル 

    Private Tokuten As Integer = 0

    Private Rn_d As Integer

    Private kaihi(Moji_Suu - 1) As Integer '重複回避 

    Private kaihi2 As Integer = 0 '乱数重複回避 

    Private Tukaisute As Integer



    Public Sub New()

        ' この呼び出しは、Windows フォーム デザイナで必要です。 

        InitializeComponent()



        ' InitializeComponent() 呼び出しの後で初期化を追加します。 

        '文字 

        mondai(0) = "りんご"

        mondai(1) = "パイナップル"

        mondai(2) = "いちご"

        mondai(3) = "レモン"

        mondai(4) = "みかん"

        mondai(5) = "きゅうり"

        mondai(6) = "BANANA"

        mondai(7) = "大福もち"

        mondai(8) = "なすび"

        mondai(9) = "ぶどう"

        Rnd = New System.Random()

    End Sub

    Private Sub Rnd_mize()

        Try

100:        Rn_d = Rnd.Next(Moji_Suu)

200:        For Me.Tukaisute = 0 To 9

                If kaihi(Tukaisute) = Rn_d Then GoTo 100

            Next

            kaihi(Tokuten) = Rn_d

            Label2.Text = mondai(Rn_d).ToString

        Catch

            Rn_d = kaihi2

            kaihi2 += 1 : GoTo 200

        End Try

    End Sub





    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        For Me.Tukaisute = 0 To 9

            kaihi(Tukaisute) = 100

        Next

        hyouji()

        Rnd_mize()

        With Me.Timer1

            .Interval = Level * 50 '_____数字注意_____!!! 

            .Start()

        End With

    End Sub

    Private Sub Ending()

        Me.Label1.Text = "Closeして下さい"

        Me.Label2.Text = "終了"

        Me.Label3.Text = "得点" & "" & Tokuten & "点"

        Me.TextBox1.Enabled = False

        Me.Timer1.Stop()

    End Sub

    Private Sub hyouji()

        Me.Label1.Text = "残り" & Level & "秒"

        Me.Label3.Text = Tokuten + 1 & "問"

    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Try

            hyouji()

            Level -= 1

            If Level = 0 Then

                Level = 20

                Ending()

            End If

            If TextBox1.Text = mondai(Rn_d) Then

                TextBox1.Text = Nothing

                Tokuten += 1 : Level = 20 : hyouji()

                If Tokuten = 10 Then

                    Ending()

                Else

                    Level = 20

                    Rnd_mize()

                End If

            End If

        Catch

            MsgBox("コードError")

        End Try

    End Sub

End Class

' 

'Form1 

'____________________________________________ 

'                                            | 

'            Label 1                         | 

'                                            | 

'            Label 2                         | 

'                                            | 

'            Label 3                         | 

'                                            | 

'                                            | 

'            TextBox1                        | 

'                                            | 

'                                            | 

'コンポーネント　＿＿　Timer1                | 

'                                            | 

'____________________________________________|