全国vb上机题参考答案

《全国vb上机题参考答案》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、全国计算机等级考试二级VB上机题参考答案（70）第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.frmPrivateSubL1_

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

4、er=LoadPictuer("文件名")解题方法：本题中滚动条的HScroll1的Change事件控制当滚动框的位置改变后，计时器的时间间隔也发生变化；计时器Timer1的Timer事件控制图像框中的图片的交替变更。修改后的代码如下：按要求保存文件即完成本题。（1）wy5.frm原题答题PrivateSubC1_Click()Timer1.Enabled=TrueEndSubPrivateSubHScroll1_Change()Timer1.？=1000-HScroll1.？'计时器事件的时间间隔为1000减去滚动框在滚动条上的当前位置上的值EndSubPrivateSubTimer1_T

5、imer()StaticiAsIntegerIfi=0ThenImage1.Picture=？("2.ico")PrivateSubC1_Click()Timer1.Enabled=TrueEndSubPrivateSubHScroll1_Change()Timer1.Interval=1000-HScroll1.Value'计时器事件的时间间隔为1000减去滚动框在滚动条上的当前位置上的值EndSubPrivateSubTimer1_Timer()StaticiAsIntegerIfi=0ThenImage1.Picture=LoadPicture("2.ico")第167页共167页'如

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

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