Dim Number1 As Single, Number2 As Single, Result As Single

Dim Number1 As Single, Number2 As Single, Result As Single
Number1 = Val(InputText1.Text)
Number2 = Val(InputText2.Text)
Result = Number1 * Number2
Result = Number2
OutputText.Text = Result
编辑了怎么不能计算啊哪里出错了啊????
VB计算器代码
还是不行啊复制上去了,完成输入数字计算没有结果,不出结果

Private Sub Command1_Click()
Dim Number1 As Single, Number2 As Single, Result As Single
Number1 = Val(InputText1.Text)
Number2 = Val(InputText2.Text)
Result = Number1 * Number2

OutputText.Text = Result

End Sub

Dim Number1 As Single, Number2 As Single, Result As Single dim s as string Dim hstr As String * 1 Dim i As Integer,j As Integer Dim rs As New ADODB.Recordset Dim adorecordset As New ADODB.Recordset VB中Dim workstation As workspace 是什么意思？ Dim rttitle As String * 256是什么意思 Dim a As Integer, b As Integer, c As Integer, aa As Integer, bb As Integer 用Dim as New生成label怎么绑定数据库呢