Visual Basicナンバーセレクターコード

Question

現在、ビジュアルベーシックで数学ゲームを開発中ですが、特定のコードセットでいくつかの助けが必要です。

コードで選択された乱数が必要です：Dim Result0 = Rnd1.Next(10, 20)、常に0または2で終わるように、13と15のような数字は選択されません。私は分割ゲームを作っているので、これをする必要があります。もし10/6のようなランダムな質問が出たら、ちょっと迷惑な長い10進数字を入力する必要があります。ここに完全なコードがあります。あなたは何ができるか

Public Class Division 
    Dim Rnd1 As New Random 
    Dim Rnd2 As New Random 
    Dim Result0 = Rnd1.Next(10, 20) 
    Dim Result1 = Rnd1.Next(1, 10) 
    Dim Total = Result0/Result1 
    Dim Score As Integer = 0 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     Me.KeyPreview = True 
     TextBox1.Text = Result0 
     TextBox2.Text = Result1 
     Label3.Text = Total 
     Label4.Text = Score 

    End Sub 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim Rnd1 As New Random 
    Dim Rnd2 As New Random 
    Dim Result0 = Rnd1.Next(10, 20) 
    Dim Result1 = Rnd1.Next(1, 10) 
    Dim Total = Result0/Result1 

    If TextBox3.Text = Label3.Text Then 
     Score += 1 
     TextBox3.Text = "" 
    Else 
     MessageBox.Show("Incorrect") 
     TextBox3.Text = "" 
    End If 
    TextBox1.Text = Result0 
    TextBox2.Text = Result1 
    Label3.Text = Total 
    Label4.Text = Score 

End Sub 

Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click 

End Sub 

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown 

    If e.KeyCode = Keys.Enter Then 
     e.SuppressKeyPress = True 
     Button1.PerformClick() 
    End If 


End Sub 
End Class 

Answer 1

合計はあなたがすべての値を代入する前に整数であり、そうでない場合は、あなたの番号を再生成した場合のテストです。

メモ数値を分割するときは、整数値を使用するかどうかによって、「/」または「\」を使用できます。 https://msdn.microsoft.com/en-us/library/b6ex274z.aspx

Dim Rnd1 As New Random 
Dim Rnd2 As New Random 
Dim Result0 As Integer 
Dim Result1 As Integer 
Dim Total As Integer 

Do 
    Result0 = Rnd1.Next(10, 20) 
    Result1 = Rnd1.Next(1, 10) 
    If Result0/Result1 = Result0 \ Result1 Then 
     Total = Result0/Result1 
     Exit Do 
    End If 
Loop 

を参照するか、あなたはあなたの答えと除数を生成することができ、あなたの最初の数:)

Dim Result1 = Rnd1.Next(1, 10) 
Dim Total = Rnd1.Next(1, 5) 
Dim Result0 = Result1 * Total