14vel02

Microsoft Yisual Basic Primer Edition [run]

File Edit View Run Debug Options Window Help

| Tli

‘ H'

II

■

w

n

*o I "A

i-h

1035,11 40

ii...!    7485 x 4425

TTj«rIlat< = Inputlox ("IiŁaP¹ s

?:	L oop TOŁd
0:
9:	D 3Pr = "I
10	D 3Pr = D
11
11
13	^1 Ki;pld
14	HjcjIok 5

Object:

Form

Forml .frm

Proc:

Load

end J

[ic:Outp this cod box that

***14FXGl

Figurę 1

Dim DStr As String

' Ask the use Do

UserDate =

Loop While No

DStr = "Month DStr = DStr +

DStr = DStr +

' Display the datę broken down MsgBox DStr, , "The Datę"

o

ge

[ic : ReviT^

(c) Forma tting with Format()

±ck

(margin)Definition: A logical value is the result of a relation

Page 11 Sec 1 11/14    | At 2.5" Ln6 Coil2 | 6:29PM [REĆ [MRK [EXT [ÓVR [WPH