- 1、本文档共33页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
《VisualBasic程序设计(6月2号修改》科学技术
PAGE 33
《Visual Basic程序设计》科学技术出版社
习题一
一、填空题
1、“控件工具箱”、“窗体设计器”、“工程资源管理器”、“属性窗口”、“窗体布局窗口”、“代码编辑器”“立即”、“本地”和“监视”窗口等
2、三;设计(Design)模式、运行模式(Run)和中断(Break)模式
3、工程1;1;Form1
4、选择菜单“视图|立即窗口”即可打开“立即”窗口;它是Visual Basic中的一个系统对象,叫Debug对象,可以在调试程序时使用它,通常使用Print方法向立即窗口中输出程序的信息,还可以将语句直接写在“立即”窗口上,按“回车”键后,这行语句会被立刻执行。
5、查看代码、查看对象;“查看对象”按钮;“查看代码”按钮
二、选择题
1.B 2.C 3.D 4.B 5.C 6.B 7.D
三、程序设计题
1.
Private Sub Command1_Click()
Text1.Text = 欢迎使用VB!
End Sub
Private Sub Command2_Click()
Text1.Text =
End Sub
Private Sub Command3_Click()
End
End Sub
2.
Private Sub Command1_Click()
Label1.Caption = 你好,张三!
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
Label1.Visible = False
Command3.Enabled = True
Command2.Enabled = False
End Sub
Private Sub Command3_Click()
Label1.Visible = True
Command2.Enabled = True
Command3.Enabled = False
End Sub
习题二
一、填空题
1. 0
2. “除数为零”错误
3. Long
4. False
5. Const PI = 3.14159
6. True
7. 4
8. 4
9. Dim Mystr As String*10
10. True
11. 1=x And x=5
二、程序设计题
1.
Private Sub Command1_Click()
Label1.Left = Label1.Left - 100
End Sub
Private Sub Command2_Click()
Label1.Left = Label1.Left + 100
End Sub
Private Sub Command3_Click()
Label1.Top = Label1.Top - 100
End Sub
Private Sub Command4_Click()
Label1.Top = Label1.Top + 100
End Sub
2.
Private Sub Command1_Click()
Label1.Caption = 百位数: + Left(Text1.Text, 1) + 十位数: + Mid(Text1.Text, 2, 1) + 个位数: + Right(Text1.Text, 1)
End Sub
3.
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = Text1.Text
b = Text2.Text
c = a + b
Label1.Caption = +
Text3.Text = c
End Sub
Private Sub Command2_Click()
Dim a As Single, b As Single, c As Single
a = Text1.Text
b = Text2.Text
c = a - b
Label1.Caption = -
Text3.Text = c
End Sub
Private Sub Command3_Click()
Dim a As Single, b As Single, c As Single
a = Text1.Text
b = Text2.Text
c = a * b
Label1.Caption = *
Text3.Text = c
End
您可能关注的文档
- “PCI心内科冠心病介入治疗”学术论文专家笔谈集锦.doc
- “不”“没有”的用法及其所受的时间制约李铁根.doc
- “两个至上”在岗位主题实践活动的报告(诠释篇)--稳健的推进责任的诠释.doc
- “不剩饭不剩菜”文明餐桌行动2012.doc
- “三看三查三试”实木多层地板选购三诀窍.doc
- “书海赶潮”微信抢书活动方案.doc
- “书香成长计划”的思考总结和效果评估.doc
- “三位一体”资金管理模式企业集团战略布局与价值提升.doc
- “中华经典诗文吟诵大赛”策划案.doc
- “了”“着”“过”与汉语时制的表达李铁根.doc
- 2024至2030年中国羚羊角类饮片行业深度调查与前景预测分析报告.docx
- 重庆市面向中国农业大学定向选调2024届大学毕业生2024年国家公务员考试考试大纲历年真题14笔试历.docx
- 重庆市面向西北工业大学定向选调2024届大学毕业生00笔试历年典型考题及解题思路附答案详解.docx
- 中国不动杆菌感染治疗药行业市场现状分析及竞争格局与投资发展研究报告2024-2029版.docx
- 2024至2030年全球与中国ETL软件市场现状及未来发展趋势.docx
- 初中八年级(初二)生物下册期末考试1含答案解析.docx
- 干簧式继电器项目申请报告.docx
- 2024至2030年中国左氧氟沙星片行业深度调查与前景预测分析报告.docx
- 菜籽项目申请报告.docx
- 2024至2030年中国八角钢行业深度调查与前景预测分析报告.docx
文档评论(0)