下载文档原格式
1.项目文件的扩展名是（）A．.vb B．.sln C..exe D．.vbproj2.集成开发环境有两类窗口：浮动和固定，下面的（）窗口不是浮动窗口。
A．工具箱B．属性 C.即时D．窗体3.要使窗体的标题为“演示实例”，应修改窗体的（）属性。
A．Caption B．Tip C．Item D．Text4.在中，下面属于方法的是（）。
A.FocusB.SelectedTextC.LostFocusD.Keypress5.一条语句要在下一行继续写，可用（）符号作为续行符。
A.+B.-C.空格和_D....6.若要使命令按钮不可操作，要对（）属性进行设置。
A.EnabledB.VisibleC.BackColorD.Text7.在集成环境中创建应用程序时，除了工具箱窗口、窗体窗口和属性窗口外，必不可少的窗口是（）A．窗体布局窗口B．立即窗口C．代码窗口D．监视窗口8.当运行程序时，系统自动执行启动窗体的（）事件过程A．Load B．Click C．Unload D．GotFocus 9.当文本框的ScrollBars属性设置了非None值，却没有效果，原因是（）A．文本框没有内容B．文本框的MultiLine属性为False C．文本框的MultiLine属性为True D．文本框的Locked属性为True10.若要使标签控件显示时不要覆盖窗体的背景图案，要对（）属性进行设置A．BackColor B．BorderStyle C．ForeColor D．BackStyle 11.数据类型为Long的类型标识符为（）。
A．%B．&C．!D．#12.下面（）是日期型常量。
A．“5/17/12”B．5/17/12C．#5/17/12#D．(5/17/12)13.下面的（）是合法的单精度型变量。
A.num!B.sum%C.char!D.mm#14.下面的（）是合法变量名。
A.X_yzB.123abcC.IntegerD.X-Y15.Rnd函数不可能为下列的（）值。
1 用下面语句定义的数组元素个数是（）。
Option Base 1Dim Arr4(6,5) As IntegerA）42 B）30 C）37 D）36解答该题首先通过Option Base 1语句使数组的下标从１开始，所以数组定义语句Dim Arr4(6,5) As Integer与语句Dim Arr4(1 to 6,1 to 5) As Integer等价，不难算出该数组元素个数为30。
答案 B2 可以用来清除数组内容或对数组重新定义的语句是（）A UnloadB ClsC EraseD Free解答数组一旦被定义，就在内存中分配了相应的存储空间，其大小是不能改变的但有时可能需要清除数组的内容或对其重新定义，这可以用 Erase 语句来实现，其格式为 Erase 数组名[, 数组名]…，该语句用来重新初始化静态数组的元素或者释放动态数组的存储空间，其中，数组名不带括号和下标。
Unload 语句是从内存中卸载窗体或控件，当所占内存另有它用或需要重新设置窗体控件的属性值为初始值时，就有必要卸载窗体或控件，而 Cls Clear 都是 Visual Basic 中的方法。
本题正确答案为 C3 下面能正确表示Visual Basic 中数组a 的元素的是（）A a[5]B a5C aD a(5)解答在Visual Basic 中使用数组元素时，必须把下标放在一对紧跟在数组名之后的括号不能写其他的形式，如要表示数组s 中下标为 5 的元素必须写成s(5) 。
答案为D4 下列数组定义中错误的是：其中n 是一个变量A Dim a(7, 3 To 9) As StringB Dim b(n) As IntegeC Dim c(1, 7, 9) As IntegerD ReDim(n)解答在使用Dim 定义一个数组时其上下标不能为变量，而在ReDim 中就可以使用变量来改变数组的维数答案为B5 使用语句Dim A（）As Integer 声明数组A 之后，以下说法正确的是：A A 数组中的所有元素值为0B A 数组中的所有元素值不确定C A 数组中的所有元素值为EmptyD 执行Erase A 后A 数组中的所有元素值为0解答所谓数组就是能够保存具有数据类型的多个数值的存储空间，当声明一个数组后，在没有给它赋值前，数组中的所有元素值为0，因此可知选项A 是正确的，B ，C选项都是错误的，在选项 D 中出现了Erase 语句，使用Erase 语句将释放动态数组所占的内存空间，而题中语句Dim A As Integer 正好是声明动态数组A 的，所以选项D 的说法不正正确答案为A6 计算下列定义的语句中数组所占有的空间为（）Option Base 1Dim sngLp(3, 2 To 5) As SingleA 80 字节B 48 字节C 60 字节D 96 字节解答首先使用了Option Base 1 将数组的下标定位为1，所以数组sngLp 的定义实际是Dim sngLp(1 To 3, 2 To 5) As Single，又因为Single 单精度类型的所占空间为4个字节，因此所占空间=(3-1+1)*(5-2+1)*4=48 字节。
一、概念填空题1．在Visaul Basic中,属性窗口分为四个部分，这四个部分分别是（）、属性显示方式、属性列表和对当前属性的简单解释。
2．组合框有三种不同的风格，它们分别是：( )、( )和( )。
3. 时钟控件是有规律地以一定的( )激发计时器事件，而执行相应的代码程序。
4．A = 8，B = 3，C = 5，则表达式A MOD 3 + B^3 / C \ 5的值为（）。
5．声明一个双精度变量Num5，的声明语句是 ( ) 。
6．有一文本框Text1，为了使该文本框在运行时获取焦点，应执行的语句是（）。
7．在使用动态数组时，如要改变数组的大小而又不丢失数组中的数据，应使用（）关键字。
8．Visual Basic逻辑数据类型只有 True 与 False 两个值。
当逻辑数据转换成整型数据时，True 转换为（），False转换为（）。
9．在Visaul Basic 中依据变量的作用范围将VB变量的作用范围分为三类，它们是：（）变量、（）变量和（）变量。
10．字符串常量是由任何ASCII字符组成，在程序代码中，它必须由（）括起来。
11．如果有三个单选按钮直接画在窗体上，另有四个单选按钮画在框架中，则运行时，可以同时选中（）个单选按钮。
二、概念选择题1．不能触发滚动条Change事件的操作是（）。
A) 拖动滚动条的滑块 B) 单击两端箭头C) 单击滚动条的滑块 D) 单击滚动条的空白处2．已知变量x 、y为整数型，且x=4 , y=12 ,s为字符型，且s=“a”，Leble1为标签控件，Leble1的Caption属性值为Label1，下列合法的赋值语句是（）。
A) X= Leble1.Caption B) Leble1.Caption=Str(X)C) X*3=Y D) Y=X*S3．下列可以将变量A、B的值互换的语句是( )。
A) A=B : B=A B) C=B : B=A ：A=CC) A=C : C=B : B=A D) A=(A+B)/2 ：B=(A-B)/24．下列叙述中错误的是（）。
2016年计算机二级《VB》基础练习题及答案(2)1[简答题]在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。
窗体的标题为“窗口”。
请通过属性窗口设置适当的属性，满足如下要求：①Text2可以显示多行文本，并且有垂直和水平两个滚动条;②程序运行时在Textl中显示输入的字符为“*”。
程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl.vbp，窗体文件名保存为sjtl.frm。
参考解析：【考点分析】本题考点有：窗体的Caption属性，文本框的Name、Width、Hei【ght、PasswordChar、Text、MuhiLine、ScrollBars属性。
【解题思路】文本框控件的MuhiLine属性用于设置文本框是否显示多行文本，值为Tr ue表示是，值为False则表示否。
ScrollBars属性设置文本框是否有水平或垂直滚动条，它有0、l、2和3这4个值，0表示没有滚动条(默认值)，1表示只有水平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条。
文本框的PasswordChar属性常用于设置用某字符(如“*”)屏蔽用户在文本框中键入的内容，常用于口令输入。
【操作步骤】步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表3.8和表3.9。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】由于ScrollBars属性的设置值较多，易混乱，请考生牢记4个值分别设置的文本框滚动条属性。
2[单选题] 在下列模式中，能够给出数据库物理存储结构与物理存取方法的是( )。
A.外模式B.内模式C.概念模式D.逻辑模式参考答案：B参考解析：数据库系统的三级模式是概念模式、外模式和内模式。
概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。
1.文件列表框的Pattern属性的作用是＿B＿。
A．显示当前驱动器或指定驱动器上的目录结构B．显示当前驱动器或指定驱动器上的某目录下的文件名C．显示某一类型的文件D．显示该路径下的文件2.下列变量命名正确的是＿A＿。
A．myfile B．vb 1C．page @2 D．cmd.13.一个窗体中带图片框控件（已装入图像）的VB应用程序从文件上看，至少应该包括的文件有＿A＿。
A．窗体文件（frm）、工程文件（vbp）B．窗体文件（frm）、工程文件（vbp）和代码文件（bas） C．窗体文件（frm）、工程文件（vbp）和模块文件（bas） D．窗体文件（frm）、工程文件（vbp）和窗体的二进制文件（frx）4.VB窗体设计器的主要功能是＿A＿。
A．建立用户界面 B．编写源程序代码C．添加图 D．显示文字5.在窗体中添加一个命令按钮（Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()s = 0For k = 3 To 1 Step -1If k <= 3 Thenx = 3ElseIf k <= 2 Thenx = 2ElseIf k <= 1 Thenx = 1Elsex = 4End IfPrint x;s = s + xNext kPrint sEnd Sub程序运行后，单击命令按钮，输出结果是＿A＿。
A．3 3 3 9 B．1 2 1 6C．3 2 1 6 D．1 2 3 66.在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是doc文件，则正确的描述格式是＿C＿。
A．"text(.doc)|(*.doc)"B．"文本文件(.doc)|(*.doc)"C．"text(.doc)|*.doc"D．"text(.doc) (*.doc)"7.清空列表框List1中的所有项目，应该使用的方法是：DA. List1.ClsB. List1.RemoveItemC. List1.DeleteD. List1.Clear8.在窗体中添加一个命令按钮（Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()Dim A1(10) As Integer, A2(10) As Integern = 3For i = 1 To 5A1(i) = iA2(i) = 2 * n + iNext iPrint A2(1); A1(2)End Sub程序运行后，单击按钮，输出结果为＿72＿A．7 2 B．2 7C．7 3 D．3 79.在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：Private Sub Form_Load()Text1.Text = "aB"Text2.Text = "123456"End SubPrivate Sub Command1_Click()a = UCase(Text1.Text) + Left(Text2.Text,2)Print aEnd Sub程序运行后，单击命令按钮，输出结果为＿B＿A．ab12 B．AB12C．AB56 D．ab5610.假定窗体上有一个文本框，名称为Text1，为了使该文本框的内容能够换行，并且具有水平和垂直滚动条，正确的属性设置为＿B＿。
《VB语言程序设计》习题2一、单项选择题1.在Visual Bsaic代码中，将多个语句合并写在一行上的并行符是（）。
A、撇号(')B、冒号(:)C、感叹号(!)D、星号（*）2.通过（）可以在设计时直观地调整窗体在屏幕上的位置。
A、代码窗口B、窗体布局窗口C、窗体设计窗口D、属性窗口3.通过改变选项按钮(OptionButton)控件的（）属性值，可以改变按钮的选取状态。
A、ValueB、StyleC、AppearanceD、Caption4.为了清除列表框中的所有内容，应使用的方法是（）。
A、ClsB、ClearC、RemoveD、RemoveItem5.文本框能输入（）。
A、控制字符B、ASCII字符C、回车D、文本和数字6.下列控件中，没有Caption属性的是（）。
A、框架B、列表框C、复选框D、单选按钮7.文本框控件最多能处理（）字节。
A、32KB、64KC、128KD、16K8.以下能够触发文本框Change事件的操作是（）。
A、文本框失去焦点B、文本框获得焦点C、设置文本框的焦点D、改变文本框的内容9.要将一个组合框设置为简单组合框(Simple Combo)，则应将其Style属性设置为（）。
A、0B、1C、2D、310.要使标签所在处透明显示背景，应把BackStyle属性设置为（）。
A、0B、1C、TureD、False11.用（）属性可唯一标志控件阵列中的某一个控件。
A、NameB、IndexC、CaptionuD、TabIndex12.组合框控件是将（）组合成一个控件。
A、列表框控件和文本框控件B、标签控件和列表框控件C、标签控件和文本框控件D、复选框控件和选项按钮控件13.（）使图象(Image)控件中的图象自动适宜控件的大小。
A、将控件的AutoSize属性设为TrueB、将控件的AutoSize属性设为FalseC、将控件的Stretch属性设为TrueD、将控件的Stretch属性设为false14.如果要在命令按钮上显示图形文件，应设置命令按钮的（）。
条件分支⒉程序2（5分）Private Sub Form_Click() ' 设输入数据分别为14，3，125，21，Dim a As Integer ' 问label1.Caption的值分别是多少？a = Val(InputBox("请输入数据",""，100))Select Case a mod 5Case Is < 4w = a + 10Case Is < 2w = a * 2Case Elsew = a - 10End SelectLabel1.Caption = "w=" & Str(w)End Sub静态变量⒈程序 1 写出运行时连续四次单击窗体Form1时窗体上的输出结果（5分）。
Private Sub Form_Click()Static a As IntegerDim b As Integerb = a + b + 1a = a + bForm1.Print "a=";a,"b=";bEnd Sub2. 程序１(5分)Private Static Sub Command1_Click()Dim x As Integer, s As Integerx = val(InputBox("请输入一个正整数=")) If x < 5 Thens = s * xElses = s + xEnd IfText1.Text = "s=" + Str(s)End Sub程序运行时连续三次单击Command1，且设输入的数是5、2和4时，分别写出文本框Text1.Text的值。
循环2. 程序２(5分)Private Sub Form_Click()Form1.Clsw = 3For k = 2 To 6 Step 2Form1.Print "w="; w, "k="; k w = w + 1Next kForm1.Print "w="; w, "k="; kEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。
1. 程序运行时单击Command1后，分别写出文本框Text1、Text2和Text3的Text值（5分） Private Sub Command1_Click()n = 0 : x = 1 : y = 0Do While x < 20n = n + 1 : y = x + y : x = x * (x + 1)LoopText1.Text = "n=" & Str(n) : Text2.Text = "x=" & Str(x) : Text3.Text = "y=" & Str(y)End Sub1. 程序运行时单击Command1后，输入12345678，写出窗体上的输出结果。
Private Sub Command1_Click()Dim x As Long, y As Stringx = InputBox("", "")Do While x <> 0y = y & x Mod 10y = x \ 10 Mod 10 & yx = x \ 100Print yLoopEnd Sub内部函数3. 程序３(5分)Private Sub Form_Click()Dim x As StringDim i As Integer, n As IntegerForm1.Clsx = "ABCDEFGHKL"n = Len(x)For i = n To 1 Step -2Form1.Print Tab(20 - i); Mid(x, i, 1)Next iEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。
1. 程序１: 写出单击Command1后，窗体上的显示结果。
Private Sub Command1_Click()a$ = "ABCDEFGH" 显示结果：n% = Len(a$) For i% = 1 To 4 a$ = Right(a$, 1) + Mid(a$, 1, n% - 1) Print a$ Next i%End Sub数组⒋程序4（6分）Private Sub Command1_click()Const n = 6Dim xx(n) As IntegerForm1.ClsFor i=1 To n : xx(i) = i * i : Next icall fchange(xx(),n)For i = 1 To n : Form1.Print xx(i), : Next iEnd SubSub fchange(a() As Integer,m As Integer)For i = 1 To m / 2t = a(i)a(i) = a( m – i + 1) ' ①a(m – i + 1) = t ' ②Next iEnd Sub⑴写出运行以上程序后Form1上的输出结果。
⑵写出将标记有①和②的两条语句对调后，重新运行程序时Form1上的输出结果。
3. 写出下列程序运行时单击窗体后Form1上的输出结果（5分）Private Sub Form_Click()Dim x(5) As Integerx(1) = 8 : x(2) = 3 : x(3) = 1 : x(4) = 6 : x(5) = 4For i = 1 To 4For j = i + 1 To 5If x(i) < x(j) Then t = x(i) : x(i) = x(j) : x(j) = tNext j, iFor k = 1 To 5Form1.Print "x("; k; ")="; x(k)Next kEnd Sub4.写出下列程序运行时单击窗体后Form1上的输出结果（5分）Private Sub Form_Click()Dim a(2, 3) As IntegerFor i = 1 To 2For j = 1 To 3a(i, j) = 2 * i - jNext j, iFor h = 1 To 3For k = 1 To 2 : Form1.Print a(k, h), : Next kPrintNext hEnd Sub2. 若列表框控件List1的Sorted属性为True，写出下列程序运行时单击Command1后列表框中的显示结果。
Dim x(6) As IntegerPrivate Sub Command1_Click()List1.ClearFor i% = 2 To 5x(i%) = (x(i% - 1) + x(i%) + x(i% + 1)) / 3Next i%For i% = 2 To 5List1.AddItem x(i%)Next i%End SubPrivate Sub Form_Load()For i% = 1 To 6x(i%) = 7 - i%Next i%End Sub过程与函数2. 写出下列程序运行时单击窗体后Form1上的输出结果（5分）Function chg(a As Integer, b As Integer) As IntegerDim n As IntegerFor n = 0 To 2a = a + bNext nchg = aEnd FunctionPrivate Sub Form_Click()Dim a As Integer, b As Integer, z As Integera = 1 :b = 1For n = 1 To 3z = chg(a, b) : Form1.Print "n="; n, "z="; zNext nEnd Sub3. 依次写出下列程序运行时四次单击命令按钮Command1后窗体上的输出结果。
Dim x As Integer, y As IntegerPrivate Sub f1(a As Integer)a = a / 2End SubPrivate Sub f2(ByVal b As Integer)b = b / 2End SubPrivate Sub Command1_Click()Call f1(x)Call f2(y)Print x, yEnd SubPrivate Sub Form_Load()x = 64 : y = 64End Sub4. 控件HScroll1的属性设置如下，HScroll1.Min = 1HScroll1.Max = 9HScroll1.Value = 1HScroll1.SmallChange = 2rgeChange = 4下列程序运行时，4次单击滚动条右端箭头，写出各次单击时Text1上的显示结果。
Dim y As SinglePrivate Function f1(x2 As Integer) As SingleStatic x1 As Integerf1 = 0For i% = x1 To x2f1 = f1 + i%Next i%x1 = i%End FunctionPrivate Sub HScroll1_Change()y = y + f1(HScroll1.Value)Text1.Text = yEnd Sub2. 程序2: 写出单击Command1后，窗体上的显示结果。
Private Sub f(a() As Single,n As Integer,x As Single,y As Single)x = a(1) : y = xDo While n >= 1If a(n) > x Then x = a(n)If a(n) < y Then y = a(n)n =n -1LoopEnd SubPrivate Sub Command1_Click()Dim b(4) As Single, u As Single,v As Sigle 显示结果：k% = 4: b(1) = 3: b(2) = 9: b(3) = 2: b(4) = 5 Call f(b, k%, u, v) Print u : Print v Print k%End Sub文件⒊程序3（5分）Private Sub Form_Click() ' 写出a1.dat文件的最终结果。
