UC知道还是。VB编程题 扶风谢谢你了 谢谢大家了
来源：百度知道 编辑：UC知道 时间：2024/05/26 08:48:38
（1）编写程序 1！+3！+5！+7!+9!+11! 并把结果显示出来
（2）利用随机函数产生40个[1,4]之间的数，分别统计出1的个数，2的个数，3的个数和4的个数
（3）利用随机函数产生10个100到999之间的整数，显示在窗体上，然后分别求出偶数的平均值和奇数的平均值，然后把结果显示出来
（4）定义一个5X5的二维数组，其数组元素为10～99见的随机整数，将数组显示在窗体上，并计算对角元素的和并显示出来
（2）利用随机函数产生40个[1,4]之间的数，分别统计出1的个数，2的个数，3的个数和4的个数
（3）利用随机函数产生10个100到999之间的整数，显示在窗体上，然后分别求出偶数的平均值和奇数的平均值，然后把结果显示出来
（4）定义一个5X5的二维数组，其数组元素为10～99见的随机整数，将数组显示在窗体上，并计算对角元素的和并显示出来
'（1）编写程序 1！+3！+5！+7!+9!+11! 并把结果显示出来
Private Function jie(ByVal s) As Long
If s = 0 Then
jie = 1
Exit Function
End If
jie = jie(s - 1) * s
End Function
Private Sub Command1_Click()
m = Val(InputBox("请输入公式中最后一个数"))
For i = 1 To m Step 2
Sum = Sum + jie(i)
Next
Print "总和是" & Sum
End Sub
'（2）利用随机函数产生40个[1,4]之间的数，
'分别统计出1的个数，2的个数，3的个数和4的个数
Private Sub Command1_Click()
Dim a(40) As Integer
For i = 1 To 40
Randomize
a(i) = Int(Rnd() * 4 + 1)
Next
For i = 1 To 40
Select Case a(i)
Case 1
a1 = a1 + 1
Case 2
a2 = a2 + 1
Case 3
a3 = a3 + 1
Case 4
a4 = a4 + 1
End Select
Next
Print "1的个数" & a1
Print "2的个数" & a2
Print "3的个数" & a3
Print "4的个数" & a4
End Sub
'（3）利用随机函数产生10个100到999之间的整数，显