杭州交通信息网铁甲雄兵哪个武将厉害:哪位VB高手教我一个小程序代码,请看问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/06 18:56:40
1、随机产生100个两位数,并统计出其中小于40,大于40小于等于70,及大雨70的数据个数.
2、产生10个两位随机整数,用冒泡排序法,求15个数按升序排列.
2、产生10个两位随机整数,用冒泡排序法,求15个数按升序排列.
1.Dim i, num, numX, numY, numZ
For i = 1 To 100 Step 1
num = Int((99 * Rnd) + 10)
If num < 40 Then
numX = numX + 1
ElseIf num > 40 And num < 70 Then
numY = numY + 1
ElseIf num > 70 Then
numZ = numZ + 1
End If
Text1.Text = numX
Text2.Text = numY
Text3.Text = numZ
Next
---------
说明：numX,numY,numZ分别表示小于40,大于40小于等于70,及大于70的数的个数。
num为生成的数
'//冒泡发排序（由小到大）数存在数组aa中
If UBound(aa) > 1 Then
For i = 1 To UBound(aa) - 1
For j = i + 1 To UBound(aa)
If aa(i) > aa(j) Then
n = aa(i)
aa(i) = aa(j)
aa(j) = n
End If
Next j
Next i
Print "最大值为：" & aa(1)
Print "最小值为：" & aa(UBound(aa))
End If