Question

vf编程，利用循环控制输出如下数字方阵：

问题（1）
第一行：0 0 0 0 1
第二行：0 0 0 1 0
第三行：0 0 1 0 0
第四行：0 1 0 0 0
第五行：1 0 0 0 0
问题（2）
第一行：1 0 0 0 1
第二行：0 1 0 1 0
第三行：0 0 1 0 0
第四行：0 1 0 1 0
第五行：1 0 0 0 1
问题（3）
第一行：1 0 0 0 0
第二行：0 4 0 0 0
第三行：0 0 9 0 0
第四行：0 0 0 16 0
第五行：0 0 0 0 25
问题（4）
第一行：1
第二行：2 4
第三行：3 6 9
第四行：4 8 12 16
第五行：5 10 15 20 25

Answer 1

Private Sub Command1_Click()
Dim i, j, n
n = 5
For i = 1 To n
For j = 1 To n
If i = n - j + 1 Then Print 1; Else Print 0;
Next
Print
Next
End Sub
Private Sub Command2_Click()
Dim i, j, n
n = 5
For i = 1 To n
For j = 1 To n
If i = j Or i = n - j + 1 Then Print 1; Else Print 0;
Next
Print
Next
End Sub

-----------------
Private Sub Command3_Click()
Dim i, j, n
n = 5
For i = 1 To n
For j = 1 To n
If i = j Then Print i ^ 2; Else Print 0;
Next
Print
Next
End Sub
Private Sub Command4_Click()
Dim i, j, n
n = 5
For i = 1 To n
For j = 1 To i
Print i * j;
Next
Print
Next
End Sub

追问

这是vf吗？

追答

vb 你是vf？看错了，软件编程思路都一样，如果你有点基础稍作修改就行。

追问

我什么都不会，帮帮忙吧，谢了，急用

追答

我没有vf环境，以前倒是用过，我不太可能为了这个问题去下个vf编译环境。

追问

还是谢谢了，嘿嘿