1/
Dim a(1 To 100)
Show
For i = 1 To 100
Randomize
a(i) = Int(90 * Rnd + 10)
Next i
For i = 1 To 100
If a(i) < 40 Then
x = x + 1
ElseIf a(i) >= 40 And a(i) < 70 Then
y = y + 1
ElseIf a(i) >= 70 Then
z = z + 1
End If
Next i
Print x; y; z
2/
Dim a(1 To 20),b(1 To 20),c(1 To 20)
x = 0:y = 0
Show
For i = 1 To 20
Randomize
a(i) = Int(90 * Rnd + 10)
Next i
For i = 1 To 20
If a(i) Mod 2 = 0 Then
x = x + 1
b(x) = a(i)
ElseIf a(i) Mod 2 0 Then
y = y + 1
c(y) = a(i)
End If
Next i
For i = 1 To x
Label1.Caption = Label1.Caption + Str(b(i)) + " "
Next i
For i = 1 To y
Label2.Caption = Label2.Caption + Str(c(i)) + " "
Next i
谁能帮我做VB6.0的两个编程?明早要!
谁能帮我做VB6.0的两个编程?明早要!
编写程序,随机生成100个两位数,并统计出其中小于等于40,大于40小于等于70及大于70的数据个数!
2,随机生成20个100以内的正整数,将其中的奇数和偶数分两行显示在窗体上.
明天早上7.50前要的!
最好有窗体,是整个VB程序!
编写程序,随机生成100个两位数,并统计出其中小于等于40,大于40小于等于70及大于70的数据个数!
2,随机生成20个100以内的正整数,将其中的奇数和偶数分两行显示在窗体上.
明天早上7.50前要的!
最好有窗体,是整个VB程序!
其他人气:937 ℃时间:2020-05-24 08:39:44
优质解答
我来回答
类似推荐
猜你喜欢
- 1傅科摆为什么能摆很长时间
- 2m-n=4,nm=-1 ,求mn各多少?
- 3某商场运来一批德芙巧克力和费列罗巧克力,德芙比费列罗少70kg,当费列罗全部售完时,德芙售出了40%,这两种巧克力共售出770kg,这个商场运来德芙巧克力多少千克?
- 4知了在什么季节破土而出
- 5大于7分之2小于7分之4的真分数有几个?
- 6(3-1)(3的50次方+3的49次方+3的48次方+.+3的两次方+3+1)
- 7定语从句what做关系代词为什么等于all that
- 8已知映射f:A→B,其中A=B=R,对应法则f:x→y=x2-2x+2,若对实数k∈R,在集合A中不存在原象,则k的取值范围是
- 9a的平方=3,b的立方=4,c的四次方=5,d的五次方=6.求a,b,c,d的大小
- 10如图,数轴上两点A,B,在线段AB上任取一点,则点C到表示1的点的距离不大于2的概率是( ) A.12 B.13 C.23 D.34