用vb写一个判断出各个数的最大约数不包过本身

你好，我是C知道，很高兴回答你的问题。

以下是使用VB编写一个判断出各个数的最大约数不包括本身的代码：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim num As Integer = CInt(TextBox1.Text)
    Dim i As Integer
    Dim result As String = ""
    For i = 1 To num - 1
        If num Mod i = 0 And i <> num Then
            result += i.ToString() + ","
        End If
    Next
    If result.Length = 0 Then
        result = "无最大约数"
    Else
        result = result.Substring(0, result.Length - 1)
    End If
    TextBox2.Text = result
End Sub

以上代码中，我们首先通过文本框获取一个整数，然后使用for循环依次判断从1到num-1之间的数是否为num的约数，如果是则将其加入到结果字符串中。最后将结果显示在另一个文本框中。

希望这个代码对你有所帮助。如果你有任何问题，请随时联系我。