几道VB编程题，速度解答啊 VB啊！！

1.有函数 Y=X （X＜1）
3X-2 （1≤X≤10）
4X-12 （X≥10）
编写程序，输入X值后，则输出相应Y值。要求用“IF。。。ELSELF。。。ENDIF”和用“SELECT CASE”两种方法完成。
2 编写程序，随即生成20个三位正整数，将其中的偶数与奇数分别输出到窗体上。
3 编写程序，求100~300间的所有素数。
4 编写程序，输出所有的“水仙花数”。所谓水仙花数是指一个三位数，其各位数字立方和等于该数本身。例如，153是一水仙花数，因为153=1∧3+5∧3+3∧3
5 编写程序，随即生成100个两位正整数，并统计其中小于等于40，大于40小于等于70及大于70的数据个数

1、Private Sub Command1_Click()'if语句
Dim x%, y%
x = Val(InputBox("输入x的值：", "提示"))
If x < 1 Then
y = x
ElseIf x >= 1 And x <= 10 Then
y = 3 * x - 2
Else
y = 4 * x - 12
End If
Print y
End Sub

Private Sub Command2_Click()'case语句
Dim x%, y%
x = Val(InputBox("输入x的值：", "提示"))
Select Case x
Case Is < 1
y = x
Case Is <= 10
y = 3 * x - 2
Case Else
y = 4 * x - 12
End Select
Print y
End Sub

2、
Randomize
Dim TmpNum%, i%
Dim oShu$, Jshu$
For i = 1 To 20
TmpNum = Int(900 * Rnd + 100)
If TmpNum Mod 2 = 0 Then
oShu = oShu & TmpNum & Space(2)
Else
Jshu = Jshu & TmpNum & Space(2)
End If
Next i
Print "产生的偶数有：" & oShu
Print "产生的奇数有：" & Jshu

3、
Dim n%, i%
Me.AutoRedraw = True
For n = 100 To 300