Visual Basic счетчик цикла в Excel - PullRequest
2 голосов
/ 08 декабря 2011

Мне нужно кодировать простой счетчик в Visual Basic. Я делаю "сколько ликов к центру попсового прилавка". Откроется диалоговое окно с вопросом, достигли ли они центра. Если ответ «нет», он будет повторяться и спрашивать снова.

Если ответ «да», программа завершит работу и посчитает, сколько было циклов. Кто-нибудь может мне помочь с этим?

Большое спасибо

У меня есть код 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.");
    }
}

1 Ответ

2 голосов
/ 08 декабря 2011

Хотя Джон Лин спросил, что ты спрашиваешь об этом, мне не терпится ответить на этот пост.Я тоже новый пользователь, и это первый вопрос, на который мне достаточно легко ответить.Поэтому я надеюсь, что я не пересекаю черту здесь, но вот мой ответ, который работал для меня:

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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...