dim num as singledim num2 as singlenum=val(text1.text) ' Devuelve el numero con decimalesnum2=val(label1.caption) ' Devuelve la parte entera
dim num as singledim num2 as singlenum=val(text1.text) ' Devuelve el numero con decimalesnum2=label1.caption ' Devuelve el numero con decimales
dim num as singlenum=label1.caption
Dim num1 As SingleDim num2 As SingleDim res As Single Private Sub Command1_Click()num1 = Val(Text1.Text)num2 = Val(Text2.Text)If num2 <> 0 Then res = num1 / num2Else MsgBox "Division por cero"End IfText3.Text = resEnd Sub Private Sub Form_Load()Text1.Text = ""Text2.Text = ""Text3.Text = ""End Sub