如何输出A到Z呢？

yuma 发布于 2012-06-27 19:26， 1367 次点击

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

12 回复

积善门徒2012-06-27 22:38

没分！没动力！

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

积善门徒2012-06-27 23:00

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

yuma2012-06-28 09:18

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

yuma2012-06-29 18:45

好吧。我完成了。

程序代码：

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

h5989377492012-07-08 15:15

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

yuma2012-07-08 17:31

以下是引用h598937749在2012-7-8 15:15:45的发言：

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

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

whtydn2012-07-26 13:15

    Dim Str As String
    Dim i As Integer

    For i = 65 To 90
      Str = Str + CStr(Chr(i))
    Next i
    MsgBox Str

wube2012-07-26 13:55

Dim Str As String
Dim i As Integer

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

#10

yuma2012-07-26 14:43

谢谢楼上两位。

#11

tengyiming2012-07-27 16:11

回复 7楼 yuma

要输出在一横排上只需要把print语句的结尾加一个“,”（逗号）就行了。

#12

老顽童9892012-07-29 18:36

Private Sub Form_Load()
Show
Cls
For I = 65 To 90: Print Chr(I);: Next I
End Sub

#13

yuma2012-07-30 20:02

这个cls可以不要的。