vb课后练习答案习题解答 5.docx

1、vb课后练习答案习题解答 5第5章数组与记录5.1 填空题1.若要定义一个包含10个字符串元素,且下界为1的一维数组s,则数组说明语句为(。答案:Dim s(1 To 10 As String2.若要定义一个元素为整型数据的二维数组a,且第一维的下标从0到5,第二维下标从-3到6,则数组说明语句为(。答案:Dim a(0 To 5,-3 To 6 As Integer3.如果数组元素的下标值为实数,则VB系统会按(进行处理。答案:四舍五入原则4.数组元素个数可以改变的数组称为(;数组元素可以存放不同类型数据的数组称为(。答案:可调数组、可变类型数组5.数组刷新语句用于(。若被刷新的数组是数值数

2、组,则把所有元素置(;若被刷新的数组为字符串数组,则把所有元素置(。答案:清除指定数组内容、0、空字符串10.控件数组是由一组类型和(相同的控件组成,共享(。答案:名字、同一个事件过程11.控件数组中的每一个控件都有唯一的下标,下标值由(属性指定。答案:Index12.建立控件数组有两种方法:(和(。答案:在设计阶段通过相同Name属性值来建立、在程序代码中使用Load方法5.2 选择题1.下列一维数组说明语句错误的是(。a Dim b(100 AS Doubleb Dim b(-5 To 0 AS Bytec Dim b(-10 To 20 AS Integerd Dim b(5 To 5

3、AS String答案:c2.若有数组说明语句为:Dim a(-3 To 8,则数组a包含元素的个数是(。a 5 b 8 c 11 d 12答案:d3.设有数组说明语句:Dim c(1 To 10,则下面表示数组c的元素选项中(是错误的。a c(i-1 b c(5+0.5 c c(0 d c(10答案:c4.下列数组说明语句中正确的是(。a Dim a(-1 To 5,8AS Stringb Dim a(n,nAS Integerc Dim a(0 To 8,5 To 1AS Singled Dim a(10,-10AS Double答案:a5.设有数组说明语句:Dim b(-1To2,-2T

4、o2,则数组b中元素的个数是(。a 12 b 15 c 16 d 20答案:d6.设有数组说明语句:Dim c(-1To1,1To5,则下列表示数组c的元素选项中(是正确的。a c(i+j b c(i(j c c(i+1,j-1 d c(1,0答案:c7.若有数组说明语句:Dim a(AS Integer,则a被定义为(。a定长数组 b可调数组 c静态数组 d可变类型数组答案:b8.若有数组说明语句:Dim t(1 To 10AS Variant,则t被定义为(。a数值数组 b可调数组 c字符串数组 d可变类型数组答案:d9.下面选项中,错误的是(。aDim s As variant :s =

5、 Array(one , two , Three bDim b :b=Array(1,2,3cDim b As Integer :b=Array(1,2,3dDim b As variant :b=Array(1,2,3答案:c10.若有以下说明语句Type employeenum As Integersalary As SingleEnd TypeDim programmer As employee则下面表示记录变量programmer的成员Salary正确的是(。a programmersalary b .salaryc salary.programmer d programmer.sal

6、ary答案:d11.已知有说明语句Type datyear As Integermonth As Integerday As IntegerEnd TypeType empno As Integername As String10sex As String*1birthday As datsalary As singleEnd TypeDim programmer As emp并假设变量programmer所表示职工的出生日期是“1978年10月1日”,则下列正确的赋值语句是(。a year=1978:month=10:day=1b birthday.Year=1978:birthday.mo

7、nth=10: birthday.day=1c programmer.year=1978:programmer.month=10 :programmer.day=1dprogrammer.birthday.year=1978:programmer.birthday.month=10:programmer.birthday.day=1答案:d12.假设有第11题的说明语句,则下列With语句正确的是(。a with progammerno=1000:name= 张勇 : sex= 男with birthdayyear=1978 :month=10 :day=1End withsalary=280

8、0End withb with programmer.no=1000:.name= 张勇 :.sex=男with .birthday.year=1978 :.month=10 :.day=1End with.salary=2800End withc with programmer.no=1000 :.name=张勇 :.sex=男.birthday.year=1978 :.birthday.month=10 :.birthday.day=1.salary=2800End withd with programmer,birthday.no=1000:.name=张勇 :.sex=男.year=1

9、978 :month.=10 :day.=1.salary=2800End with答案:c5.3 解答题1.使用关键字Dim,ReDim和Static定义的数组分别称为什么数组?它们各有什么特点?答:使用关键字Dim说明的数组称为定长数组。说明定长数组时,应同时确定维数和下标范围。VB编译程序在编译时为定长数组分配相应的内存区域,并且在应用程序运行期间,定长数组都占有这块内存区域。使用关键字ReDim说明的数组称为可调数组或动态数组。若在程序运行前,不能确定数组的大小或在程序运行时需要改变数组的大小,则该数组应定义为可调数组。在应用程序运行期间,可调数组占用的内存区域可能会改变。使用Stat

10、ic说明的数组称为静态数组。在整个应用程序运行期间,系统分配固定内存区域。定义该数组的过程执行结束时,数组的值仍保留,该过程再次被调用时,数组的值为上次过程调用结束时的值。而定长数组和可调数组则不然,定义它们的过程执行结束时,它们的值不保留。5.4 阅读程序,并写出执行结果1.Private Sub Command1_Click(Dim f(10 As Integerf(0 = 1: f(1 = 1For i = 2 To 10f(i = f(i - 2 + f(i - 1Next iFor i = 0 To 10If i Mod 4 = 0 Then PrintPrint f(i,Next

11、iEnd Sub答案:1 12 35 8 13 2134 55 892.Private Sub Command1_Click(Dim s(1 To 6 As IntegerFor i = 1 To 6s(i = iNext iFor i = 1 To 3For j = 4 To 6t = s(i :s(i = s(j :s(j = tNext jNext iFor i = 1 To 6Print s(i;Next iEnd Sub答案:6 5 4 3 2 13. Private Sub Command1_Click(Dim a(1 To 9 As IntegerDim b(1 To 3, 1

12、To 3 As IntegerDim i%, j%For i = 1 To 9a(i = iNext iFor i = 1 To 3For j = 1 To 3b(i, j = a(i * jIf j = i Then Print b(i, j,Next jPrintNext iEnd Sub答案:12 43 6 94. Private Sub Command1_Click(Dim a(1 To 5, 1 To 5 As Integer, i%, j%For i = 1 To 5For j = 1 To 5If i max Then max = a(i: p = iNext iPrint: P

13、rintPrint Tab(15; 最大值为:; maxPrint Tab(10, 最大值所在数组元素的下标为:; pEnd SubPrivate Sub Command2_Click(EndEnd Sub(3运行情况运行程序后,屏幕出现用户界面。单击标题为“开始”的命令按钮,系统执行相应的Click事件过程。执行结果如图3.5.2所示。单击标题为“结束”的命令按钮,结束程序的执行。 图3.5.2 执行结果4.给定两组已按升序排列好的整型数据,编写一个程序把它们合并为一组仍按升序排列的数据。解答:(1界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3.5.4所示。表

14、3.5.4 属性设置 (2Dim a As Variant, b As Variant, c%(0 To 11Private Sub Form_Activate(Dim i%a = Array(1, 2, 7, 8Print: Print: PrintPrint Tab(5; 第一个升序数组:;For i = 0 To 3Print a(i;Next iPrint: Printb = Array(3, 4, 8, 8, 9, 10, 12, 12Print Tab(5; 第二个升序数组:;For i = 0 To 7Print b(i;Next iEnd SubPrivate Sub Comm

15、and1_Click(Dim i%, j%, k%i = 0: j = 0: k = 0While i 4 And j b(j Thenc(k = b(j: k = k + 1: j = j + 1 比较a和b中的元素,把较大的元素移到Else c中,直到其中一个数组搬空为止c(k = a(i: k = k + 1: i = i + 1End IfWendWhile i 4c(k = a(i: i = i + 1: k = k + 1 把a中剩余的元素搬到c中WendWhile j 8c(k = b(j: j = j + 1: k = k + 1 把b中剩余的元素搬到c中WendPrint:

16、PrintPrint Tab(5; 合并后的升序数组:Print Tab(8;For i = 0 To 11Print c(i;Next iEnd SubPrivate Sub Command2_Click(EndEnd Sub(3运行情况运行程序后,系统执行Form_Activate事件过程,屏幕出现用户界面,并显示两个升序数组。单击标题为“合并”的命令按钮,系统执行相应的Click事件过程。执行结果如图3.5.4所示。单击标题为“结束”的命令按钮,结束程序的执行。 图3.5.4 执行结果5.从键盘上输入一个正整数,判别它是否为回文数。所谓回文数是指正读和反读都一样的数。例如,123321是

17、回文数。解答:(1界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3.5.5所示。表3.5.5 属性设置 (2程序代码Private Sub Command1_Click(ClsDim num As Long, n As Long, i%, k%, f%, b%(10num = InputBox(请输入一个整数:k = 0: n = numDob(k = n Mod 10 把num的各位数字存入数组b中k = k + 1n = n 10Loop While n 0f = 1For i = 0 To (k - 1 / 2If b(i b(k - 1 - i Then

18、f = 0 num的第i位与第k-1-i位数字不相同时f置0Next i 说明num不是回文数Print: Print: Print: PrintIf f ThenPrint Tab(18; num; 是回文数!ElsePrint Tab(16; num; 不是回文数!End IfEnd SubPrivate Sub Command2_Click(EndEnd Sub(3运行情况运行程序后,屏幕出现用户界面。单击标题为“开始”的命令按钮,系统执行相应的Click事件过程。在调用InputBox 函数出现对话框时,输入一个整数,例如,1234321。执行结果如图3.5.5所示。单击标题为“结束”

19、的命令按钮,结束程序的执行。 图3.5.5 执行结果6. 编一程序,把一个m行n列矩阵中的元素存放到一个二维数组中,并求出该数组的平均值、最大值和最小值。解答:(1 界面设计和属性设置在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表3-5-6所示。表3-5-6 第6题的属性设置 最大值 Command1 Caption 开始 Command2 Caption 结束 (2 程序代码 Private Sub Command1_Click( Dim i%, j%, m%, n%, sum!, ave!, max!, min! Dim a( As Single m = InputBox(请输

20、入矩阵的行数： n = InputBox(请输入矩阵的列数： ReDim a(1 To m, 1 To n Print Print Tab(2; 输入的矩阵为： For i = 1 To m Print Tab(15; For j = 1 To n a(i, j = InputBox(输入第 & Str(i & 行 & 第 & Str(j & 列元素： Print a(i, j; Next j Print Next i sum = 0 For i = 1 To m For j = 1 To n sum = sum + a(i, j 求和 Next j Next i ave = sum / (m

21、 * n max = a(1, 1 For i = 1 To m For j = 1 To n If a(i, j max Then max = a(i, j Next j Next i min = a(1, 1 For i = 1 To m For j = 1 To n If a(i, j min Then min = a(i, j 求最小值 Next j Next i Print Print Tab(2; 平均值为：; ave Print Tab(2; 最大值为：; max 求最大值 求平均值 Print Tab(2; 最小值为：; min End Sub Private Sub Comm

22、and2_Click( End End Sub （3）运行情况 运行程序后，需多次调用 InputBox 函数。在调用 InputBox 函数出现对话框时，输入 矩阵的行数、矩阵的列数和数组元素的值。例如，输入矩阵的行数 3、矩阵的列数 3 和数组 元素的值 1、2、3、4、5、6、7、8、9。执行结果如图 3.5.6 所示。 7. 某城市三个百货公司某个季度销售电视机的情况和价格由如下表格表示， 求各个百 货公司的电视机营业额。 牌子 公司 第一百货商店 第二百货商店 第三百货商店 康 佳 TCL 长 虹 150 200 180 300 200 280 250 240 210 牌 子 康 佳

23、 TCL 长 虹 解答： (1界面设计和属性设置 价 格 3500 3300 3800 在窗体上建立两个命令按钮。窗体和命令按钮的主要属性设置如表 3.5.7 所示。 表 3.5.7 控件名称 属性设置 属性值 属性名 Form1 Command1 Command2 Caption Caption Caption 计算电视机销售额 开始 结束 (2程序代码 Option Explicit Private Sub Command1_Click( Cls Dim i%, j%, sum! Dim a%(1 To 3, 1 To 3, p!(3 Print Tab(23; 各百货公司的销售量 Pri

24、nt Tab(20; 康佳; Tab(30; TCL; Tab(40; 长虹 For i = 1 To 3 Print Tab(5; 第 & Str(i & 百货公司; For j = 1 To 3 a(i, j = InputBox(输入第 & Str(i & 百货公司 & 第 & Str(j & 种牌子销售量： Print Tab(j * 10 + 10; a(i, j; Next j Print Next i Print Tab(25; 各种牌子价格 Print Tab(20; 康佳; Tab(30; TCL; Tab(40; 长虹 For i = 1 To 3 p(i = InputB

25、ox(输入第 & Str(i & 种牌号价格： Print Tab(i * 10 + 10; p(i; Next i Print: Print For i = 1 To 3 sum = 0 For j = 1 To 3 sum = sum + a(i, j * p(j Next j Print Tab(10; 第 & Str(i & 百货公司的销售额为：; sum; 元 Next i End Sub Private Sub Command2_Click( End End Sub (3运行情况 运行程序后，屏幕出现用户界面。单击标题为“开始”的命令按钮，系统执行相应的 Click 事件过程。在执行的过程中，需多次调用 InputBox 函数。在调用 InputBox 函数出 现对话框时,按表格中的数据输入每个百货公司销售电视机的数量和各种牌子的价格。执行 结果如图 3.5.7 所示。单击标题为“结束”的命令按钮，结束程序的执行。 图 3.5.7 执行结果