4、编程，按命令按钮1(Command1)后随机产生10个两位正整数，求出其中的偶数之和，并在标签框Label1上显示

Private Sub Command1_Click()
Randomize
'Dim iarr(10) As Integer
Dim r As Integer
Dim sum As Integer
sum = 0
For i = 1 To 10
r = Int(100 * Rnd + 1)
If r Mod 2 = 0 Then
sum = sum + r
End If
Next
Label1.Caption = Str(sum)
End Sub

Private Sub Command1_Click()
Randomize '每次要初始化随机，不然下次打开程序所得到的随机数与第一次一样
Label1 = "" '清空原有显示
Label2 = "上边偶数分别是" '多加一个label2方便查看偶数，你可以不要
For i = 1 To 10 '
x = Rnd * 90 '随机数在0到90之间，并且不等于90
Label1 = Label1 & Int(x + 10) & " " '输出时随机数不会小于10（可以等于10）且小于100
If Int(x + 10) Mod 2 = 0 Then
z = Int(x + 10) 'z变量为随机出来的偶数
Label2 = Label2 & z & " " '存放随机出来的偶数
y = y + z 'y的初值自动为0，累加每一次在10（包含）到100（不包含）之间偶数的和
End If
Next i
Label1 = Label1 & vbCrLf & "它们之间偶数的和等于" & y '控行显示和
End Sub
如有需要，再M我，其实楼上答案不错。我的不过更详细点，呵呵

?什么语言?用什么工具？