-
کمک فوری برای حل تمرین فصل دوم ویژال بیسیک جعفر نژاد قمی بصورت کامل
-
دوست عزیز یکم کم لطفی میکنین! شما باید خودتون شروع کنین تا بچه ها هم کمکتون کنن. برای شروع برنامه اولی رو میشه اینطوری نوشت:
یه دکمه بذارین و اینا رو توش بنویسین:
کد:
Private Sub Command1_Click()
Dim a, b
a = InputBox("please enter width")
b = InputBox("please enter height")
MsgBox ("S= " & a * b)
End Sub
حالا ببینم دیگه چیکار میکنین ها!:46: مثلا همین برنامه رو گسترشش بدین چون ایرادهای زیادی میشه ازش گرفت،مثلا کاربر ممکنه بجای عدد،حرف وارد کنه!
-
سوال 2
این جواب 2 فقط یه دکمه درست کن و کد رو کپی کن:
Private Sub Command1_Click()
Dim s As Single
a = InputBox("ghaede")
b = InputBox("ertefae")
s = (a * b) / 2
Print "s =" & s
End Sub
این جواب 4 فقط یه دکمه درست کن و کد رو کپی کن:
Private Sub Command1_Click()
Dim result As Single
a = InputBox("kg")
result = a * 1000
Print a & "kg=" & result & " gr"
End Sub
محتوای مخفی: number 2