TI

Pertanyaan

Tuliskanlah KODE visual basic untuk menampilkan hasil di bawah ini! (YANG NOMOR 5)
Tuliskanlah KODE visual basic untuk menampilkan hasil di bawah ini! (YANG NOMOR 5)

2 Jawaban

  • maaf mbak, saya belum pernah dapat materi seperti ini :(
  • 1. Module Program
       Sub Main()
       Dim a, b As Integer
       For a = 1 To 3 Step 1
       For b = 1 To 4 Step 1
       Write("* ")
       Next   WriteLine()
       Next
       ReadLine()
       End Sub
    End Module

    2. Module Program
       Sub Main()
       Dim a, b As Integer
       For a = 1 To 3 Step 1
       For b = 1 To 4 Step 1
       Write(b & " ")
       Next 
      WriteLine() 
      Next
       ReadLine()
       End Sub
    End Module

    3. Module Program
       Sub Main()
       Dim a, b As Integer
       For a = 1 To 4 Step 1
       For b = 1 To a Step 1
       Write(b & " ")
       Next
       WriteLine()
       Next
       ReadLine()
       End Sub
    End Module

    4. Module Program
       Sub Main()
       Dim a, b As Integer
       For a = 1 To 5 Step 1
       For b = 5 To a Step -1
       Write(b & " ")
       Next
       WriteLine()
       Next
       ReadLine()
       End Sub
    End Module

    5. Module Program
       Sub Main()
       Dim a, b As Integer

       For a = 8 To 2 Step -2
       For b = 2 To a Step 2
       Write(b & " ")
       Next
       WriteLine()
       Next
       ReadLine()
       End Sub
    End Module

    Semoga membantu :)