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

博汇计算机培训部（）改错题答案：第1套上机题答案二.(1)1) For I = 0 To List1.Listcount 12) Text1.Text = List1.List(I)(2)1) Dim S As String2) Print S第2套上机题答案二.(1)1) Text1.Font = Op1.Caption2) Text1.Fontname = 黑体第3套上机题答案二.(1)1) For I = 1 To 52) For J = 1 To I * 2 - 13) For J = 1 To I + 14) For J = 1 To 8 - (I * 2 - 1)(2)1) If N 12 Or N Fmax Then Fmax = B(I)4) If B(I) = Fmax Then5)End第5套上机题答案二.(1)1) Call Calc(I) 2) Label2.Caption = Option1.Item(I).Caption3) X = Text1.Text4) If I Mod 2 0 Then5) 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 13)I = I 14) If A(I) = Num Then5)If I 10 Then第6套上机题答案二.(1)1) Select Case Index2) Timer1.Enabled = True3)Cmd(0).Enabled = False4) If T(3) = 60 Then5) Text(I - 1).Text = T(I)(2)1) Timer1.Enabled = False2) Shape2.Top = Shape2.Top + D * 503)If Shape2.Top = Shape1.Top + Shape1.Height Then4) Shape2.Left = Shape2.Left + D * 50第7套上机题答案二.(1)1) Text1.Enabled = True2) If Text1 Abc Then3) If N = 3 Then4) 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 Then2) Timer1.Enabled = True3) Select Case Flag(2)1) If Len(S) = 0 Then2) If Text1.Sellength = 0 Then3) If Lcase$(T) = The Then4) Text2.Text = Str(M)第10套上机题答案二.(1)1) Select Case Index2) Text2.Text = F1(N)3) Text2.Text = F1(N + 2)4) For I = 1 To N5) F1 = X三.1) If Len(S) = 0 Then2) If C Then3) X = Lcase(T)4) M = M + 1第11套上机题答案二.(1)1) If Check1.Value = 1 Then2) Text3.Passwordchar = 3) Text3.Passwordchar = #4) Text3.Text = Text2.Text(2)1) Call Moveitem(List1, List2)2) L2.Additem List1.Text 3) L1.Removeitem List1.Listindex4) For I = 0 To List1.Listcount - 1 第12套上机题答案二.(1)1) If A(I) X Then2) X = A(I)3) Elseif A(I) Max Then Max = A(I)5) Arr2(I) = Cint(Arr1(I) 6) M = Findmax(Arr2)第13套上机题答案二.(1)1) Timer1.Enabled = True2) Label1.Left = Label1.Left + 1003) Label1.Left = Label1.Left - 100(2)1) Timer1.Interval = 5002) Vscroll1.Value = Picture1.Top3) Picture1.Top = 0三.1) For I = 0 To La.Listcount - 1 2) Lb.Additem La.List(I)3) La.Clear第14套上机题答案二.(1)1) Call Showname(Command1)2) Call Showname(Label1)3) Private Sub Showname(C As Control)4) Label2.Caption = 单击 & Label1.Caption(2)1) If Option1(0).Value = True Then2) If Option2.Value = True Then3) Label2.Caption = S第15套上机题答案二.(1)1) N = Len(Text1.Text)2) B = Asc(Mid(S, I, 1)3) Select Case B4) For I = 0 To 2 5) X(I) = A(I)第16套上机题答案二.(1)1) If Val(A(J) Max3) Case Is Min4) Sum = Sum + Val(Text2(N)(2)1) Picture1(K).Visible = False2) Timer1.Enabled = True3) If I = 8 Then 4) I = 0第20套上机题答案二 (2)1) If SL=02) FOR I=Q TO SL3) A(N)=A(N)+14) FOR I=1 TO 26 第22上机题答案二. (1) Private Sub Hscroll1_Change()Timer1.Interval = Hscroll1.ValueEnd SubPrivate Sub Timer1_Timer()Image1.Visible = Not (Image1.Visible)End Sub(2) CD1.Action = 1第24上机题答案二(1) 1)Timer1.Enabled = True2) If Shape1.Top = Line2.Y1 Then第25上机题答案二 (2) 1)If Sl = 0 Then2) For I = 1 To Sl3)A(N) = A(N) + 14) For I = 1 To 26第26上机题答案二 (2) 1) If Num = A(I) Then Exit For2) If N Form1.Width Then5)Label1.Left = Label1.Left + 100三.1)N = N + 12)List1.Additem Ch$Private Sub Command2_Click() Dim X As Integer X = Text1.Text If X 500 Then Text2.Text = Int(X * 1 * 0.3) Elseif X 1000 Then Text2.Text = Int(X * 0.98 * 0.3) Elseif X 1500 Then Text2.Text = Int(X * 0.95 * 0.3) Elseif X 2000 Then Text2.Text = Int(X * 0.92 * 0.3) Else Text2.Text = Int(X * 0.9 * 0.3) End IfEnd SubPrivate Sub List1_Click()Text1.Text = A(List1.Listindex + 1)End Sub第29上机题答案二 (1)1) If Option1.Item(I) = True Then2) Y = Val(Option1(I).Caption)3)Do While I Stud(J).Average Then5) Stud(K) = Stud(J)第30上机题答案二.(1)1) Load Form12) Form1.Visible = True(2)1) If Op1(K).Value Then2) Call Draw(K)3) P1.Print 选择了 & Op1(A).Caption三.(1)1) Timer2.Enabled = True2)P1.Picture = Loadpicture(绿灯.Ico)3) Timer2.Enabled = False4) P2.Move P2.Left - 10, P2.Top, P2.Width, P2.Height第 31上机题答案二.(1)1) For I = 0 To Op1.Count 12) If Op1(I).Value = True Then3) Print 我的出生地是 + Op1(I).Caption(2)1) L1.Font.Size = Cb1.Text2) L1.Font.Name = Cb2.Text第 32上机题答案二.(1)1) Select Case Index2) Text1.Text = A + Form1.Op1(1).Caption + 去三.(1)1) If Text1.Text = 123456 Then2) Text1.Passwordchar = 3) If Text2.Text 0 Then4) Text1.Enabled = False第 33上机题答案二.(1)1) Timer1.Enabled = True2) If P1.Top P2.Top + P2.Height Then3) Timer1.Enabled = False第 34上机题答案二.(1)1) List1.Additem Text1.Text2) For I = 0 To List1.Listcount 13) If List1.List(I) = Text1.Text Then4) List1.Removeitem I(2)1) Start = Lbound(A)2) Finish = Ubound(A)3) Max = A(Start)4) If A(I) Max Then Max = A(I)5) Arr2(I) = Cint(Arr1(I)6) M = Findmax(Arr2)第 35上机题答案二.(1)1) List1.Additem Text12) For I = 0 To List1.Listcount 13) If List1.List(I) = Form1.Text1 Then4) List1.Removeitem (I)(2)1) Start = Lbound(A)2) Finish = Ubound(A)3) Sum = 04) Sum = Sum + A(I)5) Average = Sum / Finish6) Aver = Average(Arr2)第 36上机题答案二.(1)1) List1.Additem Text1.Text2) For I = 0 To List1.Listcount 13) If List1.List(I) = Text1.Text Then4) List1.Removeitem I(2)1) Start = Lbound(A)2) Finish = Ubound(A)3) For I = Finish To 2 Step -14) For J = 1 To Finish-15) If A(J) A(J + 1) Then第 37上机题答案二.(1)1) Text1.Fontbold = True2) Text1.Fontitalic = True3) Text1.Fontunderline = True4) If Button = 2 Then Popupmenu FormatEnd If(2)1) Form2.Show2) Form2.Show3) If Form1.Op1(K).Value Then4) Text2.Passwordchar = *第38上机题答案二.(1)1) While (K A(J) Then Zj = A(I) A(I) = A(J) A(J) = Zj End If Next Next For J = 1 To 50 Ch = Ch + Str(A(J) + Next JText2.Text = ChEnd Sub第42套上机题答案二.(1)1) Arrn(I) = Int(Rnd * 1000)2) Max = Arrn(1)3) If Max 500 Then4) Sum = Sum + Arrn(I)三.1) Dim Mat(5, 5)2) Open App.Path & & Datain.Txt For Input As #13) Input #1, Mat(I, J)4) Sum = 05) Sum = Sum + Mat(3, J)第44套上机题答案二.(1)1) Form1.Visible = False2) Form1.Visible = True(2)1) If HS1.Value + Text1.Text HS1.Max Then2) Elseif HS1.Value + Text1.Text HS1.Min Then3) HS1.Value = HS1.Value + Text1.Text第45套上机题答案二.(1)1) L1.Borderstyle = 1 - FixedTimer1.Enabled = TrueTimer1.Interval = 10002) L1.Caption = L1.Caption + 1(2)1) For I = 0 To L1.Listcount 12) If L1.Selected(I) = True Then第46套上机题答案二.(1)1) For I = 0 To Op1.Count 12) If Op1(I).Value = True Then3) Print 我是 + Op1(I).Caption(2)1) For I = 0 To Cb1.Listcount 12) If Cb1.List(I) = Cb1.Text Then3) Cb1.Additem Cb1.Text第48套上机题答案二.(1)1) Text1.Passwordchar = 2) Text1.Passwordchar = ?3) Text2.Text = Text1.Text4) Text1.Passwordchar = *(2)CD1.Action = 1三. 1) Private Sub C1_Click()Timer1.Enabled = TrueEnd Sub2) Private Sub C2_Click()Timer1.Enabled = FalseEnd Sub3) Select Case Index4) Text1.Text = Text1.Text + 1第49套上机题答案一.(1)Print Text1.Text + , 现年 + Text2.Text + 岁二.(1)1) List1.Additem Text1.Text2 )For I = 0 To List1.Listcount 13) If List1.List(I) = Text1.Text Then4) List1.Removeitem I(2)1) Start = Lbound(A)2) Finish = Ubound(A)3) Min = A(Start)4) If A(I) Min Then Min = A(I)5) M = Findmin(Arr2()第50套上机题答案二. (1)1) List1.Additem Text1.Text2) For I = 0 To List1.Listcount 13) If List1.List(I) = Text1.Text Then4) List1.Removeitem I(2)1) Start = Lbound(A)2) Finish = Ubound(A)3) For I = Finish To 2 Step -14) For J = 1 To Finish 15) If A(J) Arrn(I) Then三.1) Dim Mat(1 To N, 1 To M) As Integer2) Open App.Path & & Datain.Txt For Input As #13) Input #1, Mat(I, J)4) Mat(3, J) = T第52套上机题答案二.(1)1) Arrn(I) = Int(Rnd * 1000)2) Sum = 03) Sum = Sum + Arrn(I)4) Aver = Sum / 20三.1) Dim Mat(1 To N, 1 To M) As Integer2) Open App.Path & & Datain.Txt For Input As #13) Input #1, Mat(I, J)4) Mat(I, 4) = T第53套上机题答案二.(1)1) Arrn(I) = Int(Rnd * 1000)2) Sum = 03) If Arrn(I) 0 And N 132) Select Case N3) Select Case M三.1) Recnum = Recnum + 12) Put #1, Recnum, Pers3) Loop While Ucase(Asp) = Y4) Recnum = LOF(1) / Len(Pers)5) Get #1, I, Pers第59套上机题答案二.(1)1) S1 = Text12) Do While Mid(S1, I1, 1) And I1 = 0 Then2) Pos = Pos + Arr(K)3) Neg = Neg + Arr(K)(2)1) Timer1.Enabled = True2) Timer1.Enabled = False3) If Label1.Fontsize = 0 Then4) Text1.Text=List1.Text5) List1.Removeitem List1.Listindex(2)1) Result = Result + Sign / I2) Sign = -Sign3) Text1.Text = Result * 4三.1) 通用中定义:Dim S As String2) Private Sub Command1_Click() Open In5.Txt For Input As #1 S = Input$(LOF(1), 1) Close #1 Text1.Text = SEnd Sub3) Ch = Mid(Text1.Text, I, 1)4) Newsen = Newsen & Ch5) Write #1, Text1.Text第68套上机题答案二.(1)1) Sum = 02) K = 03) K = K + I4) Sum = Sum + K(2)1) S1 = Form1.Text1.Text2) For I = 1 To 73) S2 = S2 + Mid(S1, Len(S1) + 1 - I, 1)第69套上机题答案二.(1)1) For I = 0 To List1.Listcount 12) S = S & List1.List(I) & Vbcrlf3) List1.Clear4) Text1.Text = S(2)1) Timer1.Enabled = False2) Timer1.Interval = 2003) Timer1.Enabled = True4) Timer1.Enabled = False第70套上机题答案二(2)1) Timer1.Enabled = True2) Timer1.Interval = Hscroll1.Value3) Picture1.Left = Picture1.Left + 10第71套上机题答案二.(2)1) Num = Num + 12) Text2.Text = Text2.Text + 103) Text1.Text = Text1.Text + 1第72套上机题答案二.(2)1) Isum = 02) Isum = J + Isum3) If Isum = 1250 Then第73套上机题答案二.(1)1) For K = 1 To 52) If A Val(Text1(K).Text) Then3) S = (S - A - B) / 44) S = S * 3 * Val(Text2.Text)5) Text3.Text = Int(S * 100) / 100三.(1)1) Text4 = Text4 & A & & B2) A = D3) If K = N Then4) B = D第74套上机题答案二.(1)1) Line1.Y2 = Y2) Line1.X2 = Line1.X13) Line1.Y2 = Y0 - Radius&4) Label1.Caption = 鼠标位置不对(2)1) If Num 0 Then3) Form1.Label1.Caption = 注册成功!4) If K = 0 Then5) Elseif Trim$(Text2) Users(K, 2) Then第75套上机题答案二.(1)1) Text1.Alignment = 02) Text1.Alignment = 23) Text1.Alignm