Question

vb的题，写出程序运行后，单击窗体，Form1上的输出结果？

Private Sub Form_click()
Dim x As String
Dim i As Integer, n As Integer
Form1.Cls
x = "ABCDEFGHKL"
n = Len(x)
For i = n To 1 Step -2
Form1.Print Tab(20 - i); Mid(x, i, 1)
Next i
End Sub

Answer 1

L
H
F
D
B
就是这样的
Tab（）是一个空格的什么函数 就是输出一个20-i 的空格 （i=10 就是输出20-10=10 10个空格 i=8 就是输出20-8=12 12个空格）恩恩 就是这样的
那个mid（）是截取函数 就是从X的第i位接1个
结果就是上面的 到最后 i=2的时候做完循环 next的时候 i就=0了 所以 没有A

追问

哦 那为什么LHFDB不在同一行呢？

Answer 2

比较简单的VB语句,就不解释了!

有点VB基础的,就明白了.

Answer 3

L
H
F
D
B

Answer 4

不错呀 呵呵 顶