For i = 1 To Len(Text1.Text)
c = Mid(Text1.Text, i, 1)
If c >= "0" And c <= "9" Then c = Chr(Asc(c) + 1)
If c >= "A" And c <= "Z" Then c = Chr(Asc(c) + 32)
s =s + c
Next i
若文本框Text1的内容为“Number 2468！”执行程序后，变量s的值为（ ）
图a
请回答下列问题：
图b
Private Sub Command1_Click()
Dim x As Integer, y As Integer, t As Integer
Dim i As Integer, n As Integer, count As Integer
x = Val(Text1.Text)
y = Val(Text2.Text)
count = 0
For i = x To y
List1.AddItem Str(i)
n = i
Do While n > 0
If n Mod 10 = 1 Then
count = count + 1
End If
Loop
Next i
Label3.Caption = "X到Y之间1的个数有" + +"个"
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
Dim min As Single, max As Single
Dim d As Single, v As Single, s As String
s = Text1.Text
d = 0: maxd = 0
j = 1: k = 1
For i = 1 To Len(s)
If Mid(s, i, 1) = "," Then
j = i + 1
If Then
max = v
Else
min = v
d = max - min
If d > maxd Then
End If
k = k + 1
End If
Next i
Label1.Caption = "本周温差最大值为" & Str(maxd)
End Sub
