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

来源：学生作业帮助网编辑：六六作业网时间：2024/11/16 22:21:59

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吧