ضرب 2 عدد در ويژوال بيسيك

سلام دوستان بنظر شما كدوم يكي از كد هاي زير براي ضرب دو عدد بهتره؟

کد:

---

Dim a, a1, a2, a3,  As Integer
Private Sub Command1_Click()
a = InputBox("Enter First Number")
a2 = InputBox("Enter Second Number")
a3 = a * a2
MsgBox (a3)

---

يا:

کد:

---

Private Sub Command1_Click()
intnum1 = InputBox("enter 1 number")
intnum2 = ("enter 2 number")
intresult = intnum1 * intnum2
MsgBox intnum1 & "*" & intnum2 & "=" & intresult, , "result"

---

End Sub


توي كتابي كه من دارم روش دوم رو گفته
اما جوري كه من بلدم براش متغير تعريف ميكنم (روش اول رو خودم نوشتم . همه ي برنامه هايي محاسباتي رو اينجوري مينويسم)و كار هاي تابع & رو نميدونم و فك كنم بجاي متغير از intnum استفاده كرده؟

كدوم يكي بهتره؟
=============================

intnum هم یک متغیره فقط اونو تعریف نکرده که به این دلیل میشه از نوع Variant
کاربرد & در کارهای رشته ای است. مثلا یک رشته توی یک متغیر رو به یک رشته توی یک متغییر دیگه میچسبونه.
هر دو روش خوب هستند و تفاوت چندانی با هم ندارند

يك مشكل ديگه هم داشتم چند تا باگ توي اين كد هست
من كدي نوشتم كه در اون عدد رو وارد ميكني اگر عدد از صفر بزرگتر بود يك msgbox مياد و ميگه عدد بزرگتر از صفر است
و اگه عدد منفي وارد كني ميگه كوچكتر از 0 است
1. اگر عدد 0 رو وارد كنم مشكل پيدا ميكنه
2.اگر هنگام وارد عدد در input box روي دكمه كنسل كليك كنم يا بدون انكه عددي وارد كنم ok بزنم برنامه مشكل پيدا ميكنه
اين 2 تا باگ رو چگونه ميشه برطرف كرد؟



اين هم كد برنامه

dim a as integer

کد:

---


  Private Sub Command1_Click()
a = InputBox("عدد موردنظر  را وارد كنيد"))
If a > 0 Then
MsgBox("عدد موردنظر بزرگتر از صفر است!")
Else
MsgBox ("عدد موردنظر كوچكتر از صفر است")
End If
If a = 0 Then
MsgBox ("عدد موردنظر خود صفر است!")
End If
End Sub

---

دوست عزیز باید با استفاده از این دستور مشکلت رو حل کنی:

On Error GoTo ERROR
ERROR:
If Err.Number = "x" Then
دستوراتی که میخواهید در صورت اخطار اجرا شود
End If

و در اینجا منظور از x همان شماره اخطار هست.
اگر توجه کنی وقتی اخطار debug میاد یه شماره داره منظورم همون شماره هست.
موفق باشید.

شما میتونید از دستور زیر هم استفاده کنید

Private Sub Command1_Click()
a = InputBox("ÚÏÏ ãæÑÏäÙÑ ÑÇ æÇÑÏ ßäíÏ")
If a > 0 Then
MsgBox ("ÚÏÏ ãæÑÏäÙÑ ÈÒѐÊÑ ÇÒ ÕÝÑ ÇÓÊ!")
ElseIf a = 0 Then
MsgBox ("ÚÏÏ ãæÑÏäÙÑ ÎæÏ ÕÝÑ ÇÓÊ!")
Else
MsgBox ("ÚÏÏ ãæÑÏäÙÑ ßæßÊÑ ÇÒ ÕÝÑ ÇÓÊ")
End If

End Sub