山东省高中信息技术学业水平考试试题网 - 数据与计算|信息系统与社会|数据与数据结构|网络基础|数据管理与分析|移动应用设计|三维设计与创意|开源硬件项目设计|算法初步|智能系统初步

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 567|回复: 0
收起左侧

第十六讲 认识可视化编程工具-Visual Basic

[复制链接]

157

主题

171

帖子

214748万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
2147483647
QQ
发表于 2018-3-18 07:11:38 | 显示全部楼层 |阅读模式
第十六讲 认识可视化编程工具-Visual Basic
学习目标
    熟悉可视化编程工具Visual Basic,体验可视化编程的完整过程。
学习内容
    Visual Basic 是基于Basic的可视化程序语言,所谓可视化程序设计,主要是指程序设计人员利用软件本身提供的各种控件,像搭积木式地构造程序的各种界面,然后编写少量的代码就可以完成应用程序。
    可视化编程的一般步骤:设计程序界面→编写程序代码→调试、运行程序。
    面向对象程序设计就是以对象为中心,以事件为过程执行的起点。VB可提供的事件有单击(Click)、双击(DbClick)、加载(Load)、按键(KeyPress)等,方法是对象能够的操作,这些操作一般是一个动作或一段程序。

第十六讲 认识可视化编程工具-Visual Basic

第十六讲 认识可视化编程工具-Visual Basic

下面是几个应了解的文件。
    .vbp文件:与VB工程有关的文件和对象清单,是一个文本文件。
    .frm文件:是包含窗体及控件的属性设置、相关程序代码的文件。
    .ocx文件:是VB的扩展文件。
    .bas文件:是标准的模块文件。
学习任务
    编写“小学数学加法”小程序,要求:对非法输入给予明确提示;对合法输入给予对错提示。

第十六讲 认识可视化编程工具-Visual Basic

第十六讲 认识可视化编程工具-Visual Basic

非法输入,提示:“不要乱来,请输入数字!”

第十六讲 认识可视化编程工具-Visual Basic

第十六讲 认识可视化编程工具-Visual Basic

合法输入,结果错误,提示:“你太笨了,做错了!”

第十六讲 认识可视化编程工具-Visual Basic

第十六讲 认识可视化编程工具-Visual Basic

合法输入,结果正确,提示:“你真棒,做对了!”
控件参数:

第十六讲 认识可视化编程工具-Visual Basic

第十六讲 认识可视化编程工具-Visual Basic

Form窗体

第十六讲 认识可视化编程工具-Visual Basic

第十六讲 认识可视化编程工具-Visual Basic

第十六讲 认识可视化编程工具-Visual Basic

第十六讲 认识可视化编程工具-Visual Basic

Textbox控件:tbxshu1

第十六讲 认识可视化编程工具-Visual Basic

第十六讲 认识可视化编程工具-Visual Basic

Label控件:lbljia

第十六讲 认识可视化编程工具-Visual Basic

第十六讲 认识可视化编程工具-Visual Basic

第十六讲 认识可视化编程工具-Visual Basic

第十六讲 认识可视化编程工具-Visual Basic

TextBox控件:tbxshu2

第十六讲 认识可视化编程工具-Visual Basic

第十六讲 认识可视化编程工具-Visual Basic

Label控件:lbjdenghao

第十六讲 认识可视化编程工具-Visual Basic

第十六讲 认识可视化编程工具-Visual Basic

第十六讲 认识可视化编程工具-Visual Basic

第十六讲 认识可视化编程工具-Visual Basic

TextBox控件:tbxhe

第十六讲 认识可视化编程工具-Visual Basic

第十六讲 认识可视化编程工具-Visual Basic

Label控件:lblduicuo

第十六讲 认识可视化编程工具-Visual Basic

第十六讲 认识可视化编程工具-Visual Basic

CommandButton控件:cmdyanzheng
  1. Private Sub cmdyanzheng_Click()
  2. Dim i As Integer
  3. Dim j As Integer
  4. Dim k As Integer
  5. If IsNumeric(tbxshu1.Text) = False Or IsNumeric(tbxshu2.Text) = False Or IsNumeric(tbxhe.Text) = False Then
  6. lblduicuo.Caption = "不要乱来,请输入数字!"
  7. Exit Sub
  8. End If
  9. i = CInt(tbxshu1.Text)
  10. j = CInt(tbxshu2.Text)
  11. k = CInt(tbxhe.Text)
  12. If i + j = k Then
  13. lblduicuo.Caption = "你真棒,做对了!"
  14. Else
  15. lblduicuo.Caption = "你太笨了,做错了!"
  16. End If
  17. End Sub
复制代码
程序代码
程序: 小学数学加法.rar (3.16 KB, 下载次数: 107)
楼主热帖



上一篇:第十五讲 由百鸡问题,初识算法与程序设计(Visual Basic)
下一篇:第十七讲 由一段程序,解读VB基本元素
+1
567°C
沙发哦 ^ ^ 马上

帖子地址: 

教书育人!
回复

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

站务公告栏:
百度一下 百度二下 百度三下

QQ|Archiver|手机版|小黑屋|山东省高中信息技术学业水平考试试题网 ( 鲁ICP备16049757号 )|网站地图|申请友情链接

GMT+8, 2018-4-23 02:09 , Processed in 0.251927 second(s), 44 queries .

快速回复 返回顶部 返回列表

商品:奔腾卷发棒卷直两用直发器拉直夹板烫刘海内扣大卷波浪不伤发迷你
原价:49.90元 券后价:29.9元
购买链接:Click here!
推荐理由:【送2个夹子+2个发圈+一个发帖】奔腾大品牌,值得信赖!陶瓷釉涂层,恒温不伤发,直发卷发两用,想直想卷,随你啊,哈哈,女神人手一个哟!~【赠运费险】 paoliang:90
淘宝优惠券领取处:Click here!