Private SubCommand1_Click() Dim nAs Integer For n = 0 To 9 Step 3 Print rel(n); Next n End Sub Private Function relByVal iAs Integer)As Integer Dim xAs Integer x = 0 For j = 1 To i If i < 5 Then rel = i:EXit Function x = x + i Next i rel = x End Function 程序运行后,单击命令按钮,则窗体上显示的内容是 A.1 3 5 7 B.2 8 14 53 C.0 3 21 45 D.0 5 11 34