for döngüsünu nasıl yazabılırım?

[semira_]

mesela 1 . müşteri talebi = Int(rnd*11)+20
2. müşteri talebi= Int(rnd+11)+15
3. müşteri talebi=Int(rnd*11)+10
4. müşteri talebi=Int(rnd+11)+5

bunu bır dongu ıcınde nasıl yazmalıyım

 

[PLİNT]

Merhaba
Şöyle olabilir.

Private Sub CommandButton1_Click()
s = 20
For a = 1 To 4
MsgBox a & ".müşteri talebi =" & Int(Rnd * 11) + s
s = s - 5
Next

End Sub