二级vb上机题答案100套

《二级vb上机题答案100套》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、全国计算机等级考试二级VB上机题及参考答案�100�第1套一、基本操作第1小题:新建一个名为Form1的窗体�单击工具箱中的TextBox控件图标�然后在窗体上拖拉出一个文本框�单击"工具"菜单中的"菜单编辑器"命令�打开菜单编辑器。在"标题"栏中输入"操作"�在"名称"栏中输入"Op"�点击"下一个"按钮�再点击编辑区的"→"按钮�在"标题"栏中输入"显示"�在"名称"栏中输入"Dis"�点击"下一个"按钮�在"标题"栏中输入"退出"�在"名称"栏中输入"Exit"。打开代码窗口�输入如下的代码�sjt3.frmPrivateSubDis_Click()Text1.Text="等级考试"'

2、单击"操作"菜单中的"显示"命令�在文本框Text1中显示等级考试EndSub--------------------------------------------PrivateSubExit_Click()End'单击"操作"菜单中的"退出"命令�结束程序EndSub按要求保存文件即完成本题。第2小题�新建一个窗体�点击工具箱中的ListBox控件图标�然后在窗体上拖拉出一个列表框�通过属性窗口设置其Name属性为"L1"�通过设置List属性为列表框添加"AAAA"、"BBBB"、"CCCC"和"DDDD"四个列表项。打开代码窗口�输入如下的代码�sjt4.frmPrivateSubL

3、1_Click()L1.RemoveItemListIndex'单击列表框L1中的某一项�将此项从列表框L1中删除EndSub按要求保存文件即完成本题。二、简单应用第1小题:本题主要考查了计时器控件的属性、滚动条控件的属性和LoadPicture函数。1、计时器控件的Interval属性返回或设置对Timer控件的计时事件各调用间的毫秒数。2、滚动条控件的Value属性该属性值表示滚动框在滚动条上的当前位置。如果在程序中设置该值�则把滚动框移到相应的位置。3、LoadPicture函数用来将图形载入到窗体的Picture属性、PictureBox控件或Image控件。其语法为�对象名.Pic

4、tuer=LoadPictuer("文件名")解题方法�本题中滚动条的HScroll1的Change事件控制当滚动框的位置改变后�计时器的时间间隔也发生变化�计时器Timer1的Timer事件控制图像框中的图片的交替变更。修改后的代码如下�按要求保存文件即完成本题。�1�wy5.frm原题答题PrivateSubC1_Click()PrivateSubC1_Click()Timer1.Enabled=TrueTimer1.Enabled=TrueEndSubEndSubPrivateSubHScroll1_Change()PrivateSubHScroll1_Change()Timer1.�

5、=1000-HScroll1.�Timer1.Interval=1000-HScroll1.Value'计时器事件的时间间隔为1000减去滚动框在滚动'计时器事件的时间间隔为1000减去滚动框在滚动条上的当前位置上的值条上的当前位置上的值EndSubEndSubPrivateSubTimer1_Timer()PrivateSubTimer1_Timer()StaticiAsIntegerStaticiAsIntegerIfi=0ThenIfi=0ThenImage1.Picture=�("2.ico")Image1.Picture=LoadPicture("2.ico")第1页共167页'如

6、果i等于0�将图片2.ico加载到Image1控件'如果i等于0�将图片2.ico加载到Image1控件i=1i=1ElseElseImage1.Picture=?("1.ico")Image1.Picture=LoadPicture("1.ico")'如果i不等于0�将图片1.ico加载到Image1控件'如果i不等于0�将图片1.ico加载到Image1控件i=0i=0EndIfEndIfEndSubEndSub第2小题�本题主要考查了图像框控件的属性。Height属性�用来指定图像框的高度。Width属性�用来指定图像框的宽度。解题方法�命令按钮C1�即放大按钮�的Click事件用来控

7、制当图像框的宽和高都小于3000时�图像框的宽和高各增加500�命令按钮C2�即缩小按钮�的Click事件用来控制当图像框的宽和高都大于1000时�图像框的宽和高各减少500。修改后的代码如下��2�wy6.frm原题答题PrivateSubC1_Click()PrivateSubC1_Click()IfImage1.Height<3000OrImage1.Width<3000IfImage1.Height<