得分 评卷人 三、阅读程序题（共25分） 阅读下列程序并写出程序运行结果。 26.(6分) Private Sub Form_Click() Dim I As Integer,j As Integer Dim c As Integer c=1 For I=1 To 3 For j=1 To 2 c=c+3 Next j Next I Print c End Sub 文件框Textl的输出结果是： 27.(6分) Private Sub Command1_Click() Dim s As Double Dim i As Integer s=5 i=1 Do While i<9 i=i+2 s=s+i LooP Textl.Text =s End Sub 写出程序运行时，单击命令按钮文本框Textl中的输出结果。 1418得分|评卷人 三、阅读程序题{共 5分} 阅读下列程序并写出程序运行结果。 26. (6 Private Sub Form_ClickO Dim I As Integer. j As Integer Dim c As Integer c = 1 For I = 1 To 3 For j = 1 To 2 c = c + 3 Next j Next I Print c End Sub 文件框 !的输出结果是: 27. (6 Private Sub CommandLClickO Dim s As Double Dim i As Integer s = 5 i = 1 Do While i < 9 i=i+2 s = s Loop Textl. Text = s End Sub 写出程序运行时，单击命令按钮文本框 l中的输出结果。 1418