就是写一个程序输入出：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


最好用上循环。


[ 本帖最后由 yuma 于 2012-6-27 19:39 编辑 ]

没分！没动力！

何谓循环？
用do while写？我就不太了解你的意图了

将chr（"65"）-chr("90")来代替a-z
将string转变为int
想怎么循环就怎么循环吧

除了用ASCII 还有其它的办法吗？

好吧。我完成了。

Dim a As Long
For a = 65 To 90
Open "1.txt" For Append As #1
Print #1, Chr(a)
Close #1
Next

Private Sub Command1_Click()
    For i = 65 To 90
      Print Chr(i)
    Next i
End Sub

可以给我来个横向排序吗？
就是输出在一横排上。

    Dim Str As String
    Dim i As Integer
   
    For i = 65 To 90
      Str = Str + CStr(Chr(i))
    Next i
    MsgBox Str

Dim Str As String
Dim i As Integer
   
    For i = Asc("A") To Asc("Z")
      Str = Str + CStr(Chr(i))
    Next i
    MsgBox Str

谢谢楼上两位。