翻来覆去没问题？！

[ss1780064119]

窗体1（验证窗体）

  Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If TextBox1.Text = "82" And TextBox2.Text = Form3.a Then
            Form1.Show()
            Me.Close()
            Form1.TextBox1.PasswordChar = ""
        Else
            MsgBox("输入错误的验证码或用户名，无法解锁", MsgBoxStyle.Exclamation, "提示消息")
        End If

    End Sub

窗体2（验证码）

 Public Class Form3
    Dim randomizer As New Random
    Public a As String

    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Label1.Text = randomizer.Next(1000, 9999)
        a = Label1.Text
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form2.Show()
        Me.Close()
    End Sub
End Class 

语法木有错误，但是无法验证。
谢谢！

[clear_zero]

你放个断点进去看看，我觉得逻辑有点走不通阿 你的判定 TextBox2.Text = Form3.a form3在Load的时候产生随机数给label1 也就是说你在判定的时候form3就产生随机数，你的textbox2只有非常小概率和它吻合阿 你重新设计一下吧

[平头哥哥]

debug，跟进一下，既然你说没有验证，就在需要验证的方法体内打个断点，看是否走进去了。 代码跑起来，问题不就容易找了。

[ss1780064119]

名字乱了。应该是form1

[threenewbee]

form2是什么 你说form2的那个明明是form3

[clear_zero]

引用 6 楼 ss1780064119 的回复:

比如说我进去看的时候是1187，书的时候变成了9465？

你放一个断点debug不就知道你的数据了

[ss1780064119]

引用

你放个断点进去看看，我觉得逻辑有点走不通阿 你的判定 TextBox2.Text = Form3.a form3在Load的时候产生随机数给label1 也就是说你在判定的时候form3就产生随机数，你的textbox2只有非常小概率和它吻合阿 你重新设计一下吧

你的意思是我输入的时候已经切换过随机数了？

[ss1780064119]

比如说我进去看的时候是1187，书的时候变成了9465？

[熊孩子开学喽]

楼主还是说说你到底要干嘛, 楼上几位每人都可以帮你写一个正确的.

[bing2014a]

谢谢楼主，学习了

[ss1780064119]

用户名加上验证码，单击按钮，随机数产生，然后在验证。

[ss1780064119]

[quote][引用 6 楼 ss1780064119 的回复: 比如说我进去看的时候是1187，书的时候变成了9465？ 你放一个断点debug不就知道你的数据了/quote] 是什么意思？

[clear_zero]

[quote=引用 11 楼 ss1780064119 的回复:]

引用

[引用 6 楼 ss1780064119 的回复: 比如说我进去看的时候是1187，书的时候变成了9465？ 你放一个断点debug不就知道你的数据了/quote] 是什么意思？

你在这里 If TextBox1.Text = "82" And TextBox2.Text = Form3.a Then 添加一个断点，然后程序就会在执行到这里的时候停下，然后把鼠标放过去看看textbox2.text里面的数据和form3.a里面的数据是什么就知道了

[ss1780064119]

知道了，谢谢