[Visual Basic 陣列] 與 [Python列表]問題探討

python3 visual basic list comprehension 列表解析列表推導

CEH2019 2019-07-09 14:40:43 ‧ 2504 瀏覽

分享至

普通寫法

#Python編寫：
a = []
for x in range(21):
    if x%2==0:
        a.append(x)
print(a)

'Visual Basic編寫：
Sub main()
    Dim so As New ArrayList
    For x = 0 To 20
        If x Mod 2 = 0 Then
            so.Add(x)
        End If
    Next
End Sub

運行結果：
[0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20]

高級寫法

#Python List comprehension寫法：
a = [x for x in range(21) if x%2==0]
print(a)

'Visual Basic
??????

1. 使用VB做得到類似Python的List comprehension寫法嗎?
1. VB除了普通寫法，還有其他更好的寫法嗎?

paicheng0111 iT邦大師 5 級 ‧ 2019-07-09 15:22:30 檢舉

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

3 個回答

japhenchen

iT邦超人 1 級 ‧ 2019-07-10 07:52:45

最佳解答

YES

用VB.net版的LAMBDA


    Sub Main()
        Dim alist(100) As Int32   '弄一個100維度的陣列
        For i = 1 To 100
            alist(i) = i  ' 塞預設值
        Next

        For Each a In alist.Where(Function(x) x Mod 2 = 0) ' 只列出除以2餘0的數字(偶數)
            Console.WriteLine(a)
        Next

    End Sub

回應 1
分享
檢舉

japhenchen iT邦超人 1 級 ‧ 2019-07-10 11:12:03 檢舉

但如果是VB6、VBA這類的話，那......不支援

登入發表回應

paicheng0111

iT邦大師 5 級 ‧ 2019-07-09 15:22:39

NO, 用VB不行。

但用EXCEL VBA可以做出類似的效果。

Sub test()
    Dim a As Variant, myRng As Range, i As Long
    
    Set myRng = Range(Cells(1, 1), Cells(10, 1))
    
    myRng.FormulaR1C1 = "=row()*2"
    a = Application.Transpose(myRng)
    
    For i = LBound(a) To UBound(a)
        Debug.Print (a(i))
    Next i
End Sub

回應
分享
檢舉

登入發表回應

小魚

iT邦大師 1 級 ‧ 2019-07-09 18:20:27

Python不熟, 不過我猜你的需求是不是這樣

以下是C#的寫法，要轉成VB的應該也不難

Random rnd = new Random();
List<int> list = Enumerable.Range(1, 50).OrderBy(n => rnd.Next()).ToList();
list = list.Select(x => x * 2).ToList();
for (int i = 0; i < list.Count; i++)
    Console.Write($"{list[i]} ");