我需要生成一個循環,使用Visual Basic(2008)遍歷字母表中的每個大寫字母。最乾淨的方法是什麼?如何遍歷Visual Basic中的字母表?
8
A
回答
24
For Each c In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
...
Next
10
我想通了。任何人有更好的解決方案?
要遍歷字母表:
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」 等
任何人都有一個更好的解決方案?
10
這樣做很可能是最簡單的方法:我真的不知道,如果它雖然乾淨
For ascii = 65 To 90
Debug.Print(Chr(ascii))
Next
。自從我開始使用c#以來,我從未在vb.net工作過。
1
這裏是另一種方式來枚舉字母:
For Each letter As Char In Enumerable.Range(Convert.ToInt16("A"c), 26) _
.Select(Function(i) Convert.ToChar(i))
Console.WriteLine(letter)
Next
0
-1
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
0
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
+2
你能提供一個更清晰的代碼是幹什麼的圖片嗎?像解釋一下 – 2018-03-09 06:07:00
相關問題
- 1. 如何在Python中遍歷字母表?
- 2. xsl遍歷字母列表
- 3. 你如何在Visual Basic中書寫字母?
- 4. 如何遍歷字典列表?
- 5. 如何遍歷字節數組列表...?
- 6. 如何遍歷字典列表?
- 7. 如何遍歷C++中的unicode字符?
- 8. 如何遍歷字典
- 9. 如何遍歷字符串
- 10. 如何遍歷字符串
- 11. 如何遍歷Java列表中的JavaScript
- 12. 如何遍歷stringtemplate中的java列表?
- 13. 如何遍歷javascript中的列表
- 14. 如何遍歷數據表中的行?
- 15. 如何遍歷Oracle中的表SQL
- 16. 如何遍歷此表?
- 17. 如何做列表遍歷?
- 18. 如何遍歷ID列表
- 19. 如何遍歷字符串的字符?
- 20. 在visual basic中使用日曆
- 21. 遍歷python中的字符串列表
- 22. 遍歷VB.net中的字典列表
- 23. 遍歷列表中的字符串
- 24. 如何遍歷
- 25. Ansible - 遍歷字典列表
- 26. 替換Visual Basic中的每一個字母
- 27. 遍歷Python列表只給每個字母
- 28. 將字母切換到字符串的末尾Visual Basic
- 29. 如何在VB.net中遍歷/遍歷表單中的所有對象?
- 30. 如何在Lua中遍歷表?
的ToCharArray()是不是絕對必要的,因爲字符串實現IEnumerable(煤焦) – 2011-03-28 16:09:02
這是一個非常乾淨的方式來做到這一點! – Dayan 2012-09-20 16:41:13
@ChrisDunaway你可以給一個示例代碼嗎? – Smith 2016-07-01 17:37:25