- 1、本文档共167页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
二级VB上机题答案100套 经典
全国计算机等级考试二级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属性:用来
您可能关注的文档
- 一汽大众奥迪Q5营销策略2011版.doc
- 一年级语文下册 语文园地一课件1 人教新课标版.ppt
- 一年级语文下册《识字4》PPT课件.ppt
- 一汽奥迪A4营销策略分析.doc
- 七年级 生物课件22.细菌、真菌和病毒4.ppt
- 七年级上册第二章整式的加减2.2 合并同类项 黄冈市蔡河中学课件.ppt
- 七年级上数学第一章 1.2.4绝对值练习题.doc
- 七年级历史下册 第9课《民族政权并立的时代》课件 人教新课标版.ppt
- 七年级英语完形填空60篇.doc
- 万吉超市招商方案1.doc
- 2024年中国4-乙基-2,3-双氧哌嗪市场调查研究报告.docx
- 2024年中国彩色数字DSP摄像机市场调查研究报告.docx
- 2024年中国读卡头市场调查研究报告.docx
- 2024年中国铸铁浴缸扶手市场调查研究报告.docx
- 2010-2023历年福建省晋江市子江中学高三综合测试(三)政治试卷(带解析).docx
- 2010-2023历年福建省泉州市普通中学高三毕业班质量检查理科数学试卷(带解析).docx
- 2010-2023历年福建省普通高中毕业班高三质量检查物理试卷(带解析).docx
- 2010-2023历年福建省上杭一中高一下学期期中考试英语试题.docx
- 2010-2023历年福建省福州三中高二第二学期期末考试物理试题.docx
- 2010-2023历年福建省厦门六中高二上学期期中考试生物试卷.docx
文档评论(0)