VB2010 コードの意味を教えてほしいです。
VB2010を使って、基礎から勉強中です。
テキストに紹介してあるサンプルプログラムを作っているところですが、
どうしても、わからないところがあります。
乱数を発生させ、こんばんはという文字を、5つのボタンにランダムに表示させて
ボタンをクリックして、なんという言葉か当てるゲームです。
その中で、For ～ Nextの中に入力されている内容の意味を
詳しく知りたいです。よろしくお願いします。
Public Class Form1
Private answer As String = "こんばんは" '答え
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'答えを文字列の配列に変換
Dim moji() As Char = answer.ToCharArray()
'文字入れ替え
Dim rnd As New Random() '乱数を発生させる
For i As Integer = 1 To 10
Dim n1 As Integer = rnd.Next(5)
Dim n2 As Integer = rnd.Next(5)
Dim m As Char = moji(n1)
moji(n1) = moji(n2)
moji(n2) = m
Next
Button1.Text = moji(0)
Button2.Text = moji(1)
Button3.Text = moji(2)
Button4.Text = moji(3)
Button5.Text = moji(4)
'回答欄を初期化
Label2.Text = ""
End Sub
Private Sub btns_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click,
Button2.Click, Button3.Click, Button4.Click, Button5.Click
Dim btn As Button = CType(sender, Button)
Label2.Text &= btn.Text
btn.Visible = False
If Label2.Text = answer Then
MsgBox("おめでとう", 0, "正解")
ElseIf Label2.Text.Length >= answer.Length Then
MsgBox("残念！", 0, "不正解")
End If
お礼
完璧です。 素早いご回答ありがとうございます。 助かりました。 基本をもっと勉強しようと思います。 本当にありがとうございました。