第1章 Visual 编程基础
第1次 测试题---数值类型与表达式
1、如果在程序中要将变量a定义为整形变量，则应使用的语句是
A、Dim a as Double
B、Dim a as String
C、Dim a as Integer
D、Dim a as Boolean
2、以下的数据类型当中,哪种不属于整数类型
A、Short
B、Long
C、Integer
D、Single
3、以下的数据类型当中,哪种不属于数字数据类型
A、String
B、Decimal
C、Single
D、Short
4、下面哪个函数可以把数字转换成字符串
A、Val
B、Str
C、Int
D、Rnd
5、下面哪个函数可以从字符串中提取出数值
A、Format
B、Int
C、Rnd
D、Val
6、在VB中，用Single来表示的数据类型是：( )
A、长整型
B、字符型
C、逻辑型
D、单精度型
7、下面哪一个不是Visual Basic保留的关键字？( )
A、Loop
B、More
C、Mod
D、If
8、在Visual Basic中，表示鼠标单击事件的是：( )
A、Activate
B、DoubleClick
C、Click
D、MouseDown
9、下列常量 “a”的声明中，不合法的是
A、Const a As integer=7
B、Const a as string="OK"
C、Const a As Double=3.14
D、Const a As Integer="12"
10、下面说法不正确的是()
A、变量名的长度不能超过255个字符
B、变量名可以包含小数点或者内嵌的类型声明字符
C、变量名不能使用关键字
D、变量名的第一个字符必须是字母或下划线
11、下列日期型数据正确的是()
A、@January 10,1985@
B、#January 10,1985#
C、"January 10,1985"
D、&January 10,1985&
12、标识符命名正确的一项是()
A、a-2
B、a_2
C、2a
D、a%2
第一次作业：数值类型与表达式
1、【作业1-1】实验教程p11,设计图1-11所示界面，编写程序实现简易算术计算器。 注意：整除(\)、取模(mod)时的操作数a、b均为整数；乘方(^)运算时操作数b应为整数。
2、【作业1-2】实践教程p11,设计如图1-12所示界面，编写程序实现求一个4位整数的各位数字之和。 提示：首先利用取模(mod)和整除(\)运算符分离出各位数字，然后再求和。
3、【作业1-3】实践教程p12，已知圆锥体的地面半径R和高H，求圆锥体的体积，程序运行界面如图1-13所示。Pi=3.14159，结果保留两位小数。圆锥体积公式：V=(1/3)×pi×R×R×H。
第2章 顺序结构程序设计
第2章作业--顺序结构程序设计
1、作业2-1 输入输出函数用法 编写程序，利用inputbox()从键盘输入4个整数，计算这4个数的平均值, 并利用msgbox()输出显示平均值，保留2位小数。
2、作业2-2 数学函数的用法 (参照：实践教程p12) 已知三角形的三边长a,b,c，求三角形的面积area。 公式为：area=sqrt(s(s-a)(s-b)(s-c)) 其中，s=(a+b+c)/2
3、作业2-3 随机数函数用法 (参照，实践教程 p16) 创建“随机数平均值”应用程序，程序运行界面如图2-1所示。单击“生成随机数”按钮，随机生成3个正整数，分别是2位数、3位数、4位数，单击“求平均值”按钮，计算它们的平均值。结果保留3位小数。
第3章 选择结构程序设计
第3章作业--选择结构程序设计
1、作业3-1 任意输入三个整数，按从小到大的顺序排序输出。 提示： a=? b=? c=? if ----then---- …….. …… Msgbox(str(a)+ "
2、作业3-2 输入年份，判断它是否为闰年，并显示有关信息。 判断闰年条件是：能被4整除但不能被100整除的年份；或者能被400整除的年份。
3、作业3-3 打折消费计算器设计 某商场店庆推出优惠打折活动，消费金额在1500元及以下的，实际消费金额按9.2折算；消费金额大于1500到3000元之间的部分，实际消费金额按7.8折计；消费金额在3000元以上的部分，实际消费金额按6.2折计。输入某消费者的消费金额，输出该消费者实际消费金额。 x <= 1500 按 9.2 折计 1500 < x <= 3000 按 7.8折计 x>3000 按 6.2 折计. 如：当输入消费金额2500时，分段打折后实际消费金额2160.
第4章 循环结构程序设计(1)
第4周作业--- 循环结构程序设计(1)
1、作业4-1 教材 P102 习题4-7) 利用for循环，编写应用程序，读入一行字符，统计其中有字母、数字、空格和其他字符的个数。
2、作业4-2 求出三位数中的水仙花数。 (教材p83) 例题4-4 提示：如果一个三位数的个位、十位和百位的立方和等于该数本身，则称该数为水仙花数。
3、作业4-3 (教材p102) 习题4-4 编写应用程序，输入若干(n个)学生一门课程的成绩，统计平均成绩、及格和不及格的人数。 提示：学生人数n的值用inputbox函数输入， n的值决定了for循环的次数。 n=? for i=1 to n x=val(inputbox("请输入第" &i &"个同学的成绩") ’求总成绩 ’分别统计及格和不及格人数 Next ‘ 求平均成绩’ ‘ 输入结果
4、作业4-4 利用嵌套for循环， 实现实验教程p46 ，图4-11所示格式的9*9乘法表。
第4章 循环结构程序设计(2)
第2次测试---程序基本结构
1、下列程序段的运行结果是：( ) Dim a, b, c As Intege a = 15 : b = 4 : c= 4 + a \ b Msgbox(c)
A、7
B、-7
C、7.75
D、8
2、下列程序段的运行结果是：( ) Dim A,B,C As Integer A = 1 ：B = 2 IF A < B THEN X = A - B ELSE X = B + A msgbox( X)
A、1
B、-1
C、2
D、3
3、设A=7,B=3,C=4, 则 A mod 3 + B ^ 3 / C \ 5 的值是( )
A、2
B、3
C、4
D、5
4、表达式(3/2+1)*(5/2+2)的值是
A、11.25
B、6.125
C、3
D、4
5、可以实现从键盘输入一个作为双精度变量a的值的语句是
A、a=InputBox()
B、a=InputBox("请输入一个值")
C、a=Val(InputBox("请输入一个值"))
D、a=Val(InputBox())
6、用于从字符串左边截取字符的函数是( )
A、mid( )
B、Trim( )
C、Left( )
D、Instr( )
7、由表达式x=cint(rnd()*90+10) ，则x所可能得到的随机整数范围是：
A、0---100
B、10 --- 90
C、10 --- 99
D、10 --- 100
8、下列语句正确的是( )
A、If x<3*y And x>y Then y=3x
B、If x<3*y And x>y Then y=x^3
C、If x<3*y : x>y Then y=x^3
D、If x<3*y And x>y Then y=x**3
9、下列程序段的运行结果是： ( ) Dim S As Long , i as integer S= 0 FOR i= 3 TO -3 STEP –1 S =S+i NEXT msgbox(i)
A、-5
B、5
C、0
D、-4
10、退出For循环可使用的语句为( )
A、Exit For
B、Exit Do
C、End For
D、End Do
第5周作业--- 循环结构程序设计(2)
1、作业5-1 (教材p102) 习题4-6 编写应用程序，统计并逐行显示(每行5个数)在区间[10 000，20 000]上的回文数。所谓回文数，就是该数字无论正读还是反读，数字都相等。
2、作业5-2 (教材p102)习题4-8 找出所有的3位数中，能同时被3和7整除，且个位、十位、百位上的数码之和等于18的数据，将这些数据以每行5个的形式输出，并求出满足条件的数据个数。
3、作业5-3 教材 p102 习题4-13 (参见：实验教程p40 实例4-5 ) 从键盘输入一个不大于5位的正整数，利用while循环结构，判断是几位整数。
4、作业5-4 教材p95 例题4-14 利用do循环，求
的近似值。利用公式计算，直到最后一项的绝对值小于0.0001为止。
/4=1-1/3+1/5-1/7+1/9+.....+(-1)^(n-1)*1/(2*n-1)+…
第6章 数组
第3次测试--数组选择题
1、以下属于合法的数组元素是:
A、a8
B、a[8]
C、a(8)
D、a{8}
2、在下面的数组声明语句中，正确的是：
A、dim a[3，4] as integer
B、dim a(3，4) as integer
C、dim a(3；4) as integer
D、dim a(3：4) as integer
3、在中，对数组的声明语句中不正确的是：
A、dim a() as integer
B、dim a(3) as integer
C、dim a(3) as integer={1,2,3}
D、dim a() as integer={1,2,3}
4、在中，对数组的声明语句中正确的是：
A、dim a(1,2) as integer={{1,2,3},{4,5,6}}
B、dim a(,) as integer={{1 },{2,3},{4,5,6}}
C、dim a(1,2) as integer={1,2,3},{4,5,6}
D、dim a(,) as integer={{1,2,3},{4,5,6}}
5、在中，对数组的声明语句中不正确的是：
A、dim a(2) as integer={1,2,3}
B、dim a() as integer={1,2,3}
C、dim a(1,2) as integer
D、dim a(,) as integer={{1,2,3},{4,5,6}}
6、使用语句Dim A(2) As Integer 声明数组A之后，以下说法正确的是：
A、A数组中的所有元素都不确定
B、A数组中的所有元素值为0
C、A数组中所有元素值都为Empty
D、执行Erase A 后，A数组中所有元素值都不为0
7、在中，声明数组语句Dim a(4,6) as integer，则数组a中共含有( )个元素。
A、10
B、12
C、24
D、35
8、在中，一组具有相同名字，不同下标的变量，称为：
A、数组
B、变量
C、同类数据
D、同类变量
9、一维数组的大小为：
A、上界-下界+1
B、上界+下界+1
C、上界-下界-1
D、上界+下界-1
10、数组具有相同的：
A、下标
B、类型
C、数值
D、存放地址
第6章作业--数组
1、作业6-1： 教材p141 习题6-2 编写程序，利用随机函数产生的2位整数为一维数组(包含10个元素)进行赋值，输出显示数组各元素的值，并分别统计数组元素中奇数和偶数的个数。
2、作业6-2 : 教材p141 习题6-4 从键盘输入10个整数，并放入一个一维数组，将其前5个元素与后5个元素分别对换.
3、作业6-3： 教材p142 习题6-10 编写程序，建立并输出一个10 X 10 的矩阵，该矩阵的对角线元素为1，其余元素均为0.
第7章 常用查找排序算法
第7章作业--- 常用查找与排序算法
1、作业7-1 定义a(49)为一维整型数组，利用随机函数产生的2位正整数为其赋值。通过键盘输入任一个2位整数，利用顺序查找法，判断在数组中是否存在该整数。
2、作业7-2 建立一个长度为10的一维整型数组，可以供用户输入10个数字后，采用选择排序法，使数据由大到小排序。在窗体上通过两个文本框分别输出显示排序前后的数据。
3、作业7-3 以程序建立 9行9列的二维整型数组，数组内容为九九乘法表的乘积，并将之输出。
第8章 过程与函数(1)
第8章 过程与函数(第一次作业)
1、作业8-1 编写一个判断某数是否为素数的函数过程。调用该过程，计算并输出区间[1000 , 1200] 内所有素数的和。
2、作业8-2 编写一个函数过程，判断一个4位数能否被其各位数码之和整除。要求调用该过程，计算并输出区间[4000,5000]之间满足条件的数据的个数。
3、作业8-3 习题8-6 编写一个计算pi值的函数过程，调用该过程验证采用不同求和项时pi的近似值。
第8章 过程与函数(2)
第4次测试---过程函数选择题
1、不能脱离控件对象(包括窗体)而独立存在的过程是( )
A、事件过程
B、通用过程
C、Sub过程
D、函数过程
2、Sub过程与Function过程最根本的区别是()
A、Sub过程名本身不能返回值，而Function过程名能返回值
B、Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以
C、Function过程可以有形参，而Sub过程不可以
D、两种过程参数的传递方式不同
3、对于语言的过程，下列叙述中正确的是：
A、过程的定义不能嵌套，但过程调用可以嵌套
B、过程的定义可以嵌套，但过程调用不能嵌套
C、过程的定义和调用不能嵌套
D、过程的定义和调用可以嵌套
4、有过程定义如下： Private Sub fun(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) 则下列调用语句不正确的是：
A、Call Fun(a,b,c)
B、Call Fun(3,4,c)
C、Fun a,b,c
D、Fun(3,4,c)
5、在过程内定义的变量(不在语句块中)为：
A、全局变量
B、模块变量
C、局部变量
D、静态变量
6、下面的过程定义语句中不合法的是：
A、Sub Para(ByVal n as integer )
B、Sub Para(byref n as integer) As Integer
C、Function Para(ByVal n as integer)as integer
D、Function Para(proc1) as integer
7、以下关于函数过程的叙述中，正确的是：
A、函数过程形参的类型与函数返回值的类型没有关系
B、在函数过程中，过程的返回值可以有多个
C、当数组作为函数过程的参数时，只能以传值方式传递，不能以传址方式传递
D、如果不指明函数过程参数的类型，则该参数没有数据类型
8、以下叙述中错误的是：
A、事件过程是响应特定事件的一段程序
B、不同的对象可以具有相同名称的方法
C、对象的方法是执行指定操作的过程
D、对象事件的名称可以由编程者指定
第8章 过程与函数 (第二次作业)
1、作业9-1 1、定义数组a(9)，用随机函数为数组元素赋值(赋值范围为2位正整数)。 2、编写统计一维数组中奇数元素个数的函数过程 3、编写实现一维数组升序排序的通用过程 4、编写事件过程，分别调用函数过程和通用过程，输出结果。 原始数据在textbox1中显示； 排序结果在textbox2中显示； 奇数个数在textbox3中显示。
第9章 文件
第5次测试---文件选择题
1、在Visual 中，按文件的数据性质的不同，可将文件分为：( )
A、数据文件和程序文件
B、文本文件和数据文件
C、顺序文件和随机文件
D、ACSII文件和二进制文件
2、在Visual 中，根据数据的存取方式和结构，可将文件分为：( )
A、数据文件和程序文件
B、文本文件和数据文件
C、顺序文件和随机文件
D、ACSII文件和二进制文件
3、在Visual 中，按文件的编码方式的不同，可将文件分为：( )
A、文本文件和数据文件
B、数据文件和程序文件
C、ACSII文件和二进制文件
D、顺序文件和随机文件
4、下面叙述不正确的是：( )
A、对顺序文件中的数据操作只能按一定的顺序操作
B、顺序文件结构简单
C、能同时对顺序文件进行读写操作
D、顺序文件不能灵活地存取数据
5、要在D盘根目录下建立一个名为InfoBase.dat的顺序文件，应使用的语句是( )
A、FileOpen(1，"InfoBase.dat"，Openmode.Output)
B、FileOpen (1, "d:\InfoBase.dat", Openmode.Output)
C、FileOpen(1 , "d:\InfoBase.dat", Openmode.Input)
D、FileOpen( 1, "InfoBase.dat" , Openmode.Input)
6、在Visual 中，要在顺序文件的末尾追加一条记录，应使用哪种模式( )
A、Output
B、Input
C、Random
D、Append
7、在读写顺序文件时，为了防止出现“输入超出文件尾”的错误，可使用( )函数来测试文件的结束状态.
A、LOF
B、LOC
C、LEN
D、EOF
8、要从顺序文件中读出一个数据项，可以用( )函数
A、LineInput
B、Input
C、Write
D、InputString
9、以下关于FileClose函数的说法，错误的是( )
A、FileClose函数中的“文件号”是必选的
B、FileClose函数用来关闭文件
C、FileClose函数可以释放与文件相关联的文件号
D、当读写操作结束后，必须将文件关闭
10、要向顺序文件中写入一个数据项，不能用的函数是：
A、write
B、Input
C、print
D、append
第9章作业---文件
1、作业10-1 【实验教程 作业9-2】 数据文件in.txt中存储了10个整型数据，将这10个整型数据读入到一个一维数组中，并将数组元素中能够被2整除但是不能被3整除的数据输出到result.txt中。 要求：使用通用函数FUN( )判断一个整数是否能被2整除但是不能被3整除。 自建文本文件in.txt，并在文件中录入10个不同的两位整数，每个数据为一行。
2、作业10-2 【实验教程 作业9-3】 已知数据vb.txt文件中，存放20位学生的“程序设计技术vb”成绩，请按以下要求完成数据的统计分析。 (1)设置窗体及控件。(5分) 在名称为Form1的窗体上建立3个文本框(名称为TextBox1~TextBox3，Multiline属性为True，ScrollBars属性为Vertical)和3个命令按钮(名称分别为Button1~Button3，标题分别为“从文件读出数据并显示”、“排序并显示”和“显示运算结果并保存至文件”)，窗体标题文本修改为自己的真实信息，如 ：电气工程18-01班-06号-郝仁。 (2)编写Button1的单击事件过程。(10分) 程序运行后，单击“从文件读出数据并显示”按钮，则读入“vb.txt”文件中的30个整数，放入一个数组a中(数组下界为0)，同时，将数组中的数据在文本框TextBox1中显示出来。 (3)编写通用过程或函数，实现对一维数组元素的排序。 (10分) Sub paixu(ByRef a() As Integer) ‘一维数组元素的排序 End Sub (4)编写Button2的单击事件过程。(5分) 程序运行后，单击“排序并显示”按钮，需调用通用过程，实现对这10个整数按从小到大的顺序排序，把排序后的全部数据在文本框TextBox2中显示出来。 (5) 编写function过程，统计不及格人数(10分)。 Function Count(ByRef a() As Integer) as integer ‘ 统计 End function (6) 编写Button3的单击事件过程，输出统计结果(10分)。 程序运行后，单击“输出统计结果”按钮，将的统计结果输出显示在文本框textbox3中，同时写入考生文件夹中的文件"output.txt"中。
第10章 Windows高级界面设计
第6次测试---控件及其属性选择题
1、对象的特征称_________ , 对象能够执行的操作称为___________ , 对象能够识别的操作称为______。
A、属性 方法 事件
B、方法 属性 事件
C、事件 属性 方法
D、属性 事件 方法
2、面向对象的程序设计语言的基本编程模式是___________驱动。
A、方法
B、对象
C、事件
D、类驱动
3、要改变Form窗体的背景色，要对其__________属性进行设置。
A、Forecolor
B、BackColor
C、Font
D、Size
4、决定一个控件不可见，要将该控件的哪个属性设置为False。
A、Enabl
B、Width
C、Visible
D、Text
5、文本框TextBox在默认情况下只能显示和输入单行文本，要将其设置为多行显示，要将哪个属性设置为True。
A、PasswordChar
B、ReadOnly
C、ScrollBars
D、Multiline
6、用于设定文本框TextBox是否用于输入口令。要对哪个属性进行设置。
A、PasswordChar
B、ReadOnly
C、ScrollBars
D、Multiline
7、下列哪个控件用于显示用户无法更改或指导用户操作的提示性信息。
A、Button
B、Label
C、Form
D、TextBox
8、窗体的标题栏显示内容由窗体对象的( )属性决定。
A、BackColor
B、BackStyle
C、Text
D、name
9、当用户在窗体上单击鼠标时，不会触发的事件是( )
A、Click
B、MouseDown
C、MouseUp
D、DblClick
10、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 ( )
A、工程资源管理器窗口
B、工具箱窗口
C、代码窗口
D、属性窗口
11、若要使命令按钮不可用，则可设置其( )属性为False来实现。
A、Value
B、Cancel
C、Enabled
D、Default
12、以下叙述中正确的是( )
A、窗体的Name属性指定窗体的名称，用来标识一个窗体
B、窗体的Name属性的值是显示在窗体标题栏中的文本
C、可以在运行期间改变对象的Name属性的值
D、对象的Name属性值可以为空
13、图片框中显示的图形文件，由它们的( )属性值决定。
A、DownPicture
B、Picture
C、Image
D、Icon
14、文本框的( )属性用于设置或返回文本框中的文本内容。
A、Text
B、Font
C、Enable
D、Name
15、复选框或单选钮的当前状态可通过( )属性来返回或设置。
A、Checked
B、Value
C、Selected
D、visible
16、VB提供( )属性，用于控制对象是否可用。
A、Default
B、Cancel
C、Enabled
D、Visible
17、下列说法有错误的是
A、默认情况下，属性Visible的值为True。
B、如果设置控件的Visible属性为False，则运行时控件会隐藏。
C、Visible的值可设为True或False
D、设置Visible属性同设置Enable属性的功能是相同的，都是使控件处于失效状态。
18、下列各控件不包含滚动条的控件是 ( )。
A、ListBox
B、Label
C、ComboBox
D、TextBox
19、修改窗体的颜色通过设置窗体的( )属性：
A、Backcolor
B、Forecolor
C、Name
D、text
20、在Visual Basic中，设置文本框内容的属性是：( )
A、Name
B、Text
C、Picture
D、WindowState
第11章 数据库编程
综合实验题目1---员工工资信息管理系统设计(单号分组做)
1、(单号分组做) 综合实验题目1---员工工资信息管理系统设计 实现对于员工基本信息及员工工资的查询以及增、删、改的维护管理，实现对员工工资信息的统计分析，使员工基本信息及工资等信息实现信息化的快捷管理。
2、综合实验报告格式
综合实验题目2---教材征订信息管理系统设计 (双号分组做)
1、(双号分组做) 综合实验题目2---教材征订信息管理系统设计 设计一个简单的教材征订信息管理系统，实现对于学生教材征订信息的查询以及增、删、改的维护管理。
2、综合实验报告格式
基础知识测验
程序设计技术(VB)基础知识测试
1、以下叙述中正确的是( )。
A、窗体的name属性指定窗体的名称，用来标识一个窗体。
B、窗体的name属性的值是显示在窗体标题栏中的文本。
C、可以在运行期间改变对象的name属性的值。
D、对象的name属性值可以为空。
2、下列说法有错误的是( )。
A、默认情况下，属性Visible的值为True。
B、如果设置控件的Visible属性为False，则运行时控件会隐藏。
C、Visible的值可设为True或False。
D、设置Visible属性和设置Enable属性的功能是相同的，都是使控件处于失效状态
3、设A=7,B=3,C=4, 则A mod 3 + B ^ 3 / C \ 5 的值是( )。
A、2
B、3
C、4
D、5
4、要生成( )区间内的随机整数，可使用如下语句： Dim x As Integer Randomize() x=Int(91*Rnd()+10)
A、[10,90]
B、(10,101]
C、[10,101]
D、[10,100]
5、dim str1,str2 as string str1="computer" str2=mid(str1,4,3) 以上代码执行后，str2的值是多少？
A、computer
B、com
C、ter
D、put
6、Dim x, y As Integer x=InputBox("输入x的值：", "符号函数") If x>0 Then y=1 ElseIf x=0 Then y=0 Else y=-1 End If 以上程序段执行后，如果输入的x的值为10，则y的值为()。
A、10
B、1
C、0
D、-1
7、dim i,x as integer x=0 for i=1 to 10 step 2 x=x+1 loop 以上程序段执行结束后，i的值为()。
A、5
B、10
C、11
D、6
8、dim i,x as integer x=0 for i=10 to 1 step -2 x=x+1 loop 以上程序段执行结束后，x的值为()。
A、4
B、5
C、6
D、0
9、对于一个3位数x，表达式y=(x\10) Mod 10，则y是x的()。
A、百位数
B、十位数
C、个位数
D、以上都不是
10、k=1 do k=k+2 loop until k>6 程序段运行结束后k的值为()。
A、5
B、6
C、7
D、1
11、变量名的第一个字符必须是字母或下画线。
12、若要使命令按钮不可用，则可设置其Value属性为False来实现。
13、文本框的Name属性用于设置或返回文本框中的文本内容。
14、执行一次InputBox( )函数只能输入一个值。
15、Label控件可用来在窗体中显示只读的文本。
16、MsgBox( )函数的参数中，Prompt项是可以省略的。
17、如果ASC("A")的值为65，那么Chr(66)的值为"B"。
18、Rnd()函数返回一个[0，1]区间的随机数。
19、Dim a, b, t As Integer t=a:a=b:b=t 以上语句可以实现交换变量a和b的值。
20、通过对计时器Timer的Enabled属性设置为False或True来实现计时器的开关。
