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

 找回密码
 立即注册

QQ登录

只需一步,快速开始

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

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

[复制链接]

191

主题

582

帖子

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)等,方法是对象能够的操作,这些操作一般是一个动作或一段程序。

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

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

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

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

Form窗体


Textbox控件:tbxshu1

Label控件:lbljia


TextBox控件:tbxshu2

Label控件:lbjdenghao


TextBox控件:tbxhe

Label控件:lblduicuo

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
复制代码
程序代码
程序:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
楼主热帖




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

帖子地址: 

教书育人!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

站务公告栏:
百度一下 百度二下 百度三下 开门大吉

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

GMT+8, 2018-12-11 06:57 , Processed in 0.287880 second(s), 43 queries .

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

商品:去除鸡眼膏贴刺猴脚肉刺跖疣膏趾疣净手部足部正品鸡眼药瘊子神器
原价:55.90元 券后价:5.9元
购买链接:Click here!
推荐理由:【3万好评】大牌修正,真的是很管用啊!精选草本配方,温和不刺激,深层渗透受损皮肤,快速见效不复发,真正做到无痛解决鸡眼、手足尤、老茧子的折磨【拒绝反复,不满意就退】【赠运费险】 top100:80
优惠券领取处:Click here!
优惠券推送群:Click here!