جمع یک عدد 2 رقمی
برنامه ای بنویسید که یک عدد 2 رقمی بخواند و مجموع ارقام آن را چاپ کند.
کدها یه صورت زیر میباشند:
()Private Sub cmdExit_Click
End
End Sub
-----------------------------------------------------
()Private Sub cmdRun_Click
Dim a As Integer
("a = InputBox("yek adade 2 raghami vared konid
Dim b As Integer
(b = (a \ 10
Dim b1 As Integer
(b1 = (a Mod 10
Print Spc(14); b + b1
End Sub
-----------------------------------------------------
برای دانلود کلیک کنید:
+ نوشته شده در شنبه پنجم اسفند ۱۳۹۱ ساعت 22:31 توسط Admin
|
اگر در گوشی خود برنامه بارکدخوان دارید می توانید تمام توضیحات این وبلاگ را در این بارکد بخوانید. باتشکر.