Visual Studio中的循环GUI

Question

您可以帮助我解决Visual Studio中循环GUI中的问题吗？

需要发生的是把用于启动文本框号1值，还必须将价值为最终文本框的10号，也把价值步数文本框2.在下拉列表，你会选择是否其环或做或时直到。应该出现在文本框中的for循环2 4 6 8 10和DO WHILE为2 4 6 8和做，直到2 4 6 8

这里是我的代码，我不能做的问题

Public Class frmLimit 

    Private Sub btnProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcess.Click 
     Dim ctr As Integer 
     For ctr = 0 To 50 
      txtDisplay.Text = txtDisplay.Text & ctr & vbNewLine 
     Next 
     If cmboType.SelectedIndex = 0 Then 
      MessageBox.Show("DO LOOP") 
     ElseIf cmboType.SelectedIndex = 1 Then 
      MessageBox.Show("WHILE LOOP") 
     ElseIf cmboType.SelectedIndex = 2 Then 
      MessageBox.Show("UNTIL LOOP") 
     End If 
    End Sub 

    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click 
     txtStart.Clear() 
     txtEnd.Clear() 
     txtStep.Clear() 
     txtDisplay.Clear() 
     cmboType.SelectedIndex = -1 
    End Sub 

    Private Sub frmLimit_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing 
     Application.Exit() 
    End Sub 
End Class 

这是GUI

Answer 1

Private Sub btnProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcess.Click 
    Dim ctr As Integer 

    If cmboType.SelectedIndex = 0 Then 
     If IsNumeric(txtStart.Text) And IsNumeric(txtEnd.Text) And IsNumeric(txtStep.Text) Then 
      For ctr = CInt(txtStart.Text) To CInt(txtEnd.Text) Step CInt(txtStep.Text) 
       txtDisplay.Text += ctr.ToString + " " 
      Next 

      txtDisplay.Text += vbNewLine 
     Else 
      'Error message 
     End If 

     MessageBox.Show("FOR LOOP") 
    ElseIf cmboType.SelectedIndex = 1 Then 
     MessageBox.Show("WHILE LOOP") 
    ElseIf cmboType.SelectedIndex = 2 Then 
     MessageBox.Show("UNTIL LOOP") 
    End If 
End Sub 

可以为WHILE LOOP和Until LOOP这样做。

瓦尔特