Оператор выбора - VB
Формулировка задачи:
Люди добрые прошу вашей помощи сам не силён в программировании сидел ломал голову написал по моему чушь)
вот суть программы: Написать программу на VBA, которая бы по введенному номеру единицы измерения (1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр) и длине отрезка L выдавала бы соответствующее значение длины отрезка в метрах. вот нашёл для вот такую нашёл только язык не мой uses crt; Label 1; var k:integer; l: real; Begin ClrScr; 1: Write('Введите номер единицы измерения от 1 до 5: k='); Read(k); if (k<1) or (k>5) then goto 1; Write('Введите длину отрезка: l='); Read(l); case k of 1: l:=l/10; 2: l:=l*1000; 4: l:=l/1000; 5: l:=l/100; end; Writeln('величина отрезка ',l:3:3,' м.'); Readkey; end.
а вот мои творения уже
Sub lab3()
Dim k As Integer
Dim L As Integer
k = InputBox("ВВедите номер единицы измерения от 1 до 5", "k=")
L = InputBox("ВВедите длину отрезка", "l=")
Select Case k
Case 1
MsgBox "l = l / 10", "Результат"
1: L = L / 10
2: L = L / 1000
4: L = L / 1000
5: L = L / 100
End Select
End Sub
Решение задачи: «Оператор выбора»
textual
Листинг программы
Option Explicit Private Sub Комманда1_Click() Dim K, L K = InputBox("Введите номер единицы измерения", "Ввод данных") L = InputBox("Введите длину отрезка", "l =") Select Case K Case 1 MsgBox "L = " & L / 10, 64, "Результат" Case 2 MsgBox "L = " & L * 1000, 64, "Результат" Case 3 MsgBox "L = " & L * 1000, 64, "Результат" Case 4 MsgBox "L = " & L * 1000, 64, "Результат" Case 5 MsgBox "L = " & L * 1000, 64, "Результат" End Select End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д