Question

vb求1*2*3*4*5*6*7*8*9*10

Answer 1

Private Sub Form_Load()

Dim i As Integer

Dim j As Integer

Dim strtemp As String

For i = 1 To 9

strtemp = ""

For j = 1 To 9

If j > i Then GoTo iii:

strtemp = strtemp & i & "*" & j & "=" & i * j & "   "

Next j

iii:

Debug.Print strtemp

Next i

End Sub

Answer 2

a = Val(InputBox("请输入个数"))
Sum = 1
If a <> 0 Then
For i = 1 To a
Sum = Sum * i
Next i
Print "从1垒乘到" & a & " 的积为" & Sum
End If

Answer 3

dim i as integer
dim s as integer
s=1
for i=1 to 10
s=s*i
next i
print cstr(s)

Answer 4

s=1
for t=1 to 10
s=s*t
next
print "1*2*3*4*5*6*7*8*9*10=" & s