跪求 2个简单的vb程序问题 要完整的程序 有追加！！ 3U3U

来源：百度知道 编辑：UC知道 时间：2024/06/08 08:42:10
1.随机生成20个100以内的正整数 将其中的技术和偶数分两行显示在窗体上
2.随机生成100个两位整数 并统计出其中小于等于40 大于40小于等于70 大于70的数据个数

1代码:
Private Sub Command5_Click()
Dim i As Integer
Dim tmP As Integer
Dim tmpE As String
Dim tmpJ As String
For i = 1 To 20
Randomize '初始化随机数生成器
tmP = (Int(100 - 1 + 1) * Rnd) + 1 '返回[1,100]内的整数
If (tmP Mod 2) Then
tmpE = tmpE & CStr(tmP) & ","
Else
tmpJ = tmpJ & CStr(tmP) & ","
End If
Next i
Print tmpE
Print tmpJ
End Sub
2代码:
Private Sub Command5_Click()
Dim i As Integer
Dim tmP As Integer
Dim mnFty As Integer
Dim mxFty As Integer, mnSve As Integer, mxSve As Integer
Dim Tmpstr As String
For i = 1 To 100
Randomize '初始化随机数生成器
tmP = (Int(99 - 10 + 1) * Rnd) + 10 '返回[10,99]内的整数
If tmP <= 40 Then mnFty = mnFty + 1
If tmP > 40 Then mxFty = mxFty + 1
If tmP <= 70 Then mnSve = mnSve + 1
If tmP