Visual Basic入门教程

Visual Basic入门教程（通用5篇）

篇1：Visual Basic入门教程

Visual Basic 程序设计教程 部分习题参考

第四版刘炳文编著清华大学出版社 第五章

5.4、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过inputbox函数输入数据，在窗体上显示和及平均值。Dim a as single For i=1 to 4

a=inputbox（“请输入一个数：”，“数据输入”）

sum=sum+a

n=n+1

avg=sum/n next i print “和是：”,sum print “平均值是：”，avg 5.5、编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。Dim a as variant Fontsize=20 a=inputbox（“请输入姓名：”，“数据输入”）print “姓名：”；a a=inputbox（“请输入年龄：”，“数据输入”）print “年龄：”；a a=inputbox（“请输入通信地址：”，“数据输入”）print “通信地址：”；a a=inputbox（“请输入邮政编码：”，“数据输入”）print “邮政编码：”；a a=inputbox（“请输入电话：”，“数据输入”）print “电话：”；a 5.7．设a=5，b=2.5，c=7.8，编程序计算：

y=（πab）/（a+bc）程序：

Dim a as single，b as single，c as single a=5 b=2.5 c=7.8 pi=3.14 y=（pi*a*b）/（a+b*c）print “结果是：”;y 5.8、输入以秒为单位表示的时间，编写程序，将其转换为几日几时几秒。Dim a as long，d as integer，h as integer，s as integer a=inputbox（“请输入秒数：”，“数据输入”）d=int（a/86400）h=int（（a-d*86400）/3600）s=a-d*86400-h*3600 print d；“日”；h；“时”；s；“秒”

5.9、自由落体位移公式为：s=gt2/2+v0t 其中v0为初始速度，g为重力加速度，t为经历的时间，编写程序，求位移量s。设v0=4.8m/s，t=0.5s，g=9.81m/s2，在程序中把g定义为符号常量，用inputbox函数输入v0和t两个变量的值。

Dim v as single，t as single，s as single g=9.81 v= inputbox（“请输入初始速度：”，“数据输入”）v=val（v）t=inputbox（“请输入经历的时间：”，“数据输入”）t=val（t）s=g*t*t/2+v*t print “位移量是：”;s 第七章

7.1．编程计算并输出S的值:s=2+4+6+8+„+100 dim i,s as integer s=0 for i=2 to 100 step 2 s=s+i next print s 7.2、我国现有人口为13亿，设年增长率为1%，编写程序，计算多少年后增加到20亿。Private Sub Form_click()Dim p As Double Dim r As Single Dim n As Integer p = 130000000 r = 0.01 n = 0 Do While p <= 200000000 p = p *(1 + r)n = n + 1 Loop Print n;“年后”;“中国人口增加到”;p End Sub 7.3、给定三角形的3条边长，计算三角形的面积。编写程序：首先判断给出的3条边能否构成三角形，如可以构成，则计算并输出三角形的面积，否则要求重新输入。当输入-1时结束程序。

Dim a as single；b as single；c as single Start: a = inputbox(“请输入第一条边长-1结束：”,”数据输入”)a=val（a）if a=-1 then

end end if b=inputbox（“请输入第二条边长”，“数据输入”）b=val（b）c=inputbox（“请输入第三条边长”，“数据输入”）c=val（c）

if a+b<=c or a+c<=b or b+c<=a then

msgbox（“您输入的三条边长不能构成三角形，请重新输入！”）

goto start else

l=（a+b+c）/2

s=sqr（l*（l-a）*（l-b）*（l-c））end if print “三角形的面积为：”；s 7.5、编写程序，打印如下所示的“数字金字塔”

1 2 1

…… 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 Private Sub Form_Click()Dim a(1 To 5)As Integer For j = 1 To 5 a(j)= j Next j For i = 1 To 5 Print Tab(301 If j > i Then Print a(2 * i2

For J = I + 1 To Maxi)* 2);a(i, 3i

If w(j, 1)> w(j + 1, 1)Then

a1 = w(j, 0)

a2 = w(j, 1)

w(j, 0)= w(j + 1, 0)

w(j, 1)= w(j + 1, 1)

w(j + 1, 0)= a1

w(j + 1, 1)= a2

End If

Next j Next i For i = 0 To 9 Print w(i, 0)Next Print “名次” & “

运动员” & “

成绩” For i = 0 To 9

Print “ ” & i + 1 & “

” & Format(w(i, 0), “000”)& “

” & w(i, 1)Next End Sub Private Sub Form_Load()For i = 0 To 9

w(i, 0)= InputBox(“请输入第” & i + 1 & “运动员的编号”)

w(i, 1)= InputBox(“请输入第” & i + 1 & “运动员的成绩”)Next Command1.Caption = “名次排列” End Sub 8.10．VB编写程序，建立并输出一个10*10的矩阵，该矩阵两条对角线元素为1，其余元素均为0 Private Sub Form_Click()

Dim a(1 To 10, 1 To 10)As Integer

For i = 1 To 10

For j = 1 To 10

a(i, j)= 0

If i = j Then a(i, j)= 1

If i + j = 11 Then a(i, j)= 1

Print a(i, j);“ ”;

Next j

Print

Next i End Sub 8.12.杨辉三角形每一行是(x+y)的n次方的展开式的各项系数。例如第一行系数是1；第二行1，1；第三行1，2，1„„请编写程序输出n=10的杨辉三角形 Option Base 1 Private Sub Command1_Click()Dim a()As Double m = InputBox(“请输入行数 ”, “输入”, 0)ReDim a(m, m)As Double For i = 1 To m a(i, 1)= 1 For j = 1 To m

a(j, j)= 1

If j >= 2 And j <= i1, j1, j)

End If Next j Next i For i = 1 To m For j = 1 To m

If i >= j Then Print Tab(j * 4);Str(a(i, j));

End If Next j Print Next i End Sub

篇2：Visual Basic入门教程

VisualBasic中提供开放式数据库访问功能，可通过直接访问或建立连接的方式使用并操作外部数据库。VisualBasic系统本身提供了非常好的数据管理功能，利用数据管理器(DataManager)，用户可以直接创建Access数据库，还可以直接编辑和访问其他外部数据库，如FoxPro、dBASE和FoxBASE等。通过窗口设计器，可以创建数据访问窗体。在表格的处理方面，VisualBasic捆绑了Crystalreport，基本上可以满足表格处理所需的功能。VisualBasic既适合于应用软件的开发，也可用于开发系统软件。

篇3：Visualbasic制做秒表

程序运行后，取时间变量tc=time为初始时间，以DateDiff("s",tc,Time)mod 60为秒表运行的秒数;暂停时用时间变量tp记录此时秒表的秒数;继续后以(DateDiff("s",tc,Time)+tp)mod 60为秒表运行的秒数。定时器控件timerw用于控制秒表的走时,标签控件labs和labm用于显示秒表的秒数和分数。命令按钮comok.compause.comcls.comexit用于控制秒表的开始(继续).暂停.清零和退出。窗体运行如1图所示。

2 程序代码

摘要：该文用VB6.0 for Windows给出一个实用程序——秒表,该程序调用计算机系统时间,具有开始、暂停、继续、清零、退出等功能,在各种实时控制中有较广泛的应用。

关键词：Visual basic,秒表

参考文献

篇4：Visual Basic入门教程

一、识谱与触键预备练习

在入门阶段《少儿教学版》与原版《拜耳钢琴基本教程》相比，有两个改进。

一是识谱改进。原版《拜耳钢琴基本教程》是单在高音谱表进行的小字2组C—G和小字1组G—C识谱。而《少儿教学版》则是由小字1组E开始入门，然后从小字1组C—G、小字组C—G、小字2组C—G三组音分别认记的，高音谱表与低音谱表同期进行的识谱。

《少儿教学版》一开始就采用高音谱表与低音谱表同期识谱的方法，增加了低音谱表教学内容，给学生建立了从小字组C到小字2组G三个八度的识谱构架。这是《少儿教学版》为解决原版教程从开始直至第50条，长时间只接触高音谱表的不利局面而设计的“多段同期识谱”法。《少儿教学版》也因此在开篇安排了较长篇幅（第一至第四课）的识谱教学课程，来为这种设计服务。因此，第一至第四课是基础的基础，一定要安排足够的课时教学。

由于开始学习，学生就需要认识记住三个位置的do re mi fa sol，教师要画一个大谱表，将这三组不同高度的音写在上面，给学生呈现认识记忆对象的全景，帮助理解掌握三个位置do re mi fa sol的高低关系。

二是触键改进。原版《拜耳钢琴基本教程》用连音触键入门。而《少儿教学版》采用非连音预备练习入手再过度到连音触键入门。连音触键入门的缺点是，难找到手指对手臂重量的支撑点，易造成手指第一关节内折和手腕紧张手臂僵硬。非连音触键入门，则可以通过体会手臂重量落在指尖上的感觉和手指“站立”感觉找到支撑点，同时，手臂和手腕处于联动状态，不至僵硬。

《少儿教学版》非连音触键预备练习包括第3页的两个小练习，第4～5页的9个右手练习和第7～8页的10个左手练习。通过弹奏这些练习，能有效解决后面连音触键练习时手指、手腕、手臂紧张的问题。

二、单手和双手触键的练习

左、右手触键练习的24条练习可分为三部分教授。第一部分1～12条，第二部分13～18条，第三部分19～24条。双手触键练习部分，分双手反向和双手同向两次教授。这一阶段的练习直截了当，很有效，但较枯燥，对兴趣和乐感培养不利。必须编配相应的、有趣味的小儿歌配合教学。如：1～12条用《我的小猫咪咪》和《玛丽的小羊羔》配合教学，13～18条用《蜜蜂做工》或《我爱我的幼儿园》配合教学，19～24条用《粉刷匠》配合教学。老师要将儿歌写在两个高音谱表联合的谱表上（上行：小字2 组，下行：小字1 组），供学生单手练习和双手练习使用。自编补充儿歌的音型组合用四分音符、二分音符和全音符，使其与学生这一阶段认识的音符一致。这些小儿歌连断结合的弹奏，有利于手臂和手腕在运动中放松，也有利于手腕吸气习惯的培养。

《少儿教学版》在左、右手触键练习后面、三手练习后面、第10与14条后面及第18条的补充练习中，都安排了低音谱表的识谱弹奏练习。这是《少儿教学版》为充实高音谱表与低音谱表同期识谱的构架而设置的。一定要让学生认谱弹奏。

三、主题与变奏和不同节奏的练习

1、主题与变奏三手练习部分，是不同节奏小乐段的识谱弹奏。不同音符及休止符的识别数拍弹奏，乐段分句和手臂带动手腕吸气是这部分练习的技术重点。此外，让学生倾听节奏和伴奏织体变化，培养乐感，锻炼与老师默契配合弹奏也是这部分练习的教学内容。

2、不同节奏的练习

3～7条是不同节奏的练习，教学中要注意让学生体会节拍特点和节奏变化，记牢全音符、二分音符、付点二分音符、四分音符、全休止符、二分休止符和四分休止符及它们的时值。

3、在进入第8条前，可插入北京体育大学出版社出版的《少年儿童电子琴初级教程》第18～19页中的，《娃娃跳舞》、《溜冰》、《圆舞曲》三首小乐曲，分左、右手弹奏练习。这三首小乐曲非常富有练习价值和儿童情趣，对手指力量转移，手腕自然跟随运动和手腕吸气习惯培养都很有好处。同样，也需要老师将儿歌写在两个高音谱表联合的谱表上（上行：小字2 组，下行：小字1 组），供学生练习。

四、双手配合的预备练习

第8～10条为双手协调配合的预备练习。根据学生情况选择8与9或8与10两条即可。第11条练习除双手协调练习外，还要训练学生听辨左、右手单独弹奏旋律音的不同和双手同时弹奏的“二人重唱”效果，及训练倾听与教师合奏的多层组合的和声织体效果。以此培养学生的兴趣和乐感。

《拜耳钢琴基本教程》的许多练习，虽然没有具体的音乐形象，但却很有音乐情趣。比如：19与25条左手和右手的“轮唱”，16条的恬静感，31条的豪迈感，37条左右手弹奏似两人一唱一附合的感觉，等。教学中要注意引导学生体验这些情趣，以增强练习的乐趣。

学到第82页，学生手指已有一定弹奏能力，需要通过断奏练习增加指尖触键的敏捷性。教材中没有练习断奏的专门曲目，82页第一段练习弹熟后，用手臂弹奏非连音的方法分手弹奏，作断奏预备练习。然后，插入《少年儿童电子琴初级教程》第13页中的《小雨点》作断奏练习。

五、双手配合弹奏的初步练习

第12～31条，是双手配合练习的初步阶段。这部分设置了不同音型组合和不同手指配合弹奏的练习，练习曲目较丰富。但是，这一阶段的曲目技术上重叠的地方多，如果逐一弹奏，容易引起学生厌倦，可根据学生情况删去一些不必要的练习。

一般而言，第12、13、14三条是第15条的预备练习，这三条可以不教，着重上好第15条；第17条和第20条的技术在第21条和后面练习中能够得到解决，17与20两条可以不弹；26、27、30的技术在该段的其他练习曲中已得到训练，这三条也可以舍弃。

第16条有一定难度，放在第21条后面教学更合适些。第28条高音部分是带有旋律的，要将旋律音提出来用非连音奏法单独练习。第29条，教材将同音连接线练习的难点提前作预备练习，有效分解了弹奏这条练习曲的困难。

《少儿教学版》虽设置了一些低音谱表的教学内容，但这一期间还是缺少低音谱表的练习曲目，同时也缺少儿童熟悉的乐曲。因此，老师可在大谱表上用二分音符与四分音符编配《小星星》钢琴谱，放在第21条后面教学生弹奏；在31条后面插人《儿童钢琴初步教程》第一册中的《午睡歌》和汤普森《现代钢琴教程》第一册中的《湖上天鹅》教学。这样，一方面能增加学生的兴趣，另一方面也可巩固低音谱表的识谱成果，使高音谱表与低音谱表同期识谱的教学构架有曲目支撑。

六、高音谱表上加线间音符认识弹奏的练习

这部分包括第32～34条和第41～43条。这部分四手联弹，除了识谱和与教师默契配合弹奏的训练外，教学中还要引导学生倾听和声织体，感受伴奏织体的变化，体验中低音区声音的厚重感，培养儿童的听辨能力。

七、高音谱表下加线间音符认识弹奏的练习

第35～40条是高音谱表下加线间音符认识弹奏的练习。《少儿教学版》在高音普表下加线间音符认识弹奏前，安排了下加线间识谱弹奏的预备练习，解决了原版教程直接出现下加线间练习曲，造成学生不适应的问题。这部分的主要教学目的是下加线间音符的认识弹奏，教材安排了六首练习和一首儿歌，曲目显得多了点。不一定全部都弹，建议舍弃第35和38两条。

八、总结与拓展练习

通过上加线间和下加线间音符的认识弹奏，教师要将学过的音在大谱表上串起来，结合第105页的大谱表与钢琴键盘对照表作整体复习（课本中的图表较小，教师要打印一张大的彩色挂图辅助教学）。再将下册25页的八度跳跃练习和33页的音阶练习前移到43条后面教学（大调音阶构成的乐理留到以后再讲，八度跳跃练习的节奏放慢一倍），加入《儿童钢琴初步教程》第一册中的《跟我学》作拓展练习。

结束语：

《拜耳钢琴基本教程》是一本有着一百多年历史的教材，吕德玉、贾方爵、张旗三位老师成功编写《拜耳钢琴基本教程》少儿教学版，说明《拜耳钢琴基本教程》的一些不足能通过适当改编和融入新的内容来完善。在实际教学中，可以进行将其他教程好的材料融入《拜耳钢琴基本教程》构架体系的实践，探索充实完善《拜耳钢琴基本教程》构架体系和教学内容的途径。让这本教材在儿童钢琴教学中更好的发挥作用。

参考文献：

[1]《拜耳钢琴基本教程》少儿教学版，西南师范大学出版社出版；

[2]《拜耳钢琴基本教程》人民音乐出版社2000年8月北京第一版；

[3]《少年儿童电子琴初级教程》（修订本），万宝柱 编著，北京体育大学出版社出版；

[4]《儿童钢琴初步教程》；

篇5：Visual Basic入门教程

阳春市铜业中学

林娟惠

一、设计思想

对于初次接触VB程序的学生而言有一定难度，我设计了一个较为简单、更吸引学生的例子来开展教学，并把本节程序与控件二部分内容相互渗透，从需要出发进行讲解。本课教学所要实现的目标是：学会建立、调试运行一个简单程序，锻炼运用已学知识解决问题的能力，激发学生的创新意识，树立发奋学习的意志。

本课教学效果及教学目标是创设的一个较简单的程序吸引学生去积极参与的 “目标”，调动学生主动的去探索学习，并对出现的各种问题及时进行矫正，让学生先了解、再模仿、自学直至创新，以此带动教学全过程，进而完成学生的知识意义建构。“任务驱动”教学法可以让学生在完成“任务”的过程中，培养分析问题、解决问题的能力，培养学生独立探索及合作精神。它与在中学开设程序设计教学，要求学生掌握程序设计的一般方法，发展他们的思维能力、分析问题和解决问题的能力是一致的。

二、教材分析

Visual basic是整个高中选修课程之一，对学生来说也是较难的部分。本书开始以算法为例，多是学生熟悉的数学公式，把数学运算公式放到VB中编程运用，这对学生来说较容易掌握。

三、学生分析

学生以前学的Word文字处理、Frontpage网页制作这些内容他们都只是功能操作，而且平时也能经常用到。但是VB程序设计大部分同学以前都没有接触过，平时也用不到，而且学生通常一听到编程序就特别畏惧，因为他们觉得这个太专业了，需要扎实的数学功底，不是每个人都能掌握的。所以通过在VB的入门阶段，采用小步子教学的方法通过一些简单、有趣的例子让学生感觉到用VB编程序并不是很难。

四、教学目标

1、学习运用Visual basic 可视化编程软件

2、学习运用算法与程序设计知识在解决问题中的作用。

3、通过一个简单的任务了解VB窗口中各部分的作用。

五、教学重点和难点

1、掌握用VB创建程序的一般步骤。

2、掌握VB部分控件的部分属性设置。

六、课程与教学模式

课型：新授课

教学模式：“讲、演、练”有机结合模式、“小组、任务、评价”有机结合模式

七、教学手段

计算机教室、大屏幕投影仪、电子教室软件、课件

八、教学时间

一课时

九、教学过程

一、（幻灯片）Visual basic与其他编程语言的区别，特点：

Visual Basic是一种可视化的编程语言，利用可视化技术进行编程，可使应用程序的开发简单、快捷；程序员不需要了解更多的关于面向对象的程序设计的细节，即可编写出界面友好、功能强大的应用程序。因此，Visual Basic在国内外各个领域中应用非常广泛。由于其容易学习、功能强、编程效率高，无论是专业人员还是非专业人员，都可以非常容易地掌握好Visual Basic的使用。

二、（介绍VB的界面）

屏幕上有五个窗口，（1）是菜单栏；（2）是工具箱（Tools Box），里面是VB所需的控件；（3）是VB程序要设计的窗体（Form）；（4）控件及窗体的属 性（Properties），在VB中每一个控件都有其自己的属性，比如文本框有Text属性，而任何一个控件都有一个自己唯一的名字，这使得我们无需编程就可以完成部分编程的工作；（5）是VB的文件控制窗口，VB的每一个程序称为一个项目（Project），一个项目文件里往往包括以下两种文件，窗体（Form）文件和模块（Bas）文件，当然还有Class文件，这些文件组成一个完整的程序，而项目文件（Vbp）则用来描述程序所包含的内容。

三、演示VB作品

1、心算设计

2、圆的半径运算：

四、举实例说明编程思想

“求半径为R的圆的面积”的程序Private sub command_click()Const PI as single=3.14 Dim r as Single, s as single r=inputbox(“r=“,”输入半径”)s=PI*r*r Print “圆的面积s=”；s END SUB

`定义名为Command_Click()的事件过程 `说明程序中PI是常量π

`说明程序中变量r和S是单精度实型数 `输入r的值

`计算表达式PI*r*r的值并把它赋给S `把S的值输出到当前的窗体上 `过程结束 说明：

1、数据类型说明部分

2、据的输入部分；

3、数据的处理部分

4、数据的输出部分

五、学生操作：

（熟悉了VB程序设计的开发环境后，就让同学们一起体验VB的运行调试过调试，）

1、运行VB

2、进入窗体，添加命令控件

3、输入代码：（可在教师机复制程序代码）

5、运行 任务一：

1、编写输入圆的半径R，让程序运算出圆的面积； 任务二：

2、编写：输入长方形的长宽，求长方形的面积。

六、教学点评：

对学生操作结果展示，通过学生的操作过程，了解学生对VB概念的掌握情况。并对出现的问题进行纠正。主要评价的情况是：控件的在属性中的更名，编码的正确性，运行调试情况，完成时间对这四项来评定。

七、教学反思：

通过一节课的教学，学生在初步接触VB程序的运用，基本能够完成操作，4 运行成功。但在操作中，出现的代码错误，调试错误，才不能解决，这需要在以后的课程中加强练习。VB满足了同学们在短时间内学会简单编程的手段，这节课试讲之后发现最大的困难还是在于全班的操作水平不整齐，所以在课堂上要能随机应变，控制好教学的速度，本来我考虑把这节课的写代码的部分作为提高部分，但在上课时发现学生对界面的设计掌握地很快，所以设计了两个操作任务，并鼓励同学们自己设计出相似的小程序。希望这节课，让同学们接触VB，进入VB世界。

简介： 姓名：林娟惠 职称：中教二级 获得荣誉：