[IT认证]VB二级考试题库.docVIP

80 第1题【操作步骤】步骤1：新建一个标准EXE工程，按表1在窗体中画出控件并设置其相关属性。 表1 步骤2：在代码编辑窗口，编写命令按钮的Click事件过程。 参考代码：Private Sub cmdDisplay_Click() Print txtName.Text ，现年 _ txtAge.Text 岁 End Sub 第2小题【操作步骤】步骤1：新建一个标准EXE工程，按表2在窗体中画出控件并设置其相关属性。 表2 参考代码：Private Sub txtIn0put_Change() picOutput.Print txtInput.Text End Sub 第1小题 【操作步骤】步骤1：打开考生文件中的本题工程文件vbsj3.vbp，按表3在窗体中用复制和粘贴命令画出包含4个元素的单选数组和1个命令按钮并设置属性。 表3 步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号？改为正确的内容。 参考代码：Private Sub CmdNext_Click() For k = 0 To 3 If OptItem(k).Value Then n = k End If Next k OptItem (n).Value = False n = n + 1 If n = 4 Then n = 0 End If OptItem (n).Value = True End Sub 步骤3：按要求将文件保存至考生文件夹中。 第2小题【操作步骤】 步骤1：打开考生文件中的本题工程文件vbsj4.vbp，在代码编辑窗口，去掉程序中的注释符，将问号？改为正确的内容。 参考代码： a = Mid$(txtInput.Text, k, 1) ch = ch + LCase(a) txtResult = ch 【操作步骤】步骤1：打开考生文件中的本题工程文件vbsj5.vbp，按表4在窗体中画出控件并设置其相关属性。 表4 步骤2：在代码编辑窗口中，编写cmdDisplay_Click事件过程。 参考代码：Private Sub cmdDisplay_Click() Dim pers As PalType Open in5.txt For Random As #1 Len = Len(pers) Get #1, 3, pers txtName.Text = pers.Name txtTel.Text = pers.Tel txtPost.Text = pers.Post Close #1 End Sub 步骤3：按要求将文件保存至考生文件夹中。 步骤4：按F5键运行程序，先单击显示第三个记录按钮，再单击保存按钮。81 第1小题 【操作步骤】 步骤1：新建一个标准EXE工程，选择【工程】→【部件】命令，打开部件对话框，从其列表中选中MicroSoft Common Dialog Control6.0项目，单击确定按钮。 步骤2：在窗体Form1中加入一个命令按钮和一个通???对话框，其相关属性设置如表1所示。 表1 步骤3：在代码编辑窗口中，编写打开文件按钮的单击事件过程： 参考代码： Private Sub cmdOpen_Click() cdlOpen.ShowOpen End Sub 步骤4：按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1：新建一个标准EXE工程，在窗体Form1中画一个图片框和一个水平滚动条，在属性设置窗口中设置其相关属性，属性及其值如表2所示。 表2 步骤2：打开代码编辑窗口，分别编写命令按钮的Click事件过程和垂直滚动条的Change事件过程。参考代码： Private Sub cmdSet_Click() Vsb1.Min = 100 Vsb1.Max = 2400 Vsb1.LargeChange = 200 Vsb1.SmallChange = 20 End Sub Private Sub Vsb1_Change() Pic1.Height = Vsb1.Value End Sub 步骤3：按要求将文件保存至考生文件夹中。 2 第1小题参考代码： Private Sub cmdCal_Click() Select Case cboFun.Text Case Sin txtResult.Text = Int(Sin(Val _ (txtInput.