Private Sub Sub1() Dim FirstValue, SecondValue As Integer FirstValue = "Text" SecondValue = 1 End Sub
هل تعتقدون ان هناك خطأ في هذا الاجراء
البعض سيقول ان هناك خطأ سيحصل نتيجة لإسناد السلسلة Text الى متغير من نوع Integer
كيف نقوم باسناد قيمة السلسلة الى المتغير FirstValue
في الحقيقة FirstValue لا يعرف على انه من نوع Integer ولكن يعرف على انه من نوع Variant لذلك يتقبل السلسلة النصية
واذا اردنا تعريف FirstValue من نوع Integer فإننا سنعيد كتابة الكود السابق كالتالي
Private Sub Sub2() Dim FirstValue As Integer, SecondValue As Integer FirstValue = 1 SecondValue = 1 End Sub
