ビジュアルベーシックでのみ整数を分けて返す方法

Question

私は数学のゲームatmを作っています。部門のセクションでは、コンピュータが求める質問が分かれていて、2つの乱数が与えられていないことを確認する必要があります。小数。 13/5のような質問が出てきません。それ、どうやったら出来るの。申し訳ありませんが、私のインデントがこのインターフェースに新しいものではない場合。

Public Class Division 
Dim Rnd1 As New Random 
Dim Rnd2 As New Random 
Dim Result0 = Rnd1.Next(20, 40) 
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(20, 40) 
    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 

Answer 1

あなたは整数= CINTとしてCINT

例
点心のANSを使用することができます（ANS1/ANS2）

それを試してみて確認してください。