Question

vb编程选数

“从100到500中随机选出1个数，作为第一个数，再随机选出一个数，如果比前一个数大则留下，否则舍掉，以此类推，直到选出10个数为止”vb编程

Answer 1

首先要说明一下，按要求能得到的数不一定能有10个。如首个随机数等于500，则后面的数一个也不能得到了。

Private Sub Command1_Click()

Dim a(10) As Integer

n = 0

While n < 10 And a(n) < 500

  n = n + 1

  While a(n) <= a(n - 1)

    a(n) = Int(401 * Rnd) + 100

  Wend

Wend

Print "得到的数有"; n; "个，它们是："

For i = 1 To n

  Print a(i);

Next i

Print

End Sub

Answer 2

病情分析：
你描述的症状考虑是呼吸道感染引起的。
指导意见：
建议吃利巴韦林颗粒，维生素C片，小儿止咳糖浆。平时要避风寒，注意保暖，清淡饮食，禁辛辣，煎炸刺激性食物，多喝温开水，多吃蔬菜水果。

病情分析：
考虑为感冒的可能，可以采用小儿氨酚黄那敏颗粒治疗，
指导意见：
多喝开水，注意保暖很重要，必要时可以采用输液进行治疗的。

病情分析：
你好，感冒一般是病毒感染引起的，但是也有部分是细菌性的。
指导意见：
可以给孩子吃点，牛磺酸颗粒，头孢克肟颗粒。咳嗽比较严重的话，可以喝点小儿止咳糖浆。平时注意保暖，多给孩子喝点水！

Answer 3

Private Sub Command1_Click()
Dim n As Integer, n1 As Integer
Dim i As Integer
Cls
Do While i < 10
DoEvents
Randomize
n = Int((500 - 100 + 1) * Rnd + 100)
If n + 9 - i <= 500 And n > n1 Then
n1 = n
i = i + 1
Print n1, i
End If
Loop
End Sub