Оператор выбора - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы