Dim Statement

འགྱུར་ཅན་ཡང་ན་ཨེརི་ཅིག་གསལ་བསྒྲགས་འབདཝ་ཨིན།

འགྱུར་ཅན་ཚུ་ལྷོད་རྟགས་ཀྱིས་འབད་ཁ་སོ་སོ་ཕྱེལ་ཡོད་པ་ཅིན་(for example, DIM sPar1, sPar2, sPar3 AS STRING)མི་མཐུན་པའགྱུར་ཅན་ཚུ་ངེས་འཛིན་འབད་ཡོདཔ་ཨིན། འགྱུར་ཅན་རེ་རེ་དོན་ལུ་ངེས་ཚིག་གྱལ་སོ་སོ་ཁ་ཕྱེལ་མི་ཅིག་ལག་ལེན་འཐབ།

Dim sPar1 As String

Dim sPar2 As String

Dim sPar3 As String

ཌི་ཨའི་ཨེམ་གྱིས་རྒྱུན་ལས་འོག་མ་ཚུ་ནང་་འཁོད་ཉེན་གནས་འགྱུར་ཅན་ཚུ་གསལ་བསྒྲགས་འབདཝ་ཨིན། སྤྱི་ཁྱབ་འགྱུར་ཅན་ཚུ་ མི་མང་ ཡང་ན་བསྒེརགསལ་བཤད་དང་གཅིག་ཁར་གསལ་བསྒྲགས་འབད་ཡོདཔ་ཨིན།

ཚིག་སྦྱོར:

[ReDim]མདངས་གྲིབ་ཝར་མིང་ [(start To end)] [As VarType][, VarName2 [(start To end)] [As VarType][,...]]

ཚད་བཟུང་ཚུ་:

མི་མཐུན་པའི་མིང་: འགྱུར་ཅན་གང་རུང་ཡང་ན་ཨེ་རི་མིང་།

འགོ་བཙུགས་ མཇུག་: ཨང་གྲངས་ཀྱི་གནས་གོང་ཚུ་ཡང་ན་ཆད་མེད་དེ་ཆ་ཤས་ཚུ་གི་ཨང་དེ་ངེས་འཛིན་འབད་མི་ (NumberElements=(end-start)+1) དང་ཟུར་ཐོ་ཁྱབ་ཚད།

རི་ཌི་ཨའི་ཨེམ་་དེ་བྱ་སྒོའི་ལམ་ལུགས་གནས་རིམ་ལུ་འཇུག་སྤྱོད་འབད་ཡོད་པ་ཅིན་འགོ་བཙུགས་དང་མཇུག་བསྡུ་དེ་ཨང་གྲངས་ཀྱི་གསལ་བརྗོད་ཅན་ཨིན།

མི་མཐུན་པའི་དབྱེ་བ་: གཙོ་ཚིག་་དེ་གིས་འགྱུར་ཅན་གྱི་གནད་སྡུད་དབྱེ་བ་གསལ་བསྒྲགས་འབདཝ་ཨིན།

གཙོ་ཚིག་: འགྱུར་ཅན་དབྱེ་བ།

བུལ: བུ་ལིན་འགྱུར་ཅན (བདེན་པ་ རྫུན་མ)

དངུལ་: དངུལ་འགྱུར་ཅན་ (གངུལ་གཅིག་ཁར་ བཅུ་ཚག་གནས་ཁོངས་ཚུ ་༤)

ཚེས་: ཚེས་འགྱུར་ཅན།

གཉིས་ལྡན་: གཉིས་ལྡན་ཀྲིག་ཀྲིཕུར་ལྡིང་ཡིག་ཚད་འགྱུར་ཅན་ (1,79769313486232 x 10E308 - 4,94065645841247 x 10E-324)

ཧྲིལ་ཨང་: ཧྲིལ་ཨང་འགྱུར་ཅན་ (༣༢༧༦༨ ༣༢༧༦༧)

རིངམ་: ཧྲིལ་ཨང་འགྱུར་ཅན་རིངམ་ (༢་་ ༡༤༧ ་ ༤༨༣ ་ ༦༤༨ ༢ ་ ༡༤༧ ་ ༤༨༣ ་ ༦༤༧)

དངོས་པོ་: དངོས་པོ་འགྱུར་ཅན་ (དྲན་དགོཔ་: འ་ནི་འགྱུར་ཅན་གཞི་སྒྲིག་དང་གཅིག་ཁར་རྐྱངམ་ཅིག་འབྱུང་རིམ་སྦེ་ངེས་འཛིན་འབད་བཏུབ!)

རྐྱང་པ་: རྐྱང་པ་ཀྲིག་ཀྲི་ཕུར་ལྡིང་ཡིག་ཚད་འགྱུར་ཅན (3,402823 x 10E38 - 1,401298 x 10E-45).

ཡིག་རྒྱུན་: ཡིག་རྒྱུན་འགྱུར་ཅན་རིམ་མཐུན་མང་མཐའ་ གི་ ༦༤༠༠༠ ཨེ་ཨེསི་ཨའི་ ཡིག་འབྲུ་ཚུ།

[Variant]: མི་མཐུན་པ་འགྱུར་ཅན་དབྱེ་བ་ (ངེས་ཚིག་གིས་འབད་གསལ་བཀོད་འབད་ཡོད་མི་ དབྱ་ེ་བ་ཚུ་ཆ་མཉམ་ཡོདཔ)་གཙོ་ཚིག་ཅིག་གསལ་བཀོད་མ་འབད་བ་ཅིན་ འགྱུར་ཅན་ཚུ་རང་བཞིན་གྱིས་མི་མཐུན་དབྱེ་བ་སྦེ་ངེས་འཛིན་འབད་ཡོདཔ་ གསལ་བཤད་ཌིཕ་བུལ་ལས་་ཌིཕ་ཝར་ལག་ལེན་འཐབ་མི་ཚུན་ཚོད།

LibreOffice གཞི་རིམ་ནང་ཁྱོད་ཀྱིས་འགྱུར་ཅན་ཚུ་བསམ་པའི་སྒོ་ལས་གསལ་བསྒྲགས་འབད་མ་དགོཔ་ཨིན། ག་དེ་ཨིན་རུང་ཁྱོད་ཀྱིས་ཨེ་རེ་ཅིག་ལག་ལེན་མ་འཐབ་པའི་ཧེ་མ་གསལ་བསྒྲགས་འབད་དགོཔ་ཨིན། ཁྱོད་ཀྱིས་འགྱུར་ཅན་དང་གཅིག་ཁར་ཌི་ཨའི་ཨེམ་གསལ་བཤད་ སྣ་མང་གསལ་བསྒྲགས་ཚུ་སོ་སོ་ཁ་དབྱེལ་ནི་ལུ་ལྷོད་རྟགས་ལག་ལེན་འཐབ་དེ་གསལ་བསྒརགས་འབད་བཏུབ་ཨིན། འགྱུར་ཅན་དབྱེ་བ་གསལ་བསྒྲགས་འབད་ནི་ལུ་ དབྱེ་བ་གསལ་བསྒྲགས་ཡིག་འབྲུ་གི་རྗེས་སུ་གྲངས་མིང་ཡང་ན་ཆ་མཉམ་པའི་གཙོ་ཚིག་ཅིག་བཙུགས།

LibreOffice གཞི་རིམ་གྱིས་འགྱུར་ཅན་དབྱེ་བ་གསལ་བཀོད་འབད་མི་གིས་ངེས་འཛིན་འབད་ཡོད་མི་སྣ་མང་མཚོན་གྲངས་ཀྱི་ཨེ་རེ་ཚུ་ཡང་ན་རྐྱང་པ་ཚུ་རྒྱབ་སྐྱོར་འབདཝ་ཨིན། ཨེ་རེ་ཚུ་ལས་རིམ་ནང་ཐོ་ཡིག་ཚུ་ཡང་ན་ཁྱོད་ཀྱིས་ཞུན་དག་འབད་ནི་ཨིན་མི་ཐིག་ཁྲམ་ཚུ་འོས་འབབ་ཡོདཔ་ཨིན། ཨེ་རེ་ཚུ་གི་ཕན་པ་དེ་ཟུར་་ཐོ་ཚུ་ལུ་འཁྲིལ་ཆ་ཤས་ཚུ་རེ་རེ་ཁ་བྱང་བཏགས་ནི་ལུ་ཚུགསཔ་ ཨང་གྲངས་ཀྱི་གསལ་བརྗོད་ཚུ་ཡང་ན་འགྱུར་ཅན་ཚུ་སྦེ་མན་ངག་འབད་བཏུབ་ཨིན།

ཨེ་རེ་ཚུ་མདངས་གྲིབ་གསལ་བཤད་གཅིག་གར་གསལ་བསྒྲགས་འབད་ཡོདཔ་ཨིན། ཟུར་ཐོ་ཁྱབ་ཚད་ངེས་འཛིན་འབད་ནི་ལུ་ཐབས་ལམ་གཉིས་ཡོདཔ་ཨིན:

DIM ཚིག་ཡིག་(20) ཡིག་རྒྱུན་བཟུམ་སྦེ་ REM ༢༡ ཆ་ཤས་ཚུ་ ༠ ལས་ ༢༠ ལུ་ཨང་བཏགས་ཡོདཔ་ཨིན།

ཌི་ཨའི་ཨེམ་ ཚིག་ཡིག་(༥ ལས་ ༢༥ ལུ) ཡིག་རྒྱུན་བཟུམ་སྦེ་ཨར་ཨི་ཨེམ ༢༡ ཆ་ཤས་ཚུ་ ༥ ལས་ ༢༥ ལུ་ཨང་བཏགས་ཡོདཔ་ཨིན།

ཌི་ཨའི་ཨེམ་ ཚིག་ཡིག་(-༡༥ ༥ ལུ) ཡིག་རྒྱུན་བཟུམ་སྦེ་ ཨར་ཨི་ཨེམ ༢༡ ཆ་ཤས་ཚུ་ (༠ གྲངས་སུ་རྩིས་)

ཨར་ཨི་ཨེམ་ ༡༥ ལས་ ༥ ལུ་ཨང་ཡོདཔ།

མཚོན་གྲངས་ཅན་གཉིས་གནད་སྡུད་ས་སྒོ།

ཌི་ཨའི་ཨེམ་ཚིག་ཡིག་(༢༠་༢)ཡིག་རྒྱུན་ ཨར་ཨི་ཨེམ་ ༦༣་ཆ་ཤས་ཚུ་བཟུམ་སྦེ་ ༠ ལས་ ༢༠ ལུ་་གནས་རིམ་ ༡ ༠ ལས་༢༠ གནས་རིམ་ ༢ དང་ ༠ ལས་ ༢༠ གནས་རིམ ༣།

ཁྱོད་ཀྱིས་ཨེ་རེ་དབྱེ་བ་ཚུ་ནུས་ཅན་སྦེ་ རི་ཌི་ཨའི་ཨེམ་གསལ་བཤད་ཀྱིས་རྒྱུན་ལས་འོག་མ་ནང་མཚོན་གྲངས་ཚུའི་ཨང་དེ་ཡང་ན་ལས་འགན་ནང་ན་ཨེ་རེ་ཡོད་མི་ངེས་འཛིན་འབད་བ་ཅིན་གསལ་བསྒྲགས་འབད་བཏུབ་ཨིན། ཡོངས་གྲགས་ལུ་ ཁྱོད་ཀྱིས་ཨེ་རེ་མཚོན་གྲགས་ཚར་གཅིག་རྐྱངམ་ཅིག་ངེས་འཛིན་འབད་ནི་དང་ དེ་ཁྱོད་ཀྱིས་ལེགས་བཅོས་འབད་མི་བཏུབ། རྒྱུན་ལས་འོག་མ་ནང་འཁོད་ ཁྱོད་ཀྱིས་ཨེ་རེ་གཅིག་ཁར་རི་ཌི་ཨའི་ཨེམ་ཅིག་གསལ་བསྒྲགས་འབད་བཏུབ། ཁྱོད་ཀྱིས་མཚོན་གྲངས་ཚུ་དང་གཅིག་ཁར་ཨང་གྲངས་ཀྱི་གསལ་བརྗོད་ཚུ་རྐྱངམ་ཅིག་ངེས་འཛིན་འབད་བཏུབ། དེ་གིས་ས་སྒོ་ཚུ་ཆ་མཉམ་ཆེ་བ་རྐྱམ་ཅིག་ཉེར་མཁོ་སྦེ་ངེས་བརྟན་བཟོཝ་ཨིན།

དཔེར་བརྗོད:

Sub ExampleDim1

Dim sVar As String

Dim iVar As Integer

    ཨེསི་ཝར་ = "Office"

End Sub

 

Sub ExampleDim2

མཚོན་གྲངས་ཅན་གཉིས་གནད་སྡུད་ས་སྒོ།

Dim stext(20,2) As String

རིམ་མཐུན་ ཨེསི་མདངས་གྲིབ་ཡིག་རྒྱུན་བཟུམ་སྦེ = " Dimension:"

For i = 0 To 20

    For ii = 0 To 2

        stext(i,ii) = str(i) & sDim & str(ii)

    Next ii

Next i

For i = 0 To 20

    For ii = 0 To 2

        MsgBox stext(i,ii)

    Next ii

Next i

End Sub