得 分 评卷人 三、阅读程序题（共25分） 阅读下列程序并写出程序运行结果。 26.(6分) Private Sub Command1_Click() Dim Suml As Integer,Sum2 As Integer Suml 1:Sum2 2 For i=1 To 3 For j=1 Toi Sum2=Sum2￥j Next j Suml Sum1 +Sum2 Next i Print Suml End Sub 写出程序运行时单击Commandl按纽后，Forml上的输出结果。 27.(6分) Private Sub Command1_Click() ×=1 Do While x<50 x=(x+1)*(x+2) n=n+1 Loop Text1.Text Str(n) Text2.Text Str(x) End Sub 写出程序运行时单击Commandl按纽后，textl和text2上的输出结果。 28.(6分) Private Sub Commandl_Click() Dim A(1 To 6)As Integer Dim b As Integer For b 1 To 6 A(b)=b Next b Text1.Text A(b-2) End Sub 写出程序运行时单击Commandl按纽后，Textl上的输出结果。 1421|得分|评卷人| I I I 三、阅读程序题{共 阅读下列程序井写出程序运行结果. 26. (6 Private Sub CommandLClickO Dim Sum1 As Integer, Sum2 As Integer Sum1 = 1: Sum2 = 2 For i = 1 To 3 For j = 1 To i Sum2 = Sum2 Next j Sum1 = Sum1 + Sum2 Next i Print Sum1 End Sub 写出程序运行时单击 按纽后 1上的输出结果。 27. (6 Private Sub CommandLClickO x = 1 Do While x < 50 x = (x + 1)铃 + 2) n=n+1 Loop Textl. Text = Str(n) Text2. Text = Str(x) End Sub 写出程序运行时单击 mm 按纽后 text1 和text2 结果 28. (6 Private Sub CommandL Click O Dim A(l To 6) As Integer Dim b As Integer For b = 1 To 6 A(b) = b Next b Textl. Text = A(b - 2) End Sub 写出程序运行时单击 按纽 Textl 结果 1421