vb语言程序设计教案（精选6篇）
vb语言程序设计教案 第1篇
课
题：vb语言编程概述 课 时:2课时 授课时间：2011.09.05 课堂类型：讲授
教学目的：1.熟悉VB界面和VB集成开发环境；
2.在实际操作中学会编简单的VB应用程序；
教学要求：1.掌握VB基础知识。
2.会编简单的VB应用程序。
教学重点：1.熟悉VB集成开发环境
2.编写简单VB应用程序。
教学难点：在熟悉VB界面的同时学习编写简单VB应用程序 教学方法：讲授 教学过程：
一、VB简介
BASIC是英文Beginner’s All-purpose Symbolic Instruction Code（初学者通用符号指令代码）的缩写，它是专门为初学者设计的高级语言。Visual Basic是Microsoft公司于1991年推出的基于窗口的可视化程序设计语言。
a．“Visual”是“可视化的”、“形象化的”的意思。b.因此Visual Basic也具有易学易用的特点
c.目前Visual Basic的最新版本是Visual Basic 6.0（简称VB 6.0）
二、启动VB
1、首先显示“新建工程”对话框
直接单击“打开”按钮，创建“标准EXE”类型应用程序，进入集成开发环境主界面。
2、集成开发环境中的各元素 1）标题栏：用来显示窗口的标题。2）菜单栏 3）工具栏 4）工具箱 5）窗体窗口 6）工程窗口 7）属性窗口 8）窗体布局窗口
三、通过一个简单的应用程序快速入门
【例1.1（实训1，p16）】制作一个的一个简单的应用程序的运行界面。它由一个窗体、一个文本框、一个标签和一个命令按钮组成。当用户单击命令按钮“显示”时，文本框中出现“教你学VB”。1．新建工程 2．添加文本框Text1 3．添加命令按钮Command1 4．添加标签Label1 5．设置属性 6．编写事件过程代码
前面的工作把应用程序的界面设计好了，属性也设置完毕。但现在应用程序并不能实现实际的功能。为了使它具有一定的功能，还必须为对象编写实现某一功能的事件过程代码。1）双击窗体上的“显示”按钮，屏幕上出现代码窗口，程序代码就在这里编写。编写如下事件过程：
Private Sub Command1_Click（）Text1.Text = “欢迎使用VB” End Sub 2）运行应用程序 3）保存应用程序
VB应用程序至少有两种文件需要保存： · 窗体文件（.frm）· 工程文件（.vbp）4）生成EXE文件
四、总结步骤
设计VB应用程序主要有以下4个步骤：（1）设计用户界面。（2）设置属性。（3）编写代码。（4）保存和运行调试程序，生成EXE文件。
五、知识延伸
1、只有一个文本框的实例 编写如下事件过程：
Private Sub Command1_Click（）Text1.Text = “教你学VB“ End Sub
2、多个文本框时 编写如下事件过程：
Private Sub Command1_Click（）Text1.Text = ”教你学VB“ Text2.Text = “欢迎使用VB“ End Sub
3、按照系统的元件特性分类(分别举例说明)课后实训1 第二个命令按钮：清除 第三个命令按钮：退出 步骤：
1.添加2个命令按钮 2.双击按钮，进入编程状态 3.和显示按钮命令编程相似 编写如下事件过程： Private Sub Command2_Click（）Text1.Text = ” “ End Sub Private Sub Command3_Click（）End End Sub
4、图片的加载方法
Private Sub Form_Load()Image1.Picture = LoadPicture(App.Path + “1.BMP”)End Sub
六、小结 1.熟悉界面。
2.掌握完整编程过程以及运行及调试程序的过程。
vb语言程序设计教案 第2篇
浅谈VB语言程序设计课程教学策略
通过VB语言程序设计课程的教学实践和时其理论的思考,结合多年讲授课的实际教学经验,从培养学生学习兴趣、教学方法和考核方式等方面阐述了教学经验和体会.以达到提高计算机语言课程教学质量的.目的.
作 者：杨世福 作者单位：辽宁地质工程职业学院,辽宁,丹东,118009刊 名：中国新技术新产品英文刊名：CHINA NEW TECHNOLOGIES AND PRODUCTS年，卷(期)：“”(12)分类号：G71关键词：《VB程序设计》 学生学习兴趣 教学方法 考核方式
VB程序设计语言教学方式的探讨 第3篇
(一) 对书本知识进行精心编排, 注重背景知识和基本概念的结合
我们注意到, 在VB程序设计语言的教材布局上, 往往是先从基本的语法现象入手, 比如先介绍数据类型常量变量等, 实际上, 教学过程中演示这些基本数据类型的例子本身就会涉及对象、属性、事件、方法。VB课程的教学是面对非计算机专业学生, 缺乏对windows程序运行机制的相关背景知识。因此, VB教学中, 讲解基本概念和VB的事件驱动机制、可视化程序设计必须结合在一起。如果教师在讲解基本概念的时候照本宣科, 演示数据类型的程序实例的时候, 由于对VB的运行机制和可视化程序设计的方式不了解, 学生的注意力并不关注也不理解教师讲解的内容, 而是去思考这个程序的实现过程是什么, 可是由于没有关于对象的基本概念, 立刻造成了理解障碍, 不但对应该掌握的知识点一头雾水, 对程序设计也产生了一种恐惧心理, 这个是我在VB教学中的深刻体会。
因此, 在VB教学中教师应当时刻关心学生的知识结构, 从学生的思维角度去考虑问题, 必要的整合教材的相关知识点, 特别要注意相关知识点的穿插讲解, 打破学生的思维障碍。比如在讲解VB循环结构的时候, 可以和后面的数组知识联系起来, 使学生明白为什么在有了变量这个概念以后还需要引入数组, 而且通过循环结构对数组元素的打印, 深化对循环结构的认识。有机地改变课本知识的逻辑结构, 以相关的知识点灵活组织课堂教学, 通过让学生观看, 在实际操作中主动模仿, 领悟这些概念, 最终引导学生明白抽象的理论知识并不神秘, 让学生在轻松愉快的气氛中接受新知识。
(二) VB程序设计是面向应用的科学, 注重理论和动手的结合
1.注重基本问题的上机操作。对VB有恐惧心理的同学往往是在学习的初期没有能够理解VB的上机环境, 数据类型, 变量等最基本的概念, 而这些概念通过上机的直接观察是很容易理解的。教师在教学中一定要把握住学生的思维和背景知识, 一个简单的概念经常成为学生学习程序设计语言的重大障碍, 对学生的自信心和学习热情都会产生影响。因此, 在VB教学的初期, 要把基本的上机操作和基本的语法知识结合介绍相关的背景知识讲透, 为学生的上机操作和后续学习扫清不必要的障碍。
2.演示实例, 引导学生模仿。教师可以通过对实例系统的调试、改进, 开拓学生编程思路, 融合相关的知识点, 必要时候允许学生通过模仿、达到熟练掌握的目的。模仿是学习程序设计重要的一环, 即使对熟练的程序设计人员而言, 也常常需要参考, 或者说模仿别人成熟的代码, 整个是程序开发的基本特点。因此, 教师应鼓励学生采用模仿的方式去实现不同的应用需求, 达到灵活应用, 举一反三。
3.深化实践教学, 以理论课教学为基础, 通过案例的整合, 形成不同层次的上机项目, 供学生选择。对于理解能力强的学生而言, 可以通过有一定难度的实践课, 达到培养学生分析问题和解决问题的能力, 为今后的深入自学打下良好的基础。对掌握综合案例有困难的学生, 老师更应以基本案例为基础, 强化基本知识点, 逐步提高这类学生对VB的学习能力。教师应亲自指导, 与学生一起上机实验, 随时监控学生实验过程。对学生提出的问题及时予以指导, 发现学生常犯的共性错误, 可在理论课上进行点评。
(三) 教学手段多样化
根据程序设计课程的特点, 除了采用传统的教学方法如:引入问题、问题讨论、概念解析外, 可以采用教学手段结合进行:
1.独立实例和综合实例结合进行
独立实例教学法可以加强对每个知识点的运用和理解, 但对前后知识往往没有连贯性, 对学生的实际应用能力提高不大。因此在教学实践中体会到, 除经典的独立实例外, 将一个有实用价值的、典型的、规模较大的、综合实例的实践应用于教学全过程, 不但可以对整个VB应用程序的开发有观念上的认识, 也可以全面提高学生的编程能力。如提出问题:设计一个“学生管理系统”。首先, 用最基本的概念和最简单的界面, 给出该系统的第一个框架版本, 以后的每一次课, 都对该系统提出新的功能和结构上的要求, 并用本次课介绍的新概念和新方法对它进行功能上的扩充和结构上的改进。每次得到该系统的一个增强的新版本。学生随着教学的深入, 会更有兴趣地积极投入到对实例系统的调试、改进中, 不但掌握了所学的基本知识, 同时也提高了编程能力。
2.通过分析上机错误, 引导学生理解课本上的概念, 学习调试方法。
学生对数据类型、变量、运算符、表达式等语言规则的掌握需要一个过程, 对结构化程序设计的知识需要不断积累。经常听到学生反映能听懂老师授课的内容, 但自己编制的程序往往在机器上难以运行。课堂上, 可以将容易出错的概念以反例形式展示给学生, 让学生主动找错误, 通过上机运行去发现, 比如下面错误使用逻辑运算符的例子。
用if语句编程计算下列分段函数值:
学生往往编写为:
Private Sub Command1_Click ()
Dim x!, y!
x = Val (InputBox (“x=”) )
y = x * x - x– 1
If x < 0 And x <> -3 Then
y = x * x + x– 6
ElseIf 0 <= x < 10 And x <> 2 And x <> 3 Then
y = x * x - 5 * x + 6
End If
Print “x=”; x, “y=”; y
End Sub
ElseIf 0 <= x And x < 10 And x <> 2 And x <> 3 Then
乍看起来, 似乎程序没有什么错误, 实际上学生把数学符号的用法和VB中符号的用法混淆了。在VB中0<=x<10的表示方法虽然能够使程序运行下去, 但含义发生了变化。比如输入x=10的时候, 程序得到错误的结果为56, 这是因为, VB首先计算0<=10为True, 然后计算出True<10的结果仍然为真, 因此有10*10-5*10+6=56这个错误结论。正确结果应该把0<=x<10改写为0 <= x And x < 10, 这样当输入x=10时, 0<=10为True, x < 10为False, 整个表达式的结果为False, 程序的分支应该走的是y = x * x– x–1=10*10–10–1=89这条语句的结果。通过诸如此类的反例教学, 使学生对分支语句以及VB逻辑运算符的理解达到一个新水平。
(四) 用直观的方式培养学生利用程序设计语言理解和实现算法的能力
算法 (Algorithm) :计算机解题的基本思想方法和步骤。学生算法思维的形成是程序设计语言教学中的难点, 也是学好程序设计语言最重要因素。程序本质上就是用一定的语法去实现算法思想, 教学中, 我往往采用直观教学法来让学生去理解算法, 因为算法本身就是一种解题方法和步骤, 可以让学生代表不同的数字排列起来, 通过表演的方式模拟冒泡排序, 课堂不但活跃, 而且学生也非常轻松地理解了。
二、结束语
通过VB程序设计语言的教学, 使我逐步认识到程序设计语言教学是一项复杂的系统工程, 随着计算机科学的发展, 对教师的教学水平的要求也越来越高, 尽管在教学实践中总结的一些经验, 获得了一些效果, 但与因材施教的教学模式仍有差距。教学上的改革和探索一定要与实际相结合, 遵循因时、因地、因人而异的原则, 采用灵活多样的教学手段、教学方法, 充分调动学生的积极性, 培养学生自主学习的能力, 为学生今后各个领域的学习和研究打下坚实的基础。
摘要：对于非计算机专业的学生来说, Visual Basic高级语言程序设计课程的学习, 为用计算机解决自身专业相关的实际问题提供一种重要途径。作为非计算机专业公共基础课, 其理论性、实践性强, 教学难度相对加大。文章就如何提高VB程序设计课程的教学质量, 进行了多层面的探索, 强调了教师在教学活动中的灵活性和主动性, 注重多种教学手段和方式的结合。目的是通过程序语言的学培养学生的基本计算机素养, 为学生今后的发展打下良好的基础。
关键词：VB,程序设计,实例,多层次
参考文献
[1]吴长海, 陈达.Visual basic程序设计教程[M].湖北科学技术出版社, 2007, (1) .
vb语言程序设计教案 第4篇
【关键词】VB语言；程序设计；教学改革
Discussion on the teaching reform and practice in the " VB language programming" course
WANG Li
（Information department in Yangtze University College of Technology &Engineering Hubei Jingzhou 434020）
【Abstract】"VB programming language" is a very practical course.Traditional teaching methods and means can not meet the needs of the development,combined with the student's actual situation,I propose the reform measures based on teaching problems in the course as the starting point in this paper.Practice has proved,after improving the teaching methods,on the cultivation of students' practical ability,thinking ability,and innovation ability are obtained remarkable result,so as to achieve the educational purposes to apply their knowledge.
【Key words】VB language; Programming; Teaching Reform
0.引言
《VB语言程序设计》课程是为非计算机专业学生开设的第一门程序设计课程，是高等學校理工科学生的公共基础课。该课程是一门实践性很强的课程，要求学生既要掌握理论知识，同时又要具备一定的实践能力。
目前，该课程的课堂教学大多采用传统的讲授式教学法，其结果是学生一开始学习VB语言就进入到这些语法知识记忆和理解中，导致学生在上课开始反映VB语言难懂、难学，只会照着书本上的例子进行验证，要独立完成程序编写常常感到无从下手。因此，提高《VB语言程序设计》课程的教学质量是课程改革的一项急迫任务。
1.课程教学中存在的问题
该课程中涉及的概念多而杂，数据类型及表达式丰富，语法结构复杂，对于初学者来说是一门较难的课程。在传统的程序设计教学中，采用的是“以教为主”的讲授教学法。教学的内容以单向传输为主，教师灌输知识，学生被动接受知识。由于教学环境的改进，目前大多数的程序设计课程都是在多媒体教室上课，课堂的信息量一般都比较大，连续高强度听课，导致学生注意力下降，课堂显得枯燥乏味，学生提出问题、分析问题和解决问题的能力都不能得到很好地培养。
目前，在《VB语言程序设计》课程教学中存在着以下几方面的问题：
1.1没有充分调动学生学习的积极性
在课程教学中，教师往往会在第一次课上向学生说明该课程的性质和学习的目的及用途。但是，随着教学的进行，不断出现的语法规则及大量琐碎的知识点，让学生感到学习内容的枯燥乏味，加之，缺少有效的实践环节，致使学生听课没有兴趣，缺乏主动性。
1.2教学方法陈旧
教师讲授该课程时一般是介绍基本语句，语法要点，然后是讲解例题。学生在前几次课还可以较好地领会与掌握，随着教学的深入，概念的增多，学生愈来愈感觉VB语言难以掌握，对其产生“望而生畏”的厌烦心理。
1.3对于实践教学环节重视不够
《VB语言程序设计》课程是一门实践性很强的学科，书本中的理论只有在实践中才能得以验证，在制定教学计划时，由于受传统教学观念影响，致使VB语言理论学时远高于实践学时，实践学时的不足也影响学生实践环节的学习效果。
1.4课程的考核方式缺乏有效性
考试是现行教学模式下检验和评价“教”与“学”效果的最常用手段。VB语言本身是一门实践性很强的课程，学生是否已掌握和理解所学的知识，设计算法解决问题，将算法转化为计算机程序，需要通过在计算机上实际操作，并以能否顺利调试通过为标准来考核。而在具体的教学过程中，一般教师很难做到这一点。
2.课程教学改革的方法和策略
针对传统VB语言教学中出现的种种问题，本人总结讲授VB语言的教学经验，同时借鉴众多教师的教学改革实践经验，通过以下几个方面来提高本课程的教学效果：
2.1激发学生的学习兴趣
兴趣是最好的老师，要使学生学好VB语言，必须让他们对编程产生兴趣。在教学实践中，应根据学生的认知程度和学习特点，合理安排和调整授课内容。在学习之初，教师应设法充分调动学生的学习兴趣，特别是第一堂课的教学尤为重要。教师要精心设计第一节课的教学内容，做到先入为主，引起学生的学习兴趣。
我国对于大学生的认证考试有很多，学习该课程后，我们鼓励学生参加全国计算机等级考试二级考试(VB语言)或参加全国计算机水平和资格考试初级程序员或程序员级的考试，拿到计算机专业资格证书，提高了学生走向社会的市场竞争能力，同时也能极大限度地激发学生学习的积极性。
vb语言程序设计教案 第5篇
1.编制程序实现：在窗体上，单击按钮1，在文本框中动态显示当前时间；单击按钮2，则停止动态显示；单击按钮3，清除文本框内容。提示：可用定时器控制时间，用系统函数Now显示时间（如Text1.Text = Now）。
2.编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输出。
3.编制程序：利用输入框输入10个不同的整数，将它们从小到大排序，并打印输出。4.编制程序实现：设计在一框架中包含三个复选框，只有当其1,3选中而2未选中时，才在Text1中显示“Hello”字符。
5.编一程序能实现在窗体上打印出如下图所示的图形。
A AAA AAAAA AAAAAAA BBBBBBB BBBBB BBB B 6.编一程序用于判断一正整数是否为素数。（提示：只能被1和本身整除的正整数称为素数。为了判断一个数n是不是素数，可以将n被2到sqr(n)之间的所有整数除，如果都除不尽，则n就是素数，否则n是非素数。）
7.选用If和Select判断结构中任意一种编写满足下列条件的计税要求的程序：少于1600元，免税；1601-5000元，征2%的税；多于5000元，超过部分征5%的税。
8.有a、b、c三个数，编一程序实现通过文本框给a、b赋值；再调用能完成a、b比较大小的子过程，用c将大数回传。要求按值传送a、b。
9.编一程序用于求所有的“水仙花数”。所谓“水仙花数”是指一个3位数，其各位数字立方和等于该数本身。例如：153就是一水仙花数，因为153 = 13+53+33。
10.设计一弹出式菜单，用于设置窗体的背景色，背景色包含白色、黄色、红色三种颜色。11.编写程序实现：输入三角形的三条边a,b,c的值，根据其数值判断能否构成三角形。如果能，则判断三角形是否是直角三角形，若是则计算该直角三角形的面积。
提示：判断能否构成三角形的方法是，求最长的一边，判断它的边长是否小于另外两边边长之和；或求最短的一边，判断它的边长是否大于另外两边之差。
12.编写程序：通过四个命令按钮Command1-Command4，在图片框Picture1内分别实现画点、画线、画圆、擦除等功能。
13.编写程序实现：在窗体上单击按钮1，可通过输入对话框输入两个字符串；单击按钮
2，将输入的两个字符串连接为一个字符串，并计算该字符串长度，然后在消息框中显示出来。
14.编一程序：用三个文本框分别输入a、b、c，求一元二次方程ax2+bx+c=0的解x1和x2，只包括实根。
15.编一程序：利用输入对话框输入两个正整数，求最大公约数。
答案
1.Private Sub Command1_Click()
Timer1.Interval = 5
Timer1.Enabled = True End Sub Private Sub Command2_Click()
Timer1.Enabled = False End Sub Private Sub Command3_Click()
Timer1.Enabled = False
Text1.Text = “" End Sub Private Sub Timer1_Timer()
Text1.Text = Now End Sub
2.Private Sub Command1_Click()Dim i, s As Integer For i = 100 To 200
If i Mod 3 = 0 Then s = s + i Next i MsgBox(”100-200之间所有可以被3整除的数的总和为：“ & Str(s))End Sub
3.Private Sub Command1_Click()Dim a(9), i, j, m As Integer For i = 0 To 9
a(i)= Val(InputBox(”
For i = 0 To 9
For j = i + 1 To 9
If a(i)> a(j)Then
m = a(i)
a(i)= a(j)
a(j)= m
End If
Next j Next i For i = 0 To 9
Print a(i);Next i End Sub
4.Private Sub Command1_Click()If Check1.Value = 1 And
Check2.Value = 1 And Check3.Value = 0 Then Text1.Text = “Hello” End If End Sub
5.Private Sub Command1_Click()Dim i, j As Integer For i = 1 To 4
For j = 1 To(2 * i1)To 1 Step-1
Print “B”;
Next j
Print Next i End Sub
6.Private Sub Command4_Click()
Dim n, k, i, temp As Integer
n = InputBox(“请输入一个正整数”)
k = Int(Sqr(n))
i = 2
temp = 0
Do While i <= k And temp = 0
If n Mod i = 0 Then
temp = 1
Else
i = i + 1
End If Loop
If temp = 0 Then
Print n;“是一个素数”
Else
Print n;“不是素数”
End If End Sub
7.Private Sub Command1_Click()Dim n, p As Single n = Val(Text1.Text)Select Case n
Case Is <= 1600
p = 0
Case 1600 To 5000
p =(n5000)* 0.05 End Select End Sub
8.Private Sub c1(ByVal a As Single, ByVal b As Single, c)If a > b Then c = a Else c = b End Sub
Private Sub Command1_Click()Dim a, b, c As Single a = Val(Text1.Text)b = Val(Text2.Text)
Call c1(a, b, c)
Print c End Sub
9.Private Sub Command1_Click()Dim a, b, c, n As Integer For n = 100 To 999
a = Int(n / 100)
b = Int((n(a * 100 + b * 10)
If n = a ^ 3 + b ^ 3 + c ^ 3 Then Print n;
Next End Sub
10.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu MenuA
End If End Sub
Private Sub B_Click(Index As Integer)
Select Case Index
Case 1
Form1.BackColor = vbWhite
Case 2
Form1.BackColor = vbYellow
Case Else
Form1.BackColor = vbRed
End Select End Sub
11.Private Sub Command1_Click()Dim a(2), i, j, m As Integer For i = 0 To 2
a(i)= Val(InputBox(“
If a(i)> a(j)Then
m = a(i)
a(i)= a(j)
a(j)= m
End If
Next j Next i If a(0)+ a(1)> a(2)Then
If a(0)^ 2 + a(1)^ 2 = a(2)^ 2 Then
Print ”能构成直角三角形,面积为：“ & a(0)* a(1)/ 2
Else
Print ”能构成三角形，但不是直角三角形“
End If Else
Print ”不能构成三角形“ End If End Sub
12.Private Sub Command1_Click()Picture1.PSet(Picture1.Width / 2, Picture1.Height / 2)End Sub
Private Sub Command2_Click()Picture1.Line(0, 0)-(Picture1.Width, Picture1.Height)End Sub
Private Sub Command3_Click()Picture1.Circle(Picture1.Width / 2, Picture1.Height / 2), 800 End Sub
Private Sub Command4_Click()Picture1.Cls End Sub
13.Dim a, b, c As String Private Sub Command1_Click()a = InputBox(”请输入
Private Sub Command2_Click()c = a + b MsgBox “连接后的字符串为：” & c & “。长度为：” & Len(c)End Sub
14.Private Sub Command4_Click()a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a = 0 Then
x =-c / b
Print x Else
t = b * bSqr(t))/ 2 / a
Print X1, X2
End If End If End Sub
vb语言程序设计教案 第6篇
一、单选题
1.Visual Basic是一种面向（D）的程序设计语言。
A.用户 B.事件 C.程序 D.对象
2.在Visual Basic6.0中规定工程文件的扩展名是（A）。
A.vbp B.for C.frm D.bas 3.Visual Basic6.0中规定窗体文件的扩展名是（B）。
A.for B.frm C.vbp D.bas 4.如何使一个标签或按钮控件在运行时不可用（C）。
A.把它的Visible属性设置成False B.把它的Visible属性设置成True C.把它的Enabled属性设置成False D.把它的Enabled属性设置成True 5.控件的字体可在属性窗口的（A）属性中调整？
A.Font B.Color C.Text D.Caption 6.若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（C）。
A.Value B.Cancel C.Default D.Enabled 7.在VB中，记录对象数据的是（C）。
A.方法 B.事件 C.属性
D.语句
8.在文本框上显示文本的属性是（B）。
A.Value B.Text C.Print D.Enabled 9.InputBox函数返回值的类型为（A）。
A.字符串 B.数值 C.变体
D.数值或字符串（视输入的数据而定）
10.设有语句：a = InputBox(“请输入数值:”,“输入示例”, “100”)程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（A）。A.字符串“20” B.字符串“120” C.默认值100 D.数值120 11.下列控件中可用于接受用户输入文本，又可用于显示文本的是（B）。
A.Label控件 B.TextBox控件 C.Timer控件
D.CommandButton控件
12.语句PRINT “25*4”的输出结果是（A）。
A.25*4 B.“100” C.100 D.出现错误信息
13.只能用来显示字符信息的控件是（B）。
A.文本框 B.标签框 C.图片框 D.图像框
14.下列可作为Visual Basic变量名的是（D）。
A.A%A B.4A C.?xy D.Stemp 15.下列哪个符号不能作为VB中的变量名（D）。
A.timefly
B.pass4 C.min4max D.R[8] 16.在窗体内声明的变量是（B）。
A.局部变量 B.模块变量 C.公共变量 D.任意变量
17.语句Dim x As Integer作用是:将x定义为（B）变量。
A.单精度型 B.整型 C.布尔型 D.字符型
18.在VB中,用Boolean来表示的数据类型是（C）。
A.长整型 B.字符型 C.布尔型 D.单精度型
19.定义常量需要用到的关键字是（A）。
A.Const B.Dim C.Private D.Public 20.如果要处理3.1415类数据，使用的变量类型应该是（A）。
A.Single B.Long C.Integer D.String 21.表达式2*3^2+2*8/2+3^2的值为（C）。
A.27 B.31 C.35 D.42 22.数学表达式 X^2+3XY对应的VB算术表达式是（C）。
A.X*2+3X*Y B.X*X+3XY C.X*X+3*X*Y D.X*X+3*XY 23.在VB语言中，求余运算符是（B）。
A.％ B.MOD C.* D./ 24.判断两个逻辑关系任一满足的逻辑运算是（A）。
A.Or B.And C.Not D.Ok 25.表达式4+5 6 * 7 / 8 Mod 9 的值是（B）。
A.4 B.5 C.6 D.7 26.选拔身高T超过1.7米且体重W小于60公斤的人，表示该条件的布尔表达式为（C）。
A.T>=1.7 And W<=60 B.T<=1.7 Or W>=60 C.T>1.7 And W<60 D.T>=1.7 Or W<60 27.VB中下列逻辑表达式书写正确的是（A）。
A.a>b and a>c B.a>b>c C.a≤b D.a≠122 28.设x=4,y=8,z=7，表达式x A.1 B.-1 C.TRUE D.FALSE 29.Sqr(81)+Fix(3.6)的值是（A）。 A.12 B.7 C.8 D.9 30.把字符串“123”转换为数值123 时应该使用的函数是（B）。 A.Str B.Val C.Len D.Log 31.表达式Abs（-3）+int(3.14)的值为（B）。 A.5 B.6 C.0.14 D.6.14 32.Int(Rnd * 100)表示的是（C）范围内的一个整数。 A.[0,100] B.[1,99] C.[0,99] D.[1,100] 33.Len(“Friend”)的值是（A）。 A.6 B.7 C.8 D.9 34.Int(-3.14)的值是（C）。 A.-3 B.-3.14 C.-4 D.3.14 35.Right（“banana”, 4）的值是（C）。 A.ba B.banana C.nana D.ban 36.表达式 Mid(“Hello”, 2, 3)的值是（C）。 A.“ll” B.“llo” C.“ell” D.“ello” 37.语句if 3*4>=10 then a=1 else a=2 执行后，a的值为（CA.12 B.10 C.1 D.2 38.语句If x=1 Then y=1,下列说法正确的是（C）。 A.x=1和 y=1 均为赋值语句 B.x=1和 y=1均为关系表达式 C.x=1为关系表达式，y=1为赋值语句 。）D.x=1为赋值语句，y=1为关系表达 39.下面程序段中，（D）不是把两个数中的大值赋给变量Ｍax。 A.Max=IIf(x>y,x,y)B.If x>y Then Max=x Else Max=y C.Max=x ：If y>=x Then Max=y D.If y>=x Then Max=y Max=x 40.在Select判断结构中，下面的表述中不正确的是（B）。 A.Case 1 B.Case a > 5 C.Case 3 To 6 D.Case is <10 41.由“For i=1 To 16 Step 3”决定的循环结构被执行（C）次。 A.4 B.5 C.6 D.7 42.Dim a(5, 5)As Long 定义的数组元素的个数是（D）。 A.10 B.11 C.25 D.36 43.用于清空数组数据的关键字是（A）。 A.Erase B.Lbound C.Ubound D.Redim 44.下列关于do while „loop 和do„loop while循环执行循环体次数的描述正确的是（B）。 A.do while „loop循环和do„loop while循环至少都执行一次 B.do while „loop循环可能不执行，do„loop while循环至少执行一次 C.do while „loop循环至少执行一次，do„loop while循环可能不执行 D.do while „loop循环和do„loop while循环可能都不执行 45.For5 Print y End Sub 程序运行后，单击命令按钮，其输出结果为_20_ _。 83.阅读下列程序段 Private Sub Command3_Click() Print pl(3, 6)End Sub Public Function pl(x As Single, n As Integer)As Single If n = 0 Then pl = 1 Else If n Mod 2 = 1 Then pl = x * x + n Else pl = x * xy End Sub Private Sub Command2_Click() Dim a As Single, b As Single a = 6 b = 4 Call S(a, b) Print a, b End Sub 程序运行后，单击命令按钮输出结果为12、2。 89.阅读下列程序段 Dim a(3, 3)As Integer For m = 1 To 3 For n = 1 To 3 a(m, n)=(m1) Print “A”; Next j Print Next i For i = 4 To 1 Step-1 For j =(2 * i1600)* 0.02 Case Else p = 5000 * 0.02 +(na * 100)/ 10) c = n4 * a * c If t < 0 Then Print “无解” Else X1 =(-b + Sqr(t))/ 2 / a X2 =(-bn Do While r > 0 If n < r Then t = n: n = r: r = t End If m = n: n = r: r = m-n Loop Print n End Sub
