Question

VB编程这题有人会吗帮忙下谢谢！！好的就直接采纳了

Answer 1

分析题目: 需要用到的程序结构是循环:  打印字母,每行6个,一共6行, 那么就是打印36次, 所以循环应该是0到35次 或者1到36次; 

需要用的主要运算是 Mod取模; \整除运算

Private Sub Form_Load()
Form1.Show '窗口显示出来
Print '换行.离上边框远点
Print
Dim i As Integer '定义一个整数i
For i = 0 To 35 '因为是6行,每行6个字母,所以就是循环36次 [0,35]
If i Mod 6 = 0 Then Print Space(i \ 6 + 10); '每一行最前面的空格数量 (每一行的前面都再加10个空格,都离左边框远点)
Print Chr(i Mod 26 + 65) + Space(1); '打印字母 并且输出一个空格
If i Mod 6 = 5 Then Print '每打6个字母就换行一次
Next
End Sub

Answer 2

VB代码：

Private Sub Form_Click()
Dim s(35) As String, i&
For i = 0 To 35
If i Mod 6 = 0 Then Me.Print Chr(13) & Space(20 + 2 * (i \ 6));
s(i) = Chr(i Mod 26 + 65)
Me.Print s(i); Space(2);
Next
End Sub