不晓得你要什么样的界面
Private Sub Command1_Click()
Dim x As Integer, a As Integer, y As Integer
x = Val(Text1)
a = Val(Text2)
y = a * x
Label1.Caption = y
End Sub
