Dim c As Integer,j As Integer,k As Integer k=2 c=3 For j=1 To 5 If j>>3 Then c=c+5 Exit For Else k=k+1 End If Next j Print c,k End Sub 写出程序运行时单击窗体后，c,k的值分别是： 27.(6分) Private Sub Commandl_Click() Dim s As Double Dim i As Integer s=6 i=1m. Do While i<9 i=i+2 s=s十i Loop Textl,Text=s End Sub 文件框Textl的输出结果是 28.(6分) Function F(a As Integer) Dim b As Integer Static c As Integer 1072Dim c As Integer,j As Integer,k As Integer k=2 c=3 For j=1 To 5 If j>3 Then c=c+5 Exit For Else k=k+l End If Next j Print c,k End Sub 写出程序运行时单击窗体后， c， k的值分别是 27.(& Private Sub CommandLClickO Dim s As Double Dim i As Integer s=6 i=1 • Do While i<9 i=i+2 s=s+i .Loop Text!' Text=s End Sub 文件框 t! 结果是 28. (6 Function F(a As Integer) Dim b As Integer Static c As Integer 1072