i As Integer t = 1 For i = 1 To 8 t = t * i Next i MsgBox tEnd Sub ||| (1)111 222 333(2)BEH(3)16(4)这个我不会 答案补充 最后这一个你没有给出内容 不知道题意 ||| 第四题~~Private Sub Form_Load()Dim s As Doubles = 1For i = 1 To 4s = s * iNextMsgBox sEnd Sub 第一题是1 1 1 2 2 23 3 3第二题是BEH第三题是16第四题是Private Sub Form_Load() Dim t As Long