Private Sub Form_Load()
Text1.Text = ""
Command1.Caption = "单击"
End Sub

Private Sub Label1_change()
Label1.Caption = x
End Sub

Private Sub Label2_change()
Label2.Caption = y
End Sub

Private Sub Label3_change()
Label3.Caption = z
End Sub

Private Sub command1_Change()
Randomize
Dim n As Integer, x As Integer, y As Integer, z As Integer
x = Int((n - 1 + 1) * Rnd + 1)
y = Int((n - 1 + 1) * Rnd + 1)
z = Int((n - 1 + 1) * Rnd + 1)
End Sub

问题简单了 就没人愿意来看看？

[QUOTE]Private Sub command1_Change()
[/QUOTE]
按钮控件没有Change事件吧,你这个command1是什么事件?要分析什么?

在指定范围内产生3个随机整数，范围n在文本框中输入，3个随机整数显示在3个标签上

1. n没有赋值 也就是0 那n-1+1就是0 乘rnd也还是0...你这样是弄不出随机数的
2. label和command button都不存在change事件

你应该把你所谓的label的change和command的change中的代码 统统都放到command的click事件中去.

click事件的代码应该如下: (俺偷下懒了 )
dim x,y,z,n
randonmize
n=...
x = ...
y=..
z=...

label1.text = cstr(x)
label2.text = cstr(y)
label3.text = cstr(z)