分析題目: 需要用到的程序結構是循環: ?打印字母,每行6個,壹***6行, 那麽就是打印36次, 所以循環應該是0到35次 或者1到36次;?
需要用的主要運算是 Mod取模; \整除運算
Private?Sub?Form_Load()Form1.Show?'窗口顯示出來
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