求助VB题目（谢谢哈）

编程题
1.用VB程序实现：求1到100之间所有奇数之和，并输出结果
2.编写程序，用Inputbox输入一个字符串到变量St中，统计该字符串中大写字母，小写字母，数字和其他符号的数量（分别存在num1,num2,num3,num4中），然后用print将统计结果输出

1.
Dim i As Integer, s As Integer
For i = 1 To 100 Step 2
s = s + i
Next i
Print s
2.
Dim num1 As Integer, num2 As Integer, num3 As Integer, num4 As Integer, St As String, i As Integer
St = InputBox("请输入一个字符串：")
For i = 1 To Len(St)
Select Case Asc(Mid(St, i, 1))
Case 65 To 90: num1 = num1 + 1
Case 97 To 122: num2 = num2 + 1
Case 48 To 57: num3 = num3 + 1
Case Else: num4 = num4 + 1
Next i
Print "大写字母："; num1; "个"
Print "小写字母："; num2; "个"
Print "数字："; num3; "个"
Print "其他符号："; num4; "个"

第一题：
添加一按钮控件，在其Click事件下添加如下代码：
Dim i as integer
Dim sum as integer
i=1
sum=0
Do while i<100
sum=sum+i
i=i+2
Loop

sub Q1()
dim i%,j%
j=0
for i = 1 to 100 step 2
j=j+i
next i
debug.print "ans:" & j
end sub