vb实验四答案

vb实验四答案（精选6篇）

vb实验四答案 第1篇

VB实验指导与练习题实验部分的参考答案： 实验 4 4-1： 2*pi*r Pi*r*r 4-3: chr(64+n)4-4: x mod 10

x 10 mod 10

x100 4-5:

mid(s,i,1)=Lcase(t)实验 5 5-1：

a+b+c+d Sum/4 5-2:(4*h-f)/2

(f-2*h)/2 5-4: sec360024

Sec mod(1& 24*3600)mod 3600 mod 60 5-5: 0.5*g*t*t+v0*t 实验 6 6-1: left(text1,text1.selstart)& text2 & right(text1, len(text1)– text1.selstart)6-2: timer1.enabled=true

Timer1.enabled=false 6-3: shape2.left=shape2.left +d *50 6-5:

a & check2.caption 6-6:

list1.listcount-1 6-7: 1000

List1.list(i)6-8:

text1 实验 7 7-1: n=n-3500

n-y

text1.setfocus 7-2: a=a & c 7-3: sum +j

Sum=1250 7-4: m=n

n=r

r= m mod n 7-5: if a mod i=0 then exit for 7-6: text1

S2 & mid(s1,k,1)S2=””

7-7:

nfactor

factor+1 7-8: n 7-9:

sum=0

s & i & “ +”

list1.clear 7-10: mid(text1, i, 1)实验8 8-1：a(i)=a(16-i)

a(16-i)=temp 8-2: a(i-2)+a(i+1)+1

Text2 & vbcrlf 8-3: picture1.print

i=1 to 5

sum=sum+a(I,j)

next i

sum+a(i,j)+a(i,6-i)

not(i>1 and i<5 or j>1 and j<5)8-4: text1 & str(a(i))

If a(i)< min then min=a(i)8-5:

(a(i)10)*(b(i)10)

“sum=”;sum

8-6: a(i,2)=a(i,4)

A(i,4)=t

8-8:

picture1.print a(i,j);

Sum=sum+a(k,k)8-9:

exit for

num=a(i)8-10:

i+1 to 10

a(i)>a(j)

vb实验四答案 第2篇

一、单项选择题(每题2分,共40分)1.窗体的标题栏显示内容由窗体对象的属性决定。

A)BackColor B)BackStyle C)Text D)Caption 2.窗体的示意图标可用属性来设置。

A)Picture B)Image C)Icon D)MouseIcon 3.窗体的控制菜单的有无由窗体对象的属性决定。

A)ControlBox B)MinButton C)MaxButton D)BorderStyle 4.若要取消窗体的最大化功能，则可设置属性为False来实现。

A)ControlBox B)MinButton C)MaxButton D)Enabled 5.以下4个选项，不属于VB的工作模式。

A)编译 B)设计 C)运行 D)中断 6.窗体的边框样式由窗体对象的属性来设置。

A)BackStyle B)BorderStyle C)WindowState D)FillStyle 7.若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。

A)FontName B)Font C)FontSize D)FontBold 8.命令按钮的标题文字由属性来设置。

A)Text B)Caption C)Name D)(名称)9.VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。A)变量 B)属性 C)事件 D)方法

10.若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。A)Value B)Cancel C)Default D)Enabled 11.若要使命令按钮不可见，可设置属性为False来实现。

A)Value B)Enabled C)Visible D)Cancel 12.运行程序时，系统自动执行窗体的事件。

A)load B)click C)unload D)GotFocus 13.若要设置文本框最大可接收的字符数，可通过属性来实现。

A)MultiLine B)Length C)Max D)MaxLength 14.若要使某命令按钮获得控制焦点，可使用方法来设置。

A)Refresh B)SetFocus C)GotFocus D)Value 15.若要使命令钮可响应事件，可通过设置属性的取值来实现。

A)Visible B)Enabled C)Default D)Value 16.在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的 属性为True来实现。

A)Enabled B)Value C)Default D)Cancel 17.标签框的边框，由属性的设置值决定。A)BorderStyle B)BackStyle C)BackColor D)AutoSize 18.标签框文本的对齐方式由属性来决定。

A)Align B)Alignment C)Autosize D)BackStyle 19.标签框所显示的内容，由属性值决定。

A)Text B)Name C)Caption D)Alignment 20.在运行时，若要获得用户在文本框中所选择的文本，可通过访问属性来实现。A)SelStart B)SelLength C)Text D)SelText

二、填空题(每题2分,共20分)1.Visual Basic是一种面向的可视化程序设计语言，采取了的编程机制。2.在VB集成开发环境中，运行应用程序的方法有两种是：或。

3．Visual Basic的对象主要分为和两大类。

4.在Visual Basic中，用来描述一个对象外部特征的量称之为对象的。

5.在Visual Basic中，设置或修改一个对象的属性的方法有两种，它们分别是 和。

6.在Visual Basic中，最基本的对象是。

7.在Visual Basic中，默认窗体名为，默认工程名为。8.若用户单击了窗体Form1，则启动的事件名为。9.调用方法的具体调用格式为。10．在代码中设置对象属性的格式为。

三、简答题(每题8分,共40分)1.简述VB的特点。

2.安装Visual Basic系统程序应具备什么条件？ 3.启动Visual Basic有几种方法？ 4．退出Visual Basic有几种方式？

5．什么是对象？什么是类？简述它们之间的关系。参考答案:

一、单项选择题

1.答：D 2.答：C 3.答：A 4.答：C 5.答：A 6.答：B 7.答：C 8.答：B 9.答：A 10.答：C 11.答：C 12.答：A 13.答：D 14.答：B 15.答：B 16.答：B 17.答：A 18.答：B 19.答：C 20.答：D

二、填空题

1.答：对象，事件驱动

2.答：编译运行模式、解释运行模式

3.答：窗体、控件 4.答：属性

5.答：在设计阶段利用属性列表框进行设置、在程序中通过程序代码进行设置 6.答：窗体

7.答：Form1、工程1 8.答：Click 9.答：对象名.方法名［参数名表］ 10．答：对象名.属性名＝属性值

三、简答题

1.答：Visual Basic是Microsoft 公司与1991年推出的基于Windows环境的语言，其主要特点如下：

(1)方便、直观的可视化的程序设计工具；

(2)面向对象的程序设计方法；

(3)事件驱动的编程机制；

(4)结构化程序设计语言；

(5)强大的数据库访问能力；

(6)提供强大的网络功能，并具备完备的联机帮助功能；

(7)强大的数据库管理和存取操作的能力。2.答：任何一个软件都要占用计算机系统一定的资源，因此对计算机系统都有一定的要求，Visual Basic系统程序对计算机系统的要求如下：

硬件要求：586以上CPU，16MB以上内存，100MB以上硬盘等。软件要求：Windows 95/98/2000/XP或Windows NT。3.答：通常有以下三种启动方式：

(1)通过“开始”按钮：单击桌面上的“开始”/“程序”菜单，然后打开“Microsoft Visual Studio 6.0中文版”子菜单中的“Microsoft Visual Basic 6.0中文版”程序，即可启动VB 6.0。

(2)利用快捷方式：若桌面上有VB 6.0的快捷图标，双击快捷图标也可启动VB 6.0。(3)利用运行命令：当VB系统软件安装在C盘默认路径下时，可以在“开始”菜单的运行对话框中输入如下命令来启动VB 6.0。

C:Program FilesMicrosoft Visual StudioVB 98VB6.exe。4．答：通常有四种方式：

(1)利用文件菜单：单击菜单“文件”/“退出”，即可退出VB环境。(2)利用快捷方式：利用快捷键Alt+F4，即可退出VB环境。(3)利用标题栏：鼠标右击标题栏，选择“关闭”，即可退出VB环境。

(4)利用关闭按钮：鼠标单击窗口右上方“关闭”按钮，即可退出VB环境。

5．答：对象(Object)是包含现实世界物体特征的抽象实体，反映了系统为之保存信息和与之交互的能力。每个对象有各自的内部属性和操作方法，整个程序是由一系列相互作用的对象构成的，对象之间的交互通过发送消息来实现。

类(class)是指具有相同的属性和操作方法，并遵守相同规则的对象的集合。从外部看，类的行为可以用新定义的操作(方法)加以规定。

vb实验四答案 第3篇

关键词：医药专业,VB程序设计,实验教学

程序设计课是国内大多数高等院校非计算机专业的公共必修课, 其目的是培养学生计算机应用能力和综合素质[1,2], 在课程体系中占有十分重要的位置。医院及医药行业信息化建设的进一步推进, 对医药从业人员计算机应用能力及素养要求越来越高。

我校是一所以医药类为主的高等院校, 根据医药类人才培养的目标, 针对非计算机专业的医药类学生开设了VB程序设计课程 (以下简称VB) 。VB是一门理论与实践并重的课程, 其实验教学效果直接决定课程教学的质量, 积极探索适合医药类学生的实验教学思路及方法意义重大。

1 VB实验教学存在的主要问题

我校在近几年的计算机公共基础实验教学中取得了很大的进步, 但也存在不少问题, 积极探索解决这些问题的思路及方法, 对于计算机公共课的教学相当重要。

1.1 学习的动机不强, 积极性不高

我校VB程序设计的授课对象主要是医药专业的学生, 而医药类专业的学生对VB的学习普遍兴趣不高[3], 多数学生认为学习程序设计没有用, 只是为了拿学分, 应付考试而不得不学, 学习的内在动机严重缺乏。实验课变成了聊天课、上网课, 学习自由散漫。在编程过程中, 一遇到问题就会气馁, 不主动思考, 造成学习效果不佳。

1.2 医药类学生缺乏程序设计课程必要的知识结 构及学习倾向

医药类学生在数学、信息技术、物理电子等方面的基础相对薄弱, 而程序设计语言是由数学和电子技术逐渐发展并分离出来的, 其思维习惯、学习策略与医药类专业课程有较大差异。因此, 学生在学习过程中普遍有畏难情绪, 学习积极性不高、缺乏兴趣。

1.3 实验教学内容陈旧, 教学模式单一

目前, 医药类学生使用的VB教材千篇一律, 具有通用性, 缺乏针对性, 教材中的内容与医学实际没有关联, 让学生感觉与自己专业关系不大[4]。而实验教学内容的设置同样缺乏针对性, 未能根据医药类学生的特点设计专门的实验, 没能做到因材施教, 90%的实验内容是有关计算的, 实验内容缺乏趣味性、多样性、丰富性, 与医药专业的耦合度也非常低, 学生普遍认为程序设计语言枯燥、乏味、无用。而在实验课上采用的教学方法也是程序设计专业教学的策略和方法, 比较单一、缺乏吸引力。这对于入门课程的教学相当不利。

1.4 对VB实验教学缺乏足够的重视

VB作为一门公共基础必修课, 可以培养学生严密的逻辑思维能力、创新能力以及塑造学生求真、务实、坚韧不拔的优秀品质。而这些能力的培养和品质的形成离不开实验教学这一重要环节。在理论课中讲 解的原理、概念、案例等, 只有通过上机实践才能真正被学生掌握[5], 但在组织教学时并未给予足够的重视。 (1) 在任课教师的选择上不够严格规范, 认为课程比较基础, 而且授课对象是非计算机专业学生, 教学要求并不高, 教师只要有一定的计算机基础或者专业相近就可以。 (2) 多数实验指导教师不备课, 只是解答学生编程中遇到的问题, 重知识传授轻能力培养, 因此, 对于实验内容、实验要求、实验步骤以及要达到的实验目的, 都缺乏精心组织。 (3) 在实验过程中, 有些教师不重视实验课, 对学生缺乏应有的组织和引导, 因此, 学生自由散漫, 实验效果极差。

1.5 对实验教学缺乏有效的考核

目前对VB实验教学的考核不够重视, 也缺乏行之有效的考核方式与方法, 直接影响了实验教学质量。例如:实验考核的主要内容是平时考勤、实验报告。平时考勤只能反映学生是否按时出勤, 并不能直接、准确反映学生对实验掌握的情况;对于实验报告, 相互抄袭现象严重, 有的甚至不做实验直接写实验报告。这种流于形式、不够客观、缺乏全面的考核方式无法真正检验学生学习情况, 也无法真正发挥“以考促学、以考促教”的考核功能;影响了实验指导教师及学生对实验课的积极态度, 极大地挫伤了学生的学习积极性和主动性。

2 提出“两优先、一目标”的教学思路

目前, 在医药行业, 缺的不是计算机人才, 也不是医药专门人才, 而是既有医药背景又对计算机感兴趣的复合型人才。在教学中, 鼓励有兴趣的学生进一步深造时, 可以选择医药信息专业, 因此, 在医药队伍中培养和发现信息人才也是该课程教学的重要任务之一。

根据以上人才培养目标及VB实验教学存在的问题, 我们提出“两优先、一目标”的实验教学原则及目标, 即基础知识教学优先于技巧教学, 学习兴趣培养优先于知识技能培养, 思维能力和素质培养为实验教学的根本目标。培养和发现医药信息人才, 将有兴趣和有潜力的医药人才吸引到急需的医药信息人才队伍中。实验教师在此原则及教学目标的指导下, 设计实验项目, 组织开展实验教学活动, 并将学生基础知识的掌握情况、计算机思维能力的变化、学习兴趣的强弱变化纳入实验效果考核的范畴。

3 在实验教学中的六个“注重”

3.1 注重学习兴趣的培养, 为持续学习注入永久 动力

在学习中, 兴趣是最好的老师, 对医药类专业学生进行VB实验教学中, 兴趣的培养显得尤为重要。激发并维持学生兴趣是提高教学质量的根本办法[6], 在实验教学中, 开始时学生学习该课程的积极性比较高, 但如果不注意培养, 这种原始的积极性很快就会消失, 可以从四个方面着手培养学生的学习兴趣。

(1) 根据医药类专业背景设计有趣的实验题目, 让“趣味感”激发学习兴趣。

在设计实验项目时, 可以考虑学生的专业背景甚至兴趣爱好, 对同一知识点尽量选择多种背景设计多个实验项目, 这样可以供具有不同兴趣的学生选择, 也可以避免学生相互抄袭实验报告情况的发生。学中有乐, 兴趣自然高涨。

(2) 实验题目的设计尽量做到规划性、系统性、连贯性、渐进性, 让“成就感”促进学习。

在该课程之前的实验项目设计上比较随机, 实验教师往往根据章节的教学要求设计实验项目, 很少考虑前后实验内容的衔接, 缺乏规划性、系统性、连贯性及渐进性。这样不利于实验成果的积累, 实现的只是零散的某个功能。学生很难将这些零散的知识和功能整合起来, 很难有成就感, 实验效果也大打折扣。针对这种情况, 实验教师可以根据学生情况和课程的整体教学目标设计综合实验项目。综合实验项目是每章节实验项目的有机组合, 可以更全面地检查每个学生的实验情况, 而且每次进行新的实验时学生可以看到自己前面的实验成果, 还可以看到自己的“作品”不断丰富和完善, 这样循序渐进、不断积累实验成果, 很容易产生成就感, 从而可以激发学生浓厚的学习兴趣。

(3) 成立“学习成长”小组, 培养团队合作精神, 让“归属感”帮助培养学习兴趣。

归属感是指个人自己感觉被别人或被团体认可与接纳时的一种感受, 马斯洛认为“归属和爱的需要”是人的重要心理需要。缺乏归属感的个人会对自己从事的工作或学习缺乏激情和责任感。在VB实验教学过程中, 可以培养学生对VB实验团队的归属感, 成立VB实验学习成长小组, 使小组成员之间互相影响、互相促进、互相提高, 进而产生积极效应, 为实验课增强凝聚力, 原本对VB实验不感兴趣的成员由于强烈的归属感, 也会在实验中变得积极认真, 学习兴趣也会在实践中得到培养。

(4) 每次实验提供多个实验题目供学生选择, 让“自由感”促进兴趣培养。

由于学生的兴趣点各不相同, 每个学生想解决的问题也各不相同。如果每次实验所有的学生都做同样的实验题目, 对实验题目不能自由选择, 有些学生对问题本身毫无兴趣甚至排斥, 认为问题本身毫无意义, 对VB实验也很难有浓厚的兴趣。因此, 每次实验应提供多个实验题目, 让学生自由选择, 每个学生要解决的都是自己感兴趣的问题, 自然会动力十足, 这也符合学生喜欢自由自律的个性特征。

3.2 注重基础知识的教与学, 为树立信心打下坚 实的基础

基础知识的教与学相当重要, 如果不能扎实掌握, 在实验过程中处处都会遇到拦路虎和绊脚石, 这样不仅会影响VB的学习效果和进度, 更糟糕的是会极大地挫伤师生的积极性和自信心。因此, 在实际教学中, 要特别注重基础知识、基本概念的理解、掌握与训练。针对重要的基础知识, 设计专门的实验项目进行训练, 确保学生切实掌握。针对有余力的学生, 可以设计部分技巧型较强的实验项目供其选择。让学生扎实掌握基础知识, 深刻理解基本概念, 才能很好地解决新问题, 做到举一反三。

3.3 注重实验过程的管理, 以培养医药类学生 “知其然知其所以然”的探索精神

目前VB实验多数是验证型实验, 实验课基本上是学生按照教师理论课上的讲解或演示程序, 根据实验指导书写代码、调试, 课后写实验报告。学生往往敷衍了事, 抄袭现象比较严重, 注重结果的输出及实验报告的撰写, 不重视问题解决的过程及思路。另外, 实验指导教师以辅导答疑的形式进行指导, 学生依赖心理严重, 缺乏独立思考的意识和能力, 而且由于学生人数较多, 教师很难解答所有学生的问题, 影响了实验教学质量的整体提高。

因此, 要改进实验项目, 适当减少验证型实验, 增加综合设计型实验。实验指导教师尽量自己设计实验项目, 这样可以避免学生从网络上复制代码。在实验过程中, 要注重过程的管理, 着重考查学生解决问题的思路, 在解答学生疑问时注重启发、引导思考, 辅助学生自己解决问题, 并将实验过程的考查纳入考核成绩中。由于学生人数较多, 每次实验对所有学生考查不现实, 所以, 每次实验随机抽查1/3左右的学生, 考查其实验情况。这样有效地解决了实验课懒散、应付、抄袭的情况, 促进学生主动思考, 知其然知其所以然, 使学生思维能力得到提高, 思维习惯得以养成, 这对医药类学生相当重要。

3.4 注重鼓励学生提出问题, 以培养医药类学生 勇于解决新问题的创新精神

我们在实验过程中发现, 有不少学生一直不提任何问题。其实, 没有问题才是真正的问题, 它会影响实验教学的效果。一方面, 教师不能很好地了解学生掌握情况以及教学指导情况;另一方面, 学生不能得到应有的帮助, 影响了学习效果。不提问题有多种情况:学生有问题, 不善于提出来;学生学习积极性不高, 没有主动思考, 提不出问题;担心提的问题简单幼稚。

在实验指导过程中, 教师应该主动鼓励学生提出问题, 即使问题非常简单, 也不要取笑学生, 解答时要有耐心, 切忌表现得不耐烦;对于能提出较好问题的学生及时予以表扬甚至给平时成绩加分;在实验过程中, 主动观察学生实验情况, 主动与学生交流, 不要仅仅被动等待学生举手提问。这样有助于形成良好的互动氛围以及积极主动的学习热情, 激发学生深入地探讨问题, 从而培养医药类学生敢于挑战难题的创新思维及精神。

3.5 注重养成良好的编程习惯, 以培养缜密的思 维素养和严谨的工作作风

心理学家威廉·詹姆士曾说, 播下一个行动, 将收获一种习惯, 播下一种习惯, 将收获一种性格, 播下一种性格, 将收获一种命运。在VB实验教学中, 我们应让学生意识到规范编程的重要性, 不能因为暂时不出现问题或者看不到问题, 就认为一直不会出现问题。例如:在刚开始的几次实验中, 如果学生没有养成变量使用前先定义变量的习惯, 在以后的实验中, 往往出现问题而且不容易纠正;对于变量的命名, 过于随意。这些不好的习惯一旦养成, 将为深层次的问题埋下隐患。因此, 实验指导教师应不失时机地利用VB程序设计特点, 引导学生规范编程, 强调其重要性, 使其在实验过程中养成缜密的思维素养和严谨的作风, 这对医药类学生将来的学习、工作都会大有裨益。

3.6 注重加强对实验指导教师的培训与考核, 以 增强其责任感, 传递“爱岗敬业”的职业精神和素养

针对非计算机专业VB实验教学不够重视所带来的一系列问题, 我们加强对实验指导教师的岗前培训、岗中督查和岗后考核。所有实验指导教师在第一次上VB实验课前都要经过系统培训, 培训内容除要求教师规范上课外, 更重要的是增强实验指导教师的责任感, 加深对实验课重要性的认识以及对教学重点的深刻把握。实验指导教师在实验过程中, 要始终把握教书的同时重在育人这一核心要旨。VB实验课对于医药类学生而言, 除了学会必要的计算机基本操作和简单的编程知识外, 还要在实验指导教师爱岗敬业, 干一行爱一行的示范作用下, 认真对待自己所做的事情, 从而培养求真务实、踏实肯干的职业素养。

4 结束语

“教学有法, 教无定法, 贵在得法。”只有在教学过程中, 不断探索与实践才能找到适合有效的教学方法和思路。但不管采用何种教学方法和学习策略, 教师的责任心、爱心和对教学持久而稳定的热情是必不可少的, 学生的学习兴趣、学习品质、学习能力以及良好而稳定的人格培养和形成应该成为教学的核心。在这一核心观念的指导下, 我们积极探讨医药类学生VB实验教学, 以期进一步探讨非计算机专业VB实验教学方法及思路, 充分发挥VB实验教学在人才培养中的作用。

参考文献

[1]辛萍, 张建威.医学生学习《VB程序设计》存在的问题及其对策[J].实验室科学, 2008 (3) :50-51.

[2]杨飞, 倪飞舟.医学院校《VB程序设计》课程教学方法研究[J].电脑知识与技术, 2009, 5 (13) :3450-3451.

[3]王峰, 苏亚菲.“VB程序设计”课程教学实践与探索[J].电脑知识与技术, 2013, 9 (1) :113-115.

[4]汤兰芳.《VB程序设计》学习兴趣培养探索[J].电脑知识与技术, 2009, 5 (19) :5331-5332.

[5]王峰, 苏亚菲.“VB程序设计”课程教学实践与探索[J].电脑知识与技术, 2013, 9 (1) :113-115.

利用VB制作中学物理实验课件 第4篇

关键词：VB；物理实验；摩擦力

中图分类号：G434 文献标志码：B 文章编号：1673-8454（2014）16-0052-02

一、课件的功能需求和设计分析

1.课件的功能需求分析

以中学物理的摩擦力实验为例，从实际的教学需要出发，以简单实用为课件的设计思想，利用VB语言开发一个物理实验课件。该课件的基本内容和实现流程如下：

桌面上放着一个重物，重物通过绳子和定滑轮与砝码连在一起。由于桌面与物体的静摩擦力作用，整套装置处于静止状态。如果减小桌面与重物的静摩擦力系数，或者减轻重物的质量，加重砝码的质量，那么砝码的重力将大于桌面与物体的静摩擦力，砝码向下运动，重物向右运动。由于砝码的重力作用，重物和砝码作匀加速度运动。[1]

用户在使用时，输入各个影响实验效果的数值。课件根据这些数值判断该重物受摩擦力的情况，并将效果显示出来。课件内部大致可以分为两个模块，一是公式计算模块，该模块的作用是将用户输入的值代入物理公式，并通过数学计算判断重物与砝码是否运动；二是图形绘制模块，该模块的作用是在画布上绘制重物、砝码等各种实验设备，组成物理实验环境。[2] 课件的流程图如图1所示：

2.课件的界面设计

为了达到简单实用的标准和使学生注意力集中的要求，课件的设计不需要复杂的操作和花哨的界面。图2为课件的用户界面：

二、课件实现的技术要点和关键代码

课件的完整程序由工程文件“摩擦.vbp”、窗体文件“摩擦.frm”、模块文件“摩擦.bas”组成，窗体文件用于实现和用户的交互，而模块文件则用于图形的绘制。

1.VB中的开始按钮

在界面上设置开始按钮，单击“开始”按钮后，如果重物与桌面的摩擦力小于砝码的重力，则timer1.enabled= true，激活定时器；如果重物与桌面的摩擦力大于砝码的重力，程序没有动作，该按钮的代码如下：

2.VB工具箱中的定时器控件

定时器的两个重要属性是”Enabled”和”Interval”。当“Enabled”的属性为“True”时，定时器开始工作；属性为“False”时，定时器停止工作。“Interval”属性决定了定时器对象中程序的时间间隔。[3]

在该课件中，所有的动作都在名称为Timer1的定时器中完成。当Timer1.Enabled=true时，计算重物与砝码的当时速度v=v+a以及它们的位置，该部分的实现代码如下：

三、结束语

本文提出了基于Visual Basic开发的中学物理实验课件，实现了物理实验的数据化和智能化。实际的课件应用结果证明：在VB平台下开发的中学物理实验课件，具有界面简洁友好、课件体积小、可移植性强的优点。有效克服了物理实验中抽象、难以操作的不足，输入数据方便，显示结果准确，可以满足教师的课堂教学需要。

参考文献：

[1]人民教育出版社中学物理室.全日制普通高级中学教科书（必修）—物理[M].北京：人民教育出版社，2003.

[2]周灵.基于VB的多媒体物理教学软件开发研究[D].长沙.湖南师范大学，2001.

[3]杨忠宝，康顺哲.VB语言程序设计教程[M].北京：人民邮电出版社，2010.

[4]林世鑫.基于VB的函数图象描绘软件的设计与实现[J].中国教育信息化，2013（8）：72-73.

[5]谢步瀛，龚沛曾.Visual Basic计算机绘图实用技术[M].北京：电子工业出版社，2004.

VB上机试题及答案 第5篇

1．某数组有20个元素，其值为随机产生的两位整数。现要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个数与第19个元素互换，…，第10个元素与第11个元素互换。在窗体上输出数组原来各元素的值与对换后各元素的值。

Option explicit Dim a(1 to 20)as integer, I as integer, j as integer, t as integer Private Sub Form_Load()Show Print “原始数组是：” Randomize For i = 1 To 20

a(i)= Int(Rnd * 90)+ 10

Print a(i);If i Mod 10 = 0 Then Print Next i Print Print “现在数组是：” For i = 1 To 10

j = 211

a(k)= a(k + 1)

Next k

ReDim Preserve a(UBound(a)1 End If i = i + 1 Loop While(i <= UBound(a))If flag = False Then MsgBox n & “不在该数组中” Else Print “删除” & n & “后的数组是:” For i = 0 To UBound(a)Print a(i);Next i End If End Sub 3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。

注意：要求利用动态数组，能够实现多次插入 Private Sub Form_Load()Show n = 8: ReDim a(n)a = Array(5, 15, 23, 52, 68, 88, 90, 99)n = n + 1: ReDim Preserve a(n)m = InputBox(“请输入要插入的数据:”)For i = 1 To n1)Next k a(k)= m For i = 1 To n

Print a(i);Next i Print End Sub 4．6个评委为4位歌手打分，分数介于1-100之间。去掉一个最高分，一个最低分，求出每位选手的最后得分。将4位歌手得分从高到低排列输出，同时输出该选手的编号。

如：

歌手3 95分 歌手 1 87分 歌手 4 80分 歌手 2 70分

/ 19

Option Base 1

Private Type geshou

xuhao As String

fenshu(6)As Integer

score As Integer

pingjun As Integer End Type Dim singer(1 To 4)As geshou Private Sub Command1_Click()For i = 1 To 4 For j = 1 To 6

singer(i).fenshu(j)= Int(Rnd * 100)

singer(i).xuhao = “歌手” & i Next Next Call paixu End Sub

Private Sub paixu()Dim p As geshou For i = 1 To 4

For j = 1 To 5

For k = j To 6

If singer(i).fenshu(j)> singer(i).fenshu(k)Then

t = singer(i).fenshu(j)

singer(i).fenshu(j)= singer(i).fenshu(k)

singer(i).fenshu(k)= t

End If

Next

Next Next For i = 1 To 4 For j = 2 To 5

singer(i).score = singer(i).score + singer(i).fenshu(j)Next singer(i).pingjun = singer(i).score / 4 Next

For i = 1 To 3 For j = i To 4

If singer(i).score < singer(j).score Then

p = singer(i): singer(i)= singer(j): singer(j)= p

End If Next

/ 19

Next For i = 1 To 4 Print singer(i).xuhao & “得分：” & singer(i).pingjun Next End Sub Private Sub Form_Load()End Sub 10个评委给10个选手打分 Private Sub Form_Load()Show n = UBound(b)For i = 1 To 10

For j = 1 To 10

a(i, j)= Val(InputBox(“请第” & j & “位评委给第” & i & “位选手打分：”))Next j Next i For i = 1 To 10

max = a(i, 1): sum = 0

min = a(i, 1): ave = 0

For j = 1 To 10

If a(i, j)> max Then max = a(i, j)

If a(i, j)< min Then min = a(i, j)

sum = sum + a(i, j)

Next j

ave =(summin)/(n1

For j = i + 1 To n

If b(i)< b(j)Then

t = b(i): b(i)= b(j): b(j)= t

End If

Next j Next i Print “选手的得分由高到低为：” For i = 1 To 10

Print b(i);Next i End Sub 5．编写函数求一元二次方程ax2+bx+c=0的解。

注意：要求考虑方程有两相等实根、两不等实根和两个虚根的情况。Dim a As Single, b As Single, c As Single Dim s As Single a = InputBox(“请输入a”)

/ 19

b = InputBox(“请输入b”)c = InputBox(“请输入c”)s = b ^ 2Sqr(s))/ 2 * a End If End Sub 6.任意输入一组字符，统计出大写字母多少个，小写字母多少个，数字多少个？要求用过程实现。

Call tongji(a, n, m, o)Print “数字：” & n & Chr(13)& “小写：” & m & Chr(13)& “大写：” & o End Sub Private Sub tongji(a As String, n As Integer, m As Integer, p As Integer)For i = 1 To Len(a)If Asc(Mid(a, i, 1))> 47 And Asc(Mid(a, i, 1))< 58 Then

n = n + 1 ElseIf Asc(Mid(a, i, 1))> 96 And Asc(Mid(a, i, 1))< 123 Then

m = m + 1 ElseIf Asc(Mid(a, i, 1))> 64 And Asc(Mid(a, i, 1))< 91 Then

p = p + 1 End If Next End Sub 7．随机产生一个5*5的矩阵，将主对角线和次对角线元素都置为1，并求出矩阵的四周元素之和，显示在列表框中。

Option Base 1 Private Sub Form_Load()Dim a(5, 5)As Integer Dim s As Integer For i = 1 To 5 For j = 1 To 5

If i = j Or i = 6Asc(Mid(s1, i, 1))+ 64)ElseIf Asc(Mid(s1, i, 1))< 123 And Asc(Mid(s1, i, 1))> 96 Then convert = convert & Chr(1235: g = e

For j = 1 To n

If j > i Then

a(i, j)= 0

Else

If i = j Then

a(i, j)= 1

Else

a(i, j)= a(i1, ji + 1);String(2 *(i1)/ 2 To 1 Step(-1)

c = c + 1

s = Chr(64 + ii + c + 1);String(2 *(j1)/ 2 Else

x = x / 2 End If i = i + 1 Loop

ReDim Preserve a(UBound(a))If y < 0 Then For i = 1 To UBound(a)convert = convert & a(i)Next convert = “-” & convert Else For i = 1 To UBound(a)

/ 19

convert = convert & a(i)Next End If

End Function Private Sub Command1_Click()Dim y As Integer Text1.Text = “" y = InputBox(”请输入十进制数字“)Text1.Text = convert(y)

End Sub

Private Sub Form_Load()

End Sub 14．输入一个整数N，产生N个随机数（范围1—10*N），然后采用任何2种算法实现由小到大的排序。将排序前后的数据显示出来。

Option Base 1 Private Sub Command1_Click()Dim a()As Integer, n As Integer n = InputBox(”请输入数列项数“)ReDim a(n)For i = 1 To n

a(i)= Int(Rnd * 10 * n + 1)

Print a(i);Next Print ReDim Preserve a(n)For i = 1 To n1 For j = 1 To n2)+ fact(n2 s = s1 + s2: t = s2: s2 = s: s1 = t Next End Function

Private Sub Command2_Click()n = InputBox(”请输入n“)Print s(n)End Sub 17.编写2个函数，分别采用递归法和递推法求斐波纳契数列的第n个月的兔子数，n使用inputbox输入，调用函数的结果在窗体上显示。Private Sub Command1_Click()List1.Clear Dim i As Integer For i = Val(Text1.Text)To Val(Text2.Text)If isprime(i)= True Then

List1.AddItem(i)

c = c + 1

If i Mod 10 = 9 Then

/ 19

List1.Selected(c1 If n Mod i = 0 Then

isprime = False

Exit For End If Next End Function 18 Dim sum As Long Private Sub Command1_Click()

Dim i As Integer, j As Integer, a(40)As Long

a(1)= 1

a(2)= 1

For i = 3 To 40

a(i)= a(i2)

Next i

sum = 0

For j = 1 To 40

sum = sum + a(j)

Next j End Sub

Private Sub Command2_Click()

Open ”out18.txt“ For Output As #1

Print #1, ”数列1，1，2，3，5，8…的前四十项的之和是：“

Print #1, sum

Close #1 End Sub 1.百钱买百鸡

Option Explicit

Private Sub Command1_Click()Dim a As Integer, b As Integer For a = 1 To 34

For b = 1 To 20

If 3 * a + 5 * b +(100b)/ 3 = 100 Then

/ 19

Print a;

Print b;

Print 100b

End If

Next b Next a End Sub 2.分钱作业

Private Sub Command1_Click()Dim a As Single,b as single,c as single a = Text1.Text b = Fix(a / 100)Print ”100元：“;Print b c = ab * 50

b = Fix(c / 20)Print ”20元：“;Print b c = c0.05 * b b = Fix((c + 0.005)/ 0.02)Print ”0.02元：“;Print b c = c1

If a(i)= a(j)Then

GoTo aaa

End If

Next j

Next i For i = 1 To 10

Print a(i);Next i Print End Sub

Private Sub Command2_Click()Dim i As Integer, j As Integer, t As Integer For i = 1 To 9

For j = 1 + i To 10

If a(i)> a(j)Then

t = a(j)

a(j)= a(i)

a(i)= t

End If

Next j Next i For i = 1 To 10

Print a(i);Next i Print

End Sub

Private Sub Command3_Click()Dim i As Integer, j As Integer, t As Integer For i = 1 To 9

For j = 1 To 10c)> 10 ^(-5)i =(a + b)/ 2

If i ^ 2c = 0 Then

Exit Do

Else

a = i

End If Loop MsgBox(i)End Sub 7.闰年

Option Explicit

Private Sub 计算_Click()Dim i As Integer i = InputBox(”请输入一个年份“)If i Mod 4 = 0 And i Mod 400 = 0 Then

If i Mod 100 <> 0 Then

MsgBox ”NOT“

Else

MsgBox ”YES“

End If Else

MsgBox ”NOT“ End If

End Sub 8.三角

Option Explicit Private Sub Command1_Click()

/ 19

Dim a As Single Dim b As Single Dim c As Single Dim p As Single Dim s As Single

a = Text1.Text b = Text2.Text c = Text3.Text

p =(a + b + c)/ 2

s = Sqr((pb)* p +(p1

If n Mod i = 0 Then

MsgBox ”NOT“

Exit For

End If Next i If i = n Then

MsgBox ”YES“ End If End Sub

Private Sub Command2_Click()

Dim a As Boolean, n As Double, i As Double a = False n = InputBox(”请输入一个数：“)For i = 2 To n-1

If n Mod i = 0 Then

a = True

Exit For

End If Next i If a = True Then

/ 19

MsgBox ”NOT“ Else

MsgBox ”YES“ End If End Sub

Private Sub Command3_Click()Dim n As Double, i As Double n = InputBox(”请输入一个数：“)i = 2 Do While i < n

If n Mod i = 0 Then

MsgBox ”NOT“

Exit Do

End If i = i + 1 Loop If i = n Then

MsgBox ”YES“ End If End Sub

Private Sub Command4_Click()Dim n As Double, i As Double, sushu As Boolean n = InputBox(”请输入一个数：“)i = 2 sushu = True Do While i < n And sushu = True

If n Mod i = 0 Then

sushu = False

End If i = i + 1 Loop If sushu = True Then

MsgBox ”YES“ Else

MsgBox ”NOT" End If End Sub

Vb设计实验报告 第6篇

一、设计内容和目的

这次实验设计，我做的是学生信息管理系统，主要功能是提供学生信息保存和查询功能。

主要分为个窗口，其具体功能如下：

1、登录窗口：提供学生和管理员登录。

2、信息管理窗口：主操作窗口，可以进行重登陆、注销、退出、用户查询、管理员管理、系统信息的操作。包括一个下拉菜单和工具栏。

3、用户查询窗口：可以查询数据库中保存的学生信息。

4、管理员管理窗口：只有管理员可以进入，显示数据库中所有的学生信息，并且可以添加修改。

5、系统信息窗口：是系统的信息内容。

另外，根据网上的代码，我又制作了俄罗斯方块小游戏和画图工具。

二、设计过程：

1、实验构思：在系统设计之前，对实验内容和结构的构思占据了相当一部分时间。最终决定做一个“学生信息管理系统”，这样比较贴近自身情况，也有比较多的内容可以设计。

2、技术实现：在制作过程中主要使用了vb2005和数据库技术实现系统的设计、实现和运行。Photoshop等技术使程序的界面看起来更加友好。

3、运行调试：在系统制作中的运行调试过程中，出现了很多问题，比如各窗口之间的调用和访问，如何退出，控件的背景设置、字体颜色设置等，都需要经过一遍遍的调试发现、解决。

4、系统打包：在打包的时候，我按照老师给的方法一步步设置，可是由于粗心等原因，总是达不到满意的效果，直到第三次才真正成功。

三、系统结构：

如一所述，系统分为5个模块，各个模块之间可以自由访问。

四、实验结果： 该系统能够提供学生和管理员两种类型的登录，可以实现学生信息的查询、管理员对信息的修改，等。

五、设计心得：

在设计过程中，遇到了许多困难，比如：数据库无法连接、窗口无法正常访问、控件背景与窗体背景不协调等。后来通过查看课本和访问网络将这些问题解决了。