Array()
Array(). Sub kuu() Dim kuud, jkn kuud = Array("Jaanuar", "Veebruar", "Märts", "Aprill", "Mai", "Juuni", _ "Juuli", "August", "September", "Oktoober", "Movember", "Detsember") jkn = InputBox("sisesta mitmes kuu") MsgBox kuud(jkn - 1) End Sub. Dialog(s) Dialoogiboks(id). Application
401 views • 18 slides