Вывод результата выполнения процедуры - VB

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

Здравствуйте. Извините за глупый вопрос, никак не могу понять как мне выдать на экран результат выполнения следующей процедуры:

                    Листинг программы
                
 
                        
                          
                    
Sub Main()
        Dim Z As Integer
        Z = 4
        AAA(Z + 4)
    End Sub
 
    Public Sub AAA(ByRef X As Integer)
        X = X * 10
    End Sub

Выдать наверное надо MsgBox? Вообще не очень понимаю как быть с процедурами, функции понимаю как. Спасибо.

Решение задачи: «Вывод результата выполнения процедуры»

textual
                            Листинг программы 
                        
 
                        
                          
                    
 
Sub Main()
Dim Z As Integer
Z = 4
AAA Z + 4
End Sub
 
Public Sub AAA(ByRef X As Integer)
X = X * 10
MsgBox X
Text1.Text = X
Label1.Caption = X
End Sub
 
Private Sub Command1_Click()
Main
End Sub
'===================================
Sub Main1()
Dim Z As Integer
Z = 4
MsgBox AAA1(Z + 4)
Text1.Text = AAA1(Z + 4)
Label1.Caption = AAA1(Z + 4)
End Sub
 
Public Function AAA1(ByRef X As Integer)
AAA1 = X * 10
End Function
 
Private Sub Command2_Click()
Main1
End Sub

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

11 голосов , оценка 4.273 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы