用VB在窗體上輸出如下圖形,其中第壹行的起始字母和終止字母由用戶從鍵盤輸入

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z A

B C D E F G H I J K L M N O P Q R S T U V W X Y Z A B

C D E F G H I J K L M N O P Q R S T U V W X Y Z A B C

D E F G H I J K L M N O P Q R S T U V W X Y Z A B C D

E F G H I J K L M N O P Q R S T U V W X Y Z A B C D E

F G H I J K L M N O P Q R S T U V W X Y Z A B C D E F

G H I J K L M N O P Q R S T U V W X Y Z A B C D E F G

H I J K L M N O P Q R S T U V W X Y Z A B C D E F G H

I J K L M N O P Q R S T U V W X Y Z A B C D E F G H I

J K L M N O P Q R S T U V W X Y Z A B C D E F G H I J

K L M N O P Q R S T U V W X Y Z A B C D E F G H I J K

L M N O P Q R S T U V W X Y Z A B C D E F G H I J K L

M N O P Q R S T U V W X Y Z A B C D E F G H I J K L M

N O P Q R S T U V W X Y Z A B C D E F G H I J K L M N

O P Q R S T U V W X Y Z A B C D E F G H I J K L M N O

P Q R S T U V W X Y Z A B C D E F G H I J K L M N O P

Q R S T U V W X Y Z A B C D E F G H I J K L M N O P Q

R S T U V W X Y Z A B C D E F G H I J K L M N O P Q R

S T U V W X Y Z A B C D E F G H I J K L M N O P Q R S

T U V W X Y Z A B C D E F G H I J K L M N O P Q R S T

U V W X Y Z A B C D E F G H I J K L M N O P Q R S T U

V W X Y Z A B C D E F G H I J K L M N O P Q R S T U V

W X Y Z A B C D E F G H I J K L M N O P Q R S T U V W

X Y Z A B C D E F G H I J K L M N O P Q R S T U V W X

Y Z A B C D E F G H I J K L M N O P Q R S T U V W X Y

Z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

======================================================

分太少，哎！

下面代碼：

Private Sub Command1_Click()

Me.Cls

doit "A", "Z"

End Sub

Sub doit(ByVal a As String, ByVal b As String)

Dim i, m As Integer

Dim tmp, tmp2 As String

i = Asc(a)

m = Asc(b)

For j = i To m Step 1

For k = 0 To m - j Step 1

tmp = tmp & Chr(k + j) & " "

Next

For k = 0 To (m - i) - (m - j) Step 1

tmp2 = tmp2 & Chr(k + i) & " "

Next

Me.Print tmp & tmp2

Debug.Print tmp & tmp2

tmp = ""

tmp2 = ""

Next

上一篇:哈爾濱工業大學有哪些王牌專業？

下一篇:關於電子萬年歷