Download presentation
Presentation is loading. Please wait.
Published by娈 鱼 Modified 7年之前
1
网 络 课 程 马 鞍 学 网 络 山 课 程 大 络 网 Visual Basic程序设计 第 一 讲 最容易接受的编程语言 2006-9
2
网络课程 为进一步推进课程考试改革,探索适应基于网络条件下在职学习的考试方式,本学期Visual Basic程序设计课程实行网络课程: 面授辅导两次 小组讨论两次 网上答疑两次 期中考试一次 期末考试:省校统一考试,半开卷形式
3
课程概况 中央电大软件开发与应用专业和计算机应用专业的一门统 设必修课,课内学时为90学时, 5学分。其中授课学时54,
实验学时36。一学期开设。 本课程重点学习: VB可视化编程初步 应用程序接口设计及代码编写 VB高级语言技巧 文件处理应用程序设计方法 图形图像和多媒体应用程序设计方法 数据库应用程序设计方法 通过本课程的学习,掌握可视化程序设计方法和VB程序设 计的编程技巧,具备用VB语言进行应用系统开发的初步能 力。可以作为毕业设计的编程语言。
4
我们将学习 在 所见即所得 中学习编程基础 可视化 编程基础 控件和操作 数据库和文件
5
一个例子
6
可视化编程设计思想 【1】编程有用吗? :培养逻辑思维能力,加深对计算机软件的理解,减少学习 操作的困难性,毕业设计开发系统的需要
【2】编程难学吗? :现代的编程基础学习越来越简单,即使是非计算机专业 也可以学好编程,何况计算机专业的大家呢? 【3】编程与其他计算机课程比较: :更单纯,所见即所得,学会一点马上就能看到效果,何乐而不为? 【4】编程进阶: :当然,想成为程序员,得付出很多努力,超越本课程之外 ,但需要本课程作为基础.
7
学完本课程我们可以做什么? 进行一些小设计 2 4 6 1 3 5 毕业设计 培养逻辑思维力 加深对软件的理解
8
自 主 学 习 建 议 编程初步 vb界面 启动 基本操作 各种控件的基本使用 变量 程序控制 过程与函数 事件驱动 基本 数据库控件 文件 调试
9
自 主 学 习 建 议 操作准备 安装软件 对照练习 平台 视频 讨论 答疑 参照例子 及时总结 尝试
10
自 主 学 习 建 议 具体学习 按钮 cmd_sure caption click 观看
11
自 主 学 习 建 议 具体学习 文本框 text change click 观看
12
自 主 学 习 建 议 具体学习 标签 caption lbl click 观看
13
自 主 学 习 建 议 具体学习 单选框 value option 单选按钮 观看
14
自 主 学 习 建 议 具体学习 复选框 检查框 checkbox value click 观看
15
自 主 学 习 建 议 具体学习 列表框 listbox click add 列表框 观看
16
自 主 学 习 建 议 具体学习 时钟 timer interval 观看
17
自 主 学 习 建 议 具体学习 驱动器 driverlistbox 观看
18
自 主 学 习 建 议 具体学习 图片 image picture 观看
19
自 主 学 习 建 议 具体学习 数据库 data ado 观看
20
网络课程学习帮助 【1】平台 :提供各种资源,可以参考 【2】操作实例 :可以参照学习 【3】答疑讨论 :解决程序问题 【4】每月导学
:参照学习进度,及时调整
21
网站推荐: VB新势力 VB世界 VB爱好者 VB开发 VB资源网 编程中国 洪恩在线 VB之家 VB课堂
22
谢谢大家!
23
菜单栏 工具栏 代码窗口 工具箱 窗体窗口 立即窗口 监视窗口 工程窗口 属性窗口 布局窗口
25
返回
26
默认控件名 Name 标题 Caption 有关属性设置 Label1 左对齐 Alignment=0, BorderStyle =1 Label2 水平居中 Alignment=1,BorderStyle =1 Label3 自动 AutoSize=True,WordWarp=False, BorderStyle =1 Label4 背景白 BackColor= &H00FFFFFF&, BorderStyle =0 Label5 前景红 ForeColor= &H000000FF&, BorderStyle =0 返回
27
所有关系运算优先级相同。低于算术运算的加“+”,减“-”运算,高于逻辑非“Not”运算。
运算符 含义 优先级 实例 结果 < 小于 所有关系运算优先级相同。低于算术运算的加“+”,减“-”运算,高于逻辑非“Not”运算。 15+10<20 False <= 小于或等于 10<=20 True > 大于 10>20 >= 大于或等于 "This">= "That" = 等于 "This"= "That" <> 不等于 "This"<> "That" Like 字符串匹配 "This" Like *is" Is 对象比较
28
Y N N 条件 条件 语句1 语句2 Y 语句组 语句1 语句2
29
Private Sub Form_Click() Dim a%, max%, i% max = a For i = 1 To 10
开始 输入A Max =A N=1 Private Sub Form_Click() Dim a%, max%, i% max = a For i = 1 To 10 a = Val(InputBox("A=?")) If a > max Then max = a Next i Print "Max="; max End Sub N N<10 Y 再输入给A N Y A>Max Max =A N=N+1 打印Max 结束
30
Private Sub Form_Click() Dim a%, max%, i% max = a For i = 1 To 10
a = Val(InputBox("A=?")) If a > max Then max = a Next i Print "Max="; max End Sub 返回
31
返回
Similar presentations