Public Class Form1

    Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
        If e.KeyCode = 13 Then
            ComboBox1.Items.Add(ComboBox1.Text)
            TextBox1.Text = ComboBox1.Items.Count

        End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Timer1.Enabled = False Then
            Timer1.Enabled = True
            Button1.Text = "停止"
        Else
            Button1.Text = "开始"
            Timer1.Enabled = False
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim a, n As Integer
        Randomize()
        n = ComboBox1.Items.Count
        a = Int(Rnd() * n)
        ComboBox1.SelectedIndex = a
        Label4.Text = ComboBox1.SelectedItem

    End Sub
End Class

会显示，没有任何问题！！
你的难道有问题？

textbox1.text会显示
label4.text不显示

因为 ComboBox1.Items.Add(ComboBox1.Text)
出来的combobox1.text内容都是空白的

所以 label4.text显示出来也都是空白的

[[italic] 本帖最后由 hezhifang 于 2007-12-5 16:15 编辑 [/italic]]

難道你就不會添加些東西再按回車！
都會顯示的！！！

textbox1.text还是不会显示
label4.text会显示

怎么不可以了？只是顯示cmb控件的記錄數

可能电脑有问题吧