计算机二级vb100套答案.docxVIP

第1套第1小题【操作步骤】步骤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：按F5键运行程序，先选中选中一个单选按钮和至少一个复选框，并单击确定按钮，然后单击窗体右上角的关闭按钮结束程序。步骤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步骤