在VB中，可以使用循环遍历控件数组，并使用条件语句判断每个文本框是否为空。以下是一个简单的示例代码：
Private Sub CheckTextBoxesNotEmpty()Dim textBoxes() As TextBox = {TextBox1, TextBox2, TextBox3} ' 控件数组For Each textBox As TextBox In textBoxesIf String.IsNullOrEmpty(textBox.Text) Then ' 判断文本框是否为空MessageBox.Show("请填写所有文本框")Exit Sub ' 如果有任何一个文本框为空，就退出循环End IfNext' 所有文本框都不为空的处理逻辑MessageBox.Show("所有文本框都已填写")End Sub在上面的示例代码中，首先定义了一个包含多个文本框的控件数组。然后，使用For Each循环遍历数组中的每个文本框。在循环内部，使用String.IsNullOrEmpty函数判断每个文本框的Text属性是否为空。如果有任何一个文本框为空，就显示一个提示信息并退出循环。如果所有文本框都不为空，则执行相应的处理逻辑。
你可以根据实际情况修改上述代码，以适应你的控件数组和处理逻辑。
