程序界面如下图所示,在Text1中输入原始字符串,在Text2中输入需要改变的字符,单机“改变”按钮后,在Text3中输出处理后的结果。程序代码如下:

Private Sub Command1Click()
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 = 1 To Len(s)
①
If zs = k Then
If Asc(zs) >= 65 And Asc(zs) <= 90 Then
zs = Chr(Asc(zs) + 32)
ElseIf Asc(zs) >= 97 And Asc(zs) <= 122 Then
zs = Chr(Asc(zs) - 32)
End If
End If
②
Next n
③
End Sub
在程序①、②、③划线处,填入适当的语句或表达式,把程序补充完整:
程序中①划线处应填入。
程序中②划线处应填入。
程序中③划线处应填入。
Private sub Command1_Click()
Dim a As Single
Dim py As String
a= Val (Text1) (1)
If a>0 Then py =”正数”
If a=0 Then py=”零”
If a<0 Then py=”负数”
Label3.Caption=a(2)
End Sub
为了实现此算法,图中判断框①和处理框②处可填入的是( )
①解决问题②编程调试③设计方案④分析问题
