vb二级基本操作题

第一章：基本操作题

⑴在名称为Form1的窗体上画一个名称为Text1的文本框，请设置适当属性，使文本框中无初始内容，可显示多行，有垂直滚动条，且最多只能输入1000个字符。如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt11.vbp，窗体文件名为sjt11.frm。

⑵在名称为Form1的窗体上画两个文本框，其名称分别为Text1和Text2，内容分别为“文本框1”和“文本框2”，编写适当的事件过程。程序运行后，如果单击窗体，则Text1隐藏，Text2显示，如图1所示；如果双击窗体，则Text1显示，Text2隐藏，如图2所示。

注意：程序中不得使用变量。

存盘时必须存放在考生文件夹下，工程文件名为sjt12.vbp，窗体文件名为sjt12.frm。

⑶在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“程序设计”，BorderStyle属性为1，且可以根据标题自动调整大小，编写适当的事件过程。程序运行后，其界面如图1所示，此时如果单击窗体，则标签消失，同时用标签的标题作为窗体的标题，如图2所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt13.vbp，窗体文件名为sjt13.frm。

（4）在名称为Form1的窗体上画一个命令按钮，其名称为C1，标题为“移动”，位于窗体的左上部，如图1所示，编写适当的事件过程。程序运行后，每单击一次窗体，都使得命令按钮同时向右、向下移动100.

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt14.vbp，窗体文件名为sjt14.frm。

（5）在窗体上画二个文本框，名称分别为Text1、Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，如果在Text1中每输入一个字符，则显示一个“*”，同时在Text2中显示输入的内容（如图2所示）。程序中不得使用任何变量。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt15.vbp，窗体文件名为sjt15.frm。

（6）在名称为Form1的窗体上画二个文本框，名称分别为T1、T2，初始情况下都没有内容。请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中（如图所示）。程序中不得使用任何变量。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt16.vbp，窗体文件名为sjt16.frm。

计算机二级VB第7章选择题及答案

第七章理论复习题1、阅读下列程序： Private Sub Form_Click() Dim m As Integer Static n As Integer For i = 1 To 3 n = n + i m = m + i ^ 2 Next Print m, n End Sub 运行时两次单击窗体结果为（）。 A、14 6 14 6 B、14 6 14 12 C、14 6 28 6 D、14 6 28 12 2、窗体上的命令按钮编写如下事件过程：Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i, j As Integer For i = 2 To 4 For j = 3 To 5 array1(i, j) = i * j Next j Next i Print array1(2, 4) + array1(3, 4) End Sub 运行时，单击命令按钮后输出的结果是（）。 A、9 B、13 C、程序出错 D、20 5、以下数组声明语句中数组a包含的元素个数为（）。Dim a(3,-2 to 1,5) A、96 B、75 C、60 D、13 6、有声明Dim a(-3 to 1,3) As Integer，则下列叙述中正确的是（）。 A、数组a是二维动态数组 B、数组a共有20个元素 C、a（0,0）不是该数组的元素 D、a（1,1）是该数组的第十个元素 7、下列叙述中错误的是（）。 A、控件数组的每一个元素共享同样的事件过程 B、控件数组的每一个元素都有与之相关联的下标值 C、控件数组的每一个元素都有不同的name属性作为标识 D、可在运行过程中删除控件数组的某个元素 8、能使一维数组arr(6)元素个数加1，但保留数组中原有元素的语句是（）。 A、R eDim arr(7) B、R eDim Preserve arr(7)

VBProject代码操作代码之常用语句

一、增加模块 1．增加一个模块，命名为“我的模块” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块" 系统常量vbext_ct_StdModule=1 2．增加一个类模块，命名为“我的类” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = "我的类" vbext_ct_ClassModule=2 3．增加一个窗体，命名为“我的窗体” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = "我的窗体" vbext_ct_MSForm=3 二、删除模块 1．删除“模块1” ThisWorkbook.VBProject.VBComponents.Remove hisWorkbook.VBProject.VBComponents("模块1") 2．删除窗体“UserForm1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("UserForm1") 3．删除类模块“类1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("类1") 4.删除所有的窗体 Sub RmvForms() Dim vbCmp As VBComponent For Each vbCmp In ThisWorkbook.VBProject.VBComponents If vbCmp.Type = vbext_ct_MSForm Then ThisWorkbook.VBProject.VBComponents.Remove vbCmp Next vbCmp End Sub 相关： 工作表和ThisWorkbook的模块类型为vbext_ct_Document=100 三、增加代码 1.在“模块1”中插入代码 如果需要在“Sheet1”、“Thisworkbook”、或“Userform1”中操作，用只需将下面的“模块1”换成相应的名称即可。 方法1： 在模块的开始增加代码，增加的代码放在公共声明option,全局变量等后面。 Sub AddCode1() ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString _ "sub aTest()" & Chr(10) & _ "msgbox ""Hello""" & Chr(10) & _ "end sub" End Sub

全国计算机等级考试二级VB笔试试题及答案

2009年9月全国计算机等级考试二级VB笔试试题及答案 一、选择题（每小题2分，共70分） 一、选择题 1．下列数据结构中，属于非线性结构的是（）。 A. 循环队列 B.带链队列 C.二叉树 D.带链栈 答案C Array解析树均是非线性结构 2. 下列数据结构中,能够按照”先进后出”原则存取数据的是（）。 A. 循环队列 B.栈 C.队列 D.二叉树 答案B 解析:栈是先进后出或后进先出的线性表 3. 对于循环队列,下列叙述中正确的是（）。 A.队头指针是固定不变的 B.队头指针一定大于队尾指针 C.队头指针一定小于队尾指针 D.队头指针可以大于队尾指针，也可以小于队尾指针 答案D 解析:如果队头指针大于队尾指针说明队列已经循环存放数据了,如果队头指针小于队尾指针说明没有进行循环存放 4. 算法的空间复杂度是指（）。 A.算法在执行过程中所需要的计算机存储空间 B.算法所处理的数据量

C.算法程序中的语句或指令条数 D.算法在执行过程中所需要的临时工作单元数 答案A 解析:算法的空间复杂度是指执行算法所需要的内存空间,包括算法程序所占空间,输入的初始数据所占空间和执行过程中所需要的额外空间. 5. 软件设计中划分模块的一个准则是（）。 A. 低内聚低耦合 B. 高内聚低耦合 C. 低内聚高耦合 D. 高内聚高耦合 答案B 解析:模块内部各元素之间的联系要紧密,高内聚,模块间的连接的紧密程度要低,低耦合,这样可以提高模块的独立性. 6.下列选项中不属于结构化程序设计原则的是（）。 A.可封装 B.自顶向下 C.模块化 D.逐步求精 答案A 7.软件详细设计产生的图如下 该图是( ). A.N-S图 B. PAD图 C. 程序流程图 D.E-R图 答案C 8.数据库管理系统是（）。

计算机二级VB考试题及答案

计算机二级VB考试题及答案 为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是搜索的计算机二级VB考试题及答案，供参考练习，预祝考生们考出自己理想的成绩! 1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click( ) n = Val(Text1.Text) If n2 = n/2 Then f = f1(n) Else f = f2(n) End If

Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)

A.72 36 B.108 36 C.72 6 D.27 3 2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) c = "1234" For i = 1 To 4 c1 = Trim(Str( )) Print c1

Next i End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 12 123 1234 则在下划线处应填入的内容为(B)(单) A.Right(c1,i) B.Left(c1,i) C.Mid(c1,i,1) D.Mid(c1,i,i)

省二级VB编程题目

Private Sub Command1_Click() Dim n As Integer, i As Integer, s As Double n = Val(Text1.Text) s = 0 For i = 1 To n s = s + i ^ 2 Next i Text2.Text = s End Sub Private Sub Command1_Click() ''' 不得删除本行注释 Dim i As Integer Open App.Path & "\" & "yssj.txt" For Input As #1 For i = 1 To 10 Input #1, a(i) Next i Close #1 End Sub Private Sub Command2_Click() ''' 不得删除本行注释 Dim i As Integer Text1.Text = "" For i = 1 To 10 If a(i) Mod 3 = 2 Then Text1.Text = Text1.Text & Str(a(i)) End If

Next i End Sub

Private Sub command1_Click() '''不得删除本行注释 Dim a As Integer, b As Double, i As Integer, n As Integer n = Val(Text1.Text) a = 0 b = 0 For i = 1 To n a = a + i b = b + a Next i Text2.Text = b End Sub Private Sub Command1_Click() '''不得删除本行注释 Dim i%, xh$, xm$ Open App.Path & "\" & "Xhxm.txt" For Output As #1 For i = 1 To 3 xh = InputBox("请输入学号") xm = InputBox("请输入姓名") Write #1, xh, xm Next i Close #1 End Sub Private Sub Command2_Click() '''不得删除本行注释 Dim s as string Open App.Path & "\" & "Xhxm.txt" For Input As #2 Do While Not EOF(2) Line Input #2, s Text1.Text = Text1.Text & s & vbCrLf Loop Close #2 End Sub

VB常用字符串操作函数解读

VB常用字符串操作函数2009/11/25 18:321. ASC(X，Chr(X：转换字符字符码[格式]： P=Asc(X 返回字符串X的第一个字符的字符码 P=Chr(X 返回字符码等于X的字符 [范例]：(1P=Chr(65 ‘ 输出字符A,因为A的ASCII码等于65 (2P=Asc(“A” ‘ 输出65 2. Len(X：计算字符串X的长度 [格式]： P=Len(X [说明]：空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2 Bytes，但也算 一个字符。 [范例]： (1 令X=”” (空字符串 Len(X 输出结果为0 (2 令X=”abcd” Len(X 输出结果为4 (3 令X=”VB教程” Len(X 输出结果为4 3. Mid(X函数：读取字符串X中间的字符 [格式]： P=Mid(X,n 由X的第n个字符读起，读取后面的所有字符。 P=Mid(X,n,m 由X的第n个字符读起，读取后面的m个字符。 [范例]： (1 X=”abcdefg” P=Mid(X,5 结果为：P=”efg” (2 X=”abcdefg” P=Mid(X,2,4 结果为 P=”bcde” 4. R eplace: 将字符串中的某些特定字符串替换为其他字符串 [格式]： P=Replace(X,S,R [说明]：将字符串X中的字符串S替换为字符串R，然后返回。[范例]：X=”VB is very good” P=Replace(X,good,nice 输出结果为：P=”VB is very nice” 5. StrReverse：反转字符串 [格式]： P=StrReverse(X [说明]：返回X参数反转后的字符串 [范例]：（1）X=”abc” P=StrReverse(X 输出结果：P=”cba” 6. Ucase(X，Lcase(X：转换英文字母的大小写 [格式]：P=Lcase(X ‘ 将X字符串中的大写字母转换成小写P=Ucase(X ‘ 将X字符串中的小写字母转换成大写 [说明]：除了英文字母外，其他字符或中文字都不会受到影响。 [范例]：（1）令X=”VB and VC” 则Lcase(X的结果为”vb and vc”，Ucase(X的结果为”VB AND VC” 7. InStr函数：寻找字符串 [格式]： P=InStr(X,Y 从X第一个字符起找出Y出现的位置 P=InStr(n,X,Y 从X第n个字符起找出Y出现的位置 [说明]：（1）若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。（2） InStr(X,Y相当于 InStr(1,X,Y。（3）若字符串长度，或X为空字符串，或在X中找不到Y，则都 返回0。（4）若Y为空字符串，则返回0。 ---------------------------------------------------------------------------------------------- mid(字符串，从第几个开始，长度 ByRef 在[字符串]中[从第几个开始]取出[长度个字符串] 例如 mid("小欣无敌",1,3 则返回 "小欣无" instr(从第几个开始,字符串1,字符串2 ByVal 从规定的位置开始查找，返回字符

计算机二级VB考试试题

站长提醒广大考生：下面的138道题目，在二级考试中命中率极高。 一、选择题 (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) 注：P55-58 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) 注：P108

VB基本操作题

基本操作题，请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码) 1、(1)在名为Form1的窗体上绘制两个标签(名称分别为Label1和Label2，标题分别为“长”和“宽”)、两个文本框(名称分别为Text1和Text2，Text属性均为空白)和一个命令按钮(名称为Command1，标题为“输入”)。编写命令按钮的Click事件过程，使程序运行后，若单击命令按钮，则先后显示两个“输入”对话框，在两个“输入”对话框中分别输入长和宽，并分别在两个文本框中显示出来，运行后的窗体如图21-1所示。 注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj1．vbp，窗体文件名为sj1．frm。 (2)在名为Form1的窗体上绘制一个标签(名称为Label1，标题为“输入”)、一个文本框(名称为Text1，Text属性为空白)和一个命令按钮(名称为Command1，标题为“显示”)。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入内容，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。 注意：要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为Sj2．vbp，窗体文件名为sj2．frm。 2、(1)在窗体上添加通用对话框控件并编写适当的程序代码，要求程序运行时，双击窗口，可以弹出“颜色”对话框。程序运行时的窗体界面如图62-1所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为sj2．vbp。 (2)在窗体上绘制出3个文本框，名称分别为Text1、Text2和Text3。要求程序运行时，焦点

2020年计算机二级考试VB基本操作题冲刺

2020年计算机二级考试VB基本操作题冲刺 二、基本操作题 41基本操作题 在考生文件夹下，打开Ecommerce数据库，完成如下操作： (1)打开Ecommerce数据库，为表Customer增加一个字段，字段 名为email、类型为字符、宽度为20。 (2)为Customer表的“性别”字段定义有效性规则，规则表达式为：性别$“男女”，出错提示信息为“性别必须是男或女”，默认值为“女”。 (3)通过“会员号”字段建立客户表Customer和订单表OrderItem 之间的永久联系;通过“商品号”字段建立商品表Article和订单表OrderItem之间的永久联系。 (4)为以上建立的联系设置参照完整性约束：更新规则为“级联”;删除规则为“限制”;插入规则为“限制”。 参考解析： (1)具体步骤如下： ① 从“文件”菜单中选择“打开”命令，在弹出的“打开”对话框中选择文件类型为“数据库”，选中Ecommerce数据库后单击“确定”按钮。 ② 打开Ecommerce数据库，右击Customer表，在弹出的快捷菜 单中选择“修改”命令，通过表设计器为该表添加题目要求的字段。 (2)打开Customer表设计器，选中性别字段，在“字段有效性” 组框中的“规则”后面的文本框中输入字段级有效性规则：性别$“男

女”，在“信息”后面的文本框中输入出错提示信息：“性别必须是男或女”，在“默认值”后面的文本框中输入：女。 (3)具体步骤如下： ① 拖放Customer表的“会员号”主索引到OrderItem表的普通索引标志“会员号”上，在Customer表和OrderItem表之间建立永久关系。 ② 按照同样的方法，在Article表和OrderItem表之间建立永久关系。 (4)具体步骤如下： ① 在两表永久关系的连线上右击，选择“编辑参照完整性”快捷命令。 ② 弹出“参照完整性设计器”对话框，在“更新规则”页中选中“级联”单选按钮;在“删除规则”页中选中“限制”单选按钮;在“插入规则”页中选中“限制”单选按钮。 ③ 按照同样的方法设置另一关系的参照完整性。

计算机二级VB选择题及答案补充选择

1、下列叙述中，错误的是（B ）。 A、VB程序代码不区分字母大小写 B、VB程序代码中使用“//”表示注释一行 C、VB程序代码中不能使用数字作为标识符的首字符 D、VB程序代码以“回车换行”作为语句结束标志 2、下列关于VB代码编辑时常用组合键的叙述错误的是（C ）。 A、Ctrl＋C表示复制选定代码 B、Ctrl＋X表示剪切选定代码 C、Ctrl＋P表示粘贴代码 D、Ctrl＋Y表示删除整行代码 3、用户自定义数据类型的成员不能是（A）。 A、数组 B、日期型 C、货币型 D、定长字符串 4、如要表示一个在100～300000之间变化的整数，应使用（C）型变量。 A、Integer B、String C、Long D、Byte 5、下列赋值语句中，正确的是（C ）。 A、i + j = 10 B、2i = j C、j = i + j D、i = j = 0 6、能正确表达2的3次幂的表达式是（B ）。 A、2 * 3 B、2 ^ 3 C、2 ** 3 D、2 & 3 7、表达式123 + 23 Mod 100 \ 7的值是（D ）。 A、6 B、126 C、20 D、132 8、表达式12000 + "123" & 100的值是（A ）。 A、"12123100" B、12223 C、24300 D、"12223" 9、下列表达式中，非法的是（C ）。 A、ab+c C、a≠b>c

D、a=b+c 10、表达式23 + 23 Mod 50 \ 7的值是（C）。 A、23 B、46 C、25 D、123 11、下列表达式的值为15的是（C ）。 A、Int(14.6) B、Fix(14.6) C、Round(15.3)（该函数是按照指定的小数位数进行四舍五入运算的结果） D、Trunc(15.3) 12、返回值为非字符串的函数是（C ）。 A、Ucase B、Str C、Asc D、Chr 13、Print方法紧密输出时，用（D ）分隔多个表达式。 A、空格 B、逗号 C、冒号 D、分号 14、以下程序段中有（C ）处错误。 ReDim a As Integer n + 3 = n a = 0 ; b = 1 Print n + 3 = n A、1 B、2 C、3 D、4 15、下列语句中能清除运行时在窗体中显示的文本的是（A ）。 A、Form1.Cls B、Form1.Clean C、Form1.Release D、Form1.Clear 16、在立即窗口中执行语句：a=InputBox("请输入姓名：","姓名","张三"),出现输入对话框后 直接选择"确定"按纽后，a的值为（B）。 A、姓名 B、张三 C、请输入姓名： D、以上都不对 17、在属性窗口设置窗体的Moveable属性为False，使得窗体（B ）。 A、不可见 B、不可移动

计算机二级考试《VB》模拟试题及答案

计算机二级考试《VB》模拟试题及答案 2016计算机二级考试《VB》模拟试题及答案 一、基本操作题 (1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl.vbp，窗体文件名为sjtl.frm。 (2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。再画两个标题分别为“椭圆”和“圆”的命令按钮。如下图所示。 要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjr2.vbp，窗体文件名为sjr2.frm。 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp。窗体Forml上有两个标题分别是“读数据”和“查找”的命令按钮。请画1个名称为Textl、初始值为空的文本框，该文本框允许显示多行内容，且有垂直滚动条，如图所示。程序功能如下。 ①在考生文件夹下的in.3.dat文件中存有100个正整数。单击“读数据”按钮，则将文件in3.dat中的数据读入数组a中。 ②单击“查找”按钮，则查找数组a中所有为7的倍数的数据，并将这些数据顺次显示在Textl文本框内(数据之间用空格隔开)。

“读数据”按钮的Click事件过程已经给出，请编写程序完成“查找”按钮的Click事件过程，实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须使用“查找”按钮完成查找过程，且必须用窗 体右上角的关闭按钮结束程序，否则无成绩。最后将程序按原文件 名存盘。 (2)考生文件夹下有一个工程文件sit4.vbp。在窗体Forml上有 两个名称为Commandl和Command2、标题分别为“重输”和“查找”的命令按钮。程序功能如下。 单击“重输”按钮，则清空Textl中的`内容，等待用户输入由 空格隔开的若干个英文单词;单击“查找”按钮，则找出Textl中最 长的单词，并将其显示在Text2中。某一次的运行效果如图所示。 请将“查找”按钮的Click事件过程中的注释符去掉，把?改为正确 内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 三、综合应用题 考生文件夹下有一个工程文件sjt.s.vbp。在窗体Forml上有两 个标题分别是“产生数据”和“重新排列”的命令按钮，有两个标 题为“原始数据”和“排列数据”的标签。程序功能如下。 ①单击“产生数据”按钮，则随机产生20个一位整数，存人数 组a中，并同时显示在Textl中。 ②单击“重新排列”按钮，则重新排列数组a中的元素：使等值的元素相邻存放，并且保持它们在数组a中首次出现的相对次序;最 后将排列结果显示在Text2中。某一次运行结果如图所示。 请将“重新排列”按钮的Click事件过程中的注释符去掉，把“?”改为正确内容，以实现上述程序功能。

2013年3月全国计算机等级考试二级VB无纸化上机题题库及答案解析(4)

2013年3月全国计算机等级考试二级VB上机题库题干 —1—

第六十一套题干61 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为C1、标题为"改变颜色"的命令按钮，窗体标题为"改变窗体背景色"。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图1所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 (2)在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为"图形控件"。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状控件中被竖线填充。如图2所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 图2 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入正整数。在"除数"框架中选择一个单选按钮，然后单击"处理数据"按钮，将大于文本框中的正整数且能够被所选除数整除的5个数添加到列表框List1中，如图3所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 图3 (2)在考生文件夹下有一个工程文件sjt4.vbp。程序运行后，单击"开始"按钮，图片自上而下移动，同时滚动条的滑块随之移动，每0.5秒移动一次。当图片顶端移动到距窗体的下边界的距离少于200时，再回到窗体顶部，重新向下移动，如图4所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 图4 三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp，窗体如图5所示。运行程序时，从数据文件中读取学生的成绩(均为整数)。要求编写程序，统计总人数，并统计不及格、60～69、70～79、80～89及90～100各分数段的人数，将统计结 果显示在相应的文本框中。结束程序之前，必须单击"保存"按钮，保存统计结果。 注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再按"保存"按钮保存数据，否则无成绩。最后把修改后的文件按原文件名存盘。 图5 第六十二套题干62 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为C1、标题为"变宽"的命令按钮，窗体名称为"改变按钮大小"。编写程序，使得单击命令按钮时，命令按钮水平方向的宽度增加100。程序运行后的窗体如图1所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 (2)在名称为Form1的窗体上画一个名称Shape1的形状控件，画一个名称为L1的列表框，并在属性窗口中设置列表项的值为1、2、3、4、5。将窗体的标题设为"图形控件"。单击列表框中的某一项，则按照所选的值改变形状控件的形状。例如，选择3，则形状控件被设为圆形，如图2所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 图2 二、简单应用题 (1)在考生文件夹中有一个工程文件sjt3.vbp，窗体控件布局如图3(a)所示。程序运行时，在文本框Text1中输入一个正整数，选择"奇数和"或"偶数和"，则在Label2中显示所选的计算类别。单击"计算"按钮时，将按照选定的"计算类别"计算小于或等于输入数据的奇数和或偶数和，并将计算结果显示在Label3中。程序的一次运行结果如图3(b)所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 (a) (b) 图3 (2)在考生文件夹下有一个工程文件sjt4.vbp。程序运行后，如果单击"开始"按钮，则图片自左向右移动，同时滚动条的滑块随之移动，每0.5秒移动一次。当图片完全移出窗体的右边界时，立即再从窗体的左边界开始重新移动，若单击"停止"按钮，则图片停止移动，如图4所示。在窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 —2—

计算机二级VB编程题目含答案

⑴不得增、删窗体上的控件，不得改变窗懺和控件的名執 ⑵不得删改两行' “之间90代码左 ⑶ 不得删改模藝Jb鬧中的代码； ⑷编程后’需运行理序，并在运行后关闭程序窗口。 1、打开芳生文件夹下工程文件Qpfh.vtp潘加适当的事件过程代码'买现以下功鉉 在上边文本框中输入正整数W的值*单击"计算”‘按钮.则在下边文本框中显示平疔和S的值H S = *片2彳十…十矿 Private Sub Comma nd1_Click() Dim n As Integer, i As Integer, s As Double n = Val(Text1.Text) s = 0 For i = 1 To n s = s + i A 2 Next i Text2.Text = s End Sub 2.打开着生文件夹下工程文件Qtds.vhp,祈加适当的雪件过程代码，实现以下功能* 单击“逮数据”按钮，读入考生交件表下的泸町 E 丈件中的10个整数，存入吕数组中：单主*特定值”披迅求出敢组中所有被？除后余2的数，并昱示在文朮框中. Private Sub Comma nd1_Click() '''不得删除本行注释 Dim i As In teger Ope n App.Path & "\" & "yssj.txt" For In put As #1 Fori = 1 To 10 In put #1, a(i) Next i Close #1 End Sub Private Sub Comma nd2_Click() '''不得删除本行注释 Dim i As In teger Text1.Text ="" Fori = 1 To 10 If a(i) Mod 3 = 2 The n Text1.Text = Text1.Text & Str(a(i)) End If Next i End Sub

VB6.0基础入门教程

VB最简单入门教程

目录 （提示：按ctrl,并单击鼠标，可以跳到相应页） 1.1 1 我们需要什么 (3) 1.2 2 第二章：事件、属性及数据类型 (3) 1.3 3 第三章：VB语言 (6) 1.4 4-1第四章按钮（一） (12) 1.5 4- 第四章按钮（二） (199) 1.6 5 第五章菜单 (27) 1.7 6-1第六章输入（一） (34) 1.8 6-2第六章输入（二） (42) 1.9 6-3第六章输入（三） (52) 1.10 7第七章输出 (59) 附录 (63) 2.1 VB教程 (63)

1.1 1 我们需要什么 我们需要什么？当我们在一个精彩的游戏世界中游历了一番之后，或是惊叹于某一工具软件的小巧精致之余，多少总会产生些许编程的冲动。编程吗，在以前如果你对电脑还是一个门外汉，那实在是一件可望而不可及的事情。如果运用基于DOS下的编程语言，譬如C、Qbasic、Pascal等等，真不知何年何月才能有所成就。 编程是需要天赋的，你必须在大脑中对整个程序有一个清晰的轮廓，一个高效的流程，这并不是每个人都能做到的，你必须思之慎之，这也使编程变成一件最枯燥无味的事情。但在第四代计算机语言（可视化编程）出现后，可以确切的说它开发了人们的更多天赋，并不局限于那些头脑异常清晰的人，每一个人都可以发现自己也可以编出一些从前不敢问津的程序，想象力的充分发挥才是第四代语言的精粹。 Visual Basic（以下简称VB）可以说是可视化语言的先驱了，而且它也是可视化程度最高的一个，从几年前VB诞生之日起到现在，它已经经历了五个版本，而且现在微软正在紧张的进行着VB6.0的研制、测试，这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手，如IE之于浏览器领域，《帝国时代》之于游戏都是最好的例证。对于VB现在也有一个很强的竞争对手――Delphi，有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi 又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。 VB的诞生 VB的出现可以说是Microsoft Windows的日渐成熟的必然产物。Microsoft Windows为程序员和最终用户提供了一个共同的人机界面。对用户，Windows提供了一个图形鼠标的操作环境，该环境对所有的应用程序都一样；对于程序员，Windows提供了一组预定义工具----称之为Microsoft Windows 的软件开发工具箱（SDK），该工具能使程序员建立一个与Windows界面相同的应用程序，而且，程序员不必关心最终用户的硬件配置情况。在这一开发环境中，程序员唯一困难的是Microsoft SDK提供了六百多个函数和与其一致的事件驱动（event-driven）编程技术。两种新方法的交叉使众多的程序员重新陷入困境，程序员不仅要掌握程序驱动编程技术和六百多个函数的功能，而且还得用C语言描述这些问题。因此一般情况下，程序员首先要掌握C程序设计技术，而后再开始学习SDK。这样的条件下就要求在Microsoft多任务环境下出现一种操作方便，使用简单的新工具－－－－Visual Basic由此诞生。 何为可视 英文Visual的意思是“视觉的”，“可视的Baisc”这个名字可能抽象了点，但实际上它却是最直观的编程方法，之所以叫做“可视”，你只要看到VB的界面就会明白，实际上你无需编程，就可以完成许多步骤。在VB中引入了控件的概念，在Windows中控件的身影无处不在，各种各样的按钮、文本框、无线钮，都是控件的种类，VB把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观，工作方法。这样你就可以象在画板上一样，随意点几下鼠标，一个按钮就完成了，这些在以前的编程语言下是要经过相当复杂的工作的。

福建省计算机二级VB编程题

编程题 N = Val(Text1.Text) Select Case N Case 80 To 100 Text2.Text = "优良" Case 60 To 79 Text2.Text = "合格" Case 0 To 59 Text2.Text = "不合格" End Select Dim i%, s& N = Val(Text1.Text) s = 0

If i Mod 2 = 0 Then s = s + i Next i Text2.Text = Str(s) Dim i As Integer N = Val(Text1.Text) Text2.Text = "" For i = N To 1000 If i Mod 8 = 1 Then Text2.Text = Text2.Text & i & " " Next i Dim i As Integer s = 0 N = Val(Text1.Text)

s = s + i ^ i Next i Text2.Text = s Dim i%, n%, a As String * 1 n = 0 For i = 1 To Len(Text1.Text) a = Mid(Text1.Text, i, 1) If a >= "0" And a <= "9" Then n = n + 1 Next i Text2.Text = Str(n) Dim a As Double, b As Double, c As Double '保留本行定义 a = Val(Text1.Text)

b = Val(Text2.Text) c = Val(Text3.Text) If b ^ 2 - 4 * a * c >= 0 Then Text4.Text = "实数解" Else Text4.Text = "复数解" End If N！ S=1 For i=1 to n S=s*i Next i 1+1!+2!+3！+。。。+n！ Dim i%, t&,n%,s&

江苏省计算机二级VB试题库

一．选择题 1．窗体上有多个控件，在Form_Activate()事件过程中添加____ B______语句，就可确保每次运行程序时，都将光标定位在文本框Text1上。 A．Text1．Text="" B．Text1．SetFocus C．Form1．SetFocus D．Text1．Visible=True 2．语句Print "5*20"输出的结果是______C___。 A．"5*20" B．出现错误信息 C．5*20 D．100 3．不能打开代码窗口的操作是______B__。 A．双击窗体设计器的任何地方 B．按下F4键 C．单击工程窗口中的“查看代码”按钮 D．选择“视图”下拉菜单中的“代码窗口” 4．在VB中可以作为容器的是______B__。 A．Form、TextBox、PictureBox B．Form、PictureBox、Frame C．Form、TextBox、Label D．PictureBox、TextBox、ListBox 5．能被对象所识别的动作与对象可执行的活动分别称为对象的___D_____。 A．方法、事件B．过程、方法 C．事件、属性D．事件、方法 6．计算下面的表达式，其值是_____B___。 CInt(4.5) * Fix(-3.81) + Int(4.1) * (5 Mod 3) A．-7 B．-4 C．-8 D．6 7．以下有关对象属性的说法中正确的是___D_____。 A．对象所有的属性都罗列在属性窗口列表中 B．不同对象不可能有同名属性 C．不同对象的同名属性取值一定相同 D．对象的某些属性既可在属性窗口中设置，也可通过程序代码设置或改变 8．要使定时器控件可以使用，需设置的属性是____B_____。 A.Interval B. Enabled C. Value D. Text 9．在某过程中已说明变量a为Integer类型、变量s为String类型，过程中的以下四组语句中，不能正常执行的是 ___D_____。 A．s=2*a+1 B．s="237" & ".11":a=s C．s=2*a>3 D．a=2:s=16400*a 10．在程序代码中，将图片文件“abc.jpg”装入图片框Picture1的语句是_____C___。 A．Picture1.Picture = "abc.jpg" B．Picture1.image = "abc.jpg " C．Picture1.Picture = LoadPicture("abc.jpg") D．LoadPicture("abc.jpg") 11．多窗体程序由多个窗体组成。在缺省情况下，VB在执行应用程序时，总是把_______B__指定为启动窗体。 A．不包含任何控件的窗体 B．设计时的第一个窗体

二级VB历年真题

2012年3月全国计算机等级考试二级笔试试卷 Visual Basic语言程序设计 （考试时间90 分钟，满分100分） 一、选择题（每小题2分，共70分） 下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。 （1）下列叙述中正确的是（）。 A）循环队列是队列的一种链式存储结构B）循环队列是队列的一种顺序存储结构 C）循环队列是非线性结构D）循环队列是一种逻辑结构 【解析】队列的存储表示有两种：一种是基于数组的存储表示，另一种是基于链表的存储表示。队列的基于数组的存储表示亦称为顺序队列，它是利用一个一维数组作为队列元素的存储结构。为了充分地利用数组的存储空间，把数组的前端和后端连接起来，形成一个环形的表，称为循环队列。因此循环队列是队列的一种顺序存储结构。 队列不管采用链式存储结构还是顺序存储结构，它都是线性结构。循环队列作为队列的特殊情况，它也是线性结构。 循环队列是在队列的基础上，将队列的头和尾接到一起形成一个环状，它给出了数据的逻辑结构在计算机内部的存储形式，因此是一种存储结构。 答案：B （2）下列叙述中正确的是 A）栈是一种先进先出的线性表B）队列是一种后进先出的线性表 C）栈与队列都是非线性结构D）以上三种说法都不对 【解析】栈是一种后进先出（Last In First Out）或先进后出（First In Last Out）的线性表，它的一端封闭（称为栈底），在另一端进行插入和删除操作，允许插入和删除的一端称为栈顶。 队列（queue）是指允许在一端进行插入、而在另一端进行删除的线性表。允许插入的一端称为队尾，通常用一个称为尾指针（rear）的指针指向队尾元素，即尾指针总是指向最后被插入的元素；允许删除的一端称为排头（也称为队头），通常也用一个排头指针（front）指向排头元素的前一个位置。显然，在队列这种数据结构中，最先插入的元素将最先能够被删除，最后插入的元素最后才能被删除。因此，队列又称为“先进先出”（First In First Out，FIFO）或“后进后出”（Last In Last Out，LILO）的线性表，它体现了“先来先服务”的原则。 栈与队列都是线性结构。 答案：D （3）一棵二叉树共有25个结点，其中5个是叶子结点，则度为1的结点数为 A）16B）10 C）6 D）4 【解析】设二叉树结点数为n，度为2的结点数为n2，度为1的结点数为n1，度为0（即叶子结点）的结点数为n0。则有n=n2+n1+n0。另外，在二叉树中，度为0的结点数是度为2的结点数加1，因此有n0=n2+1。此题中，n=25，n0=5，则n2=n0-1=5-1=4，因此n1=n-n2-n0=25-4-5=16。 答案：A