VB教程课后习题的答案及解析

全国计算机等级考试二级 Visual Basic 习题集第 1 页 =第二章 标准控件和属性1下列可以激活属性窗口的操作是（ D ）A）用鼠标双击窗体的任何部位 B）执行工程菜单中的属性窗口命令 C）按 Ctrl+F4 键 D）按 F4 键2确定一个控件在窗体上的位置的属性是（ D ）A）Width 或 Height B）Width 和 Height C）Top 或 Left D）Top 和 Left3确定一个窗体或控件的大小的属性是（ B ）A）Width 或 Height B）Width 和 Height C）Top 或 Left D）Top 和 Left4在Visual Basic中，所有标准控件都具有的属性是( B )。 【 2013年 9月考试真题 】A) Caption B) Name C) Text D) Value参考答案：B 【解析】 VB标准控件中不同控件具有不同属性 ， 有的相同有的不同 ， 但都具有 Name属性。故选 B。5为了让计时器控件每隔 10 秒产生了一个 Timer 事件，应把 Interval 属性设置为（ B ）A) 1000 B) 10000 C) 10 D) 1006下面关于单选按钮和复选框的叙述中正确的是（ D ）A) 单选按钮被选中则它的 Value 属性为 True；复选框被选中则它的 Value 属性为 2B) 单选按钮被选中则它的 Value 属性为 True；复选框被选中则它的 Value 属性为 TrueC) 单选按钮被选中则它的 Value 属性为 1；复选框被选中则它的 Value 属性为 1D) 单选按钮被选中则它的 Value 属性为 True；复选框被选中则它的 Value 属性为 17将文本框的 ScrollBar 设置为 2，文本框中却没有垂直滚动条，其原因为（ B ）A) 文本框的 Locked 属性值为 True B) 文本框的 MultiLine 属性值为 FalseC) 文本框的 MultiLine 属性值为 True D) 文本框中没有内容第三章 简单程序设计语句1.在面向对象的程序设计中，可被对象识别的动作称为( B ) 。 【 2013年 9月考试真题 】A) 方法 B) 事件 C) 过程 D) 函数参考答案：B【解析】 在 VB中可被对象识别的动作称为事件，事件是由用户或系统触发的，触发后就会执行相应的事件过程代码。故选 B2.以下打开Visual Basic菜单编辑器的操作中，错误的是( A )。 【 2013年 9月考试真题 】A) 执行“编辑“菜单中的“菜单编辑器“命令 B) 执行“工具“菜单中的“菜单编辑器“命令C) 单击工具栏中的“菜单编辑器“按钮 D) 右击窗体，在弹出的快捷菜单中选择“菜单编辑器“命令参考答案：A 【解析】 在 “编辑 “菜单中没有 “菜单编辑器 “命令。故 A选项错误。3假定窗体上有一个名称为 txtMac 的文本框，则执行语句 txtMac=”MyText”后的结果为( D )A) 把字符串”MyText”存入变量 txtMac 中 B) 把文本框 txtMac 的 value 属性设置为 MyTextC) 把文本框 txtMac 的 Name 属性设置为 MyText D）在文本框 txtMac 中显示字符串”MyText”4为了使标签 Label1 透明且不具有边框，以下正确的属性设置是（ D ）A) Label1.BackStyle=0 B) Label1.BackStyle=1Label1.BorderStyle=1 Label1.BorderStyle=1C) Label1.BackStyle=1 D) Label1.BackStyle=0Label1.BorderStyle=0 Label1.BorderStyle=05下列控件中，不响应 Click 事件的是（ A ）A) 形状 B) 图像框 C) 标签 D) 框架6设窗体、框架、图片框(PictureBox)、图像框(Image)的名称分别是 Form1、Frame1、Picture1、Image1，有下面 4 条语句：(1)form1.print “VB” (2) frame1.print “VB”(3) picture1.print “VB” (4) image1.print “VB”其中正确的是（ A ）A) （1）和（3） B) （1）和（2） C) （3）和（4） D) （2）和（3）7以下关于图片框、图像框的叙述中，正确的是（ B ）A) 使用绘图方法能够在图像框上绘制图形 B) 图片框可以通过 Print 方法显示文本C) 图片框的 Stretch 属性用来自动调整图片框中图形内容的大小 D) 图像框可以作为容器8假定 Picture1 和 Text1 分别为图片框和文本框的名称，则下列错误的语句是（ B ）A) Debug.Print 25 B) Text1.Print 25 C) Picture1.Print 25 D) Print 25参考答案：B 【解析】 Print方法可以在窗体上显示文本字符串和表达式的值，并可在其他图形对象或打印机上输出信息。其一般格式为 ： 对象名称 .Print表达式表 ， |； 其中对象名称可以是窗体 (Form)、图片框 (PictureBox)或打印机 (Printer)， 也可以是立即窗口 (Debug)。如果省略对象名称，则在当前窗体上输出。9在用菜单编辑器设计菜单时，必须输入的项是（ A ）A) 名称 B) 标题 C) 索引 D) 快捷键第四章 VB 程序设计基础1语句 Print String(3,”string”)的功能是（ B ）全国计算机等级考试二级 Visual Basic 习题集第 2 页 A) 从字符串 string 第 3 个字符开始至末尾取子字符串 B) 在窗体上显示字符串 sssC) 从字符串 string 左起取出 3 个字符输出 D) 把数值型数据 3 转换为字符串2以下合法的 VB 变量名是（ C ）A) print B) var name C) x_ D) 3x参考答案：C【解析】 VB中变量的命名规则为： 必须以字母或汉字开头 由字母、汉字、数字或下划线组成 不能使用 VB已经占用的关键字。#_1中 #是类型符号，变量名中不能用 VB保留符号。故不合法。 123_a以数字开头不合法。 string是 VB的关键字，也不合法。故 C选项正确3VB 变量 x！的数据类型是（ D ）A) 字符串类型 B) 双精度类型 C) 整型 D) 单精度类型4设程序中分别将 a、b、c、d 定义为布尔型、整型、字符串型、日期型变量，下列赋值语句错误的是（ D ）A) c=5 sEnd Sub 运行程序，单击窗体，输出结果是（ C ）A) 4 220 B) 1 30 C) 3 182 D) 2 426有如下程序：Private Sub Form_Click( )Dim B As StringDim m As Integer, Dec As IntegerB=Inputbox(“请输入一个二进制数”)M=Len(B)For i=1 to mDec=Dec * 2 +Val( _ )Next iPrint DecEnd Sub程序功能是，从键盘上输入一个二进制数，把它转换为等值的十进制数并输出。程序不完整，在_处应填入的内容是：CA) Right(B,i) B) Str(B) C) Mid(B,i,1) D) Left(B,i)参考答案：C 【解析】 将二进制数转换为十进制数需要将二进制数的每一位取出来进行运算，从一个数值字符串中截取一位数字字符要使用 Mid函数，因此在程序空缺处该填入 Mid。7设有如下程序：Private Sub Form_Click()Dim a As Stringa = InputBox(“输入一个字符串“)For i = Len(a) To 1 Step -1Print Mid(a, i, 2);Next iEnd Sub 运行程序，单击窗体，在输入对话框中输入 ABCD，单击”确定”按钮，输出结果是（ A ）A) DCDBCAB B) AABBCCDD C) DCBA D) DDCCBBAA8编写如下程序：Private Sub Command1_Click( )Dim n As Long , s As Stringn=InputBox(“输入一个数”)Do while n y ThenPrint x + yElsePrint y + xEnd IfEnd Sub 程序运行后，单击命令按钮 Command1，输出结果为（ C ）A) cbacd B) cbcd C) cdcba D) cdcb10编写如下程序：Private Sub Command1_Click()Dim x As Integer, y As Integerx = 1: y = 1Doy = x * yIf y 10 ThenPrint x, yExit DoElsex = x + 3End IfLoop While x k / 2End Sub 程序运行后，单击命令按钮 Command1,并输入数值 20，则输出结果为（C ）A) 2 3 4 5 B) 2 5 C) 2 2 5 D) 2 3 415窗体上有 1 个名称为 Command1 的命令按钮；1 个名称为 List1、没有列表项的列表框。编写如下程序：Private Sub Command1_Click()Dim x As String, s As String, temp As StringDim i As Integerx = InputBox(“输入字符串“, “输入“)If x “ “ Thentemp = s + tempElselist1.AddItem temps = “temp = “End IfNextlist1.AddItem tempElseMsgBox “输入内容为空！“End IfEnd Sub程序运行后，单击命令按钮 Command1，并输入”Happy new year” ，则在 List1 中显示的内容为（ A ）A) year B) yppaH C) raey D) HappyNew wen wen new全国计算机等级考试二级 Visual Basic 习题集第 7 页 Happy raey yppaH year16编写如下程序：Private Sub Command1_Click()Dim score As Integerscore = 86If score 85 Thenr = 1ElseIf score 60 Thenr = 2Elser = 0End IfPrint rEnd Sub 程序运行后，单击命令按钮 command1，输出结果为（ D ）A) 86 B) 0 C) 2 D) 117编写如下程序：Private Sub Command1_Click()Dim x As Integer, y As Integerx = 1y = 1Doy = x * yIf y 10 ThenExit DoElsex = x + 3End IfLoop Until x 0End Sub程序运行后，单击命令按钮 Command1，输出结果为（ A ）A) False B) 1 C) -1 D) True19在窗体上画一个 Timer1 计时器控件和一个 Shape1 形状控件，并编写如下程序：Private Sub Form_Load()Timer1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()If shape1.Shape = 1 Thenshape1.Shape = 3Elseshape1.Shape = 1End IfEnd Sub运行程序，则看到的结果是（ C ）A) 显示椭圆形，每秒移动一次 B) 显示正方形，每秒闪烁一次C) 交替显示正方形和圆形，每秒交替一次 D) 交替显示矩形和椭圆形，每秒交替一次20.有如下程序：Private Sub Command1_Click()Dim i As Integer， j As IntegerDim sum As Integern1Doj1Dosumsumjjj1Print j；Loop Until j3nn2Loop Until n10Print sum全国计算机等级考试二级 Visual Basic 习题集第 8 页 End Sub 运行上述程序，外层Do循环执行的次数为( B ) 。A) 4 B) 5 C) 7 D) 10参考答案：B 【解析】 外层 Do循环结束条件是 n10， n 初值为 1，每次加 2，循环体中每次循环 n 的值为 3、 5、 7、 9、 11，值变化 5 次，因此外层 Do循环执行次数为 5 次。第七章 数组1下面关于控件数组的叙述中正确的是（ B ）A) 控件数组中每个元素都是独立的控件，因此都有各自的事件过程 B) 控件数组中所有控件的名称相同，但其 Index属性值各不相同C) 控件数组中所有控件的名称相同，但其 Value属性值各不相同 D) 上述都是错误的2命令按钮 Command1 的事件过程如下：Private Sub Command1_Click()Dim arr(5, 5) As IntegerDim i As Integer, j As IntegerFor i = 1 To 4For j = 2 To 4arr(i, j) = i + jNext jNext iPrint arr(1, 3) + arr(3, 4)End Sub 执行上述过程，输出结果是（ D ）A) 7 B) 12 C) 6 D) 11参考答案：C 【解析】 当用 Dim语句定义数组时，该语句把数组中的全部元素都初始化为 0，而把字符串数组中的全部元素都初始化为空字符串。程序中利用 For循环为数组 arr的部分元素赋值这些元素的第一维范围是 1 4，第二维的范围是 2 4，值为两维下标的和。程序要输出 arr(1， 3) arr(3， 4)的值， arr(1， 3)值为 1 3 4， arr(3， 4)值为 3 4 7。 4 7 11，因此程序输出结果为 11。3设有如下声明语句 Option Base 1Dim arr(2,-1 to 5) As Integer则数组 arr 中数组元素的个数是（ C ）A) 12 B) 21 C) 14 D) 104在窗体上画一个名为Command1的命令按钮，然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim aa Array(1， 2， 3， 4)j1For i4 To 1 Step1ss a(i)* jjj * 10Next iPrint sEnd Sub 运行上面的程序，其输出结果是 ( A )。A) 1234 B) 12 C) 34 D) 4321参考答案：A 【解析】 Array函数用来为数组元素赋值，即把一个数据集读入某个数组。其格式为：数组变量名 =Array(数组元素值 )。Dim a语句没有变量类型名，则 a默认为 Variant类型，这里它作为数组变量使用。现在已知数组 a中元素的值依次为 1、 2、 3、 4，则 For循环中各变量值变化如下：i=4时， s=s+a(4)*j=0+4*1=4,j=1*10=10i=3时， s=s+a(3)*j=4+3*10=4+30=34,j=10*10=100i=2时， s=s+a(2)*j=34+2*100=34+200=234,j=100*10=1000i=1时， s=s+a(1)*j=234+1*1000=234+1000=1234。循环结束。 S的值为 1234。5在窗体上画一个名为Command1的命令按钮，然后编写以下程序：Private Sub Command1_Click()Dim M(10)As IntegerFor k1 To 10M(k)12kNext kx8Print M(2M(x)End Sub 运行程序，单击命令按钮，在窗体上显示的是( A )。A) 6 B) 5 C) 7 D) 8参考答案：A 【解析】 从程序中可知 ， 数组 M元素 M(1) M(10)的值为 11、 10、 9、 8、 7、 6、 5、 4、 3、 2。则 M(8)的值为4， M(2 M(8)即 M(2 4)，即 M(6)。 M(6)的值为 6。因此窗体上显示为 6。6下列数组定义中错误的是( C ) 。A) Dim a(5 To3) B) Dim a(3 To 5) C) Dim a(3 To5) D) Dim a(3 To 3)参考答案：C 【解析】 定义数组时，数组下标的上界 下界。故 C选项错误。7以下叙述中错误的是（ D ）全国计算机等级考试二级 Visual Basic 习题集第 9 页 A) 用 ReDim 语句可以改变数组的维数 B) 用 ReDim 语句可以对数组中的所有元素置 0 或空字符串C) 用 ReDim 语句可以改变数组的每一维的大小 D) 用 ReDim 语句可以改变数组的类型8在窗体上画 1 个命令按钮，并编写如下事件过程：Private Sub Command1_Click()Dim a(3, 3)For m = 1 To 3For n = 1 To 3If n = m Or n = 4 - m Thena(m, n) = m + nElsea(m, n) = 0End IfPrint a(m, n);Next nPrintNext mEnd Sub 运行程序，单击命令按钮，窗体上显示的内容为（ C ）A）2 0 0 B）2 0 0 C）2 0 4 D）2 3 00 4 0 0 4 5 0 4 0 3 4 00 0 6 0 5 6 4 0 6 0 0 6参考答案：C【解析】 根据 For循环中的 If语句的条件 n m or n 4 m中的 n m首先可以得出 a(1,1) 2， a(2,2) 4， a(3,3) 6， 其次根据n 4 m的条件可以得出 a(1,3) 4， a(2,2) 4， a(3,1) 4。而其他的元素值都为 0。因此窗体上输出的三行分别是： 2 0 4 ,0 4 0,4 0 6。9设有下面的程序段：x=InputBox(“请输入一个整数”)ReDim a(x)For k=x to 0 Step -1a(k)=kNext k 一般，在这段程序之前应先进行数组 a 的定义。下面定义语句中正确的（ A ）A) Dim a( ) As Integer B) Dim a(100) As IntegerC) Dim a(0 to 100) As Integer D) Dim a As Integer第八章 数据文件1窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据：Private Sub Command1_Click()Dim s1 As String， s2 As StringOpen “c：d4.dat“ For Append As #3Line Input #3， s1Line Input #3， s2Text1.Texts1s2Close End Sub 该程序运行时有错误，应该进行的修改是( A )。A) 将Open语句中的For Append改为For Input B) 将Line Input改为LineC) 将两条Line Input语句合并为Line Input #3， s1，s2 D) 将Close语句改为Close #3参考答案：A 【解析】 文件打开方式中的 Append意味着打开的文件是顺序输出方式，也就是说打开文件是为了向其中写入数据的而不是要读出数据。因此 Open “c： d4.dat“ For Append As #3应该改为 Open “c： d4.dat“ For Input As #3。所以 A选项正确。 Clsoe语句中的文件号可以省略，这时会关闭所有打开的文件。2顺序文件在一次打开期间( D )。A) 只能读，不能写 B) 只能写，不能读 C) 既可读，又可写 D) 或者只读，或者只写参考答案：D 【解析】 顺序文件的读写是由 Open语句的打开模式决定。用 Output模式打开，则可对顺序文件进行写操作；用 Input模式打开，可对顺序文件进行读操作；用 Append模式打开，可将数据追加到文件尾部。打开一次期间，只能读，或只能写，不能同时进行读写操作。但随机文件和二进制文件打开以后可以同时进行读写操作。故 D选项正确。3用语句 Open “C:teac.txt” for Input As #1 打开文件后，就可以编程序，下列正确的是（ B ）A）在 C 盘根目录下建立名为 teac.txt 的文件 B）将 C 盘根目录下 teac.txt 文件的内容读入内存C）把内存中的数据写入 C 盘根目录下名为 teac.txt 的文件 D）将某个磁盘文件的内容写入 C 盘根目录下名为 teac.txt 的文件4写文件语句 Print #与 Write #的区别之一是（ B ）A）Write # 用于写二进制文件；Print # 用于写文本文件B）Write # 写到文件的每个数据项之间自动添加”,”字符；而 Print #C) Print # 既可以写顺序文件，也可以写随机文件；Write # 则只能写顺序文件D）Print # 写到文件的每个数据项之间自动添加”,”字符；而 Write #第九章 通用对话框1在窗体上画一个通用对话框，其名称为CommonDialog1，则下列与CommonDialog1.ShowOpen方法等效的语句是( A )。A)CommonDialog1.Action1 B)CommonDialog1.Action2 C)CommonDialog1.Action3 D)CommonDialog1.Action4全国计算机等级考试二级 Visual Basic 习题集第 10 页 参考答案：A 【解析】 通用对话框的属性 Action 1与 ShowOpen方法等效 ， 而 Action 2则与 ShowSave等效。2以下关于通用对话框的叙述中，错误的是（ D ）A) 在设计阶段，通用对话框控件的大小不能改变 B) 通用对话框不是工具箱中的标准控件C) 通用对话框控件可以用来建立不同类型的对话框 D) 利用通用对话框建立打开文件对话框时，可以完成打开文件的操作参考答案：D 【解析】 “打开 “对话框主要用来获取用户指定的文件信息并供程序使用，对话框本身并不提供打开文件功能，这些功能需另外编写代码才能实现，所以在 “打开 “对话框中可选中某文件，但不能打开。故 D选项错误。3通用对话框控件文件建立对话框时，可以通过一个属性指标题，这个属性是（ D ）A) Caption B) Action C) Name D) DialogTi 定对话框的 tle4在窗体上画一个 Text1 文本框和一个 CD1 通用对话框控件，并编写下面程序：Private Sub Command1_Click( )CD1.Flags=1 Or 256CD1.Action=4If CD1.Color=0 ThenText1.ForeColor=CD1.ColorEnd ifEnd Sub 运行程序并单击命令按钮，下面叙述中正确的是（ B ）A）弹出的是颜色对话框 B）在弹出的对话框中选了一个颜色并单击确定按钮后，会改变文本框中文本的颜色C）把代码 CD1.Action=4 改为 CD1.ShowColor 效果是一样的 D）弹出的是打开文件对话框第十章 调用子程序和函数过程1以下过程的功能是从数组中寻找最大值：Private Sub FindMax(a()As Integer， ByRef Max As Integer)Dim s As Integer， f As IntegerDim i As IntegersLBound(a)fUBound(a)Maxa(s)For is To fIf a(i)Max Then Maxa(i)NextEnd Sub 以下关于上述过程的叙述中，错误的是( C ) 。A) 语句Call