vb.net - Windows フォームでの数値 CAPTCHA 検証

Question

2 つの別々のラベルに 2 つの乱数を表示するプログラムを作成しています。それらを加算/減算する必要があり、答えをテキスト ボックスに入力する必要があります。

数値を足したり引いたりして、テキストボックスに答えを入力するにはどうすればよいですか?

Visual Basic Windows Forms Application で作成しています

Answer 1

何らかのセキュリティ技術を実行しようとしていると思います。あなたの試みに感謝します。質問と理解していることに基づいて、次のコードを提案として提供します。

ラベルに乱数と乱数演算子を生成するコード

Dim op As Integer ' to represent the operator
Private Sub Generate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Generate.Click
    Dim Rand As New System.Random
    op = Rand.Next(0, 3)'randomly select operator 
    lblfirst.Text = Rand.Next(0, 10)'first random number
    lblsecond.Text = Rand.Next(0, 10)'second random number
    If op = 0 Then ' choosing operator based on op
        lblop.Text = "+"
    ElseIf op = 1 Then
        lblop.Text = "-"
    ElseIf op = 2 Then
        lblop.Text = "*"
    End If
End Sub

以下は、ラベルの式を評価し、テキスト ボックスの回答をチェックするチェック ボタンのクリック イベントです。結果としてメッセージを表示します。

 Private Sub check_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles check.Click
        Dim result As Double = 0.0
        If op = 0 Then
            result = CDbl(lblfirst.Text) + CDbl(lblsecond.Text)
        ElseIf op = 1 Then
            result = CDbl(lblfirst.Text) - CDbl(lblsecond.Text)
        ElseIf op = 2 Then
            result = CDbl(lblfirst.Text) * CDbl(lblsecond.Text)
        End If
        If result = CDbl(TextBox1.Text) Then
            MsgBox("Correct")
        Else
            MsgBox("Wrong")
        End If
    End Sub

Answer 2

これにより、0 ～ 10 の間の 2 つの乱数が追加されます。

        Dim Rand As New System.Random
        Dim Rand1 as integer = Rand.Next(0, 10)
        Dim Rand2 as integer = Rand.Next(0, 10)
        YourLabel1.Text = Rand1.toString()
        YourLabel2.Text = Rand2.toString()
        YourAnswerLabel.Text = Rand1 + Rand2