把10个label做成控件数组,比如都叫labels,每个label有1~10的序号,让后用数组labels(i)来操作。i就是你显示的个数。
不要这样命名,你把所有Label都组成控件数组,这样就可以用变量指定了:
For i=0 to 9
Label1(i).Caption=i
Next
for j=1 to i-1 不用说了
if x=a(j) then yes=1:exit for 检测x是否=a(j),r如果=重新生成x,其实这是判断在生成的10个随机数中有无重复的数,如果有,就是这句,重新生成。其他就不用说了,你应该明白。
i=val(inputbox("请输入显示的个数"))
for i=1 to i
label(i).Visible=true
next i
好久不做这个了。。。你验证下