VB中怎么把一个列表框中的数 复制给一个变量？

Answer 1

a=list1.list(i)
a为变量，i为列表框里对应条目的索引号。第一行为0，第二行为1，以此类推

追问

单击命令按钮1，在列表框1中显示100个[10，99]之间的随机整数中大于40的所有数据，该怎么写程序代码？

追答

Private Sub Command1_Click()
Dim I As Integer, N As Integer
Randomize
For I = 1 To 100
N = Int(80 * Rnd) + 10
If N > 40 Then List1.AddItem N
Next I
End Sub

追问

单击命令按钮1，产生100个[10，99]之间的随机整数并显示在列表框1中。
单击命令按钮2，在列表框2中显示上述随机整数中大于40的所有数据 这样的话程序代码怎么写？

追答

自己写吧，我不是答题的机器，方法我已经告诉你了。

追问

好吧！！谢谢啦！

Answer 2

通常这种情况，是用户点击列表框时，点了哪一行，就把那一行的数据给变量，可以这样写：
a = List1.Text
这里，List1.Text就是你点击的列表框的那一行的数据。
如果你要指定列表框的特定行，则用：
a=List1.List(i)
注意，i=0为第一行。

Answer 3

dim strA as string
strA=combo1.text