各位高手:这个程序怎么做!(最好给出源代码)谢谢!

Question

不明白 你为什么要这种效果
估计能用上 RndRandomize
Dim MyValue
MyValue = Int((200 * Rnd) + 1)   ' 生成 1 到 200 之间的随机数值。
Select Case MyValue   ' 判断 Number 的值。
Case 1 To 5   ' Number 的值在 1 到 5 之间，包含1 和 5 。
' 下一个 Case 子句是本示例中唯一判断值为 True 的子句。
Case 6, 7, 8   ' Number 的值在 6 到 8 之间。
   Debug.Print "Between 6 and 8"
Debug.Print "Greater than 8"
Case Else   ' 其他数值。
   Debug.Print "Not between 1 and 10"
End Select

Answer 1

这  这  你yong  list好了
list1.additem "hello"

Answer 2

这是一个关于理发师的问题,当开门以后,会有各种情况发生,当源代码写完之后用for语句循环一下,打印各种情况,我用的是textbox,可是它只能打印其中的一种情况,以前的就被覆盖了,怎样可以避免这种情况,是否有其它的控件可以实现,比如
for i=1 to 200
  text1.text="hello"
next i
用form可以实现换行显示,但是它没有滚动轴,200个不能完全显示,目的是让它显示200个hello可是这样只能显示1个我是这样做的,自从理发店开业之后,用随机数产生了理发者(每一个理发者有一个来的平均时间,理发时间,理发最大的等待时间如果理发者超过了最大等待时间就会离开),用vb模拟这个过程,当然了理发者的数量也是随机的,我的目的是打印这个过程,所以用到了text我一开始用的是label发现不行,然后用的是form也不行,所以,我想问一下高手,是否可以实现我的想法

Answer 3

for i=1 to 200
  text1.text=text1.text & vbcrlf & "hello"
next

Answer 4

for i=1 to 200
  list1.additem "hello"next i
打印： 
就用printer好了

Answer 5

或者你去配置TEXT1的属性 
Text1.MultiLine = ture
text1.ScrollBars=。

Answer 6

1、debug.print
2、text1.多行=true
  text1.滚动条=2

Answer 7

for i=1 to 200
  text1.text=text1.text &  Chr(13) & "hello"
next i

Answer 8

Dim TempStr As StringTempStr=""
for i=1 to 200
  TempStr=TempStr +  vbCrLf + "hello"
next itext1.Text=TempStr
text1.SelStart=Len(TempStr)

Answer 9

text1的MultiLine属性设为True
text1的ScrollBars属性设为VbVertical

Answer 10

'设为多行显示
text1.multiline=true
'显示时用以下语句
text1.text=text1.text & vbcrlf & "hello"