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