Мне нужно напечатать таблицу перевода расстояний в дюймах для значений от 1 до 10 с шагом 1.
Как это сделать?
Мне нужно напечатать таблицу перевода расстояний в дюймах для значений от 1 до 10 с шагом 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
Нашел решение:
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