помогите пожалуйста найти ошибку в коде ::visual basic::

Question

Public Class Frm1 
 Private Sub cmd1_click() 
 Dima A, B As single 
 A = Val(Txt1.Text) 
 B = Val(Txt2.Text) 
 If A <= B then 
 Min = A 
 Else 
 Min = b 
 End If 
 frm1.print "min=";min

End Sub

Илья · Accepted Answer

Судя по коду, у вас "пересеклись" два разных Visual Basic 
 
Public Class Frm1 <--- В VB6 данная конструкция не поддерживается 
 Private Sub cmd1_click() 
 Dima A, B As single <--- Нет никакого "Dima", есть DIM 
 A = Val(Txt1.Text) 
 B = Val(Txt2.Text) 
 If A <= B then 
 Min = A <--- Переменная "Min" не объявлена 
 Else 
 Min = b 
 End If 
 frm1.print "min=";min <--- В VB .NET данная конструкция не поддерживается 
 
End Sub 
 
Вы уж приведите код к какому нибудь одному диалекту VB и у Вас все заработает...

E Кайрбек · Answer

Private Sub Command1_Click() 
Dim A, B 
A = Val(Text1.Text) 
B = Val(Text2.Text) 
If A <= B Then 
Min = A 
Else 
Min = B 
End If 
Print "min="; Min 
End Sub