如何在視覺基礎上劃分並獲得整數解答

-1

在製作數學遊戲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

來源

2017-03-07 Jonny.S

這與您的[上一個問題]（http://stackoverflow.com/q/42615703/1070452）相同。答案不會改變：使用乘法得到'答案'：隨機選擇a * b = c'PIck'a'和'b'來獲得'c';扔掉'b'讓他們猜測 – Plutonix

你也不需要2個隨機對象來選擇2個數字 - 每個數字都能夠產生很多很多值。實際上創造2如此接近（及時）*增加*他們將返回相同的價值的機會。 – Plutonix

使用'\'進行整數除法。例如'7 \ 5 = 1'，而'7/5 = 1.4'。 – Enigmativity

可以使用CINT

例
昏暗ANS爲整數= CINT（ANS1/ANS2）

嘗試，並檢查它。

來源

2017-03-07 17:38:35 sunilkarkala

如何在視覺基礎上劃分並獲得整數解答

回答

相關問題