Visual Basic

Компьютеры программирование программы visual basic

Среди всех 3-хзначных чисел выбрать и вывести те, которые заканчиваются на цифру 7
Ответы:
Sub Numbers7()
 Dim i As Integer
 Dim total As Integer
 total = 0
 For i = 100 To 999 Step 1
  If (i Mod 100) Mod 10 = 7 Then
     Debug.Print (i)
     total = total + 1
  End If
 Next i
 Debug.Print ("Всего " & total & " трехзначных чисел, оканчивающихся на 7")
End Sub


11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.