第一篇：高三计算机专业VB试题(一)
高三年级计算机专业VB试题
（一）一、选择题：
１、运行工程的错误操作是（）
A：执行“运行”菜单中的“启动”命令
B：单击工具栏中的“启动”按钮
C：按功能键“F5”
D：按组合键“alt+f5”
2、下列有关VB特点的描述有误的是（）
A：VB是一种可视化、面向对象的程序设计语言
B：VB采用事件驱动编程机制
C：VB可用于开发Windows环境下的各类应用程序
D：VB是非面向对象的程序设计语言。
3、以下叙述错误的是（）
A：在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B：以.bas为扩展名的文件是标准模块文件
C：窗体文件包含该窗体及其控件的属性
D：一个工程可以含有多个标准模块文件
4、与传统的程序设计语言相比，VB最突出的特点是（）
A：结构化程序设计
B：程序开发环境
C：事件驱动编程机制
D：程序调试技术
5、下列不能打开代码窗口的操作是（）
A：双击窗体
B：双击窗体上的某个控件
C：单击窗体
D：按“F7”键
6、在8BBE计窗体时双击窗体的任何地方，可以打开的窗体时（）
A：代码窗口
B：属性窗口
C：工程资源管理器窗口
D：工具箱窗口
7、下列标识符不能作为VB变量名的是（）
A：ABCabe
B：b1234
C：28wed
D：crud8、下列说法错误的是（）
A：在同一模块不同过程中的变量可以同名
B：不同模块中定义的全局变量可以同名
C：引用另一模块中的全局变量时，必须在变量名前加模块名
D：同一模块中不同级的变量可以同名
9、下列描述不正确的是（）
A某个子过程中声明的局部变量，其适用范围仅限定于该子过程内
B：某个子过程中声明的局部变量，期生命周期仅限定于该子过程被执行过程中 C：不同子过程中的局部变量可以具有相同的名称
D：不同子过程的局部变量可以具有相同的名称
10、声明一个变量为局部变量应该用（）
A：localB：privateC：staticD：public11、语句Y=Y+1的正确含义是（）
A：变量Y的值与Y+1的值相等
B：奖变量Y的值存到Y+1中去
C：将变量Y的值加1后赋值给变量Y
D：变量Y的值为112、下列符号不能作为VB中的变量名的是（）
A：ABCDB：E0065400C：123TWJGFD：zxy13、若要在代码编辑器窗口中规定输入的代码中的变量必须要显示声明，应在下列哪个选项中设置（）
A：自动 语法检测B：要求变量声明C：自动缩进D：Tab宽度
14、下列属于不合法的常量是（）
A：20000B：100^6C：123.5D：10E+615、下列不合法的变量名是（）
A：Print_NumlB：Abc%C：ConstD：X1_y2_z316、关于变体变量，下列说法正确的是（）
A：变量未加定义而直接使用，该变量变为变体变量，因此变体变量是无类型变量 B：遍体变量占16字节的固定存储单元
C：变体变量定以后，系统将变体变量初始化为数值0或空字符串
D：设X为遍体变量，且X=“10”，则X=X+20是正确的语句
17、下列符号常量的声明中，不合法的是（）
A：Constaas single =1.1B：consta=“OK”
C： constaas double =sin（1）D：constaasinteger =“12”
18、下列关于声明变量的说法中，错误的是（）
A：用显式声明变量的关键字Dim、Private、Static或Public来声明的类型
B：用类型说明符标记变量的类型，其中Yype是类型标志
C：用DefTrype语句声明变量的类型，其中Type是类型标志
D：用Type<数据类型名>/End Type语句声明记录类型变量
19、已知a=5，b=8，c=12，下列表达式的值为Ture的是（）
A： a>b and c C:a>b xor c Private Sub Form_Click() a = 5: b = 6: c = 7: d = 8 x = 3 > 2 * b Or a = c And b <> c Or c > d Print x End Sub A：1B：TureC：FalseD： 2 二、填空题。 1、用户定义符号常量时常量表达式是必需的，它是由文字、其他常数、除_______、之外的任意的算数操作符和逻辑操作符所构成的任意组合组成，但不能使用_______、_______和_______ 2、变量名用于识别变量在内存中的位置，变量的类型指定_______ 3、如果希望在程序中显式声明变量，可以在模块的声明段中加入_______语句。也可以在_______菜单中选择_______命令，单击_______选项卡，选中_______复选框 4、在VB中，可以用变量声明语句来声明的类型，语法格式为_______ 5、使用声明语句声明一个变量后，VB自动将数值类型的变量赋初值为_______，将字符类型的变量赋初值为_______，将Variant类型的变量赋初值为_______，将布尔型的变量赋初值为_______ 6、VB中允许变量不经过声明就直接使用，称为_______这种声明的变量都是_______型的，并默认为_______ 7、变量未赋值时，数值型变量的值为_______，字符串变量的值为_______ 8、一个变量未被显式定义，末尾没有类型说明符，则该变量的隐含类型是_______ 9、已知变量aa是一个布尔型的变量，如果要给其赋值为Ture，则正确的赋值语句为_______ 10、VB在数据后面可以加上符号表示不同的数据类型，&表示_______，@表示_______，！表示_______ 11、常量-0.00000567的VB标准化指数形式为_______ 12、表达式5*（7 Mod 3）*1/2的值为_______ 13、表达式运算符的优先顺序从高到低是_______→_______→_______→_______ 14、下列程序中，a,b,c代表一个三角形的三个边，程序的作用是判断一个三角形是否成立，请填写空白处。 If a + b < c_______ b + c < a _______ a + c < b Then MsgBox(“这三条边不能构成一个三角形”) End If15、设a=2,b=b a = a-b18、表达式len(str(0.03456))Mod 2 的值为a = 600_______ 19、表达式14/5*2的值是_______ 20、表达式（-17/3+1)*(28/-5)的值是_______ 21、表达式“abc”<>“abc”&“123的值是_______ 22、字符串运算符_______连接的两边的操作数类型必须是字符型 23、设a=-2 b=4，则表达式4*a>9 or b+8>0 的值是_______ 24、生成1~100范围内的随机整数表达式：_______ 25、数学表达式sin60+cos30+log35对应的VB表达式：_______ 26、函数Str$(256.36)的值是_______ 27、表达式Int（-19.6）的值为_______ 28、表达式Right(”zhengzhou“,4)的值是_______ 29、一个语句行以_______结束。把多句写在一行时，语句之间必须用_______连接。当一行代码很长时可以用_______来换行 30、Print格式为_______ 三、判断题 1、变量在使用前一般要预先声明，声明变量就是将变量的有关信息事先告诉编译系统（） 2、标识符必须以字母开头。最大长度为255（） 3、标识符不能作为VB的保留字 4、VB的标识符不区分大小写（） 5、标识符在标识符的同一范围内必须是唯一的（） 6、VB中，输入Print语句时，不论输入”PRINT“还是“print”，VB都会转换成“Print”（） 7、赋值语句的功能是把右边的表达式的值赋给左边的变量或某个带有属性的对象（） 8、在赋值语句中，赋值号“=”与数学上的等号意义相同。（） 9、注释语句是为了方便程序阅读对程序进行的说明，对程序运行没有影响（） 10、在块结构的IF语句中，必须以一个END IF 语句结束（） 四、运行结果题 1、在窗体上画一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() For i = 1 To 2 For j = 1 To i Print String(i, ”Hello“) Next j Print Next i End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是什么？ 2、设当前日期为2011年6月8日，星期三，则执行下面语句的输出结果是什么？ Print Day(Now) Print Month(Now) Print Year(Now) Print Weekday(Now) 3、窗体下面画一个命令按钮，然后编写如下事件过程： rivate Sub Comm1_Click() x = 0 Do Until x =-1 a = InputBox(”请输入a的值“) a = Val(a) b = InputBox(”请输入b的值“) b = Val(b) x = InputBox(”请输入a的值“) x = Val(x) a = a + b + x Loop Print a End Sub4、执行下面程序后，输出结果是什么？ Private Sub Form_Load() s$ = ”abcDEF“ Print InStr(s$, ”efg“) Print LCase$(s$) s1 = ”zhengzhou“ s2 = ”nanyang“ s3 = ”zhumadian“ Print Right(s1, 4) Print Mid(s2, 4) Print Left(s3, 5) End Sub5、执行下列程序后输出的是什么？ Private Sub Command1_Click() ch$ = ”abcdefg" Print Mid(Right(ch$, 6), Len(Left(ch$, 4)), 3) End Sub (1)下面叙述正确的是(C) A.算法的执行效率与数据的存储结构无关 B.算法的空间复杂度是指算法程序中指令(或语句)的条数 C.算法的有穷性是指算法必须能在执行有限个步骤之后终止 D.以上三种描述都不对 (2)以下数据结构中不属于线性数据结构的是(C) A.队列 B.线性表 C.二叉树 D.栈 (3)在一棵二叉树上第5层的结点数最多是(B)注：由公式2k-1得 A.8 B.16 C.32 D.15 (4)下面描述中，符合结构化程序设计风格的是(A) A.使用顺序、选择和重复(循环)三种基本控制结构表示程序的控制逻辑 B.模块只有一个入口，可以有多个出口 C.注重提高程序的执行效率 D.不使用goto语句 (5)下面概念中，不属于面向对象方法的是(D) A.对象 B.继承 C.类 D.过程调用 (6)在结构化方法中，用数据流程图(DFD)作为描述工具的软件开发阶段是(B) A.可行性分析 B.需求分析 C.详细设计 D.程序编码 (7)在软件开发中，下面任务不属于设计阶段的是(D) A.数据结构设计 B.给出系统模块结构 C.定义模块算法 D.定义需求并建立系统模型 (8)数据库系统的核心是(B) A.数据模型 B.数据库管理系统 C.软件工具 D.数据库 (9)下列叙述中正确的是(C) A.数据库是一个独立的系统，不需要操作系统的支持 B.数据库设计是指设计数据库管理系统 C.数据库技术的根本目标是要解决数据共享的问题 D.数据库系统中，数据的物理结构必须与逻辑结构一致 (10)下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A) A.内模式 B.外模式 C.概念模式 D.逻辑模式 (11)算法的时间复杂度是指(C) A.执行算法程序所需要的时间 B.算法程序的长度 C.算法执行过程中所需要的基本运算次数 D.算法程序中的指令条数 (12)算法的空间复杂度是指(D) A.算法程序的长度 B.算法程序中的指令条数 C.算法程序所占的存储空间 D.算法执行过程中所需要的存储空间 (13)设一棵完全二叉树共有699个结点，则在该二叉树中的叶子结点数为(B)注：利用公式n=n0+n1+n2、n0=n2+1和完全二叉数的特点可求出 A.349 B.350 C.255 D.351 (14)结构化程序设计主要强调的是(B) A.程序的规模 B.程序的易读性 C.程序的执行效率 D.程序的可移植性 (15)在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是(D)注：即第一个阶段 A.概要设计 B.详细设计 C.可行性分析 D.需求分析 (16)数据流图用于抽象描述一个软件的逻辑模型，数据流图由一些特定的图符构成。下列图符名标识的图符不属于数据流图合法图符的是(A) A.控制流 B.加工 C.数据存储 D.源和潭 (17)软件需求分析阶段的工作，可以分为四个方面：需求获取、需求分析、编写需求规格说明书以及(B)注：P66 A.阶段性报告 B.需求评审 C.总结 D.都不正确 (18)下述关于数据库系统的叙述中正确的是(A) A.数据库系统减少了数据冗余 B.数据库系统避免了一切冗余 C.数据库系统中数据的一致性是指数据类型的`一致 D.数据库系统比文件系统能管理更多的数据 (19)关系表中的每一横行称为一个(A) A.元组 B.字段 C.属性 D.码 (20)数据库设计包括两个方面的设计内容，它们是(A) A.概念设计和逻辑设计 B.模式设计和内模式设计 C.内模式设计和物理设计 D.结构特性设计和行为特性设计 (21)下列叙述中正确的是(A) A.线性表是线性结构 B.栈与队列是非线性结构 C.线性链表是非线性结构 D.二叉树是线性结构 (22)下列关于栈的叙述中正确的是(D) A.在栈中只能插入数据 B.在栈中只能删除数据 C.栈是先进先出的线性表 D.栈是先进后出的线性表 (23)下列关于队列的叙述中正确的是(C) A.在队列中只能插入数据 B.在队列中只能删除数据 C.队列是先进先出的线性表 D.队列是先进后出的线性表 (24)对建立良好的程序设计风格，下面描述正确的是(A) A.程序应简单、清晰、可读性好 B.符号名的命名要符合语法 C.充分考虑程序的执行效率 D.程序的注释可有可无 (25)下面对对象概念描述错误的是(A) A.任何对象都必须有继承性 B.对象是属性和方法的封装体 C.对象间的通讯靠消息传递 D.操作是对象的动态性属性 (26)下面不属于软件工程的3个要素的是(D) A.工具 B.过程 C.方法 D.环境 (27)程序流程图(PFD)中的箭头代表的是(B) A.数据流 B.控制流 C.调用关系 D.组成关系 (28)在数据管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是(A) A.数据库系统 B.文件系统 C.人工管理 D.数据项管理 (29)用树形结构来表示实体之间联系的模型称为(B) A.关系模型 B.层次模型 C.网状模型 D.数据模型 (30)关系数据库管理系统能实现的专门关系运算包括(B) A.排序、索引、统计 B.选择、投影、连接 C.关联、更新、排序 D.显示、打印、制表 【计算机vb试题及答案】相关文章： 1.二级vb试题及答案 2.计算机二级VB考试题及答案 3.计算机试题及答案 4.计算机二级VB语言程序设计考试题及答案 5.计算机知识试题及答案 6.小学计算机试题及答案 7.计算机笔试题及答案 8.计算机原理试题及答案 VB程序设计试题及答案 （一）一、单选题 1.VB6.0是一种面向 B 的编程环境。 (A)机器(B)对象 (C)过程(D)应用 2.要使FormI窗体的标题栏显示“欢迎使用VB”，以下 D 语句是正确的。 (A)Forml.Caption=“欢迎使用VB” (B)Forml.Caption='欢迎使用VB' (C)Forml.Caption=欢迎使用VB (D)Forml.Caption=“欢迎使用VB” 3.若要使命令按钮不可操作，要对 A 属性进行设置。 (A)EnabIed(B)Visible (C)Backcolor(D)Caption 4.如果在窗体上已经创建了一个文本框对象TextI，可以通过 C 事件获得输入键值的ASCII码。 (A)Change(B)LostFocus (C)KeyPress(D)GotFocus 5.下面 A 是合法的变量名。 (A)X_yz(B)123ab。(C)integer(D)X-Y 6.以下关系表达式 中，其值为False的是 A。 (A)“ABC”>“AbC”(B)“女”>“男” (C)“BASIC”=UCase(“basic)(D)”123“<”23“ 7.为了给x、y、z三个变量赋初值1，下面正确的赋值语句是 A。 (A)x=1:y=1:z=1(B)x=1,y=1,z= 1(C)x=y=z=1(D)xyz=1 8.VB提供了结构化程序设计的三种基本结构，三种基本结构是 D。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D。 (A)If sex=”男“ And age=4O And InStr(duty，”教授“)>O Then n=n+l (B)If sex=”男“ And age=4O And(duty=”教授“ Or duty=”副教授“)Then n=n+l (C)If sex=”男“ And age=4O And Right(duty，2)=”教授“ Then n=n+l (D)If sex=”男“ And age=4O And duty=”教授“ And duty=”副教授“ Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是 D。(A)Do While…Loop循环和Do…Loop Until循环至少都执行一次(B)Do While…Loop循环和Do…Loop Until循环可能都不执行 (C)Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D)Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下 B 是正确的For…Next结构。 (A)For x=1 To Step 10(B)For x=3 To-3 Step-3 … … Next x Next x(C)For x=1 To 10(D)For x=3 to 10 step re: … … Next x Next y If i=10 Then GoTO re 12.如下数组声明语句，B 是正确的。 (A)Dim a[3,4] As Integer (B)Dim a(3,4)As Integer (C)Dim a(n,n)As Integer (D)Dim a(3 4)As Integer 13.下列语句中（假定变量n有值），能正确声明可变长数组的是 A。 (A)Dim a()As Integer(B)Dim a()As Integer ReDim a(n)ReDim a(n)As String (C)Dim a()As Integer(D)Dim a(10)As Integer ReDim a(3, 4)ReDim a(n+10) ReDim Preserve a(4, 4) 14.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是 C。 (A)Sub f2(ByVal n%, ByVal m%)(B)Sub f1(n%, ByVal m%) (C)Sub f1(n%, m%)(D)Sub f1(ByVal n%, m%) 15.设有如下程序段： Public Sub F1(n%) … n=3*n+… End Sub Private Sub Command1_Click() Dim n%, m% n=3 m=4 … ‘调用F1语句 … End Sub 则在Command1_Click事件中有效的调用语句是 B。(A)Call F1(n+m)(B)Call F1(m)(C)Call F1(5)(D)Call F1(m+5) 16.用来设置粗体字的属性是 C。 (A)FontItalic(B)FontName(C)FontBold(D)FontSize 17.假定定时器的Interval属性为1000，Enabled属性为True，调用下面的事件过程，程序运行结束后变量x的值为 D。 Dim x As Integer Sub Timer1_Timer() For i=1 to 10 x=x+Next i End Sub (A)1000(B)10000(C)10(D)以上都不对 18.在下列关于通用对话框的叙述中，错误的是 B。 (A)CommonDialog1.ShowFont显示“字体”对话框 (B)在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回 (C)在“打开”或“另存为”对话框中，用户选择的文件名机器路径可以经FileName属性返回 (D) 19.当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown事件，这三个事件发生的顺序是 C。 (A)KeyPress、KeyDown、KeyUp(B)KeyDown、KeyUp、KeyPress(C)KeyDown、KeyPress、KeyUp (D)没有规律 20.在下面关于顺序文件的描述中，正确的是 C。(A)顺序文件中每行的长度都是相同的。(B)可以通过编程对文件中的某行方便地进行修改 (C)数据以ASCII码的形式存放在文件中，所以可通过记事本打开(D)文件的组织结构复杂 21.随机文件是因为 C。 (A)文件中的内容是通过随机数产生的(B)文件中的记录号通过随机数产生的(C)可对文件中的记录根据记录号随机地读/写(D)文件的每条记录的长度是随机的 22.从磁盘上读入一个文件名为“c:t1.txt”顺序文件，如下 A 正确。 (A)F=“c:t1.txt” Open F For Input As #1(B)F=“c:t1.txt” Open “F” For Input As #2(C)Open “c:t1.txt” For Input As #1 (D)Open c:t1.txt For Input As #2 23.坐标度量单位可由通过来 D 改变。 (A)Drawstyle属性(B)DrawWidth属性 (C)Scale方法(D)ScaleMode属性 24.指令“Circle(1000, 1000), 500, 8,-6,-3”将绘制 A。(A)画圆(B)椭圆(C)圆弧(D)扇形 25.用ADO数据控件建立与数据源的链接，设置操作过程按 A 顺序进行。 ①选择数据源连接方式；②选择数据库类型；③指定数据库文件名；④指定记录源 (A)① ② ③ ④(B)② ③ ④ ① (C)③ ① ② ④(D)① ③ ② ④ 二、填空题 1．VB是建立在BASIC语言基础上的可见 化编程语言或编程环境。 2．在窗体上已建立多个控件如Text1、Label1、Command1，若要程序一运行时焦点就定位在Command1控件上，应对Command1控件设置 TabIndex 属性的值为 0。 3．在VB中，1234、123456&、1.2346E+5、1.2346D+5这4个常数分别表示 整形、长整形、单精度、双精度 类型。4．表示x是5的倍数或是9的倍数的逻辑表达式为 x mod 5 = 0 or x mod 9=0。 5．数组声明时下标下界默认为0，利用 Opation Base 1 语句可以使下标为1。 6．传地址方式是当过程被调用时，形参和实参共享 存储单元。7．窗体中的模块级变量应在 窗口模块 段声明，它作用于该窗体的全局范围。 8．当用户单击滚动条的空白处时，滑块移动的增量值由 LargeChange 属性决定。 9．如果菜单标题的某个字母前输入一个“&”符号，那么该字母就成了热键字母；如果建立菜单时在标题文本框中输入一个“1) x(0)= 1 x(1)= 1 For i = 2 To n1)+ x(i1 Print x(i)，If(i + 1)Mod 5 = 0 Then Print Next End Sub 输出结果： 1 2 3 8 13 21 34(2)Public Function f(m%, n%) Do While m< >n Do While m> n: m=m-n: Loop Do While m< n: n=n-m: Loop Loop f=m End Function Print f(24, 18) End Sub 输出结果：6(3) Public x as Integer Private Sub Fomr_Click() Dim x as Integer x=10 print ＂x=＂;x End Sub 输出结果: x=10 2.补充程序 (1)以下是冒泡法排序的程序，要求将数组里的数按升序排列，将其补充完整。 Private Sub Command1_Click() Dim a(), iMin%, n%, i%, j%, t% a = Array(8, 6, 9, 3, 2, 7) n = ubound(a)' 获得数组的下标上界 For i = 0 To n-1 For j = 0 To n-i-1 If a(j)>a(i)Then t = a(j): a(j)= a(j + 1): a(j + 1)= t End If Next j Next i For i = 0 To n Print a(i);Next i End Sub (2)用递归的方法求n!Private Sub Command1_Click()Print ”fac(4)=“;fac(4)End Sub Public Function fac As Integer If n = 1 Then fac = 1 Else Fac=fac*n End If End Function VB程序设计试题及答案 （三）一、单选题 1.Visual Basic是一种面向对象的可视化程序设计语言，采取了 A 的编程机制。 (A)事件驱动(B)按过程顺序执行(C)从主程序开始执行(D)按模块顺序执行 2.若要使标签控件显示时不覆盖其背景内容，要对 D 属性进行设置。 n=n*j n=n*j Next j Next j Print n Print n Next I Next i(C)n=1(D)n=1(A)Backcolor(B)BorderStyle(C)Forecolor(D)Backstyle 3.在Visual Basic中最基本的对象是 C，它是应用程序的基石，是其他控件的容器。 (A)文本框(B)命令按钮(C)窗体 (D)标签 4.要判断在文本框是否按下Enter键，应在文本框的 D 事件中判断。(A)Change(B)KeyDown(C)Click(D)KeyPress 5.数学表达式3≤x (A)3<=x<10(B)3<=x AND x>10(C)x>=3 Or x<10(D)x>=3 AND x<10 6.Rnd函数不可能为下列 B 值。 (A)0(B)1(C)0.1234(D)0.0005 7.赋值语句:a=123+Mid(”123456“，3，2)执行后，a变量中的值是 D。 (A)”12334“(B)123(C)12334(D)157 8.对于语句If x=l Then y=l，下列说法正确的是 C。 (A)x=l和y=l均为赋值语句 (B)x=l和y=l均为关系表达式 (C)x=l为关系表达式，y=l为赋值语句 (D)x=l为赋值语句，y=l为关系表达式 9.下面程序段表示求两个数中的大数，D 不正确。 (A)Max=IIf(x>y，x，y)(B)If x>y Then Max=x Else Max=y(C)Max=x(D)Ify>=x Then Max=y If y>=x Then Max=y Max=x 10.当在文本框中输入“ABCD”4个字符时，窗体上显示的是 C。 Private Sub Text1_Change()Print Text1;End Sub(A)ABCD(B)A(C)AABABCABCD(D)A B AB C ABC D ABCD 11.下列哪个程序段不能分别正确显示1！、2！、3！、4！的值 B。(A)For i=1 to 4(B)For i=1 to 4 n=1 For j=1 to i For j=1 to I n=1 For j=1 to4 j=1 n=n*j Do While j<=4 Print n n=n*j Next j Print n j=j+1 Loop 12.如下数组声明语句，则数组a包含元素的个数有 A。 Dim a(3,-2 to 2, 5) (A)120(B)75(C)60(D)13 13.以下程序的输出结果是 D。 Dim a a=Array(1, 2, 3, 4, 5, 6, 7)For i=Lbound(a)to Ubound(a) a(i)=a(i)*a(i)Next i Print a(i) (A)49(B)0(C)不确定(D)程序出错 14.在过程中定义的变量，若希望离开该过程后，还能保存过程中局部变量的值，则应使用关键字 D 在过程中定义局部变量。 (A)Dim(B)Private(C)Public(D)Static 15.如下程序，运行的结果是 B。 Dim a%, b%, c% Public Sub p1(x%, y%) Dim c% x=2*x: y=y+2: c=x+y End Sub Public Sub p2(x%, ByVal y%) Dim c% x=2*x: y=y+2: c=x+y End Sub Private Sub Command1_Click() a=2: b=4: c=6 Call p1(a, b) Print “a=”;a;“b=”;b;“c=”;c Call p2(a, b) Print “a=”;a;“b=”;b;“c=”;c End Sub (A)a=2 b=4 c=6(B)a=4 b=6 c=10 a=4 b=6 c=10 a=8 b=8 c=16(C)a=4 b=6 c=6(D)a=4 b=6 c=14 a=8 b=6 c=6 a=8 b=8 c=6 16.复选框的Value属性为1时，表示 B。 (A)复选框未被选中(B)复选框被选中 (C)复选框内有灰色的勾(D)复选框操作有误 17.下面关于菜单的说法中，错误的是 B。 (A)每个菜单项都是一个控件与其他控件一样也有自己的属性和事件 (B)除了Click事件之外，菜单项还能响应其他的，如DbClick事件 (C)菜单项的快捷键不能任意设置 (D)在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择 18.下面关于多重窗体的叙述中，正确的是 B。(A)作为启动对象的Main子过程中能放在窗体模块中(B)如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体 (C)没有启动窗体，程序不能执行(D)以上都不对 19.当用户将焦点移到另一个应用程序时，当前应用程序的活动窗体将 D。(A)发生DeActivate事件(B)发生LostFocus事件 (C)发生DeActivate和LostFocus事件(D)DeActivate和LostFocus事件都不发生 20.顺序文件是因为 D。 (A)文件中的数据按每行的长度从小到大排序好的(B)文件中的数据按某个关键数据项从大到小进行排序(C)文件中的数据按某个关键数据项从小到大进行排序(D)数据按进入的先后顺序存放的，读出也是按原写入的先后顺序读出 21.文件号最大可取值为 B。 (A)255(B)511(C)512(D)256 22.Print #1, STR$1中的Print是 A。 (A)文件的写语句(B)在窗体上显示的方法 (C)子程序名(D)以上均不是 23.以下的属性和方法中 C 可重定义坐标系。(A)Drawstyle属性(B)DrawWidth属性 (C)Scale方法(D)ScaleMode属性 24.封闭图形的填充方式由下列 C 属性决定。(A)DrawStyle, DrawMode(B)AutoRedraw, ClipControls (C)FillStyle, FillColor(D)ForeColor, BorderColor 25.下列字符串中，D 不包含在ADO数据控件的ConnectionString属性中。(A)Microsoft Jet 4.0 OLE DB Provider(B)Data Source=C:Mydb.mdb(C)Persist Security Info=False(D)2-adCmdTable 二、填空题 1．在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置，但运行后没有效果，原因是这些属性 在运行时设计是无效的。 2．在文本框中，通过 SelStart 属性能活得当前插入点所在的位置。 3．表达式Ucase(Mid(“abcdefgh”, 3, 4))的值是 CDEF。4．已知a=3.5，b=5.0，c=2.5，d=True，则表达式：a>=0 And a+c>b+3 Or Not d的值是 False。 5．要获得动态数组的上界通过 UBound 函数，下界通过 LBound 函数。 6．由Array函数建立的数组，其变量类型必须是 variant 类型。 7．VB中的变量按其作用域分为全局变量、模块变量和 局部变量 变量。 8．复选框的 Value 属性设置为2——Grayed时，变成灰色，禁止用户选择。 9．滚动条响应的重要事件有 Scroll 和Change。10．假定有一个通用对话框控件CommonDialog1，除了用COmmonDialog1.Action=3显示颜色对话框之外，还可以用 showcolor 方法显示。 11．窗体Form1的左上角坐标为(-200, 250)，窗体Form1的右下角的坐标为(300,-150)，则X轴的正向向 右，Y轴的正向向 上。 12．使用Circle方法画扇形，起始角、终止角取值范围为 0~2π。 13．在运行状态改变ADO数据控件的数据源连接属性后，必须使用 Refresh 方法激活这些变化。14．VB中工程文件的扩展名为 vbg。 15．如果在窗体上已经创建了一个文本框对象Text1，可以通过 Keypress 事件获得输入键值的ASCII码。16．VB中对象的三要素是 属性、事件 和 方法。 三、编程应用题 1.程序阅读 (1)Private Sub Command1_Click() Dim s as String, i% s=＂abcd＂ For i=Len(s)to 1 step-1 Print Mid(s, i, 1)Next i End Sub 输出结果： d c b a(2)Sub Swap1(ByVal x%, ByVal y%)Dim t% t = x: x = y: y = t End Sub Sub Swap2(ByRef x%, ByRef y%)Dim t% t = x: x = y: y = t End Sub Sub Command1_Click() Dim a%, b% a = 10: b = 20 Print ”调用Swap1前 a和b的值为：“;a;b Call Swap1(a, b)Print ”调用Swap1后按传值方式 a和b的值为：“;a;b a = 10: b = 20 Call Swap2(a, b)Print ”调用Swap2后按传地址方式 a和b的值为：“;a;b End Sub 输出结果 调用Swap1前 a和b的值为：10 20 调用Swap1后按传值方式 a和b的值为：10 20 调用Swap2后按传地址方式 a和b的值为： 20 10(3)Private Sub Command1_Click() Dim x%, y%, z% x=242: y=44 z=x*y Do Until x=y If x>y Then x=x-y Else y=y-x Loop Print x, z/x End Sub 输出结果: 22 484 2.补充程序 (1)以下是求1～18之间某个数的阶乘的程序，具体的数值n由滚动条HScroll1获得，结果显示在窗体下部的两个Label标签里。补充完整如下程序。 Private Sub HScroll1_Change()Dim i As Integer, s As Double s = 1 n = Hscroll1.Value If n <> 0 Then For i = 1 To n s = s*i Next i End If Label2.Caption = n & ”!= " Label3.Caption = s End Sub (2)以下程序的功能是：已知数组a，删除数组中某个元素。 Private Sub Command1_Click() Dim a(), key%, i%, j% a=Array(1, 6, 8, 3, 5, 9, 10, 2, 4, 7) key=9 For i=0 to UBound(a)If a(i)=9 Then For j=i+1 to UBound(a)a(j)=a(j+1) Next j ReDim a(j)=a(i) MsgBox(＂删除完成＂) Exit Sub End If Next i MsgBox(＂找不到要删除的元素＂)End Sub 读程序并填空 1．给定程序的功能是输出一组数的最大值和最小值，在画线处填入适当内容，将程序补充完整。 Private Sub End Function 4．给定程序的功能是建立并输出除主、副对角线上的元素为5外，其余元素都为1的方阵，在画线处填入适当内容，将程序补充完整。Command1_Click() X=Array(-112, 18, 20,-5,-100, 82, 91, 56, 78, 99, Private Sub Command1_Click()100) Max=x(0) Min=x(0) For I=1 To 10 If x(I)>Max Then _____________ End if If x(I)>Min Then _____________ End if Next I Print “MAX=”;Max , “MIN=”;Min End Sub 2．若A2+B2+C2 , 则A，B，C称为一组勾股数，如下程序是找出100以内的所有勾股数，并按A，B，C顺序输出。请在画线处填入适当内容。 Private Sub Command1_Click() For A=2 To 99 For B=A+1 To 100 C=_____________ If ____________ And C<=100 Then Print A, B, C End If Next B Next A End Sub 3．本程序的功能是计算输入数的阶乘，请在画线处填上适当的内容使程序完整。 Private Sub form_Click() Do N=Val(InputBox(“请输入一个大于0的整数：”)) Loop Until N>0 Print Fact(N) End Sub Private Function Fact(M) Fact= _______________（1分） For I=2 To ____________（2分） Fact = ______________（2分） Next I Dim A(10,10) For I=1 To 10 For J=_______________（2分） If __ _____________ Then A(I, J)=5 Else A(I, J)=1（1分）Next J Next I For I=1 To 10 For J=1 To 10 Print A(I, J);Next J __ __________ （2分）Next I End Sub 编写一个程序，在程序运行时输入一个0—99999之间的整数，判断输入的是几位数，并在窗体输出结果。 编写一个程序，在窗体上添加两个命令按钮，运行程序时，单击[开始]按钮，在窗体输出1~100之间所有能被3整除的数。单击[结束]按钮，结束程序。 VB类计算机专业毕业设计题目 第1-100个题目 1.医院住院管理系统 2.人事管理系统 3.停车场管理系统 4.教师管理系统 5.学生信息管理系统 6.学籍管理系统 7.工资管理系统 8.医院门诊管理系统 9.员工请假管理系统 10.电脑公司进销存 11.学生宿舍管理系统 12.图书采购管理系统 13.企业进销存管理系统 14.商品销售管理系统(进销存)15.车辆管理系统 16.房地产销售(售楼)管理系统 17.小区物业管理系统 18.书店图书管理系统 19.珠宝首饰进销存管理系统 20.学生信息管理系统 21.图书管理系统 22.学校信息管理系统 23.人事工资管理系统 24.电子教务管理系统 25.智能试卷生成系统 26.多媒体教学演示系统 27.仓库管理管理系统 28.商场财务管理系统 29.教师管理系统 30.学生信息管理 31.图书管理系统 32.人事管理系统[人力资源管理] 33.铁路交通查询 34.学校信息管理系统 35.企业人事管理系统 36.图书管理系统 37.学籍管理系统 38.交通事故档案管理系统 39.车辆查询系统 40.航空公司管理系统 41.物业租赁管理系统 42.宾馆客房管理系统 43.教师管理系统(2)44.人事管理系统(3)45.人事管理系统(4)46.学生成绩管理系统 47.人才档案管理系统 48.图书借阅管理系统 49.排课系统 50.图书馆管理系统 51.学生档案管理系统 52.客运售票系统 53.汽车修配管理系统 54.洗衣店管理系统 55.电气设备管理系统 56.橡胶管理系统 57.火车订票系统 58.家庭管家系统 59.车辆调度管理系统 60.工伤事故管理系统 61.城市交通查询系统 62.电动车配件管理系统 63.人才管理系统 64.公用房信息系统 65.水费管理系统 66.设备管理系统 67.多媒体播放器 68.户籍管理系统 69.超市管理系统 70.商场管理系统 71.中小型饭店餐饮管理系统 72.固定资产管理系统 73.学籍管理系统 74.流动资金贷款业务管理系统 75.失业保险管理系统 76.学生宿舍管理系统 77.旅游资源及线路管理系统 78.图书查询系统 79.仪器设备管理系统 80.汽车租凭管理系统 81.Excel文档属性提取与自动阅卷系统研究 82.高校学籍管理系统 83.流动资金贷款业务系统 84.超市管理系统 85.家庭财务管理系统 86.考试管理系统 87.通用成绩查询系统 88.通用成绩查询系统 89.智能公交查询系统 90.人力资源管理系统 91.仓库管理系统 92.收支管理系统 93.图像管理系统 94.客房管理系统 95.人事管理系统 96.商品销售管理系统 97.图书馆查询管理系统 98.学生信息管理系统 99.工资管理系统 100.人事管理系统 第101-200个题目 101.小区电费管理系统 102.商场商品管理系统 103.进销存管理系统 104.车辆管理系统 105.影碟租借管理系统 106.多媒体播放器 107.电脑商城销售管理系统 108.家庭理财管理系统 109.网络俄罗斯方块 110.物资流通管理系统 111.图书馆管理系统 112.交通(铁路)查询系统系统 113.火车售票管理系统 114.办公管理系统 115.进销存管理系统 116.物流管理系统 117.企业营销管理系统 118.客户管理系统 119.工资管理系统 120.图书管理系统 121.小区物业管理系统 122.小区物业管理系统 123.工资管理系统 124.学生成绩管理系统 125.酒店客房管理系统 126.交换机管理系统 127.车辆调度管理系统 128.酒店仓库管理系统 129.企业销售管理系统 130.汽车美容管理系统 131.公司信息管理系统 132.学生成绩管理 133.实验室设备管理系统 134.停车场管理系统 135.物资管理系统 136.学生综合评价系统 137.超市管理系统 138.企业仓库管理系统 139.飞机售票系统 140.客房信息管理系统 141.学生成绩查询系统 142.宾馆客房管理系统 143.物流管理系统 144.超市管理系统 145.城市公交查询系统 146.公司事务管理系统 147.企业ERP管理系统 148.客户管理系统 149.文件加解密系统 150.物业管理系统 151.抽奖系统 152.学生档案管理系统 153.高校排课管理系统 154.人事管理系统 155.图书管理系统 156.企业实力评估系统 157.教材管理系统 158.进销存管理系统 159.小型超市管理系统 160.员工培训管理系统 161.学生社团管理系统 162.VCD租借管理系统 163.兼职中介管理系统 164.工资管理系统 165.退税管理系统 166.期刊信息管理系统 167.合同管理系统 168.报警系统 169.交互式cad系统 170.音像管理系统 171.自动排课系统 172.户籍管理系统 173.销售管理系统 174.自动点歌系统 175.宿舍管理系统 176.贸易公司信息管理系统 177.企业人事工资管理系统 178.企业人事管理系统 179.俄罗斯方块游戏 180.员工管理系统 181.设备管理系统 182.题库管理系统 183.高校题库管理系统 184.班级管理系统 185.企业工资管理系统 186.仓库管理系统 187.高速公路票据管理系统 188.通讯录管理系统 189.超市进销存管理系统 190.评语管理系统 191.题库自动组卷系统 192.自动出卷系统 193.药品管理系统 194.电表管理系统 195.教师管理系统 196.文档管理系统 197.库存管理系统 198.工资管理系统 199.工资管理系统 200.地籍管理系统 第201-300个题目 201.图书管理系统 202.图书管理系统 203.库存管理系统 204.公交查询系统 205.人事管理系统 206.IC卡管理系统 207.考勤管理系统 208.家庭财务管理系统 209.基于VB和XML的个人资料编辑器的实现 210.长途汽车信息管理系统 211.系统辅助管理程序的设计与实现 212.Excel条件格式化工具的设计与实现 213.模拟ATM机系统软件的设计与开发 214.一个编译原理语法分析器的设计与实现 215.WORD文档分类管理插件的设计与实现 216.学生注册管理系统 217.扫雷游戏的设计与开发 218.科研项目管理系统论文 219.物流配送信息系统论文 220.营养信息管理系统论文 221.百货公司业务管理系统论文 222.房地产销售管理信息系统论文 223.通讯录管理系统论文 224.图书租借管理系统论文 225.物资管理系统论文 226.期刊信息管理系统论文 227.企业生产管理系统 228.WORD题库插件 229.采购系统 230.会员管理系统 231.病历管理系统 232.库存管理系统 233.病历管理系统 234.公费医疗管理系统 235.设备管理系统 236.光盘管理系统 237.仓库管理系统 238.汽车销售系统 239.药品供销存系统 240.通讯录管理系统 241.简单小游戏设计 242.教材管理系统 243.打字练习系统 244.网络计时管理系统 245.旅游资源及线路管理系统 246.绩效评价系统 247.保险单管理系统 248.车间调度系统 249.酒店管理系统 250.自动组卷系统 251.CTI电话语音应答系统 252.商场管理系统 253.烟花爆竹经销管理 254.城市公交查询系统 255.进销存管理系统 256.医疗纠纷检索系统 257.连锁店管理系统 258.点对点聊天文件传输系统 259.服装专卖店管理系统 260.毕业论文管理系统 261.学生交费管理系统 262.电脑租赁系统 263.学校田径运动会管理系统 264.医院血库管理系统 265.停车场管理系统 266.学校工资管理系统 267.银行代扣代发工资系统 268.运输公司信息管理系统 269.IC卡管理系统 270.建材销售管理系统 271.社会福利保障系统 272.招生管理系统 273.学校用电收费管理系统 274.设备信息管理系统 275.人口管理系统 276.科研项目管理系统 277.超市管理系统 278.住院信息管理系统 279.药品公司进销存管理系统 280.学生成绩管理系统 281.物流管理系统 282.网吧计费系统 283.考试分析评价系统 284.固定资产管理系统 285.干部档案管理系统B 286.机房学生上机管理系统 287.计算机维修管理系统 288.车辆管理系统 289.个人邮件处理系统 290.身份证管理系统 291.餐饮管理系统 292.医院门诊管理系统 293.图书借阅管理系统 294.书店管理系统 295.期刊信息管理系统 296.酒店客房管理 297.计算机等级考试管理系统 298.光盘信息管理系统 299.小区物业管理系统 300.无纸化考试系统 301.售楼管理系统 302.销售管理系统 303.防火墙的设计与实现 304.简单远程控制系统被控端实践 305.简单远程控制系统主控端实践 306.文档分类管理插件的设计与实现 VB.NET类计算机专业毕业设计题目 1.酒店管理系统 2.小区物业管理系统 3.电子邮件客户端系统 4.宾馆管理系统 5.电子邮件服务器 6.学生旧货信息系统 7.旅游业务管理系统 8.人力资源管理系统 9.学生旧货信息系统 10.酒店餐饮管理系统 11.车辆档案管理系统 12.订单管理系统 13.媒体播放器 14.门诊就诊系统的设计与实现 15.家庭理财系统的设计与实现 PaperTime论文检测平台支持全文查重、在线改重、机器人降重等，其中在线改重是针对论文重复率高，可以在线边修改进行实时查重，实现论文内容修改与实时报告查重展现在同一界面上，修改一句实时查重就能快速的查看到改重后的效果，提高论文降重的效果。http://www.xiexiebang.com 试卷编号：8486 一、填空 共5题（共计5分）第1题（1.0分）题号:1120 A和B同为正整数或同为负整数的VB表达式为【1】.=======(答案1)======= A=INT(A)AND B=INT(B)AND A*B>0 第2题（1.0分）题号:1490 如果将框架的【1】属性设置为False,则表示框架内的对象均被屏蔽.=======(答案1)======= Enabled 第3题（1.0分）题号:1363 数学表达式如图的VB算术表达式为【1】.=======(答案1)======= Sin(15*3.14/180)+ Sqr(x + Exp(3))/Abs(xLog(3 * x)第4题（1.0分）题号:1374 下面程序运行后输出的结果是【1】.Private Sub Command1_Click()a$=“*”::B$=“$” For i=1 To 4 If i Mod 2=0 Then x$=String(Len(a$)+i,B$)Else x$=String(Len(a$)+i,a$)End If Print x$ Next i End Sub =======(答案1)======= ** $$$ **** $$$$$ 第5题（1.0分）题号:245 声明单精度常量g(重力加速度)代表9.8可写成【1】.=======(答案1)======= const g=9.8 =========或========= const single g=9.8 二、判断 共5题（共计5分）第1题（1.0分）题号:332 在MsgBox 函数中 prompt 参数是必须的.答案：Y 第2题（1.0分）题号:352 在过程中用Dim和Static定义的变量都是局部变量.答案：Y 第3题（1.0分）题号:1123 使用Print方法只能在窗体中输出,不能在图片框中输出.答案：N 第4题（1.0分）题号:342 在VB中,可以将在Picture控件中绘制的图形以文件的形式保存 在磁盘上.答案：Y 第5题（1.0分）题号:270 当窗体的ScaleTop=0,ScaleLeft=0时,这个窗体Top和Left值也是0.答案：N 三、单项选择 共5题（共计5分）第1题（1.0分）题号:3173 当一个窗体被卸载时,最后引发的一个事件是.A:Deactivate B:QueryUnload C:Unload D:terminate 答案：D 第2题（1.0分）题号:3182 记录长度最大可取的值是______字节.A:32767 B:32768 C:65535 D:65536 答案：A 第3题（1.0分）题号:869 要清除已经在图片框Picture中打印的字符串而不清除图片框中的 图像,应使用语句().A:A.P1.Cls B:P1.picture=LoadPicture(“")C:P1.Print”“ D:P1.piture”“ 答案：A 第4题（1.0分）题号:3234 执行下面程序段后,变量a的值为______.For I=1 To 3 For j=1 To I For k=j To 3 a=a+1 Next k Next j Next I A:3 B:9 C:14 D:21 答案：C 第5题（1.0分）题号:2231 Rnd函数不可能是下列()值.A:0 B:1 C:0.1234 D:0.0005 答案：B 四、多项选择 共5题（共计5分）第1题（1.0分）题号:276 下列语句哪些是错误的语句（）？ A:Const Imax As Integer=&o155 B:Const _Ga As String=”abc“ C:Dim aa,bb As Integer,cc As String D:yy=8,uu=9 答案：BD 第2题（1.0分）题号:278 下列哪些标识符不符合变量的命名规则（）？A:hyu B:$abc C:4w D:y.u E:ty% F:_n8 答案：BCDEF 第3题（1.0分）题号:284 设A=”abcdefghijklm“，下列（）的函数值为”jklm“。A:Mid(A,10,4)B:Left(A,4)C:Right(A,4) D:Mid(A,10,14)答案：ACD 第4题（1.0分）题号:275 下列说法中哪些是正确的（）？ A:逻辑型数据占1个字节 B:长整型数据占4个字节 C:单精度型数据占4个字节 D:一个汉字在Visual Basic中占1个字节 答案：BCD 第5题（1.0分）题号:277 下列说法哪些是正确的（）？ A:不能对符号常量重新赋值 B:Label控件用来在窗体中显示文本，其中的文本用户不能直接修改 C:TAB()函数用于在输出表达式前将输出点定位在第N-1个字符位置 D:格式输出函数Format()可以使数值、日期或字符串按用户指定的格式输出 答案：ABD 五、程序填空 共1题（共计10分）第1题（10.0分）题号:491 '-------'【程序填空】 '-------'功能：以下程序的功能为，单击窗体后如果输入的数据分别为”W“，”8“和”？“时，' 窗体上显示的内容分别是：W is Alpha Character、8 is Numeral Character、' ？is Other Character '-------Private Sub Form_Click()Dim strC As String * 1 strC = InputBox(”请输入数据“)'**********SPACE********** Select Case 【?】 '**********SPACE********** Case ”a“ To ”z“ 【?】 Form1.Print strC + ” Is Alpha Character“ Case ”0“ To ”9“ Form1.Print strC + ” Is Numeral Character“ '**********SPACE********** 【?】 Else Form1.Print strC + ” Is Other End Sub Character“ End Select End Sub =======(答案1)======= strC =======(答案2)======= , ”A“ To ”Z“ =======(答案3)======= Case 六、程序改错 共1题（共计10分）第1题（10.0分）题号:455 '-------'【程序改错】 '-------'题目：猜数游戏：程序启动后Lable1和Lable2滚动显示 ' 属于[1，100]的随机整数，当用户单击”左大“或 ' ”右大“按钮时，滚动停止，如果用户猜对了，' 在Lable3中显示”猜对了“，否则显示”猜错了“。 '-------Private Sub Command1_Click()Timer1.Enabled = False '**********FOUND********** If Val(Label1.Caption)< Val(Label2.Caption)Then Label3.Caption = ”猜对了“ Else Label3.Caption = ”猜错了“ End If End Sub Private Sub Command2_Click()Timer1.Enabled = False If Val(Label1.Caption)< Val(Label2.Caption)Then '**********FOUND********** Label3.Caption = ”猜错了“ Else '**********FOUND********** Label3.Caption = ”猜对了“ End If Private Sub Timer1_Timer()Randomize Label1.Caption = Int(Rnd()* 100 + 1)Label2.Caption = Int(Rnd()* 100 + 1)End Sub 答案： =======(答案1)======= If Val(Label1.Caption)> Val(Label2.Caption)Then =========或========= If Val(Label2.Caption)< Val(Label1.Caption)Then =======(答案2)======= Label3.Caption = ”猜对了“ =======(答案3)======= Label3.Caption = ”猜错了" 七、程序设计 共1题（共计20分）第1题（20.0分）题号:156 '-------'【程序设计】 '-------'题目：(事件)双击窗体。 '(响应)求3+6+9+12+15+18+„„+300的和，并将结 ' 果输出到窗体上。将结果存入变量 SUM中。 '-------答案：----------------------Dim i As Integer For i = 3 To 300 If i Mod 3 = 0 Then sum = sum + i End If Next Print sum ---------------------- 八、VB窗体设计 共2题（共计40分）第1题（20.0分）题号:36 --------【窗体设计】 --------题目：请按照题目要求设计指定的窗体。 建立如(图1)所示界面。 ---------------- 1、窗体设置 1）名称设置为“Game”。2）标题内容为“游戏控制器”。3）边框样式设置为1。4）隐藏控件菜单栏。 2、在窗体中的最上面添加标签（Label）1）名称设置为“lblTiShi”。2）标题内容为“这些设置帮助您配置安装在计算机上的游戏控制器。”。3）自动调整大小。 3、在标签下面添加框架（Frame）1）名称设置为“fraKongZhiQi”。2）标题内容为“安装游戏控制器”。 4、在框架“fraKongZhiQi”内添加如下控件 1）添加列表试图（ListView） 名称设置为“lvwKongZhiQi”； 查看设置为3； 添加2个列首； 列首1文本为“控制器”； 列首2文本为“状态”。2）添加命令按钮（CommandButton） 名称设置为“cmdTianJia”； 标题内容为“添加(A)...”； 窗体快捷键设置为“ALT + A”。3）添加命令按钮（CommandButton） 名称设置为“cmdShanChu”； 标题内容为“删除(R)”； 窗体快捷键设置为“ALT + R”。4）添加命令按钮（CommandButton） 名称设置为“cmdShuXing”； 标题内容为“属性(P)”； 窗体快捷键设置为“ALT + P”。 5、在框架下面添加如下3个命令按钮（CommandButton） 1）名称设置为“cmdGaoJi”； 标题内容为“高级(D)...”； 窗体快捷键设置为“ALT + D”。2）名称设置为“cmdYiNan”； 标题内容为“疑难解答(T)...”； 窗体快捷键设置为“ALT + T”。3）名称设置为“cmdQueDing”； 标题内容为“确定”。第2题（20.0分）题号:77 【窗体设计】 --------题目：在窗体上放一文本框，一菜单，各菜单项内容如图 所示，编写菜单程序实现大小写字母转换的功能，程序运行界面如图2所示 菜单项属性如下表。 菜单项 名称 快捷键 大小写转换 Change ....大写转小写 L_S Ctrl+A....小写转大写 S_L Ctrl+B 退出 Exit 各控件属性设置如下表： 对象名称 Name属性 Caption属性 text属性 窗体 默认 默认 文本框 text1（MultiLine=True ScrollBars=2）空 --------第二篇：计算机vb试题及答案
第三篇：VB程序设计试题及答案(一)
第四篇：VB类计算机专业毕业设计题目
第五篇：西华师范大学计算机VB试题及答案8
点击咨询 