【简答题】
Private Sub Op1_Click(Index As Integer)
''给考生的程序:
' Dim a As String, b As String, c As String
' a = "我坐"
' b = "我开"
'' Select Case ?
' Case 0
' Text1.Text = a + Me.Op1(0).Caption + "去"
' Case 1
'' Text1.Text = ? + Me.Op1(1).Caption + "去"
' Case 2
' Text1.Text = b + Me.Op1(2).Caption + "去"
' End Select
参考答案
''正确程序:
Dim a As String, b As String, c As String
a = "我坐"
b = "我开"
Select Case Index
Case 0
Text1.Text = a + Me.Op1(0).Caption + "去"
Case 1
Text1.Text = a + Me.Op1(1).Caption + "去"
Case 2
Text1.Text = b + Me.Op1(2).Caption + "去"
End Select
End Sub
'答案:
'Index
'a 或 "我坐"