Question

VB编程题

2． 编程序计算：1！+2！+3！+……+10!

Answer 1

p = 1
h = 0

For s = 1 To 10

For ss = 1 To s
p = p * ss
Next ss

h = h + p
p = 1

Next s

Text1.Text = h

已经通过VB+6.0

Answer 2

开头你自己写
中间过程是这样的！
int s,sum;
s=0;sum=0;
for i=1 to 10
for j=i+1 to 10
s=j*i;
next j;
end;
sum=s+sum;
next i;
end;

Answer 3

a = 1
For i = 1 To 10
a = a * i
s = s + a
Next i
Label1.Caption = s

Answer 4

Private Sub Command1_Click()
Dim Resault As Double
Dim i As Integer
For i = 1 To 10
Resault = Resault + Cal(i)
Next
End Sub

Public Function Cal(Num) As Double
Dim i As Integer
Dim R As Double
R = 1
For i = 1 To Num
R = R * i
Next
Cal = R
End Function

Answer 5

！的意思是？