5hahab
سه شنبه 15 مهر 1393, 22:45 عصر
محاسبه حاصل جمع اعداد 1 تا 100
Private Sub Command3_Click()
Dim a As Single
Dim b As Single
Dim c As Single
a = (InputBox("", ""))
b = (InputBox("", ""))
c = (InputBox("", ""))
Av = (a + b + c)
Print Av
End Sub
میخوام یه if بزارم که اگه بیشتر 100 دادن MSGBOX باز شه و بگه کمتر 100 بدید و مراحل رو از اول انجام بده اون if رو اگر واسم بزارید ممنون میشم
و اینکه چرا خودم if میزارم بعد تهش Goto میزارم همش به goto ایراد میگیره ؟ بعد goto چی باید بزارم دقیقا ؟
Private Sub Command3_Click()
Dim a As Single
Dim b As Single
Dim c As Single
a = (InputBox("", ""))
b = (InputBox("", ""))
c = (InputBox("", ""))
Av = (a + b + c)
Print Av
End Sub
میخوام یه if بزارم که اگه بیشتر 100 دادن MSGBOX باز شه و بگه کمتر 100 بدید و مراحل رو از اول انجام بده اون if رو اگر واسم بزارید ممنون میشم
و اینکه چرا خودم if میزارم بعد تهش Goto میزارم همش به goto ایراد میگیره ؟ بعد goto چی باید بزارم دقیقا ؟