Private Sub Command1_Click()
Dim a!, b!, x!
a = InputBox("请输入第1个数")
b = InputBox("请输入第2个数")
 If a <> 0 Then x = -b / a
Print "x="; x
Else
Print "方程无解!"



End Sub

Private Sub Command1_Click()
Dim a!, b!, x!
a = InputBox("请输入第1个数")
b = InputBox("请输入第2个数")
If a <> 0 Then
x = -b / a
Print "x="; x
Else
Print "方程无解!"
end if


End Sub

这算基础吧！

谢谢

（2）在名称为Form1的窗体中，画一个组合框和一个命令按纽。组合框的名称为Combo1，初始内容为空，有“长跑”、“游泳”和“跳远”三个可供选择项。命令按纽的名称为Command1，标题为“确定”。编写适当的程序，使得程序运行时，选择组合框中的某项，单击命令按纽后，就会弹出一个对话框，内容为“您选择了（某项）”。编写代码实现这个要求。保存的窗体名称为ks_1.frm，工程文件名为ks_1.vbp