-6

Мне нужно напечатать таблицу перевода расстояний в дюймах для значений от 1 до 10 с шагом 1.

Как это сделать?

3
  • Один дюйм - это 25,4 мм. Сделайте таблицу пересчёта тупо в Excel.
    – Akina
    Commented 14 мар. 2017 в 8:59
  • Спасибо за ответы. Дело в том, что времени учить бейсик нет (ради одной задачи). Понимаю, что это сугубо лично мои проблемы, но все же надеялся найти понимание. Excel не подходит, условие задачи: написать именно в бейсике.
    – g431k
    Commented 14 мар. 2017 в 9:03
  • >>именно в бейсике === В VS тоже не получится на чистом Basic, там применяется VB.Net, В Excel можно написать макрос на VBA. Commented 14 мар. 2017 в 10:55

2 ответа 2

1

Не знаю, сработает ли на VS, в VBA можно проще:

Sub Main()
Dim inch As Single
Dim i As Integer
    For i = 1 To 10
      inch = i * 2.54  ' пересчет
      MsgBox i & " | " & inch ' вывод результата
    Next i
End Sub

Для отбражения (печати) результата в редакторе VBA в окне Immediate изменить оператор в строке вывода результата:

Debug.Print i & " | " & inch

В дополнение - микрокалькулятор )

Sub Main2()
Dim i As Integer
    i = Val(InputBox("Впишите размер, кратный целому дюйму"))
    MsgBox i & " | " & i * 2.54
End Sub
3
  • "нужно напечатать таблицу" - ваше решение печатает таблицу?
    – Kromster
    Commented 14 мар. 2017 в 11:10
  • Автор показал код, который ему подходит: пошаговое отображение результата. Это - вариант. MsgBox можно заменить на Debug.Print. Добавлю в ответ Commented 14 мар. 2017 в 11:11
  • 1
    То что ТС запостил ответ, еще не значит, что этот ответ правильный или подходит к вопросу.
    – Kromster
    Commented 14 мар. 2017 в 11:18
1

Нашел решение:

Module Module1
  Sub Main()
    Dim sm As String    '  объявление 
    Dim inch As Single    ' переменных
    Dim I As Integer
    sm = 1
    For I = 1 To 10 Step 1
      inch = sm * 2.54      ' пересчет
      MsgBox(Str(sm) + " | " + Str(inch)) ' вывод результата
      sm = sm + 1
    Next I
  End Sub
End Module
1
  • "нужно напечатать таблицу" - ваше решение печатает таблицу?
    – Kromster
    Commented 14 мар. 2017 в 11:10

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.