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

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

第一题：2种代码

vb.net版本

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a, b, c, d, x, y As Single

a = Val(TextBox1.Text)

b = Val(textbox2.text)

c = Val(textbox3.text)

d = Val(textbox4.text)

x = Val(textbox5.text)

y = a * x ^ 3 + b * x ^ 2 + c * x + d

label1.text=y

End Sub

===================================================

vb6.0 版本

Private Sub Command1_Click()

Text6.Text = JiSuan(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text), Val(Text5.Text))

End Sub

Function JiSuan(a As Long, b As Long, c As Long, d As Long, x As Long) As Long

JiSuan = a * x ^ 3 + b * x ^ 2 + c * x + d

End Function

===================================

第二题

vb.net版本

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ListBox1.Items.Add(1)

ListBox1.Items.Add(2)

ListBox1.Items.Add(3)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If ListBox1.SelectedIndex > -1 Then

ListBox2.Items.Add(ListBox1.Text)

ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)

End If

End Sub

==========================

vb6.0版本

Private Sub Command1_Click()

If List1.ListIndex > -1 Then

List2.AddItem List1.Text

List1.RemoveItem List1.ListIndex

End If

End Sub

Private Sub Form_Load()

List1.AddItem 1

List1.AddItem 2

List1.AddItem 3

End Sub

JAVA程序语句解释

这个程序是这样，执行后会显示一个窗口（Frame），窗口的类名叫WindowExit，创口上方有一个菜单栏（MenuBar），类名字叫menubar， 菜单栏有五个菜单项menu1,menu2,menu3,menu4,menu5，对于第一个菜单项menu1又包含有九个子项item1,item2,item3,item4,item5,item6,item7,item8,item9

而item5.addActionListener(this); 则是给第五个子项加一个事件监听器，监听对象为（this）自身类的对象

public void actionPerformed(ActionEvent e)

{ System.exit(0); }

} 这句是是为这个监听器作处理程序，处理结果为关闭窗口！也就是点击item5，则整个WindowExit窗口关闭！

public class zuoye1

{ public static void main(String args[])

{ WindowExit win=new WindowExit();

}

}是整个程序的主类和主函数的入口程序！