|

楼主 |
发表于 2021-2-1 12:06:23
|
显示全部楼层
本帖最后由 Mr.TJSCbest 于 2021-2-1 12:07 编辑
- Dim a(0 To 4), b(0 To 4) As Integer
- Private Sub Command1_Click()
- Randomize
- a(0) = Int(Rnd * (300 - 100 + 1)) + 100
- a(1) = Int(Rnd * (300 - 100 + 1)) + 100
- a(2) = Int(Rnd * (300 - 100 + 1)) + 100
- a(3) = Int(Rnd * (300 - 100 + 1)) + 100
- a(4) = Int(Rnd * (300 - 100 + 1)) + 100
- Text1 = a(0) & " " & a(1) & " " & a(2) & " " & a(3) & " " & a(4)
- End Sub
- Private Sub Command2_Click()
- Select Case 1
- Case a(0) Mod 2 = 0
- b(0) = a(0)
- Case a(1) Mod 2 = 0
- b(1) = a(1)
- Case a(2) Mod 2 = 0
- b(2) = a(2)
- Case a(3) Mod 2 = 0
- b(3) = a(3)
- Case a(4) Mod 2 = 0
- b(4) = a(4)
- End Select
- Text2 = b(0) + b(1) + b(2) + b(3) + b(4)
- End Sub
- Private Sub Form_Load()
- Command1.Caption = "摇随机数"
- Command2.Caption = "求偶数和"
- Label1 = "5个100—300的随机数"
- Label2 = "偶数之和"
- Text1 = ""
- Text2 = ""
- End Sub
复制代码 |
|