- 1、本文档共4页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
在Form1,标题为“电影制作”上画1个名称为Cmb1、初始内容为空的下拉式组合框
基础题 1 【考点分析】本题考点有:窗体的Caption属性,组合框的Name、Text、List属性。
【解题思路】 通过窗体对象的Caption属性来设置标题,通过组合框的Name和Text属性来设置组合框的名称和初始内容为空,通过其List属性设置列表项。
【操作步骤】
步骤1:新建一个窗体,按照题目要求建立组合框控件并设置窗体及组合框属性,如图所示。
步骤2:测试并运行程序,关闭程序后按题目要求存盘。
【举一反三】可以通过第54套第一大题的第一小题来进行同类知识点的练习。
基础题(2)【考点分析】 本题考点有:命令按钮的Caption属性及Click事件,形状控件的Shape、Width、Height、 BorderWidth、BorderColor、FillColor、FillStyle及Left属性。
【解题思路】通过命令按钮的Caption属性来设置标题。通过形状控件的Shape、BorderWidth、BorderColor、FillColor及FillStyle属性分别来设置形状、边框宽度、边框颜色、填充颜色及填充样式。编写适当的程序,在分别单击命令按钮触发Click事件中加入让椭圆的Left属性值增加100或减少100的语句。
【操作步骤】
步骤1:新建一个窗体,按照题目要求建立形状控件及两个命令按钮,并设置相关属性,如图所示。
步骤2:打开代码编辑窗口,在指定位置编写如下代码。
参考答案
Private Sub Command1_Click
Shape1.Left Shape1.Left - 100 当用户单击左移按钮时,椭圆形状向左移动100
End Sub
Private Sub Command2_Click
Shape1.Left Shape1.Left + 100 当用户单击右移按钮时,椭圆形状向右移动100
End Sub
步骤3:测试并运行程序,关闭程序后按题目要求存盘。
【举一反三】可以通过第86套第一大题的第二小题来进行同类知识点的练习。
简答题 1 【考点分析】本题考点有:形状控件的Left、Top及BackColor属性,时钟控件的Interval、Enabled属性,MouseDown事件以及If判断语句。
【解题思路】时钟控件的Interval属性设置触发事件时间间隔。通过MouseDown事件中的Button判断单击鼠标左键还是右键,通过MouseDown事件中的X,Y指定鼠标光标当前位置的坐标。
【操作步骤】
步骤1:打开本题工程文件。
步骤2:打开代码编辑窗口,去掉程序中的注释符,将问号改为正确的内容。
参考答案(阴影部分是需要考生填入的内容) Private Sub Form_Load Timer1.Enabled True Timer1.Interval 500 每隔半秒对应的Interval的值为500
End Sub
Private Sub Form_MouseDown Button As Integer, Shift As Integer, X As Single, Y As Single If Button 1 Then Button 1,单击左键 Shape1.Left X X,鼠标光标位置的横坐标值 Shape1.Top Y Y,鼠标光标位置的纵坐标值 End If If Button 2 Then Button 2,单击右键 Timer1.Enabled False End If
End Sub
Private Sub Timer1_Timer If Shape1.BackColor HFF Then 程序运行时每隔半秒,方框颜色交替变成黄色和红色 Shape1.BackColor HFFFF Else Shape1.BackColor HFF End If
End Sub
程序结束
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
简答题 2 【考点分析】本题考点有:文本框的Text属性,命令按钮的Click事件以及字符串操作的函数,Trim()、Len()、InStr()、Left()、Mid()等。
【解题思路】通过InStr()函数找到单词之间间隔的第一个空格在输入字符串中的位置,通过Left()函数分离出每个单词。
【操作步骤】
步骤1:打开本题工程文件。
步骤2:打开代码编辑窗口,去掉程序中的注释符,将问号改为正确的内容。
参考答案(阴影部分是需要考生填入的内容)
Private Sub Command1_Click Dim m As Integer, n As Integer n存放最长单词的长度 Dim s As String, word_s As String
您可能关注的文档
- 英语各种词形.doc
- allegro铺铜.doc
- Visio绘图工具使用.doc
- 第9章+Applet基础与高级编程.ppt
- Allegro 敷铜.doc
- vb绘制正三角形.doc
- Cadence allegro菜单解释.docx
- Allegro铺铜功能.doc
- 3D打印之shapeway.doc
- signal.ppt
- 21 青蛙卖泥塘 (教学设计)2023-2024学年统编版语文二年级下册.docx
- 2024学年高中预防校园欺凌班会教学设计.docx
- 2024学年高中重视教育学生的安全文化班会教学设计.docx
- 人教版八年级音乐教案2教案1000字.docx
- 2024学年高中持续推进校园安全工作创造稳定的学习环境班会教学设计.docx
- 二 100以内的加法和减法(二)(教案)-2023-2024学年二年级上册数学人教版.docx
- 3.土壤与植物(教案)三年级下册科学粤教版.docx
- 2024学年高中心理健康管理避免校园事件班会教学设计.docx
- 《习作:我的植物朋友》教案-2023-2024学年统编版三年级语文下册.docx
- 娱乐用地转让协议.docx
文档评论(0)