برنامه ای بنویسید که شعاع قاعده و ارتفاع یک استوانه را دریافت و مساحت جانبی، مساحت کل و حجم استوانه را محاسبه و چاپ کند.

کدها و دستورات به صورت زیر مباشند:

()Private Sub cmdExit_Click
End
End Sub
-------------------------------------------------------
()Private Sub cmdRun_Click
Dim h As Single
Dim r As Single
("h = InputBox("ENTER A NUMBER
("r = InputBox("ENTER A NUMBER
Dim j As Single
j = 3.14159 * r * h * 2
Dim k As Single
(k = 3.14159 * r * 2 * (r + h
Dim d As Single
d = 3.14159 * r ^ 2 * h
Print Spc(2); "masahate janebi" & "=" & j
Print Spc(2); "masahate kol" & "=" & k
Print Spc(2); "hajm" & "=" & d
End Sub

-------------------------------------------------------

برای دانلود کلیک کنید:

http://s3.picofile.com/file/7668403652/ostovane.exe.html