For i=1 To 4 x=3 For j=1 to 3 For k=1 to 2 x=x+3 Next k Next j Next i text1.Value=Str(x) End Sub

来源：学生作业帮助网编辑：六六作业网时间：2025/02/03 14:39:33

Fori=1To4x=3Forj=1to3Fork=1to2x=x+3NextkNextjNextitext1.Value=Str(x)EndSubFori=1To4x=3Forj=1to3Fork=

For i=1 To 4 x=3 For j=1 to 3 For k=1 to 2 x=x+3 Next k Next j Next i text1.Value=Str(x) End Sub
For i=1 To 4 x=3 For j=1 to 3 For k=1 to 2 x=x+3 Next k Next j Next i text1.Value=Str(x) End Sub

For i=1 To 4 x=3 For j=1 to 3 For k=1 to 2 x=x+3 Next k Next j Next i text1.Value=Str(x) End Sub
应该是21吧