计算机二级改错题答案.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) = Fix(Rnd * 99 + 1) 2) For J = 1 To I – 1 3)?If B(I) Fmax Then Fmax = B(I) 4) If B(I) = Fmax Then 5)?End 第5套上机题答案 二. (1) 1) Call Calc(I) 2) Label2.Caption = Option1.Item(I).Caption 3) X = Text1.Text 4) If I Mod 2 0 Then 5) Label3.Caption = Result (2) 1) Arr = Array(第一项, 第二项, 第三项, 第四项) 2) Static I As Integer 3) Label1.Caption = Arr(I) 4) I = 0 三. 1)??A(I) = Fix (Rnd * 99 + 1) 2)???For J = 1 To I – 1 3)???I = I – 1 4)? If A(I) = Num Then 5)???If I 10 Then 第6套上机题答案 二. (1) 1) Select Case Index 2) Timer1.Enabled = True 3)Cmd(0).Enabled = False 4) If T(3) = 60 Then 5) Text(I - 1).Text = T(I) (2) 1) Timer1.Enabled = False 2) Shape2.Top = Shape2.Top + D * 50 3)If Shape2.Top = Shape1.Top Or Shape2.Top + Shape2.Width = Shape1.Top + Shape1.Height Then 4) Shape2.Left = Shape2.Left + D * 50 第7套上机题答案 二. (1) 1) Text1.Enabled = True 2) If Text1 Abc Then 3) If N = 3 Then 4) Form1.Hide 5) Form2.Show (2) 1) For K = List1.Listcount - 1 To 0 Step -1 2) List2.Additem List1.List(K) 3) List1.Removeitem List1.Listindex 4) Text1 = Text1 List2.List(K) 第8套上机题答案 二. (2)If Ch1.Value = 0 And Ch2.Value Then Text1.Text = 报名参加乒乓球比赛 If Ch1.Value And Ch2.Value = 1 Then Text1.Text = 报名参加羽毛球和乒乓球比赛 第9套上机题答案 二. (1) 1) If Index = 2 Then 2) Timer1.Enabled = True 3) Select Case Flag (2) 1) If Len(S) = 0 Then 2) If T