PRIVATE SUB FORM__CLICK( )
S=0
FOR A = 1 TO 5
FOR B= 1 TO 3
S=S+1
NEXT B
NEXT A
PRINT S
END SUB
a(1) = 12: a(2) = 44: a(3) = 65: a(4) = 36: a(5) = 58
x = 0: y = 0
For i = 1 To 4
k = i
For j = i + 1 To 5
If a(j) > a(k) Then
k = j
x = x + 1
End If
Next j
If k <> i Then
t = a(i): a(i) = a(k): a(k) = t
y = y + 1
End If
Next i
Text1.Text = Str(x) + Str(y)
执行该程序段后，文本框Text1中显示的内容是（ ）
s = 0 ：x = 2：y = 49
Do While x <= Sqr(y)
s = s + x
x = x + 2
Loop
该程序段运行后，x的值是（ ）
⑴删除“石化产值.doc”文件中的批注，并将“2012年全国部分省市石油和化学工业产值统计表”中的所有记录，复制到“石化产值统计表.xls”文件的“数据”工作表A13开始区域中。
⑵在“石化产值统计表.xls”文件的“数据”工作表中，用公式计算现价销售产值比去年同期增幅“同比±%”，填入H13:H31中,并保留1位小数。 提示：现价销售产值比去年同期增幅=（现价销售产值累计－现价销售产值累计去年同期）/现价销售产值累计去年同期*100）
⑶在“石化产值统计表.xls”文件中，建立一张现价工业总产值与去年同期比增长图。要求：
①用数据点折线图，系列产生在列；
②标题为：现价工业总产值与去年同期比增长图；
③图表放在工作表“图表”中的B5:G30区域内。
⑷将“石化产值统计表.xls”文件中的现价工业总产值与去年同期比增长图”复制到“石化产值.doc”文件中的【1】处，并将现价销售产值比去年同期增幅数据复制到“石化产值.doc”中表格的相对应区域，删除“【1】”字样。
Private Sub Command1_Click()
Dim a(1 To 51) As Integer, b(1 To 51) As Integer, c(1 To 51) As Integer Dim lens1 As String, lens2 As String
lens1 = Len(Text1.Text) ：lens2 = Len(Text2.Text)
For i = Len(Text1.Text) To 1 Step -1 ‘读取数据，逐位保存在数组中
a(i) = Mid(Text1.Text, lens1 - i + 1, 1) Next i
For i = Len(Text2.Text) To 1 Step -1
b(i) = Mid(Text2.Text, lens2 - i + 1, 1) Next i
For i = 1 To 51 ‘从个位到高位逐位求和
c(i) =
If c(i) > 9 Then
c(i) = c(i) - 10
c(i + 1)=
End If Next i
f = False '从左到右输出第一个不为 0 的元素开始从高位到低位输出和
For i = 51 To 1 Step -1
If c(i) <> 0 Then f = True
If f Then Text3.Text = Text3.Text & c(i) Next i
End Sub
