高考问答薛之谦演唱会票房:哪位大虾会VB编程啊，快来帮帮忙啊啊
来源：百度文库 编辑：高考问答 时间：2024/05/05 03:30:42
]设计程序生成一个如下所示的5×5的二维数组，并输出
0 1 1 1 0
1 0 1 0 1
1 1 0 1 1
1 0 1 0 1
0 1 1 1 0
用户界面自行设计，可根据需要放置控件。
在线等啊，多谢了
0 1 1 1 0
1 0 1 0 1
1 1 0 1 1
1 0 1 0 1
0 1 1 1 0
用户界面自行设计，可根据需要放置控件。
在线等啊，多谢了
option base 1
Private Sub Form_click()
Dim Ar(5, 5) As Integer
Label1.Caption = ""
For i = 1 To 5
For j = 1 To 5
Ar(i, j) = 1
Next j
Next i
For i = 1 To 5
Ar(i, i) = 0
Ar(i, 5 - i) = 0
Next i
For i = 1 To 5
For j = 1 To 5
Label1.Caption = Label1.Caption + " " + Str(Ar(i, j))
Next j
Label1.Caption = Label1.Caption + Chr(10) +chr(13)
Next i
End Sub
我调试过！可以的！
只要能输出那写字符就可以？
不考虑他们间的规律？
说清楚点？
应该你自己可以做出来的呀
在窗体上放个Label。
Private Sub Form_Load()
Dim Ar(5, 5) As Integer
Label1.Caption = ""
For i = 0 To 4
For j = 0 To 4
Ar(i, j) = 1
Next j
Next i
For i = 0 To 4
Ar(i, i) = 0
Ar(i, 4 - i) = 0
Next i
For i = 0 To 4
For j = 0 To 4
Label1.Caption = Label1.Caption + " " + Str(Ar(i, j))
Next j
Label1.Caption = Label1.Caption + Chr(10)
Next i
End Sub
可以惜我不会啊!~哎