二级VB上机题答案100套 经典.docVIP

全国计算机等级考试二级VB上机题及参考答案（100） 第1套 一、基本操作 第1小题: 新建一个名为Form1的窗体，单击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框；单击工具菜单中的菜单编辑器命令，打开菜单编辑器。在标题栏中输入操作，在名称栏中输入Op；点击下一个按钮，再点击编辑区的→按钮，在标题栏中输入显示，在名称栏中输入Dis；点击下一个按钮，在标题栏中输入退出，在名称栏中输入Exit。 打开代码窗口，输入如下的代码：sjt3.frm Private Sub Dis_Click() Text1.Text = 等级考试 单击操作菜单中的显示命令，在文本框Text1中显示等级考试 End Sub -------------------------------------------- Private Sub Exit_Click() End 单击操作菜单中的退出命令，结束程序 End Sub 按要求保存文件即完成本题。 第2小题： 新建一个窗体，点击工具箱中的ListBox控件图标，然后在窗体上拖拉出一个列表框，通过属性窗口设置其Name属性为L1，通过设置List属性为列表框添加AAAA、BBBB、CCCC和DDDD四个列表项。 打开代码窗口，输入如下的代码：sjt4.frm Private Sub L1_Click() L1.RemoveItem ListIndex 单击列表框L1中的某一项，将此项从列表框L1中删除 End Sub 按要求保存文件即完成本题。 二、简单应用 第1小题: 本题主要考查了计时器控件的属性、滚动条控件的属性和LoadPicture函数。 1、计时器控件的Interval属性 返回或设置对Timer控件的计时事件各调用间的毫秒数。 2、滚动条控件的Value属性 该属性值表示滚动框在滚动条上的当前位置。如果在程序中设置该值，则把滚动框移到相应的位置。 3、LoadPicture函数 用来将图形载入到窗体的Picture属性、PictureBox 控件或Image控件。其语法为： 对象名.Pictuer=LoadPictuer(文件名) 解题方法： 本题中滚动条的HScroll1的Change事件控制当滚动框的位置改变后，计时器的时间间隔也发生变化；计时器Timer1的Timer事件控制图像框中的图片的交替变更。 修改后的代码如下：按要求保存文件即完成本题。 （1）wy5.frm 原题 答题 Private Sub C1_Click() Timer1.Enabled = True End Sub Private Sub HScroll1_Change() Timer1.？ = 1000 - HScroll1.？ 计时器事件的时间间隔为1000减去滚动框在滚动条上的当前位置上的值 End Sub Private Sub Timer1_Timer() Static i As Integer If i = 0 Then Image1.Picture = ？(2.ico) 如果i等于0，将图片2.ico加载到Image1控件 i = 1 Else Image1.Picture = ?(1.ico) 如果i不等于0，将图片1.ico加载到Image1控件 i = 0 End If End Sub Private Sub C1_Click() Timer1.Enabled = True End Sub Private Sub HScroll1_Change() Timer1.Interval = 1000 - HScroll1.Value 计时器事件的时间间隔为1000减去滚动框在滚动条上的当前位置上的值 End Sub Private Sub Timer1_Timer() Static i As Integer If i = 0 Then Image1.Picture = LoadPicture(2.ico) 如果i等于0，将图片2.ico加载到Image1控件 i = 1 Else Image1.Picture = LoadPicture(1.ico) 如果i不等于0，将图片1.ico加载到Image1控件 i = 0 End If End Sub 第2小题： 本题主要考查了图像框控件的属性。 Height属性：用来