vb编程随机生成10个1~100之间的整数再按奇偶分类显示

Question

如题所述

Answer 1

Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
Dim a As String, b As String
For i = 1 To 10
k = Fix(Rnd * 100) + 1
If k Mod 2 = 0 Then
b = b & k & " "
Else
a = a & k & " "
End If
Next
Print a
Print b

End Sub

Answer 2

病情分析：
你好，这种情况按照经验来说，考虑是支气管炎的表现。
指导意见：
要想确诊的话，建议请专业的医生进行肺部听诊，或者是做一下胸部x光片检查。