用vb语言编写以下题目：1、建立一个窗体程序用于计算数学函数：Y＝a*X^3＋b*X^2＋c*X

第一题：
Private Sub Command1_Click()
Dim a!, b!, c!, d!, x!
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
x = Text5.Text
Label1.Caption = f(a, b, c, d, x)
End Sub
Function f(a!, b!, c!, d!, x!)
f = a * x * x * x + b * x * x + c * x + d
End Function
第二题：
Private Sub Command1_Click()
List2.Clear '清除list2的内容
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then List2.AddItem List1.List(i) '添加list1中选中的项目
Next i
End Su