2.1VB语言及程序开发环境

2.1VB语言及程序开发环境（精选2篇）

1.2.1VB语言及程序开发环境 篇一

作者简介：杨远花（1984.1.28），女，汉族，四川达州，助教，大学本科，四川文化传媒职业学院，程序设计语言教学

邮寄地址：四川省成都市崇州市三和东街28号四川文化传媒职业学院 收件人：杨远花 联系电话：***

职业院校VB语言程序设计教与学

杨远花

（四川文化传媒职业学院，成都 崇州，611230）

摘 要：VB语言程序设计是当前高职院校为计算机专业开设的程序语言学习的课程。这门课程包含很多语法，结构，算法，而且学习该课程需要学生具备一定的逻辑思维。高职院校当前的教学模式主要是以多媒体教学和上机操作各占一半，通过此教学模式学生学习效果不佳。本文对教与学的方式进行探讨。

关键字：VB语言程序设计；教与学；高职院校

VB是通过事件驱动的面向对象可视化编程机制的高级语言。VB主要有三大特点：面向对象可视化，事件驱动的编程机制，设计结构化。VB语言设计大致的步骤为建立对象，设置对象属性，根据功能编写代码建立事件过程，运行调试。根据VB的特点和程序设计步骤可知VB实际是一种较为易学易理解的程序设计语言，相对其他的高级语言来讲更直观。高职院校学生基础较为薄弱，以及教学模式过于死板而造成学生对该课程的学习效果差强人意。现对该课程的教与学从两个方面进行探讨。

一、教师的“教”

如何“教”才能实现该课程的教学目标，才能让学生掌握学习程序设计语言的窍门，为今后其他高级语言的学习奠定良好的基础。首先让学生了解该课程的教学目标很必要，因此在第一次课上除了要让学生对该课程的学习感兴趣的同时也要让学生清楚学习该课程的教学目标———学生能够在VB的开发环境下解决实际问题，具备较强的抽象，逻辑思维能力，开发创新新项目，掌握学习程序设计语言的技巧。

（一）、引发学生学习该课程的兴趣

VB是学生进入大学后学习的第一种语言类课程。在学生不了解该课程的情况下引发学生学习该课程的兴趣相对来讲较为容易。高职院校的很多学生都不够自信，VB这门课程一定要给学生易学易用的第一印象，不然学生会产生畏难心理在今后学习的过程中始终会有担心自己学不会的心理。该课程的第一次课要让学生对VB有一定了解，产生学习兴趣，对该课程的学习充满自信和期待。课程的第一次课可以从以下几个方面入手：

1.引入VB小游戏，操作演示，并抽取其中1、2种游戏告知游戏的玩耍规则，并让学生试着玩耍。挑选的游戏玩耍时需要一定的逻辑思维，引发学生学习兴趣的同时，也培养了学生的逻辑思维能力。

2.把游戏放VB开发环境中再运行演示，同时对VB开发小游戏的流程进行简单的介绍，从而也让学生对VB的开发环境及设计步骤有了比较直观的初步的认识和了解。选取游戏中最简单的操作功能进行编程和运行演示，给学生易学易懂的感觉，提高学生学习该课程的自信。3.布置学生课后练习抽取的游戏，在下一次课程时比赛通关。此过程主要是为了学生熟悉游戏规则及玩耍技巧，加强学生的逻辑思维能力，为后续对游戏的设计和编写代码奠定良好的基础。

（二）、课程教学的整体规划

第一次课引发学生的学习兴趣后，在后续的课程讲解中，同样需要关注学生的情况，尽量避免学生对该课程产生难学难懂的心理，一旦学生出现抵触的趋势，就应对教学进行相应的调整。根据多年的教学实践，后续课程主要以项目驱动法进行教学。主要的教学流程如下：

1.引入实例或游戏，运行实例或者游戏，进行功能分析、操作规则讲解，设计流程分析。

2.将实例或游戏按照功能进行分解，从易到难的原则选择模块进行分析设计。对每一个模块需要用到的语法、属性、方法进行大概的介绍。

3.每一模块进行模块分析，算法，设计，编写程序，运行调试的过程中，详情讲解如何应用对应的语法、属性、方法，从而完成对应模块的设计。

4.最后分析各模块的关系，联接各模块，从而完成实例或游戏。

5.布置新的游戏或者实例（与讲解的实例或游戏含有相同的语法，属性，方法），让学生分组讨论，采取分工合作的方式，在规定时间内进行分析设计出新的实例或者游戏。

6.教师应时刻关注学生的进度，适当给予指导，设置惩罚和奖励来加强学生完成的动力。惩罚和奖励由学生自己提，以大多数学生赞成的惩奖方式为准。

二、学生如何学习

教师讲授的模式和方法主要是引导学生学习，让学生学习的更轻松。这是教学中的“教”，另一方面是学生如何学习即教学中的“学”。“学”是学生主动的一个方面，需要学生配合教师的“教”，以及自主学习才能够更好的实现教学目标，才能真正体现教学的意义。针对学生的状况进行了不同的学习方式。

（一）、基础较弱的学生如何学习

高职院校的很多学生从入学后，对所有专业的学习都不感兴趣，学习上动力不足，上课听不进去，注意力无法集中，作业全抄袭以应付教师检查。常常处于这种状态的学生，即使偶尔想学习，也很难持久。主要是因为高职院校的学生心理并未成熟，仍带有许多少年时期的痕迹，如幼稚，脆弱，自制力薄弱，依附性强等，加之他们没有社会阅历，无法感受到能力的重要性，从而放任自己。对于这部分同学需要教师特别关心和重视，了解学生，多与该类学生交流，引导学生建立自信，尝试的去学习。对于语言类的学习，教师需要特别对待，布置一些简单的有趣的案例或项目让这一部分同学去完成，从而建立他们的自信。这类学生更适合理论知识较少，实践操作更多的教学方式，让他们处于实践中去理解基本的语法、结构等理论知识。对于不懂或者无法理解并应用的知识点，先让学生学会查阅书籍或者在网络上搜索查询在实践中如何应用对应的知识点，并多看该知识点的应用案例，从而理解和应用该知识点完成对应的案例或项目。

（二）、基础适中的学生如何学习

课程针对大部分学生（基础适中的学生）安排的项目或者游戏分组完成时各组都将按照基础较好、基础一般、基础较差的进行组合，均匀各组的实力。组内成员必须相互帮助，相互督促，分工协作完成整个项目，在完成后一起梳理整个完成过程，将各自完成的小模块的分析设计思路和流程分享给该组的其他同学，如果该组有不懂的同学，大家应该一起帮助该同学，给予详细的讲解，让整个组的同学对项目或者游戏的各个环节都了如指掌，从而使项目或游戏的分析设计流程更清晰明了。

（三）、基础较好的学生如何学习

对于自觉性比较高，领悟力比较强的同学，建议学生在完成课内项目的同时，再布置新项目让他们利用课后时间试着去完成，拓展该课程知识的应用学习，这一部分学生需要通过自学，更加熟练应用VB的语法、结构、算法去完成新项目，培养其独立分析问题，解决问题的能力。

学生在所有项目或者游戏的分析设计过程中，教师应一直跟踪学生实施的进度，适时的给予指导和引导。

三、总结

VB语言程序设计的教学主要以学生为主体，教师引导的教学模式进行。整个课程的教学以项目驱动为主线，并采用了因材施教的方式兼顾了所有学生的学习。这种教学方式充分调动了学生学习的主动性，努力培养了学生自主学习的良好习惯，提高了学生实际应用能力，为今后语言类的学习打下了良好的基础。参考文献

[1]林卓然．VB语言程序设计[M]．电子工业出版社，2009．

[2]崔艳莉，张敏，王重英．浅谈“案例+任务”驱动教学法在VB程序设计语言教学中的应用[J]．中国农业银行武汉培训学院学报,2009，(1)． [3]杨世福．浅谈VB语言程序设计课程教学策略[J]．中国新技术新产品,2009,(12)．

2.2.1VB语言及程序开发环境 篇二

一、填空题（本大题共60分，共 15 小题，每小题 4 分）

1.要使用状态栏控件设计状态栏，应首先在“部件”对话框中选择 Microsoft Windows Common Controls 6.0，然后从工具箱中选择 StatusBar 控件。

2.对象的边框类型由 BorderStyle 属性设置。

3.VB的每个菜单项都有一个下拉菜单，含有若干个 菜单 命令。用鼠标单击某个菜单项就执行相应的菜单命令。

4.菜单的热键指使用 Alt 键和菜单项标题中的一个字符来打开菜单。建立热键的方法是在菜单标题的某个字符前加上一个 & 符号，在菜单中这一字符会自动加上 下划线，表示该字符是一个热键字符。

5.运行时，要使工具栏控件Toolbarl中的第二个按钮的按钮菜单中的第三项无效（变成灰色），应使用语句：Toolbarl.Buttons(2).ButtonMenus(3).Enabled＝False。

6.根据文件内容区分，文件分为 程序文件 和 数据文件。

7.当使用Format函数与Print方法一起输出时，格式字符串中的”#”号表示一个数字位，它的个数决定 显示数据 的长度，若要显示的数据位数大于这个长度，则显示时数据按 原样 显示。

8.菜单在运行时的动态增减主要通过控件数组实现，首先将菜单项的 Visible 属性设为False，然后在程序中用Load 语句加载。

9.如果将工程的启动对象设置成 Main 子程序，则程序启动时可以不加载任何窗体。

10.要从字符串“Visual Basic 6.0”中截取子字符串“Basic”可使用的函数是 Mid(“Visual Basic 6.0”,8,5)。

11.要在运行时给状态栏 StatusBar1的第二个窗格添加一幅图片，该图片由文件 “c：＼windows＼winupd．ico”指定，应使用语句：StatusBar1.Panels(2).Picture＝LoadPicture（“C：＼Windows＼Winupd．ico”）。

12.若case子句中的表达式表列具有形式：表达式1 To 表达式2，则它的含义是：当测试表达式的值等于 这个范围内的值 时，执行该case子句相应的程序块。

13.表示x是5的倍数或是9的倍数的逻辑表达式是 x mod 5=0 OR x mod 9=0。

14.程序运行过程中，在立即窗口显示变量f的语句是 Debug.Print f。

15.设

Form1.Scaleleft=-250，Form1.Scalertop=300，Form1.Scalewidth=350，Form1.Scaleheight=500，则Form1的右下角坐标为 100,800。

二、程序阅读题（本大题共40分，共 10 小题，每小题 4 分）

1.若窗体Form1上添加了通用对话框CommonDialog1，下面程序的功能是什么？

Dim filename As String

Dim str As String

CommonDialog1.Filter = “文本文件(*.TXT)|*.txt”

CommonDialog1.Action = 1

filename = CommonDialog1.filename

CommonDialog1.ShowColor

Form1.ForeColor = CommonDialog1.Color

Open filename

For Input As #1

Do While Not EOF(1)

str = str + Input(1, #1)

Loop

Form1.Print str

Close ＃1

以选择的颜色作为窗体前景色，将一个文本文件显示在Form1窗体上

2.Private Sub Form_Click()

num = 0

Do

num = num + 3

Print num

第1页，共4页

Mod 4 = 0

End Sub

程序运行后，单击窗体，输出结果是：3 6 9 12

3.写出下面事件过程的执行结果。

Private Sub Command1_Click()

Dim f(10)As Integer

f(0)=1

f(1)=1

For i=2 To 10

f(i)=f(i1)

Next i

For i=0 To 9

If i Mod 4=0 Then

Print

Print f(i)

Next i

End Sub

执行结果是：1 1 2 3 5 8 13 21 34 55

4.下列标准模块和窗体模块的功能是给通信录文件“d:txrf1.dat”添加新记录，在横线上填上适当内容。

标准模块：

Type txr num As Integer

name As String * 10

tel As String * 8

addr As String * 20

End Type

窗体模块：

Private Sub Command1_Click()

Dim n%, zgr As txr

Open “d:txrf1.dat” For Random As #1

Len = Len(zgr)

zgr.num = InputBox(“输入新职工编号：”)

zgr.name = InputBox(“输入新职工姓名：”)

zgr.tel = InputBox(“输入新职工电话号码：”)

zgr.addr = InputBox(“输入新职工住址：”)

n = LOF(1)/ Len(zgr)+ 1(2)Put #1, n, zgr

Close #1

End Sub

5.写出下面的程序运行后，连续单击4次窗体，在Form1上的执行结果。

Private Sub Form_Click（）

Static a As Integer

Dim b As Integer

b=a+b+1

a=a+b

Form1.Print “a=”;a, “b=”;b

End Sub

执行结果为： a=1 b=1 a=3 b=2 a=7 b=4 a=15 b=8

6.有如下事件过程，写出程序的功能（数学表达式）。

Private Sub Command1_Click()

T=0

M=1

Sum =0

Do

T=T+M

Sum =Sum+T

M=M+2

Print“Sum =”；Sum

End Sub

计算数学表达式：1＋22＋32＋42＋…＋202==2870

7.编写如下代码：

dim flag as Boolean

private sub form_mousedown（button as integer，shift as integer，x as single，y as single）

flag=true

end sub

private sub form_mousemove（button as integer，shift as integer，x as single，y as single）

flag=false

end sub

private sub form_mouseup（button as integer，shift as integer，x as single，y as single）

if flag=false then

print “DDDD”

end if

end sub

程序运行后，如果在窗体上输出“DDDD”，则应执行的操作为 移动鼠标并松开鼠标左键。

8.下面事件过程的功能是从键盘上输入若干个数据存放到一维数组a中，并求出这组数据的平均值，在横线上填上适当内容。

Private Sub Command1_Click()

Dim n%, i%Dim a()As Integer

n=InputBox(“请输入数据个数：”)ReDim a(n)

For i=1 To n

a(i)=InputBox(“请输入第” & Str(i)& “个数据：”)

Next i

For i=1 To n

Sum=Sum+a(i)

Next i

Print “平均值：”;Sum / n

End Sub

9.下面程序的作用是什么？

Private Sub Command1_Click()

Dim a()

a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)

For n = 0 To 8

Print a(n);

Next

Print

Call s1(a)

For n = 0 To 8

Print a(n);

Next

End Sub

Private Sub s1(ByRef x())

s = UBound(x)

For n = 0 To s / 2

temp = x(n)

x(n)= x(sn)= temp

Next

End Sub

将数组a倒置

10.使用情况语句改写下列事件过程。

Private Sub Command1_Click()

Dim score!, grade$

score=InputBox(“请输入一个学生的分数：”)If score>=90 Then

Grade=”A”

ElseIf score>=80 Then

Grade=”B”

ElseIf score>=70 Then

Grade=”C”

ElseIf score>=60 Then

Grade=”D”

Else

Grade=”E”

End If

Print “该学生的分数等级为：”;grade;End Sub

Private Sub Command1_Click()

Dim score!, grade$

score=InputBox(“请输入一个学生的分数：”)Select Case score

Case Is>=90

grade=“A”

Case Is>=80

grade=“B”

Case Is>=70

grade=“C”

Case Is>=60

grade=“D”

Case Else

grade=“E”

End Select