UC知道求vb编程题答案
来源：百度知道 编辑：UC知道 时间：2024/05/16 01:34:46
自动生成并显示字母方阵
ABCDEFGH
BABCDEFG
CBABCDEF
DCBABCDE
EDCBABCD
FEDCBABC
GFEDCBAB
HGFEDCBA
按照Chr(i+64)="A",i=1 to 8的关系分别得B,C,D……
然后找规律生成数组的其余元素
ABCDEFGH
BABCDEFG
CBABCDEF
DCBABCDE
EDCBABCD
FEDCBABC
GFEDCBAB
HGFEDCBA
按照Chr(i+64)="A",i=1 to 8的关系分别得B,C,D……
然后找规律生成数组的其余元素
呵呵,这个题目有趣,方法很多..看看我的.
Private Sub Command1_Click()
Dim s$
For i = 1 To 8
s = s & Chr(i + 64)
Next
Print s
For i = 1 To 7
Print Mid(StrReverse(Mid(s, 2)) & s, 8 - i, 8)
Next
End Sub