VB程序设计-时间间隔改进
西藏高校非计算机专业《VB程序设计》教学效果优化研究
vb教程2
4
2. 向窗体上添加控件
添加旳控件有： 一种标签 一种文本框 一种命令按钮 一种计时器控件
见下页图。
5
6
3 设置对象属性
（1）Form1窗体 Caption——”倒计时器”
（2）Label1控件 Caption——”请输入倒计时旳分钟数” AutoSize——True
（3）Command1控件 Caption——”开始”
1.编译应用程序
编译应用程序就是把一种应用程序制成一 种可执行文件，即.EXE文件。措施是单击“文 件”菜单中旳“生成Timerapp.exe”选项，出 现“生成工程”对话框，在其中输入 Timerapp.exe，然后单击“拟定”按钮，程序 即被编译在磁盘上，这么该应用程序就能够脱 离VB环境，在操作系统下单独运营了。
）。
46
2.2.3 MsgBox语句和函数旳使用
在编写程序过程中，为了对顾客旳操 作予以一定旳提醒或反馈，经常需要在 屏幕上显示某些提醒信息、警告信息、 问询信息或错误消息等提醒，VB提供旳 MsgBox命令就能够实现这些功能，它 不但能够向顾客传送信息，还能够接受 顾客在对话框上旳选择，以此作为程序 继续执行旳根据。
m=m-1 2. 赋值号“=”左边必须是变量名或对象属性， “=”右边是体现式，其值能够是常量、变量、函 数或是它们旳混合运算式。例如: x=x+y b=1 c=b*2+2
45
习题 P47 一 、
7. 下列赋值语句正确旳是（ A. A=B+C B. B+C=A C. –B=A D. 2=A+B 答案：A
30
（9）在“共享文件”对话框，顾客可将给定旳文件设置成 共享，然后单击“下一步”按钮。
VB实验--------所有实验题目
实验题目总体要求：本学期的所有的实验题目，希望同学们按如下步骤认真做，（1）先画出处理界面（窗体）；（2）再给出处理步骤，（3）写出程序代码：可参考下面的例题：例如：设计程序，求1+2+3+...+N 的和值。
其处理过程是：（一）设计界面（在纸上画出界面，并注明各控件的名称）：（二）处理步骤：单击命令按钮，按以下步骤处理（1）定义3个变量：N ，s ，x ，分别用于存放：输入的数值，和值，控制循环（2）将文本框1的值，提供给变量N ；（3）s=0（累加前，将变量s 初始化为0）；（4）X=1（设置循环的开始值）（5） 当X<=N 时 重复执行S=s+xX=X+1（5）在文本框2中显示和值S（三）编写有关的代码：Private Sub Command1_Click()Dim n%，s%，x%N=val(text1.text)S=0X=1Do while x<=nS=s+xX=x+1LoopText2=sEnd Sub文本框1：TEXT1 文本框2：TEXT21：Command1标签1：Label1 标签2：实验一：用语言或流程图描述处理步骤(1次)1.判定一个数X是否是偶数的处理步骤;2.写出求5的阶乘的计算步骤;3.写出求1+2+3+...... +100的计算过程;4.写出计算1!+2！+3！+4！+......+20!的计算步骤;5.写出求一元二次方程解的处理步骤;6.给出将三个整数A,B,C按从小到大的顺序排列的处理步骤;实验二：表达式及其运算的实现(1次)1.设计一个程序，完成利用文本框输入任意两个数的乘法运算，并显示计算结果。
2.进一步完善程序，完成利用文本框输入任意两个数的加法、减法、乘法、除法运算，并显示计算结果，3.再进一步，改进，完成，利用随机函数，产生任意两个100到200之间的整数，并完成两个数的加法、减法、乘法、除法运算，并显示计算结果。
4．求方程AX+B=0的解。
《VB程序设计》课程设计指导书-电子商务(1周)-修改
2010-2011学年第一学期《VB程序设计》课程设计指导书适用专业及层次：电子商务周数：1学分：1时间：19周山东科技大学泰山科技学院信息工程系2010年12月《VB程序设计》课程设计为加强学生对本课程的实际应用能力及综合知识运用能力的培养，进行为期一周的课程设计及实习，具体安排如下：一、课程设计的性质和目的学生应通过接触客观实际，了解和认识所学的专业知识，掌握所学知识在客观实际中的应用，并能亲自动手完成相关题目设计。
把所学的理论知识与实际能力紧密的结合在一起。
二、课程设计的基本内容和要求本次课程设计要求学生熟练掌握《VB程序设计》课程的基础知识，独立完成设计任务,并完成课程设计报告，主要要求学生掌握以下内容：理解系统开发的必要步骤，绘制流程图、根据流程图编写程序、并自主进行必要的测试与维护。
最后形成规范的设计报告。
三、课程设计的基本内容本次课程设计完成：一、基本设计（必做）：按下列运行界面，设计（四则运算）窗体文件。
1．初始化：4个label、3个text、1个组合框、3个command2．(1)form_load()Combo1.list(0)=”+” combo1.list(1)=”-“ combo1.list(2)=”*” combo1.list(3)=”/”(2)command1_click()Da1=val(text1.text) da2=val(text2.text)Select case combo1.listindexCase 0Da3=da1+da2Case 1Da3=da1-da2Case 2Da3=da1*da2Case 3Da3=da1/da2EndselectText3.text=da3(3)command2_click()Text1.text=”” text2.text=”” text3.text=”” text1.setfocus(4)command3_click()end二、可选设计2个（共20个模块）1、使用vb制作一个指针式时钟，本课题使用直线控件作为时钟的指针，再使用定时器控件控制直线控件的位置，从而使得直线控件能向时钟中的指针一样顺时针转动。
高校VB教学存在问题及改进措施
（ ） Ｂ教材设计不合理。现在 Ｖ １Ｖ Ｂ教材大多偏重于理 论 的讲解 ， 少实际应用的 范例 ， 缺 即使 有一些例 子， 也都是 较简单 的， 并且很 多教材重复 ， 生拿着 教材看 了半天 ， 学 不 知道有什么用 。
（ ） 核 机 制有 缺 陷 。 传 统 的 Ｖ ２ 考 Ｂ考 核 方 式 大 多 都 采 用 笔试 ， 种 方 式 只 注 重 对 学 生 理 论 的 考 核 ， 这 无法 检测 学 生
２１ 年４月 ００
电 脑 学 习
第２ 期
高校 Ｖ Ｂ教 学存 在 问题及 改进措施
金晓 龙 ’
摘 要 ： 针对高校 Ｖ Ｂ课程的教学现状。 从学生、 教师、 其它因素三个方面分析存在的问题 。 并从教学、 考核、 课程及毕业设计方
面 提 出 了解 决问 题 的 办 法 。
自己认为重要的课程上， 没有 时间、 精力关注 Ｖ 认为会用 Ｂ。 计算机查 资料、 上网、 编辑文字 就足够 了， 习程序设计 与 学
学好专业关系 ３容 Ｂ知识 ， 能做一些 简单 的 实验， 就认为 自己学好 Ｖ Ｂ了。 现在 Ｖ Ｂ教育越来越普及 ， 会 Ｖ Ｂ的人越来越多 了。 但很多人都局限在会 Ｖ ， Ｂ 而不能灵活
２１教学方面 ． （） １ 精心组织教学 内容， 增加教学趣味性。 教师应认真 组织教学 内容， 由浅入深 ， 循序 渐进 ， 有利于学生 理解 概念 、 分层次掌握各阶 段知识。多讲解 Ｖ Ｂ在各个领域 应用的实 例， 让学生加深对 Ｖ Ｂ的总体认识 ， 认识到 Ｖ Ｂ在各个 领域 应用 的重要性。当今 信息时代 ，计算机 已经成为 了一种工 具， 无论什么专业 ， 要与信息打交道 ， 都 一个学生 的计 算机 水 平的高低直接 影响 以后 在专业领域 的作为。多讲 Ｖ Ｂ在
vb时钟课程设计
vb时钟课程设计一、课程目标知识目标：1. 学生能理解VB编程中时间相关的概念，掌握时钟控件的属性和事件。
2. 学生能描述日期和时间的计算方法，并运用到VB程序中。
3. 学生了解计算机内部时间的表示方法，以及如何通过VB程序进行读取和显示。
技能目标：1. 学生能够独立设计并实现一个具有基本计时功能的VB时钟程序。
2. 学生能够通过调试和修改程序，解决时钟运行中的常见问题。
3. 学生能够运用所学知识，对时钟程序进行优化和拓展，如添加闹钟提醒、倒计时等功能。
情感态度价值观目标：1. 学生在编程实践中，培养解决问题的能力和团队协作精神。
2. 学生通过学习VB时钟编程，提高对计算机编程的兴趣，增强自信心。
3. 学生认识到计算机编程在实际生活中的应用，激发创新意识和实践欲望。
课程性质：本课程为信息技术学科选修课程，以实践操作为主，理论讲解为辅。
学生特点：学生处于初中阶段，对计算机编程有一定的好奇心，但编程基础薄弱。
教学要求：注重实践操作，结合理论讲解，引导学生通过自主学习、合作探讨，完成课程目标。
在教学过程中，关注学生个体差异，因材施教，确保每位学生都能掌握基本的VB时钟编程技能。
二、教学内容1. VB编程环境介绍与基本操作- 熟悉VB集成开发环境- 学会创建和保存VB项目2. 时钟控件的使用- 介绍时钟控件的属性、事件- 学习如何在窗体中添加时钟控件3. 日期和时间的获取与显示- 了解计算机内部时间的表示方法- 学习使用VB函数获取系统时间并显示4. 日期和时间的计算- 掌握日期和时间的加减运算- 学习倒计时和闹钟提醒功能的实现5. VB时钟程序设计实例- 分析实例程序的结构和功能- 学习设计并编写一个简单的VB时钟程序6. 程序调试与优化- 学会使用调试工具查找和修复程序错误- 了解如何提高程序运行效率和稳定性7. 课堂实践与拓展- 学生分组进行实践操作，完成VB时钟程序设计- 鼓励学生发挥创意，对时钟程序进行拓展和优化教学内容安排与进度：第一课时：VB编程环境介绍与基本操作第二课时：时钟控件的使用第三课时：日期和时间的获取与显示第四课时：日期和时间的计算第五课时：VB时钟程序设计实例第六课时：程序调试与优化第七课时：课堂实践与拓展教材章节关联：本教学内容与教材中“VB控件的使用”、“日期时间处理”和“程序调试与优化”等章节密切相关。
浅谈高校VB程序设计实验教学方法的改进
（ ｄ ｃ ｔ ｎ ｌ ｎ ｏ ｍａｉ ｎ ａ ｄ Ｔ ｃ ｎ ｌ ｇ ｎ ｅ ， ａ ｇ ｏ ｇＵｎ ｖ ｒｉ ｆ ｅｒ ｃ ｅ ｃ ｌ ｅ ｈ ｏｏ ｙ Ｅ ｕ ａ ｉ ａ Ｉ ｆ ｒ ｔ ｎ ｅ ｈ ｏｏ ｙＣｅ ｔｒ Ｇｕ ｎ ｄ ｎ ｉｅ ｓ ｙ ｏ ｔｏ ｈ ｍｉ ｃ ｎ ｌｇ ， ｏ ｏ ｔ Ｐ ａＴ Ｍ ａ ｍｉ ｇＧｕ ｎ ｄ ｎ ， ２ ０ ０ Ｃ ｉａ ｏ ｎ ａ ｇ ｏ ｇ ５ ５ ０ ， ｈｎ ）
【 关键词 】 实验教 学；Ｂ程序 ； 学改革 Ｖ 教
ＴｈｅＩ ｍｐｒ ｖ ｍｅ ｔｏ ｐ ｒｍ ｅ ｔ ｌ ａ ｈｉ ｅ ｏ ｎ Ｃｏｌｇ ｏ ｅ ｎ ｆＥｘ ｅ ｉ ｎ ａ Ｔｅ ｃ ｎｇＭ ￣ ｄ ｏ ｌ ｅＶＢ ｏ ｒ ｍ ｓｇ ｅ Ｐｒ ｇ ａ Ｄｅｉｎ
ＰＥＮＧ ａ Ｚｈ ｎ
科技信息
０高校讲坛 ０
Ｓ ＩＮ Ｅ＆Ｔ Ｃ Ｎ Ｌ ＧＹＩＦ Ｒ Ｔ Ｏ ＣＥ Ｃ Ｅ Ｈ Ｏ Ｏ Ｏ ＭＡ Ｉ Ｎ Ｎ
２１ ０ ２年
第２ １期
浅谈高校 Ｖ Ｂ程序设计实验教学方法的改进
彭 展 （ 东石油 化工 学 院教育 信息 技术 中心 广
广东
茂名
５５ ０ ） ２ ０ ０
【 要 】 Ｂ程序 设计语 言是现在 高校非计算机专业开设的热 门课程之 一 ， 摘 ｖ 实验所 占的比重较 大， 实验教 学部分存在着不少问题 。本文 但 首先对 Ｖ 实验教 学的现状进行分析 ， 出其 中出现的 问题 ． Ｂ 找 再提 出改进的方法和意见， 以期待提 高 Ｖ 实验教 学的质量和 学生的操作水平 ， Ｂ 为 培 养出优质 的人 才作贡献
ｐ ｏ ｏ ｔ ｎ ｏ ｈ ｘ ｅ ｉ ｎ ａ ｅ ｃ ｉ ｇ ｓ ｃ ｉｎ ｓ ｌｒ ｅ ｕ ｈ ｒ ｅ ｍａ ｙ ｐ ｏ ｌ ｍｓ ｉ ｔ Ｉ ｈ ｓ ａ ｔ ｌ ， ｒ ｔｙ ｔｉ ｈ ｎ ｙ ｉ ｆｔ ｕ ｒ ｎ ｔｔ ｒ ｐ ｒｉ ｆ ｅ ｅ ｐ ｒｍｅ ｔ ｌｔ ａ ｈ ｎ ｅ ｔｏ ｓ ｉ ａ ｇ ，ｂ ｔｔ ｅ ｅ ａ ｎ ｒ ｂ ｅ ｎ ｉ． ｎ ｔ ｉ ｒｉ ｅ ｆ ｌ ，ｉ ｓ ｔ ｅ ａ ａ ｓｓ ｏ ｏ ｔ ｒ ｃ ｉ ｓ ｌ ｈｅ ｃ ｒｅ ｔｓａ ｅ ｏ ｈ ｘ ｅ ｉ ｎ ａ ｅ ｃ ｉ ｇ ｎ ｎ ｉ ｇ ｏ ｔ ｔ ｅ ｐ ｏ ｌ ｍｓ ｈ ｎ ａ ｅ ｔ ｍｐ ｏ ｅ ｔ ｏ ｓ ａ ｄ ａ ｖｃ ｓ ｗｈ ｃ ｘ ｅ ｔｔ ａ ｔ ｃ ｎ ｉ ｒ ｖ ｈ ｆ ｔ ｅ ＶＢ ｅ ｐ ｒ ｍｅ ｔ ｌ ｔ ａ ｈ ｎ ，ａ ｄ ｆ ｄ ｎ ｕ ｈ ｒ ｂ ｅ ．Ｔ ｅ ｒ ｈｅ ｉ ｒ ｖ ｄ ｍｅｈ ｄ ｎ ｄ ｉ ｅ ｉｈ ｅ ｐ ｃ ｈ ｔ ｉ ａ ｍｐ ｏ ｅ ｔ ｅ ｉ ｑ ａ ｉ ｆｔ ｅ ＶＢ ｅ ｐ ｒｍｅ ｔ ｌｔ ａ ｈ ｎ ｎ ｔ ｄ ｎ ｓ ｐ ｒ ｔ ｎ ｌ ｖ ｌ ｈ ｓ ｍａ ｎ ｏ ｔ ｂ ｔ ｎ ｔ ｕ ｔｖ ｔ ｉ ｈ ｑ ａ ｉ ａ ｅ ｔ ． ｕ ｔ ｏ ｘ ｅ ｌ ｙ ｈ ｉ ｎ ａ ｅ ｃ ｉ ｇ ａ ｄ ｓｕ ｅ ｔ ’ｏ ｅ ａ ｉ ｅ ｅ ，ｔ ｕ ， ｋｉ ｇ ｃ ｎ ｒ ｕ ｉ ｏ ｃ ｌｉ ａｅ ｈ ｇ — ｕ ｔ ｔｌ ｎ ｓ ｏ ｉ ｏ ｌ ｙ
高校VB程序设计教学方法的改进
程序 应用 和 开 发 打 下 扎 实 的基 础
设计语 言的学 习能力 。因此 ， 计算机基础 、 数学 、 英语水平较 差 的学生 ， 在学习 Ｖ Ｂ程序设计课程时会有一定的难度 。 （） ２ 学生编程能力的评价 形式单一 。许多高校把 Ｖ Ｂ程 序设计 教学 与等级考试相挂钩 ，将 考试 成绩作为评价 学生 编程能力的标准 。这种应试教育使 得教师和学生 把教学重
效 地 调 动 学 生 的 积 极 性 、 高 学 生 编 程 能 力 、 学 生 以后 的 提 为
年 的教学实践 ， 现存 的主要 问题总结如下 ： 将 （） １开课前学生 的计算 机相关 能力差距大 。首先 ， 高校 生 源入 学前 的计算 机操 作水 平会 直 接影 响到 上机 编程 速
（） ３ 学生 的专业需求和个 人的学 习 目标不 同。高校各专 业对 Ｖ Ｂ编程功 能的需求不 同 ，有 的专业 可能只需要 使用 ＶＢ的结构化语句 ，有 的专业可能需要用 Ｖ Ｂ程序访 问数据 库。各专业的课 程设计 和毕业设计可能会涉及编程 ， 例如使
用 Ｖ Ｂ开发数据处理或绘图仿真的应 用程序 。 这些都导致 了 专业需求和学习 目标 的不 同 ，进而影响 了学 生学习态度和
摘
要
为 了提 高 高校 Ｖ Ｂ程 序 设 计 的教 学效 果 。 文章 通 过
计 的授课 过程中都出现许多影 响教 学的问题 。作者根 据多
分析 Ｖ Ｂ课 程 的教 学 现 状 ． 合 社 会 需 求 、 业 特 色 和 学 生 结 专 兴趣 。 出高 校 Ｖ 提 Ｂ程 序 设 计教 学 的 改 进 方 法 。 该 方 法 提 出 了 一 种 多 维 教 学 模 型 和 一 系列 教 学 改 进 措 施 ． 能 够 更 为有
计算机程序设计-VisualBasic【VB】考试试题(2)
A、 Enabeld B、 Hide C、 Visible D、 BackColor 正确答案： C 解析：
39、窗体对象的__________属性可用于设置窗体上的控制菜单。
A、 MinButton B、 MaxButton C、 ControlBox D、 DrowMode 正确答案： C 解析：
A、 6 B、 8 C、 123445 D、 123456 正确答案： C 解析：
31、从字符串中任意位置截取字符的函数是_________。
A、 Left() B、 Mid() C、 Str() D、 Right() 正确答案： B 解析：
32、表达式 InStr(2,"文本文件","文") 的值是________。
A、 1 B、 0 C、 False D、 True 正确答案： C 解析：
13、下面所列中，__________是合法的字符常数。
A、 ABC B、 'ABC' C、 "ABC" D、 ABC$ 正确答案： C 解析：
14、下面所列中，__________是不合法的单精度常数。
A、 100！ B、 100.0 C、 1E+2 D、 100.0D+2 正确答案： D 解析：
25、表达式 Format(val("111a"),"##.##") 的值是_______。
A、 111. B、 11.10 C、 111.00 D、 11.1a 正确答案： A 解析：
26、表达式 Fix(5.6)+Int(-5.6) 的值是________。
VBJM_CH1-2 vb第一章
2. VB功能和特点P/5
1. 具有基于对象的可视化设计工具; 2. 事件驱动的编程机制; 3.提供了易学易用的应用程序集成开发环境; 4.结构化的程序设计语言; 5.强大的网络、数据库、多媒体功能 6. 完备的help联机帮助功能。
要求安装了NSDN才有效
17
1.2 VB集成开发环境 VB系统的安装 VB系统的启动 VB集成开发环境的使用
2
教学安排
章 第1章 第2章 内 容 学时 1 2 实验与学时 实验1 1+1 实验2 2+2
Visual Basic程序设计概述 VB可视化编程基础
第3章
第4章 第5章
vb语言基础
VB控制结构 数组和自定义类型
3
6 5
实验3 2+2
实验4 2+2 实验5 2+2
第6章
第7章 第8章 第9章 合计 * 第10章
由21个被绘制成按钮形式的图标构成， 文本框(Text Box) 利用这些工具，用户可以在窗体上设计 命令按钮(Command Button) 各种控件。其中20个控件称为标准控 单选按钮(OptionButton) 列表框(List Box) 件(注意，指针不是控件，仅用于移动 垂直滚动条(VScrollBox ) 窗体和控件，以及调整它们的大小)。 驱动器列表框(DriveListBox) 也可通过工程/部件命令将第3方开发的 文件列表框(FileList Box) 其他控件装入到工具箱。
Private Sub Timer1_Timer() Static flag As Boolean If flag Then Label1.ForeColor = &HFF44FF flag = Not flag Call mymove End Sub Public Sub mymove() Label1.Move Label1.Left + 50 * step1 If Label1.Left > Form1.Width Then step1 = -1 ElseIf Label1.Left < 0 Then step1 = 1 End If 16 End Sub
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB程序设计－时间间隔改进
（作者：草原飞狼 2014年6月5日）
声明：仅供学习与交流使用，高手请飘过，谢谢！所有代码都是个人亲自编写并调试成功。
布局
运行界面（1）
运行界面（2）
运行界面（3）
源代码如下：
Rem 定义三个时间为变体类型：stime为开始时间，etime为结束时间，jtime为间隔时间Dim stime As Variant
Dim etime As Variant
Dim jtime As Variant
Dim s1, e1 As Variant
Private Sub Command1_Click()
Rem 启动按钮，计算时间差
If Label4.Caption = "" And Label5.Caption = "" Then
MsgBox "没有输入开始和结束时间！", vbInformation, "错误提示"
Command3.SetFocus
Else
jtime = etime - stime
Label6.Caption = Format(jtime, "hh:mm:ss")
End If
End Sub
Private Sub Command2_Click()
Rem 清空
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
Command3.SetFocus
End Sub
Private Sub Command3_Click()
Rem 输入正确的开始时间和结束时间，注意时间格式
Rem 输入开始时间并判断其格式是否正确
s1 = InputBox("请输入开始时间，注意时间格式！", "输入开始时间", "08:08:08")
Do While IsDate(s1) = False
MsgBox "输入时间格式不对，请重新输入！", vbInformation, "错误提示"
s1 = InputBox("请输入开始时间，注意时间格式！", "输入开始时间", "08:08:08")
Loop
Rem 输入结束时间并判断其格式是否正确
e1 = InputBox("请输入结束时间，注意时间格式！", "输入结束时间", "10:10:10")
Do While IsDate(e1) = False
MsgBox "输入时间格式不对，请重新输入！", vbInformation, "错误提示"
e1 = InputBox("请输入开始时间，注意时间格式！", "输入开始时间", "10:10:10")
Loop
stime = CDate(s1) '转换成时间格式
etime = CDate(e1) '转换成时间格式
Label4.Caption = Format(stime, "hh:mm:ss") 'format是格式函数，Format(stime, "hh:mm:ss")表示按时分秒格式输出
Label5.Caption = Format(etime, "hh:mm:ss")
Command1.SetFocus
End Sub
Private Sub Command4_Click()
Rem 退出
Dim int_msg As Integer
int_msg = MsgBox("单击“确定”退出，单击“取消”程序继续！", vbOKCancel + vbQuestion + vbDefaultButton2, "退出提示")
If int_msg = vbOK Then
Unload Me
End If
End Sub。