Основные возможности Visual Basic. Макова Н.Е. - 69 стр.

              Задача 3. В компьютер вводится ровно 200 чисел. Компью-
         тер должен подсчитать и 1 раз напечатать, сколько среди них по-
         ложительных чисел и сколько нулей.
              Программа:
           Private Sub Command3_Click()
              с_полож = 0        ‘Обнуляем счетчик положительных чисел
              с_нулей = 0          ‘Обнуляем счетчик нулей
              For i = 1 To 200
                a = InputBox(“Введите очередное число”)
                If a > 0 Then c_полож = c_полож + 1
                If a = 0 Then c_ нулей = c_ нулей + 1
              Next i
              Debug.Print “Из них положительных - ”; c_полож, “Нулей -”;
         с_нулей
           End Sub

              Задача 4. В компьютер один за другим вводятся произволь-
         ные символы. Ввод заканчивается символом /. Подсчитать, какой
         процент от общего числа введенных символов составляют символ
         W и символ : по отдельности.
              Здесь мы организуем 3 счетчика одновременно: cW – для
         подсчета букв W, cDv – для подсчета двоеточий, а также i –
         счетчик общего числа введенных символов, кроме /.
              Программа:
              Private Sub Command4_Click()
              Dim a As Integer, cW As Integer, cDv As Integer
              Dim procent_W As Integer, procent_Dv As Integer
              Dim simvol As String
              i = 0: cW = 0: cDv = 0 'Обнуляем все 3 счетчика
              Do
              simvol = InputBox("Введите символ ")
              If simvol <> "/" Then i = i + 1 'Если это не /, то "посчитай" его
              Select Case simvol
              Case "W"
              cW = cW + 1 ‘Если это W, то увеличь счетчик символов W
              Case ":"
              cDv = cDv + 1 ‘Если это :, то увеличь счетчик символов :
              Case "/"

                                                                             69

PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com