Dim i, b
For i = 1 to 3
Select Case i
case 1 b= "First"
case 2 b = "Business"
Case 3 b = "Economy"
End Select
If i = 2 Then
Window("Flight Reservation").WinRadioButton("First").SetTOProperty "text".b
Window("Flight Reservation").WinRadioButton("First").Set
For i = 1 to 3
Select Case i
case 1 b= "First"
case 2 b = "Business"
Case 3 b = "Economy"
End Select
If i = 2 Then
Window("Flight Reservation").WinRadioButton("First").SetTOProperty "text",b '你语法写错了吧这里的是逗号 不是句号
Window("Flight Reservation").WinRadioButton("First").Set
End If
Next
我改后运行是可以的