试题源程序: 1 Private Sub Command1 Click( ) 2 Dim n As Integer, k As Integer, ch As String, aAs String 3 n=Len(Text1.Text) 4 ch="" 5 For k=1 To n 6 ’a=Mid $ (Text1.Text,,1) 7 If Option1.Value=True Then 8 If a>="a" And a<="z" Then 9 ch=ch+UCase(a) 10 Else If a>="A" And a<="Z" Then 11 ’ch=ch+ 12 Else 13 ch=ch+a 14 End If 15 End If 16 If Option2.Value=True Then 17 ch=UCase(Text1) 18 End If 19 If Option3.Value=True Then 20 ch=LCase(Text1) 21 End If 22 Next k 23 ’Text2= 24 End Sub