VBScriptのYES/NO MessageBoxで2つの変数を変更するにはどうすればよいですか？

Question

これをYES/NOメッセージボックスで変更する必要があります。

• はい：

  For i = 90 To UBound(arrTemp) - 189 'WindowsXP 
  

• 番号：

  For i = 510 To UBound(arrTemp) - 870 'Windows10 
  

マイスクリプト：

Dim i 
Dim result 
result = MsgBox("[YES] Windows10" & vbCrLf & vbCrLf & "[NO] WindowsXP", _ 
     vbYesNo Or vbQuestion, "Select your Windows OS:") 
If result = vbYes Then 
    i = "90" 
Else 
    i = "510" 
End If 

YESとNOの両方の変数を両方とも変更するにはどうすればよいですか？

Answer 1

あなたは近くにいると思います。

Dim i 
Dim minI 
Dim difference 
Dim result 

'prompt user for OS 
result = MsgBox("[YES] Windows10" & VbCrLf & VbCrLf & "[NO] WindowsXP", _ 
    vbyesno or vbquestion, "Select your Windows OS:") 

'change some variables depending on user answer 
If result = vbyes Then 
    minI=90 
    difference = 189 
Else 
    minI=510 
    difference = 870 
End If 

'Do your loop based on variables. 
For i = minI to UBound(arrTemp) - difference 

Next i 

唯一の他の事はあなたに彼らの周りの引用符で数値変数を設定しないことです。それはあなたがあなたのforループで使用しているものですので、あなたはただ、iのほか、カップルより多くの変数を必要としています。