On...GoSub Statement; On...GoTo Statement

បំបែក​ទៅ​ជួរ​មួយ​នៃ​ជួរ​ដែល​បាន​បញ្ជាក់​​ជា​ច្រើន​ក្នុង​កូដ​កម្មវិធី អាស្រ័យ​លើ​តម្លៃ​នៃ​កន្សោម​លេខ ។

វាក្យ​សម្ពន្ធ ៖

On N GoSub Label1[, Label2[, Label3[,...]]]

On NumExpression GoTo Label1[, Label2[, Label3[,...]]]

ប៉ារ៉ាម៉ែត្រ ៖

NumExpression ៖ កន្សោម​ចំនួន​គត់មួយ​ចំនួន​ដែល​ស្ថិត​នៅ​ចន្លោះ ០ និង ២៥៥ ដែល​កំណត់​ថា​តើ​ជួរ​ណា​មួយ​ដែល​កម្មវិធី​បែក​មែក​ទៅ ។ ប្រសិន​បើ NumExpression ស្មើ 0 សេចក្តី​ថ្លែង​ការណ៍​មិន​ត្រូវ​បាន​ប្រតិបត្តិ​ទេ ។ ប្រសិន​បើ NumExpression ធំ​ជាង ០ កម្ម​វិធី​លោត​ទៅ​ស្លាក​ដែល​មាន​លេខ​ទីតាំង​ដែល​ត្រូវ​គ្នា​ទៅ​នឹង​កន្សោម (1 = ស្លាក​ទី​មួយ 2 = ស្លាក​ទី​ពីរ)

Label ៖ ជួរ​គោលដៅ​ដោយ​យោង​ទៅ​តាម​រចនា​សម្ព័ន្ធ GoTo ឬ GoSub ។

ការ​កំណត់ GoTo ឬ GoSub គឺ​ត្រឹមត្រូវ ។

ឧទាហរណ៍ ៖

Sub ExampleOnGosub

Dim iVar As Integer

Dim sVar As String

    iVar = 2

    sVar =""

    On iVar GoSub Sub1, Sub2

    On iVar GoTo Line1, Line2

    Exit Sub

Sub1:

    sVar =sVar &  " From Sub 1 to" : Return

Sub2:

    sVar =sVar &  " From Sub 1 to" : Return

Line1:

    sVar =sVar &  " Label 1" : GoTo Ende

Line2:

    sVar =sVar &  " Label 1"

Ende:

    MsgBox sVar,0,"On...GoSub"

End Sub