44
'
Dim a As
Single
a = Len(Selection.Text)
MsgBox (a)
EndSub
Bu tuzilgan dastur(makros)da:
Sub matn_uzunligi()- dasturning nomini bildiradi. Ya’ni yuqoridagi dasturda
dastur nomi matn_
uzunligi;
Dim a As Single – o`zgaruvchi e’lon qilinadi. A o`zgaruvchining Single tipiga
tegishli ekanligini bildiradi. Single tipi -3.402823E38 dan +3.402823E38 gacha
qiymatlarni
qabul qiladi;
a = Len(Selection.Text) — a o`zgaruvchiga qiymat beriladi. Bu yerda
Selection.Text xujjatdagi belgilangan matn. Len(Selection.Text) belgilangan
matnning uzunligi;
MsgBox (a) — a ning qiymatini xabar oynasida chiqaradi;
End Sub — dastur ishini o`z
nixoyasiga etkazadi;
Dasturni ishga tushirish uchun matnni belgilab Alt+F8 ni yoki
Do'stlaringiz bilan baham: