计算机二级真题-计算机二级真题题库及答案2022版.docx
《计算机二级真题-计算机二级真题题库及答案2022版.docx》由会员分享,可在线阅读,更多相关《计算机二级真题-计算机二级真题题库及答案2022版.docx(14页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、2 a D lsep*p(t. Fatmtmxnz 个个个个个 第笫第敢第参考答案Index; a参考答案Private SubCl_CIick()Text 1.Text =我是if Opl. Value ThenTextl. Text = Textl. Text & Opl. CaptionElseTextl. Text = Textl. Text & 0p2.CaptionEnd IfIf 0p3. Value ThenTextl. Text = Textl. Text & 0p3.CaptionElseTextl. Text = Textl. Text & Op4. CaptionEnd
2、 IfEnd Sub答 案 Private Sub Command l_Click()Dim a() As Long Dim i As Integer Dim n As IntegerFor i = 0 To Op 1 .Count - IIf Opl(i).Value = Truc Thenn = Val(Opl(i).Caption)Exit ForEnd IfNextReDini a(n)a(l) = I a(2)= IFor i = 3 To na(i) = a(i - 1) + a(i - 2)NextText I.Text = a(n)End Sub1.第 I 个:True第2个:
3、HeightDim a As Integer Dim h As Integera = 0 b = arr(l)For i = 1 To 40If prime(arr(i) Then a = a + ILabcl3.Caption = aNextFor i = 1 To 40If prime(arrfi) And arr(i) = b Then b = arr(i)Labcl4.Caption = bNext2. Dim i As IntegerDim max As Integer, min As Integer max = -1 min = 1000 For i = 1 To 100 If i
4、snarc(a(i) Then If max = a(i) Then min = a(i)End If Nexti Textl = max Text2 = minPrivate Sub Cl_Click() Dim sum As Long Dim n As Integer Dim i As Integer n = Val(Cbl.Text) For i = n To 5(XM)If i Mod n = 0 Then sum = sum + i End If Next iText 1 .Text = sum End Sub第1个处填入:l第2个处填入:2 第3个处填入:Textl.Texl 4-
5、 Text3.Text第4个处填入:Texl2.Texl + Text3.TextPrivate Sub Command I _Click() Combo 1 .Additem Textl End SubPrivate Sub Command2_Click() Print Combo 1.ListCount End Sub第1个处填入:Caption第2个处填入:m 第3个处填入:k 第4个处填入:a第1个处填入:a(k) 第2个处填入:ch ”排铲按钮的代码 Private Sub C2_Click() Dim l As Integer Dim i As Integer Dim j As I
6、nteger Dim ch As String ch =Fori = 50To2Step-lForj = 1 To 49Ifa(j)a(j + I) Then t = a(j+l) a(j + l) = a(i)a(j) = t End IfNext jNext iForj = 1 To 50 ch = ch + Str(a(j) +NextjText2.Text = chEnd Sub5.第1个处填入:Text I.Text第2个处填入:List 1.ListCount 一 1第3个处填入:Text 1 .Text第4个处填入:i第1个处填入:LBound第2个处填入;UBound第3个处填
7、入:a第4个处填入:第5个处填入:a(i)第6个处填入:arr2参考答案考生编写代码Dim sum As Integer 考生编写结束 考生编写代码Private Sub Calc_Click()Textl.Text=For i = 2 To 10() Step 2Textl.Text = Textl.Text & Arr(i) &Spacc(5)sum = sum + AnXi)Next iPrint sumEnd SubPrivate Sub Rcad_Click()ReadDataEnd SubPrivate Sub Save_Click() WriieData dataout.txt,
8、 sum End Sub6.第1个处填入:1000第2个处填入:Min第3个处填入:arrN(i) arrN(i)参考答案Function Fun()Dim s As Integer, i As Integer For i = 0 To 1000If i Mod 7 0 Then s = s + 1End IfNext iFun = sEnd Function参考答案Integer)Dim flag As Boolean k% = 2 flag = TrueWhile k% = lnt(a / 2) And flagIf a / k% = lnt(a / k%) Then flag = Fal
9、se End If k% = k% + 1 Wend isprime = flag End Function52. 3. EnabledForml.Combol.Listindex Combol.Additem 4. red True Picturel green -15.n = Val(Textl.Text)For i = n To 2 Step -1I = prime(i) If I = True Then Exit ForEnd IfNextText2.Text = i53参考答案Private Sub Commandl_Click() If Optionl.ltem(O) = True
10、 Then Text2.Text=Format(Sin(Val(Textl.Text) 3.14159/180), 0.000)End IfIf Optionl.ltem(l) = True Then Text2.Text=Format(Cos(Val(Textl.Text) 3.14159/180), 0.000) End IfEnd Sub 参考答案True Forml.Timerl参考答案Dim fl, f2, f As LongDim a(40) As Long fl = l f2 = l a(l) = fl a(2)= f2For i = 3 To Va I (Text 1.Text
11、) f = f 1 + f2 a(i) = f fl = f2 f2 = fNextText2.Text = a(40)54.参考答案3,k,0参考答案 Combol.Listindex3,4tmpStr参考答案Dim f As Longa-1a(2) = lFor i = 3 To Val(Textl.Text) f = a(i-2) + a(i-l) + l a(i) = f NextText2.Text = f55 参考答案Private Sub Commandl_Click()Const PI = 3.14159Select Case Combol.TextCase sin: a =
12、SinClnt(Textl.Text) * PI /180)Casecos: a = Cos(Clnt(Textl.Text)* PI /180)End SelectText2 = lnt(a * 1000) / 1000End SubPrivate Sub Form_Unload(Cancel As Integer) Call mysubEnd SubSub mysub()Open out3.txt For Output As #1 Print #1, Combol.Text, Text 1.Text, Text2.TextClose #1End Sub参考答案num+ 1: 10: 1参考
13、答案True;黄灯.ic。; False; P2.Left56 .参考答案Sum = 0For i = 1 To UBound(a)Sum = Sum + ai)/iNext iFun = Sum参考答案True: False; False Labell.Left + 20 参考答案n = Len(Textl)For k = 1 To nch = Mid(Textl, k, 1) If UCase(ch) = A Then an = an + 1End IfIf UCase(ch) = B Thenbn = bn + 1End IfIf UCase(ch) = C Then cn = cn +
14、 1End IfIf UCase(ch) = D Then dn = dn + 1End IfNext kTextl = an & & bn & & cn & &dn.参考答案Optionl(i): opt:Label4参考答案n;m参考答案RecNum + 1; LOF(l) /Len(Pers)Pers.参考答案If Optionl.Value And Listl.Text ThenTextl.Text= Listl.Text &Optionl.CaptionElseIf Option2.Value And Listl.Text ThenTextl.Text= Listl.Text &Op
15、tion2.CaptionEnd IfEnd If参考答案iSum; iSum +j; 1250参考答案Private Type StudinfoName As String * 8Sex As String 4Age As IntegerEnd TypeDim Stud As StudinfoDim RecNum As LongPrivate Sub Commandl_Click()Open App.Path & in5.txt ForRandom As #1 Len = Len(Stud)RecNum = 1Do While Not EOF(l)Get #1, RecNum, StudTe
16、xtl.Text=Textl.Text & Stud.NameTextl.Text=Textl.Text & Stud.SexTextl.Text=Textl.Text & Str(Stud.Age)Textl.Text=Textl.Text + vbCrLfRecNum = RecNumLoopClose 1End SubPrivateSubCommand2_Click()OpenApp.Path &out5.txt For Output As #1Print #1, Textl.TextClose 1End Sub.参考答案 Private Sub HScrolll_Change()Tim
17、erl.Interval=HScroIll.ValueEnd SubPrivate Sub Timerl_Timer()Imagel.Visible = NotImagel.VisibleEnd Sub参考答案 HScroIll.Value ; Listl.Text参考答案Dim Pal As PaltypeOpen App.Path & in5.txtFor Random As #1 Len = Len(Pal)Get #1, 3, PalTextl.Text = Pa I. Na meText2.Text = Pa I.TelText3.Text = Str(PaLPost)Close 1
18、.参考答案 0,2,caption参考答案Textl.Text; Enabled:SetFocus参考答案Open App.Path & in5.txt ForRandom As #1 Len = Len(pal)For i = 1 To 5Get #1, i, palTextl.Text = Textl.Text & pal.NameTextl.Text = Textl.Text & pal.TelTextl.Text = Textl.Text &Str(pal.Post)Textl.Text = Textl.Text + vbCrLfNextClose 161 .程序提供代码FalseTr
19、ue程序提供代码MaxMinHSl.Value 参考答案 Private Sub Cl_Click()Open in5.txt For Input As #1Input #1, a$Textl.Text = a$Close #1 End SubPrivate Sub C2_Click() a$ = Textl.Text b$ = n = Len(a$)For i = 1 To nb$ = b$ + UCase$(Mid$(a$, i, 1)NextTextl.Text = b$End SubPrivate Sub C3_Click()Open ,out5.txt For Output As#l
20、Print #1, Textl.TextClose #1 End Sub62 .程序提供代码Private Sub Timerl_Timer()LI = LI + 1End Sub程序提供代码Private Sub Cl_Click()For i = 0 To Me.11.ListCount -1If ll.Selected(i) = True ThenPrint ll.List(i)End IfNextEnd Sub参考答案If Opl.Value ThenTextl.Text = fun(7)End IfIf Op2.ValueThenTextl.Text = fun(3)End If63
21、.参考答案 Textl.Text:S2参考答案 0;Text;Addltem 程序提供代码Private Sub Cl_Click()Open App.Path & out5.txt For Output As ftlPrint #1, Textl.TextClose #1End SubPrivate Sub Form_Load()Open App.Path & in5.txt ForInput As #1Textl.Text =Do While Not EOF(l)Line Input #1, a$Textl.Text = Textl.Text + a$ + Chr(13) + Chr(10
22、)LoopClose #1End Sub64.程序提供代码Private Sub Cl_Click()Pl.Picture=LoadPictureCpic2.jpg)P2.Picture=LoadPicture(pid.bmp)End Sub参考答案Textl.Text =我选的课是If Chl.ValueThenTextl.Text = Textl.Text +Chl.CaptionEnd IflfCh2.Value = lThenTextl.Text = Textl.Text +Ch2.CaptionEnd If参考答案Private Sub Cl_Click()Open in5.txt
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 二级 题库 答案 2022
限制150内