VB程序设计试题与答案（精选6篇）

VB程序设计试题与答案 第1篇

1.要使一个标签能够显示所需要的文本，应设置该标签的()属性的值(单)A.Caption B.Name

C.Text D.AutoSize 2.为使计时器对象每隔5秒钟产生一个时钟事件(Timer事件)，则其Interval属性值应设置为()(单)A.5

B.300

C.500

D.5000 3.下列的()对象支持KeyPress事件(单)A.文本框

B.命令按钮

C.标签框

D.图像框 4.确定一个控件在窗体上的位置的属性是()(单)A.Width或Height

B.Top和Height

C.Top或Width

D.Top和Left 5.确定一个窗体或控件的大小的属性是()(单)A.Width或Height

B.Top和Width

C.Top或Left

D.Top和Left

6.用户在屏幕上画出应用程序界面，并设置好对象的属性，系统便可以自动生成程序代码，这称为()(单)A.面向对象的程序设计

B.结构化程序设计

C.事件驱动的编程机制

D.程序设计 7.在VB中，工程文件的扩展名是()(单)A..frm

B..vbp

C..bas

D..frx 8.在VB中，窗体文件的扩展名是()(单)A..frm B..vbp

C..bas

D..frx 9.VB集成开发环境可以(单)A.编辑、调试、运行程序，但不能生成可执行程序 B.编辑、生成可执行程序、运行程序，但不能调试程序 C.编辑、调试、生成可执行程序，但不能运行程序 D.编辑、调试、运行程序，也能生成可执行程序 10.英文“VISUAL”的含义是()(单)A.可视化

B.集成C.结构化

D.调试

11.标准模块文件的扩展名是()(单)A.frm B.vbp C.bas

D.vbg 12.VB集成开发环境中，在()中编写代码(单)A.状态栏

B.属性列表框

C.代码框

D.标题栏

13.在面向对象的程序设计过程中，英文缩写“OOP”的含义是()(单)A.事件驱动的编程机制

B.结构化程序设计语言

C.面向对象的程序设计

D.可视化程序设计

14.在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是()(单)A.Timer1.Interval=0.5

B.Timer1.Interval=5

C.Timer1.Interval=50 D.Timer1.Interval=500 15在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()a$=“VisualBasic” Print String(3,a$)End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是()(单)A.VVV

B.Vis

C.sic

D.11

16.以下关于多重窗体程序的叙述中，错误的是()(单)A.用Hide方法不但可以隐藏窗体,且能清除内存中的窗体 B.在多重窗体程序中，各窗体的菜单是彼此独立的 C.在多重窗体程序中，可以根据需要指定启动窗体 D.对于多重窗体程序中，单独保存每个窗体 17以下合法的Visual Basic变量的名称是()(单)A.a3

B.Const

C.9abc

D.a#x!

18.当一个复选框被选中时，它的Value属性的值是()(单)A.3

B.2

C.1

D.0

19.表达式 5 Mod 3+53的值是()(单)A.0

B.3

C.4

D.6

20设x=4,y=8,z=7, 表达式：(x＜y)Or z＜x 的值是()(单)A.1

B.-1 C.TRUE D.FALSE 21设有如下程序段： x=2 For c=1 To 4 Step 2 x=x+c Next c 运行以上程序后，x的值是()(单)A.6 B.7 C.8 D.9

22执行如下两条语句，窗体上显示的是()(单)A=9.8596 Print Format(a,“000.00”)A.0,009.86 B.9.86 C.009.86 D.0,009.86

23下列说法中正确的是：为了保存一个Visual Basic应用程序，应当()(单)A.只保存窗体模块文件(.frm)B.只保存工程文件(.vbp)C.分别保存工程文件和标准模块文件(.bas)D.分别保存工程文件、窗体文件和标准模块文件

24.要使一个文本框对象能够显示多行文字，应设置该对象的()属性值为True(单)A.Text B.MultiLine C.Style D.Visible 25.若要将窗体从内存中卸载，其实现的方法或语句是()(单)A.Show B.Unload C.Load D.Hide 26.以下选项中，不是VB标准控件的是()(单)A.命令按钮 B.定时器 C.通用对话框 D.单选框

27在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Dim a As Variant a = Array(1, 2, 3, 4, 5)Sum = 0 For i = 1 To 5 Sum = Sum + a(i1)“, a(i1)> x Then Print a(iNum2 Case 3 Op = ”ד Result = Num1 * Num2 Case 4 Op = ”÷“ Result = Num1 / Num2 End Select Label1= Num1 & Op & Num2 & ”=“ & Result End Sub 窗体运行后，输入1，则label1的标题显示结果为()(单)A.3+2=5 B.3-2=1 C.3×2=6 D.3÷2=1.5

42在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，以下能实现上述操作的程序段是()(单)A.Private Sub HScroll_Change()Text1.Text=HScroll1.Value End Sub

B.Private Sub HScroll_Click()Text1.Text=HScroll1.Value End Sub C.Private Sub HScroll_Change()Text1.Text=HScroll.Caption End Sub D.Private Sub HScroll_Click()Text1.Text=HScroll.Caption End Sub

43.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()x=InputBox(”Input“)Select Case x Case 1,3 Print ”分支 1“ Case Is＞4 Print ”分支 2“ Case Else Print ”Else 分支 “ End Select End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是（）A.分支1 B.分支2 C.Else分支 D.程序出错

44.随机产生10个100～200之间的数，求它们的最大值程序如下： Private Sub Command1_Click()Max = 100 For i = 1 To 10 x = int【 】 Print x;If x ＞ Max Then Max=x Next i Print Print ”最大值=“;Max End Sub 45设a=10，b=5，c=1，执行语句Print a ＞b ＞ c后，窗体上显示的是()(单)A.True B.False C.1 D.出错信息

(46)在窗体上建立通用对话框需要添加的控件是

A)Data控件 B)From控件 C)CommonDialog控件 D)VBComboBox控件

(47)在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是 A)Load B)Show C)Hide D)Unload

48)Sub过程与Function过程最根本的区别是

A)Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以

B)Function过程可以有形参，Sub过程不可以

C)Sub过程不能返回值，而Function过程能返回值 D)两种过程参数的传递方式不同

49保存一个工程至少应保存两个文件，这两个文件分别是）A)文本文件和工程文件 B)窗体文件和工程文件 C)窗体文件和标准模块文件 D)类模块文件和工程文件

50.当对命令按钮的Picture属性装入.bmp图形文件后，命令按钮上并没有显示所需的图形，原因是没有对某个属性设置为1，该属性是

A)MousePicture B)Style C)DownPicture D)DisabledPicture

51假设变量bool_x是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是）A)bool_x=”False“ B)bool_x=.False.C)bool_x=#False# D)bool_x=False

52.设S=“中华人民共和国”，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为（）A)“中华民国”

B)“中国人民”

C)“中共人民”

D)“人民共和” 53下列表达式的值为2123的是（）

A)Val(”123asd“)& 2000 B)Val(”123asd“)+ 2000 C)Str(123)& ”2000“ D)Str(123)+”2000“ 54假设在窗体上建立了一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮Command1,并编写如下事件过程： Private Sub Command1_Click()CommonDialog1.Flags=4 CommonDialog1.Filter=”all files(*.*)|*.*|text Files(*.Txt)|*.txt|Batch Filse(*.bat)|*.bat“ CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”对话框中显示的是（）

A)All Files(*.*)B)Text Files(*.Txt)C)Batch Files(.bat)D)不确定

55当运行程序时，系统自动执行启动窗体的某个事件过程。这个事件过程是（）A)Load B)Click C)Unload D)GotFocus 56.无论何控件，都具有一个共同属性。这个属性是（）A)Text B)Font C)Name D)Caption 57.在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是（）A)，B)；

C)、D)：

58.表达式12000 + ”129“ & 200的值是

A)12329 B)”12129200“ C)”12000129200“ D)”12329“ 59.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（）

A)属性、控件和方法 B)属性、事件和方法 C)窗体、控件和过程 D)控件、过程和模块

60表达式String(1,”I am student“)+ Replace(”am harass“,”rass“,”ppy“)& ”!“的值是（）A)”I am happy!“ B)”I am student I am s am harass studentam happy!“ C)”I am student am harass!“ D)”I am student am happy!“ 61.引用列表框（List1）最后一个数据项应使用的表达式是（）A)List1.List(List1.ListCount)B)List1.List(List1.ListCount-1)C)List1.List(ListCount)D)List1.List(ListCount-1)62.以下属性和方法中，可重定义坐标系的是）

A)DrawStyle属性 B)DrawWidth属性 C)Scale方法 D)ScaleMode属性 63.下面说法不正确的是()A)滚动条的重要事件是Change和Scroll B)框架的主要作用是将控件进行分组，以完成各自相对独立的功能 C)组合框是组合了文本框和列表框的特性而形成的一种控件

D)计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上

64.在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是（）A)True B)2 C)0 D)1 65.下列关于过程叙述不正确的是（）

A)过程的传值调用是将实参的具体值传值递给形参 B)过程的传址调用是将实参在内存的地址传递给形参

C)过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的 D)无论过程传值调用还是过程传址调用，参数传递都是双向的

66.为了使标签能自动调整大小以显示全部文本内容，应把标签的【 】属性设置为true。67.要想在文本框中显示垂直滚动条，必须把scrollbars属性设置为2，同时还应把【 】属性设置为true。

68.假定有一个文本框，其名称为text1，为了使该文本框具有焦点，应执行的语句是【 】.setfocus。

69.假定有一个名为pic2.bmp的图形文件，要在运行期间把该文件装入一个图片框，应执行的语句为 图片控件名.picture=【

】。

70.为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须把该图像框的【 】属性设置为true。

71.窗体、图片框或图像框中图形通过对象的【 】属性设置。72.计时器事件之间的间隔通过【

】属性设置。

73.有时候要暂关闭计时器，这可以通过【 】属性设置为false来实现。74.设a=sqr(2),则语句Print format$(a,”000.0“)的输出结果是【 】。75.设a=sqr(3),则语句Print format$(a,”###.0“)的输出结果是【 】。76.VB应用程序通常由3类模块组成，即窗体模块、【 】模块和类模块。

77在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：

Private sub command1_click()text1.text=”vb“ text2.text=text1.text

text1.text=”abcd“ End Sub 程序运行后，单击命令按钮，文本框text2中显示的内容为 ________。

78.在保存VB应用程序时，窗体文件和工程文件的扩展名分别为【.】和.vbp。79.下列可作为VB的变量名的是()(单)A.Filename B.A3B C.254D D.Print 80.与下列数学式cos2(c+d)对应的VB表达式是【 】。81.与下列数学式2a(7＋b)对应地VB表达式是【 】。82.在VB中，字符串常量要用【 】括起来。83.下面的事件不属于鼠标器事件的是()(单)A.MouseDown事件 B.MouseUp事件 C.MouseMove事件 D.Move事件 84.下面的事件不属于键盘事件的是()(单)A.KeyPress事件 B.KeyDown事件 C.KeyUp事件 D.KeyMove事件

85.对以下程序说法不正确的是()(单)Private Sub FileOpen_Click()CommonDialog1.InitDir = ”C:“ CommonDialog1.Filter = ”文本文件 | *.Txt“ CommonDialog1.ShowOpen End Sub A.显示”文件“打开对话框 B.打开的对话框的初始目录为C盘根目录 C.打开的对话框的文件类型为文本文件 D.以上说法都不正确

86.以下程序是求最大公约数和最小公倍数的程序，在【】处填写合适的关系运算符。Private Sub Form_Click()Dim m1, n1, m, n, r As Integer n1 = InputBox(”输入自然数n“, ”输入数“)m1 = InputBox(”输入自然数m“, ”输入数“)n = n1 m = m1 If m ＜n Then t = m: m = n: n = t End If r = m Mod n Do While r 【 】 0 m = n n = r r = m Mod n Loop Print ”最大公约数=“, n Print ”最小公倍数= “, m1 * n1 / n End Sub 87.下面是求100以内素数的程序。Private Sub Command1_Click()Dim i As Integer, m As Integer, tag As Boolean

For m = 2 To 100 tag = True For i = 2 To m-1 If m Mod 【 】 = 0 Then tag = False Next i If tag Then Print m Next m End Sub 88.百元买百鸡问题： 假定小鸡每只5角,公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，以下程序列出了所有可能的购鸡方案。Private Sub Command1_Click()Dim x%, y%, z% For x = 0 To 33 For y = 0 To 50 For z = 0 To 100 If 3 * x + 2 * y + 0.5 * z = 100 And 【 】 Then Picture1.Print x, y, z End If Next z Next y Next x End Sub 89.随机产生10个100～200之间的数，求它们的最大值程序如下： Private Sub Command1_Click()Max = 100 For i = 1 To 10 x = int【 】 Print x;If x ＞ Max Then Max=x Next i Print Print ”最大值=“;Max End Sub 90.以下是求1～100之间5或7的倍数的和，如下程序段： Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then 【】 End If Next i Print Sum 其中【】处书写正确的是（）(单)A.Sum = i B.Sum = Sum +i C.Sum = Sum + 5+7 D.以上都不正确 91.要使得在按下鼠标左键时，激发mousedown事件，可以设置此事件中的button参数为()(单)

A.0 B.1 C.2 D.4 92.要使得在按下鼠标右键时，激发mousedown事件，可以设置此事件中的button参数为()(单)A.0 B.1 C.2 D.4 93.删除列表框中所有的项目所使用的方法为()(单)A.move B.remove C.clear D.removeitem 94.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub command1_click()Dim a As String, b As String a = InputBox(”Enter the First integer“)b = InputBox(”Enter the Second integer“)Print b + a End Sub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和111,则输出结果是()(单)A.456 B.111 C.567 D.111456 95.传值：形参得到的是实参的值，形参值的改变不会影响实参的值。在定义形参前加关键字Byval。

96.以下利用SUB关键字定义的子过程Rate，其调用格式不正确的是()(单)A.call Rate(12,56)B.Rate(12,56)C.Rate 12,56 D.以上A和C正确

97.以下程序的作用是单击Check1检查框将使得Text1文本框的字体在”加粗“和”常规“之间进行切换。

Private Sub Check1_Click()Text1.FontItalic = Not Text1.FontItalic End Sub 98.窗体中有一个名称为Slider1的可选择性刻度滑块控件，要设置它的如下属性值，可以编写程序()(单)(1)Slider控件的滑块处于最小位置时值为8(2)Slider控件的滑块处于最大位置时值为72(3)单击Slider控件两端箭头时，滑块的增量值为2(4)单击Slider控件的空白处时，滑块的增量值为8 A.Slider1.Min = 8： Slider1.Max = 72：

Slider1.SmallChange =2： Slider1.LargeChange = 8 B.Slider1.Min = 2： Slider1.Max = 8：

Slider1.SmallChange = 72： Slider1.LargeChange = 8 C.Slider1.Min = 8： Slider1.Max = 72：

Slider1.SmallChange = 8： Slider1.LargeChange = 2 D.Slider1.Min = 72： Slider1.Max = 8：

Slider1.SmallChange = 2：

Slider1.LargeChange = 8 99.以下能判断指针是否指向文件尾的函数是()(单)A.BOF B.LOC C.LOF D.EOF 00.窗体的过程Form_MouseDown(Button As Integer, Shift As Integer, X As Single, YAs Single)，有4个参数，关于这些参数，正确的描述是()(单)A.通过Button参数判定当前按下的是键盘上哪一个键 B.Shift参数只能用来确定是否按下Shift键

C.Shift参数只能用来确定是否按下Alt和Ctrl键 D.参数x,y用来设置鼠标当前位置的坐标

01.设组合框Combo1中有3个项目，则以下能删除最后一项的语句是()(单)A.Combo1.RemoveItem Text B.Combo1.RemoveItem 2 C.Combo1.RemoveItem 3 D.Combo1.RemoveItem Combo1.Listcount

1-10ADADA ABADA 11-20CCCDA AACBC 21-30ACDBB CDCCC 31-40ABDAB fontname BAAC 41-45AAC RND*101+100或100+RND*101或RND()*101+100或100+RND()*101 B 46-50CACBB 51-55DBBAA 56-60CDBBA 61-65BCDDD 66Autosize 67Multiline 68Text1 669loadpicture(”pic2.bmp")70Stretch 71Picture 72Interval 73Enabled 74 001.4 75 1.7 76【标准】77VB 78frm 79B 80cos(2*(c+d))81 2*a*(7+b)82【双引号】83D 84D 85D 86<> 87【i】88x+y+z=100 89RND*101+100或100+RND*101或RND()*101+100或100+RND()*101 90B 91-95BBCDV 96-00BVADD 01B 13

VB程序设计试题与答案 第2篇

1、打开文件“考生文件夹178工程1.vbp”，完善Command1_Click事件及fac函数并保存。

实现功能：用递归法求3!+5!+7!的值，将结果输出到窗体上。

Public Function fac(a As Integer)As Integer If a = 1 Then fac = ① Else fac = a * ②(a1)+ fib(n1)End If End Function

Private Sub Command1_Click()Dim sum As Integer sum = s(③)Print “sum=”;sum End Sub ①1 ②n ③100

6、打开“考生文件夹776”中的文件“蜗牛爬竹.vbp”，完善Command1_Click事件代码并保存。

实现功能：青竹高17米，蜗牛从青竹底端慢慢爬向顶端，晴天每天爬1.4米，雨天每天爬1.8米，若蜗牛爬到顶端用了11天，计算晴天、雨天各多少天？（晴天对应文本框text1，雨天对应文本框text2）

VB程序设计的教学与实践 第3篇

1 VB程序设计教学中存在的问题

VB程序是计算机编程语言中最简单易学的一种, 是很多学生学习编程的入门语言, 但对于仅仅具有电脑基本知识的门外汉来说, VB程序还是相当复杂的。VB课程中的概念抽象难懂, 且VB语言枯燥, 内容繁多, 因此, 其很难引起学生的兴趣。

1.1 学生的学习意识不强

VB程序设计课程的授课对象是非计算机专业的学生。这部分学生对VB程序课程学习意识不强, 他们学习VB程序设计单纯是为了应付考试, 没有认识到学习计算机技术的重要意义。

1.2 学生的基础差异大

学生基础差异大, 大多数理科生和男生学习兴趣浓厚、一点即通;反之, 文科类学生和女生, 基础就相对薄弱, 其抽象思维能力、逻辑思维能力较低, 导致其学习积极性不高。

1.3“教”与“学”不协调

课堂上, 教师仍“满堂灌”的教学模式, 这种枯燥无味的教学模式已跟不上时代的步伐, 它过分强调教师“教”的作用, 而忽视学生的“学”。在该类课堂上, 学生只要把教师讲的知识输入脑中即可, 不要问为什么, 最后达到通过考试的目的即可。

1.4 实践机会少

VB程序设计是一门实践性极强的课程, 但现阶段的教学仍以理论教学为主, 再加上学校的软、硬件设施跟不上, 导致学生实践机会较少。

2 VB程序设计教学中的建议

2.1 端正学生学习态度

端正学生学习态度是学好VB程序设计课程的前提。因此, 教师要端正学生的学习态度, 让他们认识到学习VB程序设计的重要性及意义, 培养其主动学习的能力, 使教学产生事半功倍的作用。

2.2 激发学生的学习兴趣

VB程序设计单调枯燥, 因此, 第一节课一定要吸引学生兴趣。学生刚接触VB程序设计课程时, 心里充满好奇, 若教师一下子把对象、控件等抽象概念引进来, 学生听得满头雾水, 难以理解, 逐渐会丧失学习兴趣。因此, 教师在在简单介绍VB程序发展和构成后, 可以介绍一些简单的趣味实例, 把基本名词和概念融入实例中。例如, 一个简单的程序“欢迎你”, 里面就包含标签控件、命令按钮控件的功能及用法, 教师可介绍与之相关的名词和控件属性, 引导学生运用相应知识设计类似的小程序。这样的授课方式直观有趣, 学生容易接受和理解。

2.3 精讲多练, 保证上机时间

VB程序设计课程的最终目的是培养学生运用计算机技术解决问题的能力, 该课程跟其他课程有很大区别, 其实践性强, 只靠听、看、说是学不会的, 一定要引导学生多练。因此, 教师要精心策划每一节实践课, 并保证学生有足够的上机时间。

2.4 选择适当的案例

由于学生基础、悟性参差不齐, 教师选择案例时样因材施教, 既能满足大多数学生的教学需求, 又可以让少数尖子生有提升的空间。例如, “用户登陆”的界面设计, 大部分学生只要求能完成对用户名和密码的验证即可, 而少数尖子生, 则可适当增加限制功能的设计, 如每个用户输入错误密码的次数只有三次, 或一分钟内不输入密码就自动退出等。

选择案例时, 要注意符合学生当前水平, 循序渐进, 由易到难, 使他们享受到成功的喜悦, 避免难度过大, 打击学生自信心。

2.5 充分运用多种教学方法

VB程序设计课时少, 但内容繁多, 要想在有限课堂时间内达到最优教学效果, 就需要灵活运用多种教学方法, 在不同阶段采取不同的教学手段。如问题探究法。在课堂上, 教师要先抛出有关提问, 引导学生思考分析, 然后再讲解分析问题, 提出解决问题的办法和思路。问题探究法目的明确, 便于教师掌控课堂节奏, 有利于培养学生的自主思维能力;此外, 还有任务驱动法。这种教学方法以学生为主体, 教师要针对不同的学生选择难易程度不同的任务, 因材施教, 保证每个学生都能顺利完成任务, 并从中学到相应的知识, 培养学生自主动手能力和解决问题的能力。

2.6 采用灵活的考核方式

VB程序设计课程实践性强, 仅依靠期末考试并不能完全有效地反映学生的学习效果, 同时, 为防止部分学生投机取巧, 期末突击复习, 对学生水平的考核应贯穿整个学期。教师可以把整个考核可分为四部分:平时作业占20%、实际操作占25%、综合设计占25%、期末考试占30%, 使学生重视学习过程, 并保证考核的有效性和全面性。

2.7 鼓励学生“学以致用”

兴趣是最好的老师, 而实践是实现兴趣的最好途径。在学习一定的VB程序设计知识后, 教师应把握时机, 把学生分成若干小组, 设定一些与实际生活密切相关的任务, 如图书管理系统、饭堂管理系统等, 要求学生按时完成任务, 比并评比哪个小组完成得最好, 这样不但能激发学生的好胜心, 提高他们的实际操作能力, 还能培养他们的团体合作能力, 让学生认识到VB程序设计的实用价值, 从而培养他们学习自主性和积极性。

2.8 教师应“与时俱进”

由于计算机技术知识更新快, 因此, 教师应“与时俱进”, 不要仅围绕教材的编程和实例来授课, 要在平时多研究新技术, 累积编程经验, 充实知识储备, 多与同行交流经验, 改进教学方法, 提高教学质量, 满足学生需求。

3 结语

实践证明, 越来越多的学生对VB程序设计有较高兴趣, 其由被动学习变为主动求知。很多学生学习VB程序设计后, 计算机技术水平大大提高, 就业后能快速上手工作, 运用计算机技术解决诸多工作上的问题。因此, 师生都应重视VB程序设计学习。

摘要：VB程序是Visual Basic编程语言, 是高校计算机专业的一门基础课程, 目前已被大多数高校设为公共必须课。现就VB程序设计在教学中出现的一些问题进行分析, 并提出一些针对性建议。

关键词：VB程序设计,教学,实践

参考文献

[1]贾长云.VB教学之我见[J].中国职业技术教育, 2004 (2) .

《VB程序设计》教学方法与分析 第4篇

【摘要】VB是一门面向对象的程序设计语言，本文就中职学校该门课程的教学方法以及如何提高学生的知识运用能力和程序开发能力进行了探讨。

【关键词】程序设计；探讨；实践

传统程序设计一般采用模块化结构的思想，是一种面向过程的程序设计方法，就是做什么、怎么做的过程。而VB是面向对象的程序设计方法，是以事件驱动为目的的。本文通过分析Visual Basic程序设计课程的特点，对该课程教学思想、教学方法与教学过程方面作了一些探索和实践。

一、采用问题驱动法，激发学生的学习主动性和加深对一些概念的理解。

在VB程序设计课程中，有一些概念之间的差别和程序的设计步骤如果只通过教师讲述，学生在字面上可以接受，但在理解深度上往往难以达到令人满意的效果，如果能设计出一系列问题，让学生在实践和解决问题的过程中自己去探究和体验，情况将完全是另一个样子。比如，VB中的数据类型是一个学生比较抽象难懂的问题，为了让学生切身感受整型变量、单精度变量、双精度变量所能保存数据范围的不同，我设计了如下的实验过程：

首先让学生在窗体的Click事件中编写一段程序，求5！，通过调试，学生很快编写好如下程序：Dim I As Integer：Dim X As Integer：X=1：for I=1 to 5：X=X*I：Next I：Print “X=”；X，按F5键运行，得出5！的正确结果。然后让学生把程序稍微修改一下，求10！，这时很多学生迅速将程序修改为如下形式：Dim I As Integer：Dim X As Integer：X=1：For I=1 to 10：X=X*I：NextI：Print “X=”；X，按F5键运行，结果发现屏幕上并没有如预期想象的那样给出正确结果，而是显示出一个“数据溢出”的错误提示对话框，这时学生纷纷提问，百思不得其解。这时教师适时地进行点拨，提示学生将数据类型进行修改，把变量X定义为单精度型，试试看运行情况如何。代码如下：Dim I As Integer：Dim X As Single：X=1：For I=1 to 10：X=X*I：Next I：Print “X=”；X ，再按F5键运行，计算机给出正确结果。此时学生已基本明白了不同数据类型对数据取值范围的影响，这时教师再继续提出问题，要求学生修改程序，求100！，代码如下：Dim I As Integer：Dim X As Single：X=1：For I=1 to 100：X=X*I：Next I：Print “X=”；X ，按F5键运行，学生发现计算机又显示“数据溢出”错误。这时大家都猜到问题可能是出在变量所定义的数据类型上，纷纷修改数据类型，将程序中变量X定义为双精度类型：Dim I As Integer：Dim X As Double：X=1：For I=1 to 100：X=X*I：Next I：Print “X=”；X ，再按F5键运行，计算机给出正确结果，问题解决。到此为止，教师的教学目标已基本达到。

二、采用是实践教学法，增进学生的学习积极性和形成对新概念的认识。

程序设计是应用性很强的一门课程，它既有理论又有实践，既讲方法又讲动手能力。教授程序设计，象任何其他语言的程序设计一样，教材中前几章多数都是先介绍对象、对象的属性、方法和事件及语言基础等等一系列的在程序设计中比较抽象难懂的概念，然后才介绍程序的建立和运行。从知识的逻辑结构体系考虑，这样安排无可非议，但从学生的认知规律考虑，学生在毫无知识背景的前提下，要完全理解这些概念比较困难，同时也容易挫伤学生学习编程的积极性，教学效果可想而知了。因此在教学中，我打破课本原有以知识的逻辑结构体系为顺序组织课堂教学的方式，改用从简单的实例入手，通过让学生观看、模仿，在实际操作中去探究和领悟这些概念，并适时地加以归纳总结，让学生在轻松愉快的气氛中接受新知识。

三、采用条件迁移法，培养学生的创新思维和促进学生综合编程能力的提高。

条件迁移法是指在教学过程中，注意通过在书本原有程序的基础上逐渐改变和增加条件的方法来提高学生对程序的分析理解和举一反三的综合能力。

例如，学生在学习For……Next循环时，书本内给出了一段求1到100之间所有奇数和的程序。代码如下：Dim S as Integer：Dim I as Integer：S=0：For I=1 to 100 Step 2：S=S+I：Next I：Print “S=”；S，这段程序在学生弄懂FOR……NEXT循环语句之后，理解起来是并不困难的，但为了提高学生的综合编程能力，我要求学生对原程序条件做如下几种变化：

⑴求1到100之间所有偶数的和，要求步长为2。

⑵求1到100之間所有偶数的和，要求步长为1。

这里第⑴小题和课本原程序相比难度不大，只要将循环控制变量的初始值改为2即可，学生通过模仿就可以完成。第⑵小题增加了难度，在编程过程中，需要做两点变化：一要将循环控制变量的变化范围改为从1到50，二要修改循环体，将循环体语句变为S=S+2*I。要做到这些变化，需要学生对For……Next循环语句有比较深刻的理解并能创造性地予以运用。对刚刚学习编程的学生来说这还是有一定难度的，但通过练习，学生的创新思维和综合编程能力可以得到训练和明显提高。

四、运用多媒体辅助教学法，培养学生的形象思维和促进学生学习效率的提高。

传统的教学方法是“黑板+粉笔”，而多媒体辅助教学法是利用先进的计算机、互联网等多媒体技术进行授课的一种新型的教学方式。与传统的教学手段相比它的优点是：节约了板书时间，加大信息量，开阔知识面。并能挖掘出课本文字达不到的直观、动态效果，使难以理解的抽象理论形象化、生动化，将学生带入模拟场景，达到提高教学效率、增强学生学习兴趣的目的。

vb试题及答案 第5篇

一、单项选择题(每题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上机试题及答案 第6篇

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