مقدمه:برنامه ای بنویسید که با استفاده از inputbox  نام و نام خانوادگی شخصی را بگیرد و با استفاده از textbox سه  نمره ی درسی را دریافت کند و نام و نام خانوادگی را همراه معدل در label نشان دهد.

:به در خواست دوستی عزیز

Private Sub Command1_Click()
z = InputBox("name:", "name", "name")
x = InputBox("lastname:", "lastname", "lastname")
Dim ahrar As Single
Dim a As Single
Dim b As Single
Dim c As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
ahrar = (Val(a) + Val(b) + Val(c)) / 3
Label1.Caption = "moadel" & z & x & ahrar & "ast"
End Sub