【请教】关于一道简单题

Mr.TJSCbest

题目要求是添加两个text控件与两个command控件，要求按下command1时text1上显示出5个100-300之间的随机数，按下command2时text2上显示这五个数中偶数之和。

Mr.TJSCbest

1. Dim a(0 To 4), b(0 To 4) As Integer
   
2. 
   
3. Private Sub Command1_Click()
   
4.    Randomize
   
5.    a(0) = Int(Rnd * (300 - 100 + 1)) + 100
   
6.    a(1) = Int(Rnd * (300 - 100 + 1)) + 100
   
7.    a(2) = Int(Rnd * (300 - 100 + 1)) + 100
   
8.    a(3) = Int(Rnd * (300 - 100 + 1)) + 100
   
9.    a(4) = Int(Rnd * (300 - 100 + 1)) + 100
   
10.    Text1 = a(0) & " " & a(1) & " " & a(2) & " " & a(3) & " " & a(4)
    
11. End Sub
    
12. 
    
13. Private Sub Command2_Click()
    
14.    Select Case 1
    
15.    Case a(0) Mod 2 = 0
    
16.    b(0) = a(0)
    
17.    Case a(1) Mod 2 = 0
    
18.    b(1) = a(1)
    
19.    Case a(2) Mod 2 = 0
    
20.    b(2) = a(2)
    
21.    Case a(3) Mod 2 = 0
    
22.    b(3) = a(3)
    
23.    Case a(4) Mod 2 = 0
    
24.    b(4) = a(4)
    
25.    End Select
    
26.    Text2 = b(0) + b(1) + b(2) + b(3) + b(4)
    
27.    End Sub
    
28. 
    
29. Private Sub Form_Load()
    
30.    Command1.Caption = "摇随机数"
    
31.    Command2.Caption = "求偶数和"
    
32.    Label1 = "5个100—300的随机数"
    
33.    Label2 = "偶数之和"
    
34.    Text1 = ""
    
35.    Text2 = ""
    
36. End Sub

复制代码

Mr.TJSCbest

Mr.TJSCbest 发表于 2021-2-1 12:06

完全是小白，command2为什么跑不起来？

JuncoJet

写的什么鬼代码
遍历 a(0) to a(4) 然后mod上2，加起来就好了

1. Private Sub Command2_Click()
   
2.     Sum = 0
   
3.     For i = 0 To 4
   
4.         Sum = Sum + IIf(a(i) Mod 2, 0, a(i))
   
5.     Next
   
6.     Text2 = Sum
   
7. End Sub

复制代码