学会用数组:
Dim Vals() As String = {"做都","哈哈","乐乐","嘿嘿","洗洗","帅帅"}Dim i As Integer = 3MessageBox.show("第四个是: " & vals(3))For i = 0 To 5 MessageBox.show("第" & (i+1) & "个是: " & vals(i))Next