Как-то не заладилось с массивами)))посмотрите пожалуйста! - 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