要求将某一字符串中指定的字符改写成小写或大写（如果原先是大写就改成小写，反之改成大写），并将处理后的字符重新输出。
程序界面如下图所示，在Text1中输入原始字符串，在Text2中输入需要改变的字符，单机“改变”按钮后，在Text3中输出处理后的结果。程序代码如下：

Private Sub Command1_Click()
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:Z#xx#k.Com
③
End Sub
在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整:
程序中①划线处应填入___________________。
程序中②划线处应填入___________________。
程序中③划线处应填入___________________。

下面VB程序的功能为：在文本框Text1和Text2中输入两个整数，单击按钮对象Command1，在标签对象Label1中显示这两个数的差。
Function lsc(x，y) As Integer
　If x＞y Then
lsc＝x－y
　Else
lsc＝y－x
　End If
End Function
Private Sub Command1_Click( )
　Dim a1 As Integer，a2 As Integer
　a1＝Val(Text1.Text)
　a2＝Val(Text2.Text)
　Label1.Caption＝________
End Sub
要实现上述功能，程序画线处应填入的语句为( )

A．lsc(x，y)	B．lsc(Text1.Text，Text2.Text)
C．lsc	D．lsc(a1，a2)

   （加试题）n个数从小到大选择排序需要经过n-1遍加工，每遍加工从未排序的数据元素中找出最小的元素与当前元素进行交换。小天同学学习了选择排序算法和函数的知识后，编写了一个VB程序，功能如下：运行程序时首先在列表框List1中显示10个不小于10且不大于99的随机自然数，单击“排序”按钮Command1后，在列表框List2中显示这些数据按从小到大排序后的结果，运行结果如图所示。

实现上述功能的VB代码如下，但划线处有错，请改正。
Dim a(1 To 10) As Integer '定义数组a
Private Sub Form_Load()
Randomize
For i = 1 To 10  '产生10个不小于10且不大于99的随机自然数，并依次存放在数组a中
a(i) = Int(Rnd * 100) '①
List1.AddItem Str(a(i))
Next i
End Sub
'Find_min函数寻找与当前元素a(x)需要交换的数组元素下标
Function Find_min(x As Integer)
Dim k As Integer, j As Integer
k = x
For j = x + 1 To 10
If a(j) < a(k) Then k = j
Next j
Find_min = k
End Function
Private Sub Command1_Click()
Dim i As Integer, k As Integer, t As Integer
For i = 1 To 9
k = Find_min(i+1)     '②
If k <> i Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
For i = 1 To 10
List2.AddItem Str(a(i))
Next i
End Sub
（1）加框处①有错，应改为__________________________。
（2）加框处②有错，应改为__________________________。

S=0
C=0
Do While C <100  
C=C+1
S=S+C
Loop
MsgBox (Str(C) + Str(S))
该程序的运行结果是（  ）

A．99 4950

B．1  4950

C．100 5050

D．101 5151

完全平方数之和。编写 VB 程序，实现如下功能：在文本框 Text1 中输入用逗号分隔的一系列整数（每个整数的绝对值不超过 1000，个数不超过 100 个），单击“计算”按钮 Command1，计算输入的整数中的完全平方数之和（完全平方数是指一个整数能表示成某个整数的平方的形式，例如 4 是完全平方数，可以表示成 2 的平方），并将结果显示在标签 Label1 中。程序运行效果如图所示。

（1）文本框 Text1不具备的属性为___（单选，填字母：

A．Text/

B．Caption/

C．Width/

D．Font）。

（2）实现上述功能的 VB 程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String
Dim i As Integer, j As Integer, ans As Long
Dim f As Boolean
ans = 0
s = Text1.Text: j = 1:____________ 
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If   ch = ,   Then
x = Val(Mid(s, j, i - j))
If___________Then
ans = ans + x
f = True
j = i + 1
ElseIf ch = "-" Then
f = False
j = j + 1
End If
Next i
Label1.Caption = "完全平方数之和为： " + Str(ans)
End Sub
（3）若文本框 Text1 中输入的内容为“-4,4,4”（不包括双引号），则标签 Label1 中输出的内容为“完全平方数之和为：__”。