至急!! アルゴリズムの問題で左の写真の答えだけ教えてください!6問ありますが分かる問題だけでもいいのでお願いします:;(∩´﹏`∩)

画像

Visual Basic71閲覧xmlns="http://www.w3.org/2000/svg">500

ベストアンサー

0

Sub 問6_3() Dim i As Long, j As Long, m As Long, n As Long m = 4 n = -1 For i = 1 To 6 If i <= 3 Then m = m - 1 n = n + 2 ElseIf i > 4 Then m = m + 1 n = n - 2 End If For j = 0 To n - 1 Cells(i, m + j) = "*" Next j Next i End Sub

ThanksImg質問者からのお礼コメント

ご丁寧にありがとうございました♪

お礼日時:6/24 3:31