在vb.net中循环许多组合框

Question

我正在创建一个具有10个组合框（ CmbGrade1, CmbGrade2, CmbGrade3,...,CmbGrade10 ）的GPA计算器以选择成绩点，并使用10个文本框（ textbox1,textbox2,textbox3,...,textbox10 ）输入积分，我有创建将其应用到每一个组合框，因为我有繁殖的功能textbox.text与CmbGrade.selecteditem旁边。

我正在使用for循环将这个功能称为10个组合框，因此请引导我循环组合框

Public Function Gpa(ByVal grade As Single, ByVal credit As Single)
    Return grade * credit
End Function

Answer 1

正如注释中提到的“蓝狗”一样，您的函数应返回一个值。 如果您不知道Function and Sub之间的区别，则可以使用此链接 。 现在，您可以使用以下代码遍历表单控件内的控件。 希望对您有帮助。

请考虑以下两种方法：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    For i As Integer = 0 To 2
        Dim combo As ComboBox = DirectCast(Me.Controls.Find("CmbGrade" & i, True)(0), ComboBox)
        Dim txtBox As TextBox = DirectCast(Me.Controls.Find("TextBox" & i, True)(0), TextBox)
        Dim x = Gpa(CSng(combo.SelectedItem), CSng(txtBox.Text))
    Next
End Sub

Public Function Gpa(ByVal grade As Single, ByVal credit As Single) As Single
    Return grade * credit
End Function