网 络 课 程 马 鞍 学 网 络 山 课 程 大 络 网 Visual Basic程序设计 第 一 讲 最容易接受的编程语言 2006-9

网络课程 为进一步推进课程考试改革，探索适应基于网络条件下在职学习的考试方式,本学期Visual Basic程序设计课程实行网络课程: 面授辅导两次 小组讨论两次 网上答疑两次 期中考试一次 期末考试:省校统一考试,半开卷形式

课程概况 中央电大软件开发与应用专业和计算机应用专业的一门统 设必修课，课内学时为90学时, 5学分。其中授课学时54， 实验学时36。一学期开设。 本课程重点学习: VB可视化编程初步 应用程序接口设计及代码编写 VB高级语言技巧 文件处理应用程序设计方法 图形图像和多媒体应用程序设计方法 数据库应用程序设计方法 通过本课程的学习，掌握可视化程序设计方法和VB程序设 计的编程技巧，具备用VB语言进行应用系统开发的初步能 力。可以作为毕业设计的编程语言。

我们将学习 在 所见即所得 中学习编程基础 可视化 编程基础 控件和操作 数据库和文件

一个例子

可视化编程设计思想 【1】编程有用吗? ：培养逻辑思维能力,加深对计算机软件的理解,减少学习 操作的困难性,毕业设计开发系统的需要 【2】编程难学吗? ：现代的编程基础学习越来越简单,即使是非计算机专业 也可以学好编程,何况计算机专业的大家呢? 【3】编程与其他计算机课程比较: ：更单纯,所见即所得,学会一点马上就能看到效果,何乐而不为? 【4】编程进阶: ：当然,想成为程序员,得付出很多努力,超越本课程之外 ,但需要本课程作为基础.

学完本课程我们可以做什么? 进行一些小设计 2 4 6 1 3 5 毕业设计 培养逻辑思维力 加深对软件的理解

自 主 学 习 建 议 编程初步 vb界面 启动 基本操作 各种控件的基本使用 变量 程序控制 过程与函数 事件驱动 基本 数据库控件 文件 调试

自 主 学 习 建 议 操作准备 安装软件 对照练习 平台 视频 讨论 答疑 参照例子 及时总结 尝试

自 主 学 习 建 议 具体学习 按钮 cmd_sure caption click 观看

自 主 学 习 建 议 具体学习 文本框 text change click 观看

自 主 学 习 建 议 具体学习 标签 caption lbl click 观看

自 主 学 习 建 议 具体学习 单选框 value option 单选按钮 观看

自 主 学 习 建 议 具体学习 复选框 检查框 checkbox value click 观看

自 主 学 习 建 议 具体学习 列表框 listbox click add 列表框 观看

自 主 学 习 建 议 具体学习 时钟 timer interval 观看

自 主 学 习 建 议 具体学习 驱动器 driverlistbox 观看

自 主 学 习 建 议 具体学习 图片 image picture 观看

自 主 学 习 建 议 具体学习 数据库 data ado 观看

网络课程学习帮助 【1】平台 ：提供各种资源,可以参考 【2】操作实例 ：可以参照学习 【3】答疑讨论 ：解决程序问题 【4】每月导学 ：参照学习进度,及时调整

网站推荐: VB新势力 VB世界 VB爱好者 VB开发 VB资源网 编程中国 洪恩在线 VB之家 VB课堂

谢谢大家!

菜单栏 工具栏 代码窗口 工具箱 窗体窗口 立即窗口 监视窗口 工程窗口 属性窗口 布局窗口

返回

默认控件名 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 返回

所有关系运算优先级相同。低于算术运算的加“+”，减“-”运算，高于逻辑非“Not”运算。 运算符 含义 优先级 实例 结果 < 小于 所有关系运算优先级相同。低于算术运算的加“+”，减“-”运算，高于逻辑非“Not”运算。 15+10<20 False <= 小于或等于 10<=20 True > 大于 10>20 >= 大于或等于 "This">= "That" = 等于 "This"= "That" <> 不等于 "This"<> "That" Like 字符串匹配 "This" Like *is" Is 对象比较  

Y N N 条件 条件 语句1 语句2 Y 语句组 语句1 语句2

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 结束

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 返回

返回