求帮忙:关于在学习VB中的一些习题

来源：百度知道 编辑：UC知道 时间：2024/05/04 09:41:08
<1>编写程序,求S=A!+B!+C!

<2>求5*5矩阵中的对角元素和,(要求:分别求出两条对角线的和).

<3>用随机函数产生50个两位数，按大到小的顺序输出.

谢谢各位大侠们的提点,小弟在此谢过

<1>Private Sub Command1_Click()
Dim a, b, c, i As Integer
Dim j, sum As Double
a = InputBox("输入A的值", "提示")
b = InputBox("输入B的值", "提示")
c = InputBox("输入C的值", "提示")
j = 1
sum = 0
For i = 1 To a
j = j * i
sum = sum + j
Next
j = 1
For i = 1 To b
j = j * i
sum = sum + j
Next

j = 1
For i = 1 To c
j = j * i
sum = sum + j

Next
MsgBox a & "!+" & b & "!+" & c & "!=" & sum
End Sub

<2>Private Sub Command1_Click()
Dim a(4, 4) As Integer
Dim i, j As Integer
Dim sum As Integer
sum = 0
Randomize

For i = 0 To 4
For j = 0 To 4
a(i, j) = Int(Rnd(1) * 100)
Print a(i, j),
Next
Print
Print
Next

Print

For i = 0 To 4
sum = sum + a(i, i)<