帮我设计个vb程序 要求：有一个文本框输入数字 三个按钮 一个按钮用来辨别是否是素数 一个按钮求小于n的素数 一个按钮分解质因数

好的，以下是一个简单的 VB 程序，实现了你所需的功能：

Public Class Form1
    ' 判断是否是素数
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim num As Integer = Val(TextBox1.Text)
        Dim isPrime As Boolean = True
        If num < 2 Then
            isPrime = False
        Else
            For i As Integer = 2 To num - 1
                If num Mod i = 0 Then
                    isPrime = False
                    Exit For
                End If
            Next
        End If
        If isPrime Then
            MsgBox(num & " 是素数")
        Else
            MsgBox(num & " 不是素数")
        End If
    End Sub

    ' 求小于 n 的素数
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim n As Integer = Val(TextBox1.Text)
        Dim primes As New List(Of Integer)
        For i As Integer = 2 To n
            Dim isPrime As Boolean = True
            For j As Integer = 2 To i - 1
                If i Mod j = 0 Then
                    isPrime = False
                    Exit For
                End If
            Next
            If isPrime Then
                primes.Add(i)
            End If
        Next
        MsgBox("小于 " & n & " 的素数有：" & String.Join(", ", primes))
    End Sub

    ' 分解质因数
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim n As Integer = Val(TextBox1.Text)
        Dim factors As New List(Of Integer)
        Dim i As Integer = 2
        While n > 1
            If n Mod i = 0 Then
                factors.Add(i)
                n /= i
            Else
                i += 1
            End If
        End While
        MsgBox("质因数分解结果为：" & String.Join(" × ", factors))
    End Sub
End Class

在这个程序中，我们使用了 `Val` 函数将文本框中输入的字符串转换为整数类型。在判断素数和求小于 n 的素数时，我们使用了两层循环来进行判断。在分解质因数时，我们使用了一个 while 循环和一个列表来存储质因数。