2017VB第2次模拟考试
计算机等级考试二级VB笔试模拟试卷1(含答案)
计算机等级考试二级VB笔试试卷（含参考答案）一、选择题（(1)—(20)每小题2分，(21)—(30)每小题3分，共70分）(1) 设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是：A)text1.maxlength=0 B)text1.enabled=flaseC)text1.visible=flase D)text1.width=0(2) 以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是A) ="VisualBasic窗体"B) Form1.Title="VisualBasic窗体"C) Form1.Caption="VisualBasic窗体"D) Form1.Text="VisualBasic窗体”(3) 在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min 和Max属性分别为0和100。
程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示：以下能实现上述操作的程序段是A) Private Sub HScroll_Change()Text1.Text=HScroll1.ValueEnd SubB) Private Sub HScroll_Click()Text1.Text=HScroll1.ValueEnd SubC) Private Sub HScroll_Change()Text1.Text=HScroll.CaptionD) Private Sub HScroll_Click()Text1.Text=HScroll.CaptionEnd Sub(4) 设菜单中有一个菜单项为"Open"。
若要为该菜单命令设计访问键，即按下Alt及字母O 时，能够执行"Open"命令，则在菜单编辑器中设置“Open"命令的方式是A) 把Caption属性设置为&OpenB) 把Caption属性设置为O&penC) 把Name属性设置为&OpenD) 把Name属性设置为O&pen(5) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=InputBox("Input")Select Case xCase 1,3Print "分支 1"Case Is >4Print "分支 2"Case ElsePrint "Else 分支 "End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是A）分支1 B）分支2 C） Else分支 D) 程序出错(6) 以下关于MsgBox的叙述中，错误的是A） MsgBox函数返回一个整数B) 通过MsgBox函数可以设置信息框中图标和按钮的类型C) MsgBox语句没有返回值D) MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量(7)在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是A）Timer1.InterVal=0.5 B) Timer1.Interval=5C) Timer.Interval=50 D) Timer1.Interval=500(8) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Static x As IntegerClsFor i=1 To 2y=y+xx=x+2NextPrint x,yEnd Sub程序运行后，连续三次单击Command1按钮后，窗体上显示的是A) 4 2 B) 12 18 C) 12 30 D) 4 6(9) 以下关于多重窗体程序的叙述中，错误的是A)用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体B）在多重窗体程序中，各窗体的菜单是彼此独立的C）在多重窗体程序中，可以根据需要指定启动窗体D）对于多重窗体程序中，而且单独保存每个窗体(10)以下关于文件的叙述中，错误的是A）顺序文件中的记录一个接一个地顺序存放B）随机文件中记录的长度是随机的C）执行打开文件的命令后，自动生成一个文件指针D）LOF函数返回给文件分配的字节数(11) 以下叙述中错误的是A）事件过程是响应特定事件的一段程序B）不同的对象可以具有相同名称的方法C）对象的方法是执行指定操作的过程D）对象事件的名称可以由编程者指定(12) 以下合法的Visual Basic标识符是A) ForLoop B) Const C) 9abc D) a#x(13) 当一个复选框被选中时，它的Value属性的值是A) 3 B) 2 C) 1 D) 0(14) 表达式 5 Mod 3+3\5*2的值是A) 0 B) 2 C)4 D) 6(15) 设x=4,y=8,z=7，以下表达式的值是x<y And (Not y>z) Or z<xA) 1 B) -1 C) True D) False(16) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a$="VisualBasic"Print String(3,a$)End Sub程序运行后，单击命令按钮，在窗体上显示的内容是A） VVV B) Vis C) sic D) 11(17) 设有如下程序段：x=2For i=1 To 10 Step 2Next运行以上程序后，x的值是A) 26 B) 27 C) 38 D) 57(18) 以下叙述中错误的是A) 在KeyPress事件过程中不能识别键盘的按下与释放B) 在KeyPress事件过程中不能识别回车键C) 在KeyDown和KeyUp事件过程中，将键盘输入的"A"和"a"视作相同的字母D) 在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符资料来源：东方教育网全国计算机等级考试频道 (19) 执行如下两条语句，窗体上显示的是a=9.8596Print Format(a,"$00,00.00")A) 0,009.86 B) $9.86 C) 9.86 D) $0,009.86(20)在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。
国家二级VB机试(上机操作)模拟试卷450(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷450(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。
窗体的标题为“窗口”。
请通过属性窗口设置适当的属性，满足如下要求：①Text2可以业示多行文本，并且有垂直和水平两个滚动条；②程序运行时在Text1中显示输入的字符为“*”。
程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下。
工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为Image1的图像框，其高、宽分别为1900、1700，通过属性窗口把考生文件夹下的图像文件pic1．bmp载入图像框；再画两个命令按钮控件，名称分别为C1、C2，标题分别为“放大”、“缩小”，如图所示。
要求：①请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则将图像框的高度、宽度均增加100；单击“缩小”按钮，则将图像框的高度、忧度均减少100，要求程序中不得使用任何变量。
②通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
正确答案：(1)步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表3．8和表3．9。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)步骤1：新建一个窗体，按照题目要求建立控件并设置图像框相应属性，如图3．17所示。
步骤2：按照步骤1设置其他控件相关属性，程亭中涉及的控件及属性见表3．10。
步骤3：打开代码编辑窗口，在指定位置编写如下代码。
参考答案Private Sub C1 Click( )’当单击”放大”按钮时，依次将Imagel的高与宽分别加100 Imagel．Height=Imagel．Height+i00 Imagel．Width=Imagel．Width+100 End Sub Private Sub C2 Click( )’当单击”缩小”按钮，则依次将Imagel的高与宽分别减100 Imagel．Height=Imagel．Height—100 Imagel．Width=Imagel．Width一100 End Sub 步骤4：调试并运行程序，关闭程序后按题目要求存盘。
(整理)计算机等级考试二级VB模拟试题一及答案解析
计算机等级考试二级VB模拟试题一及答案解析知识点复习：形参：指出现在Sub 和Function过程形参表中的变量名、数组名，过程被调用前，没有分配内存，其作用是说明自变量的类型和形态以及在过程中的角色。
形参可以是：1）除定长字符串变量之外的合法变量名；2）后面跟（）括号的数组名。
实参：是在调用Sub 和Function过程时，传送给相应过程的变量名、数组名、常数或表达式。
在过程调用传递参数时，形参与实参是按位置结合的，形参表和实参表中对应的变量名可以不必相同，但位置必须对应起来。
一、选择题(1) 根据数据结构中各数据元素之间前后件关系的复杂程度，一般将数据结构分成A) 动态结构和静态结构B) 紧凑结构和非紧凑结构C) 线性结构和非线性结构D) 内部结构和外部结构正确答案: C(2) 设一棵二叉树中有3个叶子结点，有8个度为1的结点，则该二叉树中总的结点数为A) 12B) 13C) 14D) 15正确答案: B(3) 在下列几种排序方法中，要求内存量最大的是A) 插入排序B) 选择排序C) 快速排序D) 归并排序正确答案: D(4) 下列叙述中，不属于结构化程序设计方法的主要原则的是A) 自顶向下B) 由底向上C) 模块化D) 限制使用goto语句正确答案: B(5) 下列不属于软件调试技术的是A) 强行排错法B) 集成测试法C) 回溯法D) 原因排除法正确答案: B(6) 为了避免流程图在描述程序逻辑时的灵活性，提出了用方框图来代替传统的程序流程图，通常也把这种图称为A) PAD图B) N-S图C) 结构图D) 数据流图正确答案: B(7) 软件复杂性度量的参数包括A) 效率B) 规模C) 完整性D) 容错性正确答案: B(8) 下列叙述中，不属于数据库系统的是A) 数据库B) 数据库管理系统C) 数据库管理员D) 数据库应用系统正确答案: B(9) 数据库系统的核心是A) 数据库B) 数据库管理系统C) 数据模型D) 软件工具正确答案: B(10) 视图设计一般有3种设计次序，下列不属于视图设计的是A) 自顶向下B) 由外向内C) 由内向外D) 自底向上来源正确答案: B(11) 下列说法错误的是A) 标准模块的扩展名是.basB) 标准模块由程序代码组成C) 标准模块只用来定义一些通用的过程D) 标准模块不附属于任何一个窗体正确答案: C(12) 如果要将窗体中的某个命令按钮设置成无效状态，应该动命令按钮的何种属性A) ValueB) VisibleC) DefaultD) Enabled正确答案: D(13) 在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是A) 设置Enabled的值为TrueB) 设置TabIndex的值为1C) 设置TabIndex的值为0D) 设置Index的值为0正确答案: C(14) 下列几项中，属于合法的日期型常量的是A) "10/10/02"B) 10/10/02C) {10/10/02}D) #10/10/02#正确答案: D(15) 下列程序段的执行结果为A=2B=5If A * B < 1 Then B=B - 1 Else B=-1Print B - A > 0A) TrueB) FalseC) -1D) 1正确答案: B(16) 以下语句的输出结果是a=Sqr(26)Print Format$ (a, "$####.###")A) $5.099B) 5.099C) 5099D) $0005.099正确答案: A(17) 标签控件能够显示文本信息，决定其文本内容的属性是A) AlignmentB) CaptionC) VisibleD) BorderStyle正确答案: B(18) 在属性窗口中，加载指定的图形放入当前对象中的属性是A) CurrentYB) PictureC) CurrentXD) Caption正确答案: B(19) 在使用应用程序时，常常用作在单击时执行指定的操作的控件是A) 命令按钮B) 图片框C) 复选框D) 单选按钮正确答案: A(20) 当直线或形状的BorderStyle属性设置为1时，控件是A) 虚线B) 点线C) 不可见D) 实线正确答案: D正确答案: B(21) 通过设置何属性可以改变所画图形的形状？A) ShapeB) IndexC) EnabledD) Height正确答案: A(22) 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()s=1Dos=(s + 1) * (s + 2)Number=Number + 1Loop Until s >=30Print Number, sEnd Sub程序运行后，输出的结果是A) 2 3B) 2 56C) 5 12D) 10 20正确答案: B(23) 下列程和序段的执行结果为x=Int(Rnd() + 9)Select Case xCase 10Print "excellent"Case 9Print "good"Case 8Print "pass"Case ElsePrint "fail"End SelectA) excellentB) goodC) passD) fail正确答案: B(24) 下列程序段的执行结果为a=75If a > 60 Then Score=1If a > 70 Then Score=2If a > 80 Then Score=3If a > 90 Then Score=4Print " Score="; ScoreA) Score＝1B) Score＝2C) Score＝3D) Score＝4正确答案: B(25) 下列程序段的执行结果为I=1x=5DoI=I + 1x=x + 2Loop Until I >=7Print "I="; IPrint "x="; xA) I＝4x＝5B) I＝7x＝15C) I＝6x＝8D) I＝7x＝17正确答案: D(26) 下面的程序的运行结果是a=1b=1Doa=a^2b=b + 1Loop Until b > 5Print "k="; a; Spc(4) ; "b="; b + aA) k＝7b＝14B) k＝6b＝6C) k＝4b＝8D) k＝1b＝7正确答案: D(27) 单击命令按钮，下列程序的执行结果为Private Sub Command1_Click()Dim x As Integer, y As Integerx=32: y=42Call PCS(x, y)Print x; yEnd SubPublic Sub PCS(Byval n As Integer, ByVal m As Integer) n=n Mod 10+1m=m Mod 10+1End SubA) 32 42B) 2 32C) 2 3D) 12 3正确答案: A(28) 下列程序的执行结果为Private Sub Command1_Click()Dim s1 As String, s2 As Strings1="abcd"Call Transfer(s1, s2)Print s2End SubPrivate Sub Transfer (ByVal xstr As String, ystr As String) Dim tempstr As Stringi=Len(xstr)Do While i >=1tempstr=tempstr + Mid(xstr, i, 1)i=i - 1Loopystr=te mpstrEnd SubA) dcbaB) abdcC) abcdD) dabc正确答案: A(29) 单击命令按钮，下列程序的执行结果是Private Sub Blck(x As Integer)x=x * 2 + 1If x < 6 ThenCall Blck(x)End Ifx=x * 2 + 1Print x;End SubPrivate Sub Command1_Click()Blck 2End SubA) 23 47B) 10 36C) 22 44D) 24 50正确答案: A(30) 有如下程序：Private Sub Command1_Click()Dim a As Integera=2For i=1 To 3Print Gad (A)Next iEnd SubFunction Gad (a As Integer)b=0Static cb=b + 1c=c + 1Gad=a + b + cEnd Function运行上面的程序后，单击命令按钮，输出结果为A)123B) 234C) 456D) 146正确答案:c(31) 下列过程定义语句中，参数不是对象的定义语句是A) Sub Pro4(x As Form)B) Sub Pro4(y As Control)C) Sub Pro4(Form1 As Form,Labell As Control)D) Sub Pro4(x As Currency)正确答案: D(32) 下列说法正确的是A) 任何时候都可以使用标准工具栏的"菜单编辑器"按钮打开菜单编辑器B) 只有当代码窗口为当前活动窗口时，才能打开菜单编辑器C) 任何时候都可以使用"工具"菜单下的"菜单编辑器"命令，打开菜单编辑器D) 只有当某个窗体为当前活动窗体时，才能打开菜单编辑器正确答案: D(33) 下列各选项说法错误的一项是A) 文件对话框可分为两种即打开(Open) 文件对话框和保存(Save As) 文件对话框B) DefaultEXT属性和DialogTitle属性都是打开对话框的属性，但非保存对话框的属性C) 打开文件对话框可以让用户指定一个文件，由程序使用；而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件D) 通用对话框的名称属性的默认值为CommonDialogX(X＝1，2……) ，此外，每种对话框都有自己的默认标题正确答案: B(34) 下列数组定义语句错误的是A)k%=10Dim Arr(k)B)Const k%=10Dim Arr(k)C)Dim Arr1(10) As IntegerDim Arr2 (10)D)Dim Arr1(1 To 10)Dim Arr2(1 To 10, 2 To 11)正确答案: A(35) 在Visual Basic中按文件的数据性质不同，可将文件分为A) 数据文件和程序文件B) 文本文件和数据文件C) 顺序文件和随机文件D) ASCII文件和二进制文件正确答案: A二、填空题(1) 算法的工作量大小和实现算法所需的存储单元多少分别称为算法的【1】。
国家二级VB机试(上机操作)模拟试卷300(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷300(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个如下表所示的下拉菜单，其中“设置”菜单项为灰色(不可用)，如图3—137所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条，其最大刻度为100，最小刻度为0；再画两个单选按钮，名称分别为Option1、Option2，标题分别为“最大值”、“最小值”，且都未选中。
再通过属性窗口设置适当属性使得程序刚运行时，焦点在滚动条上(如图3—138所示)。
请编写适当的事件过程，使得程序运行时，单击“最大值”单选按钮，则滚动条上的滚动框移到最右端；单击“最小值”单选按钮，则滚动框移到最左端。
注意：程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sji2．frm。
正确答案：第1小题步骤1：新建一个“标准EXE”工程，利用菜单设计器按表4—81在窗体上建立一个二级菜单。
步骤2：按要求将文件保存至考生文件夹中。
第2小题步骤1：新建一个“标准：EXE”工程，按表4—82在窗体中画出控件并设置其相关属性。
步骤2：打开代码编辑窗口，编写两个单选按钮的单击事件过程。
参考代码：Private Sub Option1_Click( )HScroll1．Value=100End SubPrivate Sub Option2_Click( )HScroll1．Value=0End Sub步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：本题只需按题目要求利用VB菜单设计器建立一个二级菜单。
9月计算机二级考试VB考试题
9月计算机二级考试VB考试题2017年9月计算机二级考试VB考试题VB是计算机二级考试的科玛之一，你知道计算机二级考试VB科目都考哪些知识吗?为了方便考生备考计算机二级考试VB 科目。
下面是店铺为大家带来的计算机二级考试VB考试题，欢迎阅读。
考试题一：1. 在窗体上画一个命令按钮，然后编写如下代码：Option Base 1Private Sub Command1_Click( )Dim a ( )a = Array ( 30 , 40 , 70 , 10 , 50 , 80 , 20 , 90 , 60 )s = 0k = 1While k – 10s = s + a ( k )k = k + 1WendAver = s / ( k – 1 )m = 0For i = 1 To k – 1If a ( i ) > Aver Then m = m +1Next iPrint mEnd Sub程序运行后，单击命令按钮，输出结果为( 【84】 )(A)4 (B)5 (C)6 (D)72. 有以下函数：Function Fun(ByVal a As Integer) As IntegerDim b As IntegerStatic c As Integerb=2 : c = 1b = b +2c = c + 2Fun = a + b + cEnd Function在窗体上画一个命令按钮，然后编写如下代码：Privat Sub Command1_Click ( )For i = 1 To 4Print Fun ( i ) ,Next iEnd Sub运行程序后，单击命令按钮，输出结果为( 【85】 )(A)8 8 8 8 (B)8 13 18 23(C)8 9 10 11 (D)8 11 14 173. 下列不能打开属性窗口的操作是( )(A)执行“视图”菜单中的【属性窗口】命令(B)按键(C)单击工具栏上的【属性窗口】按钮(D)按键4. 在使用Visual Basic的工具箱时，如果工具箱没有出现在窗口中，应在( )菜单中操作使它可见。
二级VB笔试模拟考试试题
荷山中学二级VB笔试模拟试题（考试时间：60分钟；满分：50分）班级：姓名：座号：成绩：注意事项：一、答卷前考生务必将自己的姓名、准考证号、信息技术考试类型涂写在答题卡上。
考试结束，监考人员将试题卷和答题卡一并收回。
二、先审题后作答，答案一定要填涂在答题卡上，凡是写在试卷上的答案一律无效。
三、试卷上括弧【】内的序号与答题卡的答案序号一致，请选择正确的答案填涂在答题卡的相应位置。
四、如果要改动答案，必须先用橡皮擦净原来选定的答案，然后再重新填涂。
五、全卷均为单项选择题。
第一部分VB基础知识（【1】—【30】每项1 分，共30分）一、变量声明采用的类型说明符中，数据类型为单精度的类型说明符是【1】。
【1】A、% B、—C、！D、#二、用流程图（程序框图）来描述算法，根据框内的条件成立与否决定程序流向的判断框是【2】。
【2】A B C D三、下列选项中，属于面向对象的程序设计语言是【3】。
【3】A、PASCAL语言B、Visual Basic语言C、机器语言D、汇编语言四、逻辑表达式的值的类型为【4】。
【4】A、整型B、单精度型C、字符串型D、逻辑型五、在VB中使用变量前，一般应该先声明变量，一条DIM语句可以定义多个变量，两个变量间应用【5】分隔。
【5】A、逗号B、冒号C、分号D、空隔符六、VB的工程文件的扩展名为【6】。
【6】A、.frm B、vbp C、.exe D、.doc七、下图列出了VB工具箱中常用的控件，从左边算第六个控件是【7】控件。
【7】A、Label B、TextBox C、CommandButton D、PictureBox八、在Timer控件中，若要设置相邻两次的触发时间为0.1秒，则Interval属性的值应为【8】。
【8】A、0.1 B、 1 C、10 D、100九、VB允许一行书写多个语句，每两句之间的分隔符为【9】。
【9】A、逗号B、冒号C、分号D、空隔符十、表达式4+5 \ 6 * 7 / 8 Mod 9 的值是【10】。
2017年全国资格考试计算机等级考试二级VisualBasic语言程序设计笔试试题模拟真题
2017年全国资格考试计算机等级考试二级VisualBasic语言程序设计笔试试题模拟真题计算机等级考试二级Visual Basic语言程序设计笔试试卷一、选择题((1)一(20)每小题2分，(21)一(30)每小题3分，共30题，70分)下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂在答题卡的相应位置上，答在试卷上不得分。
(1)以下不能在“工程资源管理器”窗口中列出的文件类型是A)．bas B)．res C)．fnn D)．ocx(2)以下关于窗体的描述中，错误的是A)执行UnloadFoMl语句后，窗体Fonnl消失，但仍在内存中B)窗体的Ioad事件在加载窗体时发生C)当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止D)窗体的Height、width属性用于设置窗体的高和宽(3)下列可作为Visual Basic变量名的是A)A#A B)4A C)?xY D)constA(4)设有如下的记录类型Type StudentnumberAs stringname As Stringage As IntegerEnd Type则正确引用该记录类型变量的代码是A) Student．name=”张红” B) Dim As Students．name＝”张红”C) Dim s As Type Student D) Dim s As TypeS．name=”张红” s.Dame＝”张红”(5)函数String(n，“str”)的功能是A)把数值型数据转换为字符串B)返回由n个字符组成的字符串C)从字符串中取出n个字符D)从字符串中第n个字符的位置开始取子字符串(6)将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是A)Cos(a+b)A2十5*exp(2) B)Cos^2(a+b)+5*exp(2)C)Cos(a+b)^2十5*ln(2) D)Cos^2(a+b)+5*ln(2)(7)在窗体上画一个命令按钮，名称为Commandl。
国家二级VB机试(上机操作)模拟试卷600(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷600(题后含答案及解析)题型有：1.jpg /> 步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案PriVate Sub Commandl_Click( ) Text2=Textl．SelLength End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】SelLength属性与SelStart和SelText属性容易混淆，SelStart属性是返回／设置选定文本的起始点，SelText属性是返回／设置当前选定文本的字符串。
解析：selLength属性用于返回／设置选定的字符数，通过文本框的Name 和Caption属性设置文本框的名称和标题，通过命令按钮的Name和Cap．tion 属性设置命令按钮的名称和标题。
简单应用题3．在考生文件夹下有一个工程文件sjt3．vbp。
程序运行后，单击“读入数据”按钮，可将考生文件夹下in3．1xt文件中的所有英文单词读入，并在Textl 文本框中显示；单击“插入列表框”按钮，则按顺序将每个单词作为一项添加到List1列表框中(如图所示)。
在in3．txt文件中，每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。
已经给出了所有控件和程序，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。
最后用原来的文件名保存工程文件和窗体文件。
正确答案：【操作步骤】步骤l：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容) Private Sub Commandl_C1ick( ) Dim st$．ch$ Open App．Path＆＂＼in3．txt＂For In—put As#’打开文件Do While Not EOF(1)′文件指针是否到达文件末尾Input#1，ch′达到文件末尾返回true．否则返回false st=st＆ch′将读出的数据加到原有数据末尾Loop Close#1′关闭文件Textl=st′将内容显示在文本框中End Sub Private Sub Command2_Click( ) Dim st$，word$，C$ St=Textl n=Len(St) For k=1 TO n c=Mid(st，k，1)′从st 中依次取出1个字符进行比较If c＜＞＂＂Then word=word＆C E1Se Listl．AddItem word word=＂＂将word清空，为下一次作准备End If Next LiStl．AddItem word End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
2017年本科技能测试考题整理--VB部分
2017年本科技能测试考题整理--VB部分第一场考试1.单击系统时间按钮，在标签框中显示当前系统时间。
单击退出按钮，退出程序。
Private Sub Command1_Click()Label1.Caption = TimeEnd SubPrivate Sub Command2_Click()EndEnd Sub2.单击判断按钮，判断文本框输入的是否小于等于60，若是则标签框显示“合格，可以参赛”，若大于60，则显示“超重，不能参赛”。
3.如图所示，设计好控件。
通过按钮修改文本款的字体类型和样式。
4.在窗体上输出玫瑰花数。
提示：玫瑰花数是各位数的4次方相加等于它本身。
如：1648=1^4+6^4+4^4+8^4第2场考试1.设置一个“显示日期”按钮、一个退出按钮和一个标签框，单击“显示日期”按钮则标签框显示当前日期，单击退出按钮，则退出程序。
Private Sub Command1_Click()Label1.Caption = DateEnd SubPrivate Sub Command2_Click()EndEnd Sub2.在文本框中输入三角形三边a、b、c的数值，单击判断三角形按钮，判断数值a、b、c能否组成三角形，如果可以就输出“可以构成三角形”，不可以则输出“不能构成三角形”，单击退出按钮则退出程序。
3.建立一个标签框，单击“倒计时”按钮，使计时器从10开始倒计时，并把结果动态显示在标签框上，当倒计时到0结束时，弹出“时间到！”。
4. 取零巧数：要求百位数为0例如：2025 去掉0 为225， 225*9=2025 方为零巧数单击“取零巧数”按钮，将符合条件的零巧数输出到窗体上。
第3场考试1.输出当前年份在label1，点击end按钮结束程序。
Private Sub Command1_Click()Label1.Caption = Month(Time)End SubPrivate Sub Command2_Click()EndEnd Sub2.算运费（重量超过20公斤，收费车费1.5%，未超过不收费）。
二级VB模拟试题(1-1)
级VB 模拟试题(1-1)1、VB是一种面向____ 的可视化程序设计语言，采取了______ 的编程机制。
2、VB的对象主要分为_____ 和_____ 大类。
3、若要将窗体Formi隐藏起来，可使用方法_____ ;若要将窗体Form1显示出来，可使用方法______ 来实现。
4、在VB集成开发环境中，运行应用程序的方法有三种：一是 ________ ;二是_____ ; 三是____ 。
5、在VB中若要让某对对象获取焦点，则可通过 _______ 法来实现。
6、VB提供的_______ 属性，用来控制对象是否可用，当属性值为 _____ 时，表示对象可用，当属性值为_____ 时，表示对象不可用。
7、VB提供的 _______ 性, 用来控制对象是否可见，当属性值为______ 时，表示对象可见，当属性值为_____ 时，表示对象不可见。
8、在VB中，用来描述对象外部特征的量称之为对象的。
9、为使某窗口中的命令按钮“取消(C) ”具有如下特性：按“ Alt + C 键或按“ ESC 键，均可代替用鼠标单击该按钮的操作，应设置该按钮的Caption 属性值为，并且设置其________ 属性值为 _________ 。
二、选择题(每题2分，共40 分)1、用于从字符串左边截取字符的函数是()A、Ltrim()B、Trim()C、Left()D、Instr() 2、可获得当前系统日期的函数是()A、Date()B、Time()C、IsDate()D、Year() 3、退出For 循环可使用的语句为()A、ExitFor B、ExitDoC、EndForD、EndDoi、窗体的标题栏显示内容由窗体对象的()属性决定。
A、BackColor B、BackStyle C、TextD、Caption 5、程序运行时，若要通过回车键调用某命令按钮的Click 事件过程，则可设置该命令按钮的()属性值为True来实现。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第六部分 VB程序设计部分（共50分）
一、单项选择题：（共10题，每小题2分，共20分）
1、能被对象所识别的动作与对象可执行的活动分别称为对象的_______。
A．方法、事件B．事件、方法
C．事件、属性D．过程、方法
2、以下有关对象属性的说法中正确的是________。
A．对象所有的属性都罗列在属性窗口列表中
B．不同对象不可能有同名属性
C．不同对象的同名属性取值一定相同
D．对象的某些属性既可在属性窗口也可通过程序代码设置或改变
3、如果m=3,n=4，则语句Print m=m-n，n=m+n的输出的结果是_________。
A．-1 7 B．出现错误信息
C．-1 3 D．False False
4、在使用菜单编辑器创建菜单时，可在菜单名称中某字母前插入_______符号，那么在运行程序时按【Alt】键和该字母键就可打开该命令菜单。
A．下划线B．& C．$ D．@
5、不能作为容器使用的对象是__________。
A．图像框B．框架C．图片框D．窗体
6、日期类型(Date)在程序中运用时，日期类型必须用_______符号括起来。
A．# B．@ C．$ D．％
7、有如下程序：
Private Sub Command1_Click()
S=Fix(-23.1)
E=Int(23.1)
Print Sin(E+S)
End Sub
运行时输出的结果是_________。
A．-1 B．0 C．1 D．23
8、无法响应Click事件的控件是________。
A．Label B．Command C．TextBox D．Timer 9、在VB中，过程通常有三种，它们是________。
A．事件过程、子过程和函数过程
B．事件过程、函数过程和属性过程
C．Sub过程、Function过程和Property过程
D．Sub过程、函数过程和通用过程
10、下面程序的输出结果是________
Private Sub Command1_Click()
Private Sub proc(ch As String) ch$=”ABCDEF”
S=”” proc ch
For k=Len(ch) To 1 Step -1 Print ch
s=s&Mid(ch,k,1) End Sub
Next k ch=s
End Sub A ．ABCDEF B ．FEDCBA C ．A D ．F
二、填空题：（共5小题，每空2分，共10分）
1. 表达式Print Format(1234.5648, "##,#0.00")的结果是__________
2. 代数式3
7
)1(ln 22e d -+的VB 表达式为_______________ 3. 程序的起始位置有Dim a(3， 4，- 2 To 2)，则数组的的元素个数为__________
4. 在VB 中，如果需要向用户提供包含一些选项和信息的列表，由用户从中进
行选择，可使用列表框和________。
5. 窗体Form1的名称属性是frm ，它的Load 事件过程名是_______
三、程序填空：（每空2分，共6分。
）
1、下面的程序执行时，可以从键盘输入一个两位以上的正整数，然后把该数的每位数字按逆序输出，输出完后，让光标在下一行行首等待。
例如：输入7685，则输出5867，输入1000，则输出0001。
请填空。
Private Sub Command1_Click()
Dim x As Integer
x=Val(InputBox(“请输入一个正整数”) )
Do while x> ___________
Print x Mod 10;
x=x\10
Loop
___________
End Sub
2、下列程序的功能是对一个具有二十个元素的一为数组a 按每行5个元素输出，
请在下划线处填上适当的内容。
Option Base 1
Private Sub Command1_Click()
Dim A(20) As Integer
For i=1 To 20
A(i)=i*i/2
Next i
For i=1 To 20
Print A(i),
If ________________________Then
Print
End If
Next i
End Sub
四、读程序写结果：（共2小题，每小题3分，共6分）
1、x=0
Do While x<>-1
x=Val(InputBox(“请输入数据x”))
y= Val(InputBox(“请输入数据y”))
If x*y <x+y Then Print x，y
Loop
设运行时依次输入数据为7、2、-3、8、-5、-10、18、-15、31、4、-1、-1输出结果是_______________
2、下面程序运行后，单击命令按钮，输出结果是_______________
Private Sub Command1_Click() Dim a As Integer
a=2
For i=1 To 3
Print F(a);
Next i
End Sub Function F(a As Integer) b=0
Static c
b=b+1
c=c+1
F=a+b+c
End Function
五、编程题：（共8分）
随机产生10个10-99之间的整数，要求按从小到大的顺序打印出来。
Option Base 1Private Sub Command2_Click() Dim a(10) As Integer
Private Sub Form_Load()
End sub
Private Sub Command1_Click()
End Sub
End Sub。