Page 443 - CITS - CSA - TP (Volume 1) - Hindi
P. 443
कंप्यूटर सॉफ्टवेयर एप्लीकेशन- CITS
ेप (Step) 2.2 : आव क ॉपट ज को िन ानुसार सेट कर
उदाहरण के िलए (For Example):
म सं. क ोल ॉपट मान
1 कमांड बटन 1 नाम cmdarea
कै शन Area
2 कमांड बटन 2 नाम cmdclear
कै शन Clear
ेप (Step)3 : ेक िनयं ण पर डबल क कर और कोड को नीचे िलख ।
Private Sub cmdarea_Click()
Dim length As Integer, breadth As Integer
length = Range(“B2”)
breadth = Range(“B3”)
Range(“A5”) = “Area is”
Range(“B5”) = length * breadth
End Sub
Private Sub cmdclear_Click()
Range(“A5,B2:B5”) = “ “
End Sub
ेप (Step) 4: िफर वक बुक के कार को ‘ए ेल मै ो-स म वक बुक के प म सेव करे
ेप (Step) 5: मै ो Run करे
ेप (Step) 5.1: िडज़ाइन मोड को मोड़ने के िलए िडज़ाइन मोड आइकन पर क कर ।
427
CITS : IT & ITES - कं ूटर सॉ वेयर ए ीके शन - अ ास 70
