计算机二级改错题答案.docVIP

改错题答案： 第1套上机题答案 二. (1) 1) For I = 0 To List1.Listcount – 1 2) Text1.Text = List1.List(I) (2) 1) Dim S As String 2) Print S 第2套上机题答案 二. (1) 1) Text1.Font = Op1.Caption 2) Text1.Fontname = 黑体 第3套上机题答案 二. (1) 1) For I = 1 To 5 2) For J = 1 To I * 2 - 1 3) For J = 1 To I + 1 4) For J = 1 To 8 - (I * 2 - 1) (2) 1) If N 12 Or N 8 Then 2) S = 0 For K = 1 To N S = S + F(K) Next K Text1.Text = Str(S) 3) S = 1 4) F = S 第4套上机题答案 二．(2) 1) Select Case S 2) F = 10 3) F = 10 + (S - 4) * 1.2 4) Case Else 5) F = 10 + (15 - 4) * 1.2 + (S - 15) * 1.8 三 1) A(I) =