Visual Basic計數器循環在Excel中

Question

我需要在visual basic中編寫一個簡單的計數器。我正在做一個「多少舔到一個tootsie流行音樂中心的中心」。一個對話框將打開，詢問他們是否已經到達中心。如果回答否，它將循環並再次詢問。

如果回答是，它會結束程序並計算有多少個循環。誰能幫我這個？

謝謝你這麼多

我有java代碼是否有幫助：

import java.io.BufferedReader; 
import java.io.IOException; 
import java.io.InputStreamReader; 

public class Counter 
{ 
    public static void main(String[] args) throws IOException 
    { 
     int counter = 0; 
     BufferedReader input = new BufferedReader(new InputStreamReader(System.in)); 
     System.out.print("Are you are the center? "); 
     String answer = input.readLine(); 
     while(answer.equals("no")) { 
      System.out.print("Are you are the center? "); 
      counter++; 
      answer = input.readLine(); 
     } 
     System.out.println("It took " + ++counter + " licks."); 
    } 
} 

Answer 1

儘管喬恩·林問什麼youre問這對我渴望回覆這個帖子。我也是一個新用戶，這是第一個很容易回答的問題。所以，我希望我沒有越過門線位置，但在這裏不用我的回答，爲我工作：

Sub HowManyClicks() 

Dim numberOfClicks As Integer 
Dim title As String 
Dim question As String 
Dim answer As VbMsgBoxResult 

title = "How many (c)licks" 
question = "Are you at the center?" 

answer = vbNo 

Do 

answer = MsgBox(question, vbQuestion + vbYesNo, title) 
numberOfClicks = numberOfClicks + 1 

Loop While answer = vbNo 

MsgBox "it took" & Str(numberOfClicks) & " (c)licks", , title 

End Sub