【加試題】要求將某一字符串中指定的字符改寫成小寫或大寫（如果原先是大寫就改成小寫，反之改成大寫），并將處理后的字符重新輸出．
程序界面如下圖所示，在Text1中輸入原始字符串，在Text2中輸入需要改變的字符，單擊“改變”按鈕后，在Text3中輸出處理后的結果．

程序代碼如下：
Private Sub Command1_Click （　?。?br />Dim s As String,result As String,k As String
Dim zs As String,n As Integer
result=“”
s=Text1．Text
k=Text2．Text
For n=1To Len（s）

①

①

If zs=k Then
If Asc（zs）＞=65And Asc（zs）＜=90Then
zs=Chr（Asc（zs）+32）
Else lf Asc（zs）＞=97And Asc（zs）＜=122Then
zs=Chr（Asc（zs）-32）
End If
End If

②

②

Next n

③

③

End Sub
在程序①、②、③橫線處填入適當?shù)恼Z句或表達式，把程序補充完整．
（1）程序中①橫線處應填入

zs=Mid（s,n,1）

zs=Mid（s,n,1）

．
（2）程序中②橫線處應填入

result=result+zs或result=result&zs

result=result+zs或result=result&zs

．
（3）程序中③橫線處應填入

Text3．Text=result.

Text3．Text=result.

．