急求VB程序编写三则
急求VB程序编写三则 -
100, 100)For i = 1 To 6 For u = 1 To 6 If u + i <= 7 Then CurrentX = (u + i) * 5: CurrentY = i * 5 Else CurrentX = (u + i - 6) * 5: CurrentY = i * 5 End If Print a(u)Next u Next i End Sub 这是程序代码全部程序我发到你邮箱了你看看等会说。
100, 100)For i = 1 To 6 For u = 1 To 6 If u + i <= 7 Then CurrentX = (u + i) * 5: CurrentY = i * 5 Else CurrentX = (u + i - 6) * 5: CurrentY = i * 5 End If Print a(u)Next u Next i End Sub 这是程序代码全部程序我发到你邮箱了你看看等会说。
