Как-то не заладилось с массивами)))посмотрите пожалуйста! - VB

Узнай цену своей работы

Формулировка задачи:

задали задачи, пропустил семинары по этим темам, пытался воткнуть сам, не вышло! очень нужно решение этих задач!!! Помогите кому не лень, хотя бы направьте в нужное русло! Заранее очень признателен!

Решение задачи: «Как-то не заладилось с массивами)))посмотрите пожалуйста!»

textual
Листинг программы
Sub zadacha()
Dim ch1 As Byte, ch2 As Byte
Dim sr As Single
ch1 = Val(InputBox("Введите число"))
ch2 = Mid(ch1, 2, 1) + Mid(ch1, 1, 1)
sr = (ch1 + ch2) / 2
Worksheets("Лист2").Select
Cells(1, 1) = sr
Cells(1, 2) = ch1
Cells(1, 3) = ch2
End Sub

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

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