0

私の現在のコード

パブリック クラス Form1

randomObject を新しい Random() として暗くする

Dim alphaRand As Integer = randomObject.Next(65, 91)

 Dim alpha As String = Me.textAlphabet.Text.ToUpper

    Dim asciicode As Integer = Asc(alpha)

    If asciicode = alphaRand Then
        Me.lblAlphaResult.Text = "Congratulation! Your guess:  " & textAlphabet.Text & " is correct,you win"
        Me.cmdAlphaNewGame.Enabled = True
        Me.cmdAlphaGuess.Enabled = False
    ElseIf asciicode < alphaRand Then
        Me.lblAlphaResult.Text = "You guess is too low.Try again"
    ElseIf asciicode > alphaRand Then
        Me.lblAlphaResult.Text = "Your guess is too high.Try again"
    End If
End Sub

クラス終了

* randomObject.Next(65, 91) ' は、asciicode に従ってのみ AZ にランダムなアルファを生成することを意味します。母音のみについてはどうですか? *

array Dim vowels As String() = {"A", "E", "I", "O", "U"} のようなものを使用して、後で推測できるように文字列からランダムなアルファベットを生成できますか

4

2 に答える 2

3

次のようなことができます

Dim vowels As String() = {"A","E","I","O","U"}
Dim i As Int32 = randomObject.Next (0, 5)
Return vowels(i)
于 2013-10-18T09:17:54.207 に答える
0

または単に文字列を使用する

Dim randomObject As New Random
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim vowels As String = "AEIOU"

    Dim vowelpicked As String

    vowelpicked = vowels.Substring(randomObject.Next(vowels.Length), 1)

    Debug.Write(vowelpicked)
End Sub
于 2013-10-18T11:26:58.837 に答える