神马品牌网五菱之光gt报价及图片:用VB怎样写呀？
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 07:56:50
键盘输入起始和终止字母，打印类似下面的平行四边形
ABCDEFG
BCDEFGA
CDEFGAB
DEFGABC
我们学了for..next语句，你也可以串套需要的语句
ABCDEFG
BCDEFGA
CDEFGAB
DEFGABC
我们学了for..next语句，你也可以串套需要的语句
比较简单的方法，给两个变量赋值，或者在文本框中输入，然后循环输出就可以了（把Form1的AutoReDraw设置为True）：
Dim A As String, B as String
Dim S As String
Dim I As Integer
Dim M As Integer,N As Integer
S = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
S = S & S
A = "A"
B = "G"
M = Asc(A)
N = Asc(B)
If M<65 Or M>90 Or N<65 Or N>90 Or M>N Then
MsgBox "输入不正确"
Exit Sub
End If
For I = M To N
Print Mid(S, M-64, N-M+1)
Next