使用Visual Basic语言编写一个程序，其功能是键盘上输入一个整数，然后判断它是否

为质数。

以下是代码示例：

Private Sub btnCheck_Click()
    Dim num As Integer
    num = Val(txtInput.Text)
    Dim prime As Boolean
    prime = True
    If num <= 1 Then
        prime = False
    Else
        For i = 2 To Int(Sqr(num))
            If num Mod i = 0 Then
                prime = False
                Exit For
            End If
        Next i
    End If
    If prime Then
        MsgBox num & " is a prime number."
    Else
        MsgBox num & " is not a prime number."
    End If
End Sub

说明：

- 首先，我们将文本框中输入的文本转换为整数。
- 然后，我们定义一个布尔变量`prime`，用于存储是否为质数的结果。我们先假设输入的数为质数，即`prime = True`。
- 接下来，我们判断输入的数是否小于等于1。如果是，那么它肯定不是质数，将`prime`设为`False`。
- 否则，我们从2开始到输入数的平方根（取整）的范围内遍历，判断输入数是否能被整除。如果可以，那么它不是质数，将`prime`设为`False`，并退出循环。
- 最后，根据`prime`的值弹出相应的消息框，告知用户输入数是否为质数。