设计VB程序，该程序将输入的字符串中小写字母转换成大写字母后输出。在文本框Text1中输入一串字符（数字、字母均可），单击“转换”按钮Command1，在标签Label2中输出结果。（提示：Asc（x）：将字符x转换为ASCII码值；Chr（x）：将ASCII代码x转换为所对应的字符）该程序的设计界面如图所示,请根据算法将下列程序补充完整。 
Private Sub Command1_Click()
Dim ch As String, s As String
Dim i As Integer, j As Integer
ch = Text1.Text
For i = 1 To {#blank#}1{#/blank#}
j = Asc(Mid(ch, i, 1))
If j > 96 And j < 123 Then
s = s + Chr(j - 32)
Else
s = s + Chr(j)
End If
Next
{#blank#}2{#/blank#}
End Sub
