




已阅读5页,还剩2页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
复习学案注意:请认真阅读各个窗体的操作要求及括号内的提示,完善“VB复习工程”半成品。有能力的同学再完成后面的拓展练习。本节课上交作业内容:请按照“VB复习+班级+姓名+6.4”建立压缩文件,将本工程的可执行文件(即“VB复习工程.exe”)和本复习学案文件(即“VB复习学案.doc”)添加到该压缩文件中并上交到教师机。复习要点一:为窗体添加控件,修改控件属性、添加事件代码。操作:把Form1的标题改为“VB复习”。 操作: 为Form1添加一个“退出”按钮,并将“退出”字样设置为宋体,加粗,小四。为该按钮选择合适的事件过程,添加合适的代码。操作:将文本框Text1的背景颜色改成自己喜欢的颜色(BackColor属性),并将显示内容修改为自己的名字。复习要点二:调试程序之For循环语句操作:运行并调试程序,在“打印星号”的代码窗口中,有两处错误,请改正,使程序能够正确运行。复习要点三:调试程序之If选择语句操作:运行并调试程序,在“找出不同的字”的代码窗口中,有四处错误,请改正,使程序能够正确运行。程序调试正确后,保存工程文件,保存每个窗体文件。生成“VB复习工程.exe”。知识拓展练习:例题1:下列控件中可用于接受用户输入文本,又可用于显示文本的是( )(A)Label控件 (B)TextBox控件(C)Timer控件 (D)CommandButton控件例题2:填空1、 直接( )击某控件可为该控件添加事件代码。2、 “退出”的核心代码是哪个单词( )3、 是指( )控件的( )事件。例题3:下列VB程序语句正确的是( )(A) If a b Then max = a Else max = b End If(B) If a b Then max = a Else max = b End If(C) IfA=BThen T=A A=B B=T(D) IfA=BThenT=A A=B B=T例题4:下面程序段的循环次数是 ( )次。 Forj=8To35 Step3 Printj Nextj(A)10 (B)9 (C)27 (D)28例题5:请将下面程序填写完整(共两处)。 For i = 1 To 64 If sj = i Then a = cw(cs) Else a = zq(cs) Text1.Text = Text1.Text + a 例题6:某Visual Basic程序的一个事件过程如下:Private Sub Command1_Click() Dim x As Single Dim y As Single x = -10 y = Abc(x) Label1.Caption = Str(y) End Sub运行程序,单击命令按钮Command1后弹出如图所示的出错信息提示,引起该错误的语句是( )(A)Dim y As Single(B)x = -10(C)y = Abc(x)(D)Label1.Caption = Str(y)例题7:某Visual Basic程序的一个事件过程如下:Private Sub Command1_Click() Dim a As Integer Dim x As Double a = -4 x = Sqr(a) Label1.Caption = Str(x)End Sub运行程序,单击命令按钮Command1后弹出如图所示的出错信息提示,此时程序正执行的语句是( )(A)Dim a As Integer(B)Dim x As Double(C)x = Sqr(a)(D)Label1.Caption = Str(x)例题8:某下列Visual Basic程序用于计算1010的值:Private Sub Command1_Click() Dim n As Integer, s As Integer n = 10 s = 10 n Text1.Text = Str(s)End Sub运行程序时,单击命令按钮Command1后弹出如图所示的出错信息提示,引起该错误的原因是( )(A)变量s的数据类型说明不当(B)变量n的数据类型说明不当(C)文本框Text1的宽度不够(D)s值太大,因此不能在文本框Text1中输出例题9:某Visual Basic程序的一个事件过程如下:Private Sub Command1_Click() Dim r As Single Dim pi As Double r = 100 pi = 3.14 Label1.Caption = 圆面积为: + Val(pi * r * r)End Sub运行程序,单击命令按钮Command1后弹出如图所示的出错信息提示,引起该错误的语句是( )(A)Dim r As Single(B)Dim pi As Double(C)pi = 3.14(D)Label1.Caption = 圆面积为: + Val(pi * r * r)例题10:某Visual Basic 程序如下:Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 10 To 2 Step -2 sum = sum + iNext itext1.Text = Str(sum) End Sub运行程序,单击命令按钮Command1后弹出如图所示的出错信息提示,此时程序正执行的语句是( )(A)sum = 0 (B)For i = 10 To 2 Step -2(C)sum = sum + i (D)text1.Text = Str(sum)(浙江省2012年会考试题)例题11:某Visual Basic 程序如下: Private Sub Command1_Click() Dim a(1 To 10) As Integer Dim i As Integer Fo
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 天津市中医院GCP规范掌握程度考核
- 晋城市中医院关节镜检查配合技能考核
- 大同市中医院物理问题解决考核
- 巴彦淖尔市人民医院专科疾病诊疗方案制定考核
- 长治市中医院贴面修复技术操作资格认证
- 承德市人民医院骨筋膜室综合征诊治考核
- 2025年机电一体化工作实习报告
- 忻州市中医院生殖内分泌疾病诊治考核
- 2025年天津市盛世天河厨房设备有限公司(企业信用报告)- 天眼查
- 2025年中国桥梁防腐项目创业投资方案
- 2025中医技能考试题及答案
- DB32T 5187-2025口腔综合治疗台水路卫生管理技术规范
- 福建福州台江区社区工作服务站专职招聘笔试真题2024
- 2025年税务局遴选面试题及答案
- 双碳知识培训教学课件
- 成都市金堂县教育局所属事业单位2025年下半年公开招聘教师的(64人)考试参考题库及答案解析
- 2025年网格员考试真题及答案
- 铁路工作安全培训课件
- 水泥厂设备巡检规程
- 2025年小学心理健康学科新课程标准考试测试卷
- 2025黑龙江佳木斯市卫生健康委事业单位招聘编外聘用人员162人笔试参考题库附答案解析
评论
0/150
提交评论