Question

Vb Combo1赋值

VB ：
Combo1，Text1 各一个，text1值为数字，输入几，Combo1自动生成几条，值为1到指定值，比如text1为5，则生成1 2 3 4 5 ，如果text1变为4，则Combo1自动变成1 2 3 4
我找了几个，都不是很理想，麻烦高手了

Answer 1

Private Sub Text1_Change()
Dim i As Integer
Combo1.Clear
For i = 1 To Val(Text1.Text)
Combo1.AddItem i
Next
Combo1.ListIndex = Combo1.ListCount - 1 '把最大值设为当前项
End Sub

Answer 2

是这个意思吗？

Private Sub Text1_Change()
Combo1.Clear
For i = 1 To Int(Text1)
Combo1.AddItem (i)
Next
End Sub

追问

太好了，谢谢，怎样才能把最大值直接显示出来？

追答

不是很明白最大值指的是什么 要怎么个显示方法？print？还是赋值到哪个控件？
还是说把下拉框中的最大值直接显示在下拉框首选上？

追问

把最大的数值直接显示到这里

追答

加一句 Combo1.Text = i - 1

追问

谢谢，我又学了一句：Combo1.Text = i - 1