Что делать? - VB
Формулировка задачи:
В VB написала прогу, но мне он выдает ошибку, что макрос поврежден и требуется онлайн помощь. Что делать?
Решение задачи: «Что делать?»
textual
Листинг программы
Option Explicit Public Sub mine_01() Dim n As Integer, m As Integer Dim i As Integer, j As Integer, sum As Single Dim txt As String Randomize n = InputBox("1"): m = InputBox("2") ReDim A(1 To n) As Single, B(1 To m) txt = "" For i = 1 To n A(i) = Rnd txt = txt & A(i) & " " sum = sum + A(i) Next i txt = txt & Chr(13) & Chr(13) For i = 1 To m B(i) = Rnd txt = txt & B(i) & " " sum = sum + B(i) Next i MsgBox txt & Chr(13) & Chr(13) & "sum = " & sum End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д