1

1 2 3

1 2 3 4 5

1 2 3 4 5 6 7

1 2 3 4 5

1 2 3

1

Private Sub Command1_Click()

For s = 0 To 2

Print Spc(3 – s);

For I = 1 To s * 2 + 1

Print CStr(i);

Next

Print

Next

For s = 3 To 0 Step -1

Print Spc(3 – s);

For I = 1 To s * 2 + 1

Print CStr(i);

Next

Print

Next

End Sub

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

a = InputBox("Enter")

b = InputBox("Enter")

a1 = a

b1 = b

If a < b Then

a = a + b

b = a - b

a = a - b

End If

Do

c = a Mod b

If c = 0 Then Exit Do

a = b

b = c

Loop

Print "BMM: "; b

Print "KMM: "; a1 * b1 / b

End Sub

Private Sub Command1_Click()

For i = 1 To 10

If LCase(InputBox("Enter a name: " & i)) = "ali" Then a = a + 1

Next

Print a

End Sub

به کسانی که نظر خوب واساسی بدهند ۵ ساعت اینترنت رایگان تعلق می گیرد

در ضمن اگه کسی مایله که تو نویسندگی این وبلاگ کمک کنه بگه