|
Public Class Form1
Dim a, b, s As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Randomize()
a = Rnd() * 20
MsgBox("1 ile 20 arasındaki sayıyı bil")
s = 0
Do While (s < 5)
b = InputBox("sayıyı bil")
s = s + 1
|
|
| |
| |
Yazının Tamamını Okumak İçin Giriş yapın
Üye giriş formundaki kaydet seçeneğini işaretleyerek bir kez giriş yapmanız halinde, sonraki girişleriniz otomatik yapılır.
Yukarıdaki linke tıkladığınız zaman hem giriş yapmış hem de bu sayfaya yönlenmiş olursunuz. |
|
Yorumlar, eklemeler ve düşünceler
|
kardeşim gerçekten guzel paylasım !
namerester, 08.02.2010 08:28
|
|
Çevrimiçi Üyeler
