Question

我需要生成一个循环，使用Visual Basic（2008）迭代字母表中的每个大写字母。最干净的方法是什么？

Answer 1

For Each c In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
...
Next

Answer 2

最简单的方法可能是：

For ascii = 65 To 90
    Debug.Print(Chr(ascii))
Next

我不确定它是否是最干净的。自从我开始使用c＃以来，我没有在vb.net工作过。

Answer 3

我明白了。任何人都有更好的解决方案吗？

循环使用字母表：

For i As Int16 = Convert.ToInt16("A"c) To Convert.ToInt16("Z"c)
        Dim letter As Char = Convert.ToChar(i)
        'Do my loop work...
Next

Letter首先等于“A”，然后是“B”等等。

任何人都有更好的解决方案吗？

Answer 4

这是列举字母的另一种方式：

For Each letter As Char In Enumerable.Range(Convert.ToInt16("A"c), 26) _
                                     .Select(Function(i) Convert.ToChar(i))
    Console.WriteLine(letter)
Next

Answer 5

试试这个

Dim a As String
a = 65
Do
If a > 90 Then
Exit Do
Else
List1.AddItem Chr(a)
a = a + 1
End If
Loop

Answer 6

Sub Sel_1_sur_2()
Dim i As Long
Dim a As ChartObject
Dim rng As Range
Set rng = Range(Chr(65) & ":" & Chr(65))
For ascii = 65 To 90 Step 2
    Debug.Print (Chr(ascii))
    Set rng = Union(rng, Range(Chr(ascii) & ":" & Chr(ascii)))
Next
rng.Select
End Sub

Answer 7

Module Abecedario
    Sub main()
        Dim letra As String
        letra = 65

        Console.WriteLine("El abecedario")
        Console.WriteLine("-------------")

        Do
            If letra > 90 Then
                Exit Do
            Else
                Console.Write(Chr(letra) & ", ")
                letra = letra + 1
            End If
        Loop

        Console.ReadLine()

    End Sub
End Module

如何在Visual Basic中迭代字母表？

7 个答案: