请问怎么用vb编程随机生成名单

Question

如题所述

Answer 1

Private Sub Command1_Click()
Dim x1, x2, x3, x4, x5, x6, x7, x8, x9, z, o, o2, o3, o4 As String
o = "永辉小全" '姓名第二个字
o2 = "伟刚弘新" '姓名第三个字
Randomize
x1 = "赵钱孙李" '姓
x2 = Len(x1)
x3 = o
x4 = Len(x3)
x5 = o2
x6 = Len(x5)
x7 = Mid(x3, Int(Rnd * x4) + 1, 1)
x8 = Mid(x5, Int(Rnd * x6) + 1, 1)
x9 = Mid(x1, Int(Rnd * x2) + 1, 1)
z = x9 & x7 & x8 '
Print z '显示名字
End Sub

要对加的话，对照上面改就OK了

Answer 2

把数据变成数组利用数组下标

Answer 3

我*威 new206