vb的问题，求高人、、急

我的VB学的很烂，老师布置得问题，我一点都不会呢！

要求编程：

问题1:商品购物打折，0-500元打9.5折；500-1000元，9折；1000-2000元，8.5折；2000-3000元，8折；3000-4000元，7.5折；4000-500元，7折；5000以上（不含5000元),6.5折。编程序完成，输入商品价格w，输出应付金额y

问题2：任意输入若跟个非零数，分别统计其中正数、负数的个数及其和，输入0为止。

问题3：任意输入一个字符串，输出其中大写字母并统计其个数。

哪位好心人帮我解答下，写下编程，不胜感激啊！谢啦！

(1)
Private Sub Command1_Click()
w = InputBox("输入商品价格")
Select Case w
Case 0 To 500
y = w * 0.95
Case 500 To 1000
y = w * 0.9
Case 1000 To 2000
y = w * 0.85
Case 2000 To 3000
y = w * 0.8
Case 3000 To 4000
y = w * 0.75
Case 4000 To 5000
y = w * 0.7
Case Is > 5000
y = w * 0.65
End Select
Print y
End Sub

(2)
Private Sub Command1_Click()
zs = 0
fs = 0
ztot = 0
ftot = 0
x = InputBox("输入数字")
Do Until x = 0
If x > 0 Then
zs = zs + 1
ztot = ztot + x
ElseIf x < 0 Then
fs = fs + 1
ftot = ftot + x
End If
x = InputBox("输入数字")
Loop
Print "正数个数="; zs, "正数和="; ztot
Print "负数个数="; fs, "负数和="; ftot
End Sub

(3)
Private Sub Command1_Click()
Dim x As String, n As Integer