全国计算机等级考试 二级VB 上机题库精简版 考试必备,.doc

上机题答案解析第一套上机答案解析一、基本操作题【操作步骤】步骤1：新建一个标准EXE工程，如表1在窗体中用复制和粘贴画出控件数组并设置属性。表1步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个标准EXE工程，在窗体Form1中画一个名为Sha1的形状控件。步骤2：选择【工具】【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。表2步骤3：打开代码编辑窗口，编写菜单命令的单击事件过程。参考代码：Private Sub Shape1_Click() Me.Sha1.Shape = 1End SubPrivate Sub Shape2_Click() Form1.Sha1 = 3End Sub步骤4：按要求将文件保存至考生文件夹中。二、简单应用题第1小题【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt3.vbp。步骤2：在窗体Form1中加入两个单选按钮和两个复选框，分别设置它们的相关属性，属性及其值如表3所示。表3步骤3：打开代码编辑窗口输入如下代码：参考代码：Private Sub C1_Click() Dim a As String a = 我是 If Op1.Value Then Text1.Text = a & Op1.Caption Else Text1.Text = a & Op2.Caption End If a = 我的爱好是 If Ch1.Value = 1 Then Text2.Text = a & Ch1.Caption a = Text2.Text End If If Ch2.Value = 1 Then Text2.Text = a & Ch2.Caption End IfEnd Sub步骤4：按键运行程序，先选中选中一个单选按钮和至少一个复选框，并单击确定按钮，然后单击窗体右上角的关闭按钮结束程序。步骤5：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4.vbp，通过属性窗口向列表框添加四个项目，分别是：第一项、第二项、第三项、第四项。步骤2：在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：i = 0Timer1.Interval = 1000Label1.Caption = List1.List(i)步骤3：按要求将文件保存至考生文件夹中。三、综合操作题【操作步骤】步骤1：新建一个标准EXE工程，如表4在窗体中画出控件并设置其相关属性。表4步骤2：打开代码编辑窗口，编写相应事件过程。参考代码：Option Base 1Dim sum(6) As IntegerPrivate Sub Command1_Click() Open App.Path & in5.txt For Input As #1 Text1.Text = Input(LOF(1), #1) Close #1End SubPrivate Sub Command2_Click() For i = 1 To 6 sum(i) = 0 Next i If Len(Text1.Text) = 0 Then MsgBox 请先使用读数功能！ Else For i = 1 To Len(Text1.Text) c = LCase(Mid(Text1.Text, i, 1) Select Case c Case i sum(1) = sum(1) + 1 Case j sum(2) = sum(2) + 1 Case k sum(3) = sum(3) + 1 Case l sum(4) = sum(4) + 1 Case m sum(5) = sum(5) + 1 Case n sum(6) = sum(6) + 1 End Select Next i End IfEnd SubPrivate Sub Command3_Click() Open App.Path & out5.txt For Output As #1 For i = 1 To 6 Print #1, sum(i) Next i Close #1End Sub步骤3：按要求将文件保存至考生文件夹中。第二套上机答案解析167一、基本操作题第1小题【操作步骤】步骤1：新建一个标准EXE工程，如表1在窗体上绘制控件并设置属性。表1 控件属性设置步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个标准EXE工程，如表2在窗体中画出控件并设置其相关属性。表2步骤2：在代码编辑窗口编写两个命令按钮的单击事件过程。参考代码：Private Sub Command1_Click() Shape1.FillStyle = 3End SubPrivate Sub Command2_Click() Form1.Shape1.FillStyle = 2End Sub步骤3：按要求将文件保存至考生文件夹中。二、简单应用题第1小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：n% = Asc(a) - Asc(A)B$ = String(1, Asc(B$) + 32)Text1.Text = A步骤2：按要求将文件保存至考生文件夹中。【主要考点】字符串函数。第2小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：If num a(i) Then Exit ForFor j = 60 To i Step -1a(j + 1) = a(j)a(i) = numFor k = 1 To 61步骤2：按要求将文件保存至考生文件夹中。三、综合操作题【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt5.vbp，如表3所列在窗体上画出控件并设置它们的相关属性。表3步骤2： 打开代码编辑窗口，在指定位置编写统计按钮的单击事件过程。参考代码：Private Sub Command2_Click()需考生编写 n = Len(s): t = Dim word_max As Integer, word_num As Integer, word_len As Integer For i = 1 To n c = Mid(s, i, 1) If c Then t = t + c Else word_len = word_len + Len(t) word_num = word_num + 1 If Len(t) word_max Then word_max = Len(t) End If t = End If Next i Text1.Text = CInt(word_len + Len(t) / (word_num + 1) If Len(t) word_max Then word_max = Len(t) End If Text2.Text = word_maxEnd Sub步骤3：按要求将文件保存至考生文件夹中。步骤4：按键运行程序，先单击读数据按钮，再单击统计按钮，最后单击窗体右上角的关闭按钮结束程序。第三套上机答案解析168一、基本操作题第1小题【操作步骤】步骤1：新建一个标准EXE工程，在窗体Form1中画一个标签，并设置它的相关属性，其属性和值如表1所示。表1步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个标准EXE工程，在窗体Form1中画一个命令按钮和一个水平滚动条，在属性设置窗口中设置其相关属性，其属性及值如表2所示。表2步骤2：打开代码编辑窗口，编写水平滚动条的Change事件过程。参考代码：Private Sub HScroll1_Change() Text1.Text = HScroll1.ValueEnd Sub步骤3：按要求将文件保存至考生文件夹中。二、简单应用题第1小题【操作步骤】步骤1：打开考生文件下的本题工程文件sjt3.vbp，在窗体上两条水平直线间画一个形状控件，并如表3设置其属性。表3步骤2：在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：Timer1.Enabled = TrueIf Shape1.Top = Lin2.Y1 Then步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，编写计算按钮的单击事件过程以及三个自定义过程。参考代码：Private Sub Command2_Click() Select Case Combo1.ListIndex Case 0 Text1 = even() Case 1 Text1 = odd() Case 2 Text1 = all() End SelectEnd SubFunction even() Dim s As Single, n As Integer s = 0 For k = 1 To 100 If a(k) / 2 = Fix(a(k) / 2) Then s = s + a(k) n = n + 1 End If Next s = s / n even = CInt(s)End FunctionFunction odd() Dim s As Single, n As Integer s = 0 For k = 1 To 100 If a(k) / 2 Fix(a(k) / 2) Then s = s + a(k) n = n + 1 End If Next s = s / n odd = CInt(s)End FunctionFunction all() Dim s As Single, n As Integer s = 0 For k = 1 To 100 s = s + a(k) Next s = s / 100 all = CInt(s)End Function步骤2：按要求将文件保存至考生文件夹中。步骤3：按键运行程序，先单击读数据按钮，然后选择组合框中的一项再单击计算按钮，最后单击窗体右上角的关闭按钮结束程序。三、综合操作题【操作步骤】步骤1：打开本题对应工程文件sjt5.vbp。步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：Dim Mat (M, N) As IntegerOpen App.Path & & datain.txt For _ Input As #1Input #1, Mat (i, j)Mat (i, 4) = t步骤3：按要求将文件保存在考生文件夹中。第四套上机答案解析169一、基本操作题第1小题【操作步骤】步骤1：新建一个标准EXE工程，如表1在窗体中画出控件并设置其相关属性。表1 控件属性设置步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个标准EXE工程，选择【工具】【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。表2步骤2：在窗体上画一个名为Command1，标题为弹出菜单的命令按钮，打开代码编辑窗口，编写弹出菜单按钮的单击事件过程。参考代码：Private Sub Command1_Click() Form1.PopupMenu menu1End Sub步骤3：按要求将文件保存至考生文件夹中。二、简单应用题第1小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：ch = Right$(Text1.Text, 1)Label1.Caption = chLabel2.Caption = n步骤2：按要求将文件保存至考生文件夹中。【主要考点】字符串函数。第2小题【操作步骤】步骤1：打开考生文件下的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：Timer1.Enabled = TrueShape1.FillColor = red_colorShape1.Left = Shape1.Left + 50Shape1.Top = Shape1.Top + 50Shape1.FillColor = blue_color步骤2：按要求将文件保存至考生文件夹中。三、综合操作题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：CommonDialog1.FilterIndex = 2Open CommonDialog1.FileName For Input As #1Text1.Text = sCommonDialog1.Action = 2步骤2：按指定位置编写修改文件的单击事件过程。参考代码：Private Sub Command2_Click() 考生需要编写的程序 s = str_len = Len(Text1) For k = 1 To str_len ch = Mid$(Text1, k, 1) If ch = E Or ch = N Or ch = T Then s = s & LCase(ch) ElseIf ch = e Or ch = n Or ch = t Then s = s & UCase(ch) Else s = s & ch End IfNext kText1 = sEnd Sub步骤3：按要求将文件保存至考生文件夹中。步骤4：按键运行程序，先单击打开文件按钮，接着单击修改内容按钮，然后单击保存文件按钮。第五套上机答案解析170一、基本操作题第1小题【操作步骤】步骤1：新建一个标准EXE工程，在窗体Form1中画一个名称为Pic的图片框，并设置其Picture属性为Tu1-1.jpg。步骤2：双击窗体打开代码编辑窗口，在窗体的Click事件过程中输入代码。参考代码：Private Sub Form_Click() Pic.Print VB等级考试End Sub步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个标准EXE工程，在窗体Form1中画一个名称为Command1，Caption属性为命令按钮的命令按钮。步骤2：选择【工具】【菜单编辑器】命令，打开菜单设计器，如表1中的设置建立菜单项。表1步骤3：打开代码编辑窗口，编写菜单命令的单击事件过程。参考代码：Private Sub subMenu1_Click() Command1.Visible = TrueEnd SubPrivate Sub subMenu2_Click() Command1.Visible = FalseEnd Sub步骤4：按要求将文件保存至考生文件夹中。二、简单应用题第1小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：tmp = 1tmp = temp * ixn = tmpz = z + xn(t)步骤2：按键键运行程序，在第一个文本框中输入5，第两个文本框中输入12，然后单击计算按钮。步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：arr = Array(第一项, 第二项, 第三项, 第四项)Static i As IntegerLabel1.Caption = arr(i)i = 0步骤2：按要求将文件保存至考生文件夹中。三、综合操作题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：j = 9temp = Text1 (j)While (i j)If Text1 (j) Mod 2 = 1 Then步骤2：按要求将文件保存至考生文件夹中。第六套上机答案解析171一、基本操作题第1小题【操作步骤】步骤1：新建一个标准EXE工程，如表1在窗体中画出控件并设置其相关属性。表-1步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个标准EXE工程，选择【工程】【部件】命令，在弹出的部件对话框的列表中选中MicroSoft Common Dialog Control6.0项目，单击确定按钮。步骤2： 在窗体Form1上画一个通用对话框和一个命令按钮，其相关属性设置如表2所示。步骤3：打开的代码编辑窗口中，编写命令按钮的单击事件过程。Private Sub Command1_Click() CommonDialog1.Action = 2或 CommonDialog1.ShowSaveEnd Sub表2步骤4：按要求将文件保存至考生文件夹中。二、简单应用题第1小题【操作步骤】步骤1：打开本题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：Line1.Y2 = YLine1.X2 = Line1.X1Line1.Y2 = y0 750Label1.Caption = 鼠标位置不对步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：s = 1f = s步骤2：双击计算按钮，编写该按钮的单击事件过程。参考代码：Private Sub Command2_Click() Dim s As Long, k As Integer考生应编写的程序 s = 0 For k = 1 To n s = s + f(k) Next Text1 = sEnd Sub步骤3：按键键运行程序，单击输入数据按钮，通过输入框输入一个812之间的整数，然后单击计算按钮计算结果，最后单击存盘按钮保存结果。步骤4：按要求将文件保存至考生文件夹中。三、综合操作题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：-注册窗体Form2-n = n + 1ElseIf finduser(Trim$(Text1) 0 ThenForm1.Label1.Caption = 注册成功！-登录窗体Form3-If k = 0 ThenElseIf Trim$(Text2) users(k, 2) Then步骤2：按要求将文件保存至考生文件夹中。第七套上机答案解析172一、基本操作题第1小题【操作步骤】步骤1：新建一个标准EXE工程，如表1在窗体中用复制和粘贴画出控件数组并设置属性。表1步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个标准EXE工程，选择【工程】【部件】命令，在弹出的部件对话框的列表中选中MicroSoft Common Dialog Control6.0项目，单击确定按钮。步骤2： 在窗体Form1上画一个通用对话框，其相关属性设置如表2所示。表2步骤3：编写两个命令按钮的Click事件，加入下面的代码：参考代码：Private Sub Command1_Click() CD1.ShowOpen或 CD1.Action = 1End SubPrivate Sub Command2_Click() CD1.ShowSave或 CD1.Action = 2End Sub步骤4：按要求将文件保存至考生文件夹中。【特别提示】通用对话框控件不是VB内部控件，通常不会在VB默认工具箱中列出。【主要考点】通用对话框。二、简单应用题第1小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt3.vbp，将组合框的Style属性设置为2。步骤2：在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：Select Case Combo1.ListIndexMsgBox Str(x) & f1(x)MsgBox Str(x) & f2(x)Private Function f2(ByVal x As Integer) As StringIf x Mod 7 = 0 Then步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4.vbp，将Shape1控件的Shape属性设置为3，BackColor属性设置为&H000000FF&。步骤2：在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：Private Flag As BooleanShape1.Top = Shape2.Top + Shape2.Height - Shape1.HeightShape1.Left = Shape2.Left + Shape2.Width - Shape1.Width步骤3：按要求将文件保存至考生文件夹中。三、综合操作题【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt5.vbp，打开代码编辑窗口，在指定位置编写代码。参考代码：Private Sub find(x() As Integer, t As TextBox)=以下为考生编写的程序=Max = x(1)For i = 2 To UBound(x) If x(i) Max Then Max = x(i) End IfNextt.Text = Max=考生编写的程序结束=End SubPrivate Sub Command2_Click()=以下为考生编写的程序=For i = 1 To UBound(a) c(i) = a(i) + b(i)Next=考生编写的程序结束=Open App.Path & out51.txt For Output As #1 For i = 0 To 9 Print #1, c(i) Next Close #1End Sub步骤2：按要求将文件保存至考生文件夹中。步骤3：按键运行程序，先单击读数据按钮，再单击合并数组按钮，最后单击找最大值按钮。第八套上机答案解析173一、基本操作题第1小题【操作步骤】步骤1：新建一个标准EXE工程，如表1在窗体中画出控件并设置其相关属性。步骤2：按要求将文件保存至考生文件夹中。表1第2小题【操作步骤】步骤1：新建一个标准EXE工程，如表2所列在窗体Form1中画出控件并设置它们的属性。表2步骤2：打开代码编辑窗口，编写以下事件过程：参考代码：Private Sub Command1_Click() Text2.Text = Form1.Text1.SelLengthEnd Sub步骤3：按要求将文件保存至考生文件夹中。二、简单应用题第1小题【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt3.vbp，打开代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：st = st & chc = Mid(st, k, 1)word = 步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt4.vbp，将计时器Timer1的Enabled属性设置为False，Interval属性设置为100。步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容并编写两个命令按钮的单击事件过程。参考代码：Private Sub C1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub C2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() P1.Move P1.Left + 20End Sub步骤3：按要求将文件保存至考生文件夹中。三、综合操作题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口的指定位置编写以下代码：参考代码：Dim i As IntegerDim n As Integern = Val(Text1.Text)If n Mod 2 0 Then MsgBox 请输入偶数！ Exit SubEnd IfFor i = 3 To n / 2 If IsPrime(i) And IsPrime(n - i) Then Label1.Caption = i Label2.Caption = n - i Exit For End IfNext步骤2：按要求将文件保存至考生文件夹中。步骤3：按键运行程序，在文本框中输入23456，单击分解为按钮。第九套上机答案解析174一、基本操作题第1小题【操作步骤】步骤1：新建一个标准EXE工程。步骤2：在窗体Form1中加入一个列表框和一个标签，并分别如表1设置它们的相关属性。表1步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个标准EXE工程，如表2在窗体中画出控件并设置其相关属性。步骤2：打开代码编辑窗口，编写两个命令按钮的单击事件过程。参考代码：Private Sub Cmd1_Click()Image1.Picture = LoadPicture(图片.jpg)End SubPrivate Sub Cmd2_Click() Image1.Picture = LoadPicture()End Sub表2步骤3：按要求将文件保存至考生文件夹中。二、简单应用题第1小题【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt3.vbp，去掉程序中的注释符，将问号?改为正确的内容。参考代码：If x = m 2 Thenis_square = flagIf a(k) max ThenText1.Text = maxText2.Text = num步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4.vbp，如表2在窗体中画出控件并设置其相关属性。表2步骤2：在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：List1.AddItem a0001For i = 0 To List1.ListCount-1List1.ListIndex = iList1.AddItem Text1.TextEnd步骤3：按要求将文件保存至考生文件夹中。三、综合操作题【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt5.vbp， 在窗体上画两个命令按钮，属性及其值如表3所示。表3步骤2：在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：a(i) = Fix(Rnd * 99 + 1)For j = 1 To i 1i = i 1If a(i) = num ThenIf i 10 Then步骤3：按要求将文件保存至考生文件夹中。第十套上机答案解析175一、基本操作题第1小题【操作步骤】步骤1：新建一个标准EXE工程，选择【工程】【部件】命令，在弹出的部件对话框的列表中选中MicroSoft Common Dialog Control6.0项目，单击确定按钮。步骤2： 在窗体Form1上画一个通用对话框，其相关属性设置如表1所示。表1步骤3：编写Form1的Load事件，加入下面的代码：CD1.ShowSave步骤4：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个标准EXE工程，打开VB菜单设计器设计菜单，各菜单项及属性设置如表2所示。表2步骤2： 打开代码编辑窗口，编写上一菜单项可用命令的Click事件过程。参考代码：Private Sub menu2_Click() menu1.Enabled = TrueEnd Sub步骤3：按要求将文件保存至考生文件夹中。二、简单应用题第1小题【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码： If Option1.Value = True Then If a(i) = x Then x = a(i) End If ElseIf a(i) y Then y = a(i) End If步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt4.vbp，代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：L2.AddItem L1.List(L1.ListIndex)L1.RemoveItem L1.ListIndexFor i = 0 To List1.ListCount - 1Call MoveItem(List1, List2)步骤2：按要求将文件保存至考生文件夹中。【主要考点】列表框控件、函数调用及参数传递。三、综合操作题【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt5.vbp，在代码编辑窗口的指定位置编写以下代码：参考代码：For k = 1 To N Sum = Sum + a(k, k) If a(k, k) / 3 = Int(a(k, k) / 3) Then Counter = Counter + 1 End If If k N - k + 1 Then If a(k, N - k + 1) / 3 = Int(a(k, N - k + 1) / 3) Then Counter = Counter + 1 End If End IfNextlblSecond.Caption = SumlblFirst.Caption = Counter步骤2：按键运行程序，然后单击计算按钮。步骤3：按要求将文件保存至考生文件夹中。第十一套上机答案解析176一、基本操作题第1小题【操作步骤】步骤1：新建一个标准EXE工程，如表53-1在窗体中画出控件并设置其相关属性。表53-1步骤2：按要求将文件保存至考生文件夹中。图53-1第2小题【操作步骤】步骤1：新建一个标准EXE工程，在窗体Form1中加入一个列表框，在属性设置窗口中将其Name属性设置为List1，在其List属性中添加四个项目，依次为数学、物理、化学和语文。注意：每输入完一项后按键换行再输入下一项。步骤2：打开代码编辑窗口，编写相应的事件过程：参考代码：Private Sub Form_Click() List1.RemoveItem List1.ListCount - 1End SubPrivate Sub Form_Load() List1.List(List1.ListCount -1)= 英语End Sub步骤3：按要求将文件保存至考生文件夹中。二、简单应用题第1小题【操作步骤】步骤1：新建一个标准EXE工程，如表2在窗体中画出控件并设置其相关属性。步骤2：在代码编辑窗口，分别编写5个按钮的单击事件过程。参考代码：Private Sub Option1_Click() Text1.Alignment = 0End SubPrivate Sub Option2_Click() Text1.Alignment = 2End SubPrivate Sub Option3_Click() Text1.Alignment = 1End SubPrivate Sub Option4_Click() Text1.Font = 宋体End SubPrivate Sub Option5_Click() Text1.Font = 黑体End Sub步骤3：按要求将文件保存至考生文件夹中。表2第2小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：Timer1.Enabled = FalseFor k = 0 To 359 Step 30x = radius * Cos(k * 3.14159/180) + x0Line1.Y2 = y0 - len1 * Sin(a * _ 3.14159/180)b = b - 30/12步骤2：按要求将文件保存至考生文件夹中。三、综合操作题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：s = a(n, 1)For k = 2 To 7getmark = s * 3 * a(n, 8)Private Sub Command2_Click() 要求考生编写的程序 Dim k As Integer maxmark = getmark(1) m = 1 For k = 2 To 5 If maxmark getmark(k) Then maxmark = getmark(k) m = k End If Next k Text2 = athlete(m) Text3 = maxmarkEnd Sub步骤2：按要求将文件保存至考生文件夹中。步骤3：按键键运行程序，先单击读入按钮，然后单击选出冠军按钮，最后单击存盘按钮。第十二套上机答案解析177一、基本操作题第1小题【操作步骤】步骤1：新建一个标准EXE工程，在窗体Form1中画一个名为List1的列表框，在其List属性中添加三个项目，依次为北京、上海和天津，注意每输入完一项后按键换行再输入下一项。步骤2：新建一个标准EXE工程，选择【工具】【菜单编辑器】命令，打开菜单设计器，如表1中的设置建立菜单项。表1步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个标准EXE工程，将窗体Form1的Caption属性设置为使用输入对话框。步骤2：打开代码编辑窗口，编写以下事件过程：参考代码：Private Sub Form_Click() InputBox 请输入, 等级考试, BasicEnd Sub步骤3：按要求将文件保存至考生文件夹中。【主要考点】InputBox()函数和语句。二、简单应用题第1小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：n = Len(Text1.Text)b = Asc(Mid(s, i, 1)Select Case bFor i = 0 To 2x(i) = a(i)步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4.vbp，通过List1列表框的List属性添加四个项目：文本框、标签、命令按钮、单选按钮。步骤2：在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：For i = 0 To La.ListCount - 1 Lb.AddItem La.List(i)NextLa.Clear步骤3：按要求将文件保存至考生文件夹中。三、综合操作题【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt5.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：Do While Not EOF(1)s = s & Str(a(i)步骤2：在代码编辑窗口指定位置编写以下代码：参考代码：num = UBound(a) For i = 1 To num