VB习题一六.docx

1、VB习题一六习题一1运行Visual Basic 6.0需要什么样的最小硬件环境?【答】只要能运行Windows 9x或Windows NT即可。2当正常安装Visual Basic 6.0后，误把Windows 98子目录删除。当重新安装Windows 98后，是否要再安装Visual Basic 6.0？【答】要再安装Visual Basic 6.0，因为安装Visual Basic 6.0时，有些VB程序系统自动安装在Windows 98子目录下，所以一旦删除了Windows 98子目录，就必须再次安装。3Visual Basic 6.0有学习版、专业版和企业版，怎样知道所安装的是哪个版

2、本？【答】在启动Visual Basic 6.0的启动封面上，能显示对应的版本，见教材例1.1。4Visual Basic 6.0有多种类型的窗口，若想在设计时看到代码窗口，怎样操作？【答】执行视图代码窗口命令或“工程资源管理器”窗口的“查看代码”按钮。5如何使各窗口显示或不显示？【答】执行视图菜单的对应窗口命令，显示相应的窗口；关闭窗口则不显示该窗口。6叙述Visual Basic的特点。【答】见本章1.3小节“知识要点”习题二1叙述建立一个完整的应用程序的过程。【答】创建界面、设置属性、编写事件过程代码、保存并运行程序。2当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。问该工程涉

3、及到多少个文件要保存？若要保存该工程中的所有文件，正确的操作应先保存什么文件？若不这样做，系统会出现什么信息？【答】涉及到两个文件，应先保存窗体文件（.frm），再保存工程文件（.vbp）。若是先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。3假定在Windows 98环境中，要保存工程文件时，若不改变目录名，则系统默认的目录是什么？【答】是VB98。4为了使一个控件在运行时不可见，应对该控件的什么属性进行何种设置？【答】将Visible属性设为False。5为了防止用户编辑文本框的内容，应对该控件的什么属性进行何种设置？【答】将文本框的Locked属性设为True。6

4、为了使标签框的大小由Caption属性的值进行扩展或缩小，应对该控件的什么属性进行何种设置？【答】将标签的AutoSize属性设为True。7VB 6.0提供的大量图形文件在哪个目录下？若你的计算机上没有安装，则怎样安装这些图形文件？【答】存放在Graphics目录下。直接在带有VB 6.0系统的CD上找到Graphics子目录，复制到硬盘的VB目录下。8在VB 6.0中，命令按钮的显示形式可以有标准的和图形的两种选择，这通过什么属性来设置？若选择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是不能显示该图形，而显示的是Caption属性设置的文字，怎样

5、改正？【答】按钮的Style属性设为Graphical。通过Picture属性来装入图形。不能显示图形是因为Style属性设成了Standard，只要改为Graphical即可，一般还要将Caption属性的值设置为空。9标签和文本框的区别是什么？【答】标签和文本框都可以在窗体上显示文字。区别在于：标签的内容在Caption属性内，在窗体上只能显示文字，不能编辑；文本框的内容在Text属性内，在窗体上可直接对其内容进行编辑。10当窗体上有3个文本框和1个命令按钮，若程序运行时，要求焦点定位在第三个文本框（Text3）处，应对何控件的什么属性进行何种设置？【答】对Text3控件进行Text3.T

6、abIndex = 0的设置。11若要对窗体上的3个文本框输入数据，各控件焦点的移动可通过Tab键（系统本身具有的），也可以通过回车键，则要对文本框的什么事件编程？【答】对文本框的KeyPress事件编程。例如，当焦点在Text1时，输入数据按Enter键后，让焦点跳到Text2文本框。程序如下： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub12当某文本框输入数据后（按了回车键），进行判断认为数据输入错，怎样删除原来数据？怎样使焦点回到该文本

7、框重新输入？【答】假定文本框的名称为Text1，则事件过程如下： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If 出错条件判断成立 Then Text1 = ” Text1.SetFocus End If End If End Sub13当运行程序前，对某些控件设置属性值，除了在窗体中直接设置外，还可以通过代码设置，这些代码一般放在什么事件中？例如，程序要将命令按钮定位在窗体的中央，请写出事件过程。【答】这些代码一般放在Form_Load()事件过程中。将窗体定位在屏幕的中央，只能通过属性窗口对F

8、orm1窗口的StartUpPosition属性设置为2（表示屏幕中心），该属性不能放在运行时设置。要将按钮定位在窗体的中央，事件过程如下： Private Sub Form_Load() Command1.Left = Form1.ScaleWidth2Command1.Width2 Command1.Top = Form1.ScaleHeight2Command1.Height2 End Sub其中，ScaleWidth和ScaleHeight表示窗体的相对宽度和高度。习题三1说明下列哪些是VB合法的直接常量，分别指出它们是什么类型。【答】 100.0 (单) %100 (非) 1E1 (

9、单) 123D3 (双) 123,456 (非) 0100 (整) ”ASDF” (字) “1234” (字) #2000/10/7# (日) 100# (双) (非) &O100 (八) &O78 (非) &H123 (十六) True (逻) T (非) &H12ag (非) -1123! (单)2下列符号中，哪些是VB合法的变量名？【答】 a123 (合) a12_3 (合) 123_a (非) a 123 (非) Integer (非) XYZ (合) False (非) sin(x) (非) sinx (合) 变量名 (合) abcdefg (合) (合)3把下列算术表达式写成VB表

10、达式。【答】 表达式为：Abs(x + y) + z5 表达式为：(1 + x * y)6 表达式为：(10 * x + sqr(3 * y)/ x / y 表达式为： (- b + sqr(b * b 4 * a * c)/(2 * a) 表达式为：1 /(1 / r1 + 1 / r2 + 1 / r3) 表达式为： sin(45 * 3.14 / 180)+(Exp(10)+ Log(10)/Sqr(x + y + 1)4根据条件写一个VB表达式： 产生一个CL范围内的大写字母。 产生一个100200（包括100和200）范围内的正整数。 已知直角坐标系中任意一个点(x,y)，表示在第一

11、或第三象限内。 表示x是5或7的倍数。 将任意一个两位数x的个位数与十位数对换。例如，x=78，则表达式的值应为87。 将变量x的值按四舍五入保留小数点后两位。例如，x的值为123.2389，表达式的值为123.24。 表示字符变量c是字母字符（大小写不区分）。 取字符变量s中，第5个字符起的6个字符。 表示10x20的关系表达式。 x，y中有一个小于z。 x，y都大于z。【答】 Chr(Int(Rnd * 10 + 67) Int(Rnd * 101 + 100) x * y 0 x mod 5 = 0 or x mod 7 = 0 (x mod 10) * 10 + x 10 Round(

12、x * 100)/100 或 Round(x , 2) Ucase(c) = A and Ucase(c) = a and Lcase(c) = 10 and x 20 x z or y z and y z5写出下列表达式的值：【答】 123 + 23 mod 10 7 + Asc(A) 值为：188 100 + 100 & 100 值为：200100 Int(68.555 * 100 + 0.5)/ 100 值为：68.56 已知A$ = 87654321，则表达式： Val(Left$(A$,4) + Mid$(A$,4,2) 值为：876554 DateAdd(m,1,#1/30/200

13、0#) 值为：#2/29/2000# Len(VB程序设计) 值为：66利用Shell()函数，在VB程序中分别执行画图和Word应用程序。【答】调用Shell()函数，形式为： Shell(”C:Program FilesAccessoriesMspaint.exe”,1) Shell(”C:Program FilesMicroSoft OfficeWinword.exe”,1)7Visual Basic提供了哪些标准数据类型？声明类型时，其类型关键字分别是什么？其类型符又是什么？【答】见教材P53表1.3.1。8哪种数据类型所需内存容量最少，且可存储例如3.2345这样的值？【答】单精度。

14、9将数字字符串转换成数值，用什么函数？判断是否是数字字符串，用什么函数？取字符串中的某几个字符，用什么函数？大小写字母间的转换，用什么函数？【答】将数字字符串转换成数值，用Val函数； 用IsNumeric()函数可判断是否是数字字符串； 用Mid()函数取字符串中的某几个字符； 用Ucase()函数将小写字母转换成大字母； 用Lcase()函数将大写字母转换成小字母。10要使单精度变量x、y 、z分别保留1位、2位、3位小数位，并在窗体显示，使用什么函数？如何写对应的Print方法？【答】使用Format()函数，显示1位小数位：Print Format(x, ”0.0”)。显示2位小数位：

15、Print Format(y, ”0.00”)。显示3位小数位：Print Format(z, ”0.000”)。习题四1指出下列赋值语句中的错误（包括运行时要产生的错误）。 10x = Sin(x) + y c = 3 + sqr(-3) c + x + y = c * y x = Sin(x) / (20 Mod 2)【答】 “10x”是一个非法的变量名。 用负数开平方。 左边为表达式。 分母为零。2MsgBox作为函数使用时与InputBox的区别？各自获得的是什么值？【答】MsgBox返回所按按钮对应的值，InputBox返回文本框输入的值。3语句：If 表达式 Then 中的表达式可

16、以是算术、字符、关系、逻辑表达式中的哪些？【答】可以是算术、关系、逻辑表达式。4指出下列语句中的错误。 If x y Then print x If 10 x = A and c = a and c =”。 VB中表示x的范围“10x10 And x 20 Then y = x * x + 3 * x + 2 ElseIf x 20 y = x * x + 3 * x + 2 Case Is y Then Max = x Else Max = y If z Max Then Max = z 利用IIf函数： Max = Iif(x y ,x ,y) Max = Iif(Max z ,Max ,

17、z)6计算下列循环语句的次数： For I = -3 To 20 Step 4 For I = -3.5 To 5.5 Step 0.5 For I = -3.5 To 5.5 Step 0.5 For I = -3 To 20 Step 0【答】 循环6次、循环体内I的值分别为：-3，1，5，9，13，17、出循环后I的值为21。 循环19次。 不循环。 循环无数次，无法终止。7下列3090为语句标号，分别标记该语句，第40句共执行了几次？第50句共执行了几次？第90句语句显示的结果是多少？30 For J = 1 To 12 Step 340 For K = 6 To 2 Step -25

18、0 Mk = K60 Print J,K70 Next K80 Next J90 Print J,K,Mk【答】第40句是外循环的循环体，共执行了4次；第50句是内循环的循环体，共执行了12次；第90句语句显示的结果是：13 0 2 。8如果事先不知道循环次数，如何用For Next结构来实现？【答】将循环终值设置为一个非常大的值，然后在循环体内增加If语句，判断是否满足循环结束条件。形式如下： For 循环变量 = 1 To 非常大的数 If 循环结束条件 Then Exit For Next 循环变量9利用循环结构，实现如下功能： 分别统计1100中，满足3的倍数、7的倍数的数各为多少个？

19、 将输入的字符串，以反序显示。例如输入“ASDFGHJKL”，显示“LKJHGFDSA”。【答】 S = 0 For I = 1 To 10 S = S + (I + 1) * (2 * I + 1) Next I S3 = 0 S7 = 0 For I = 1 To 100 If I Mod 3 = 0 Then S3 = S3 + 1 If I Mod 7 = 0 Then S7 = S7 + 1 Next I S = InputBox(“请输入字符串：”) For I = Len(S) To 1 Step -1 Print Mid(S,I,1); Next I10下面程序运行后的结果是什

20、么？该程序的功能是什么？ Private Sub Command1_Click() Dim x$,n% n = 20 x = Do While n 0 a = n Mod 2 n = n 2 x = Chr(48 + a) & x Loop Print x End Sub【答】运行后结果为10100，该程序的功能是将十进制数转换成二进制字符串。11下面程序运行后的结果是什么？该程序的功能是什么？ Private Sub Command1_Click() Dim x%,y%,z% x = 242 : y = 44 z = x * y Do Until x = y If x y Then x =

21、x - y Else y = y - x Loop Print x,z/x End Sub【答】运行后结果为22和484，该程序的功能是用辗转相减法求x、y的最大公约数和最小公倍数。12利用随机函数产生20个50100范围内的随机数，显示它们的最大值、最小值和平均值。【答】 Private Sub Command1_Click() Max = 50 Min = 100 Sum = 0 For i = 1 To 20 x = Int(Rnd * 51 + 50) Print x; If x Max Then Max = x If x Min Then Min = x Sum = Sum + x

22、Next i Print Print 最大值=; Max Print 最小值=; Min Print 平均值=; Sum / 20 End Sub习题五1要分配存放12个元素的整型数组，下列数组声明（若无下界，则按默认规定）哪些符合要求？ n = 12 Dim a%() Dim a(1 To n) As Integer n = 11 ReDim a(n) Dim a%2,3 Dim a(1,1,2) As Integer Dim a%(10) Dim a!() ReDim a(1 To 12) ReDim a(3,2) As Integer Dim a%(2,3) Dim a(1 To 3,1

23、 To 4) As Integer【答】、和符合要求。2已知下面的数组声明，写出它的数组名、数组类型、维数、各维的上、下界、数组的大小，并按行的顺序列出各元素。 Dim a(-1 To 2,3) As Single【答】数组名为a、数组类型为单精度、二维、各维的下界分别为-1和0、上界分别为2和3、数组的大小为44共16个元素，各元素排列顺序为：3静态数组和动态数组的区别是什么？在声明静态数组、重定义动态数组时的下标都可以用变量来表示吗？【答】静态数组在声明数组时的下标必须是常数，以后不能改变其大小；动态数组在Dim声明时不要声明数组的大小，在以后的程序中可以用ReDim语句重新声明数组的大小

24、，ReDim语句中的下标可以出现赋了值的变量。4已声明了静态数组a(3,4)，能否在下面再用重定义动态数组a(4,4)来重定义a数组的大小？【答】已声明了的静态数组，不能再用重定义语句来重新定义静态数组的大小。5使用ReDim语句可以改变数组类型吗？【答】不能。可以反复地使用ReDim语句改变数组元素的数目以及数组的维数，但不能将一个已定义为某种数据类型的数组，使用ReDim语句改为其他数据类型。6在ReDim语句中加了Preserve关键字，对重定义数组有何限制？【答】这时，只能重定义数组最后一维的大小，且不能改变数组的维数。例如以下语句： Dim a() ReDim a(3,4) ReDi

25、m Preserve a(4,5)当程序执行到第3句时，显示“下标越界”的出错信息，即只能改变第二个下标的大小，而不能改变第一个下标的大小。7利用随机数生成两个矩阵（数据不一定相同，前者范围为3070、后者为101135） 要求： 将两个矩阵相加，结果放入C矩阵中。 将A矩阵转置。 求C矩阵中元素的最大值和下标。 以下三角形式显示A矩阵、上三角形式显示B矩阵。 将A矩阵第1行与第3行对应元素交换位置，即第1行元素放到第3行、第3行元素放到第1行。 求矩阵A两条对角线元素之和。 将A矩阵按列的次序把各元素放入一维数组D中，显示结果。習題五 5【答】假定在通用声明段对数组的声明如下： Dim a%

26、(1 To 4,1 To 4) Dim b%(1 To 4,1 To 4) Dim c%(1 To 4,1 To 4)在Form_Load事件过程中对数组a、b根据要求随机生成数值；根据各小题的要求，在各事件过程中分别编写代码。 两个矩阵能相加的条件是它们的行数、列数相同，利用两重循环将它们的元素逐一相加即可。程序段如下： For i = 1 To 4 本例行数为4 For j = 1 To 4 本例列数为4 c(i,j) = a(i,j) + b(i,j) Next j Next i 矩阵转置是将矩阵的行变为列、列变为行。通过两重循环实现，程序段如下： For i = 1(2) To 4 For j = 1 To i - 1 t = a(i,j) a(i,j) = a(j,i) a(j,i) = t Next j Next i 因为c是两维数组，所以最大值的下标有两个：行下标、列下标。 Dim Max%, Maxi%, Maxj% Max = c(1,1) : Maxi = 1 : Maxj = 1 For i = 1 To 4 For j = 1 To 4