vb2008中如何以下问题能否用循环

[一路博客]

Public Enum Input
输入口1 = 1
输入口2 = 5
输入口3 = 8
输入口4 = 10
输入口5 = 7
输入口6 = 6
End Enum

Private Sub InPort(ByRef ComBox As ComboBox, ByVal InCon As Input)
……
……
……
End Sub

'以下语句能否改为循环***************
InPort(Me.ComboBox1, Input.输入口1)
InPort(Me.ComboBox1, Input.输入口2)
InPort(Me.ComboBox1, Input.输入口3)
InPort(Me.ComboBox1, Input.输入口4)
InPort(Me.ComboBox1, Input.输入口5)
InPort(Me.ComboBox1, Input.输入口6)

'以上语句如何改为*****************
dim i as integer
for i=1 to 6
InPort(Me.ComboBox1,Input.输入口 & i)
next

[兔子-顾问]

Dim i As Integer
For i = 1 To 6
    InPort(Me.ComboBox1, CType(i, Input))
Next

[兔子-顾问]

Dim i As Integer
For i = 1 To 6
  InPort(Me.ComboBox1, CType([Enum].Parse(GetType(Input), "输入口" & i), Input))
Next

[qq283617300]

帮顶~~~~

[一路博客]

谢谢了！