VB程序设计教程第四章、第五章、第六章课后习题(部分).doc

《VB程序设计教程第四章、第五章、第六章课后习题(部分).doc》由会员分享，可在线阅读，更多相关《VB程序设计教程第四章、第五章、第六章课后习题(部分).doc（6页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB课后作业第三次作业习题四09信管 李莎 52012/4/11书95页 习题四9.计算下列循环语句的次数：（1）循环次数为：6（2）循环次数为：19（3）循环次数为：0（4）循环次数为：死循环直至溢出12.利用循环结构，实现如下功能：（1）Dim i As Integer, s As IntegerFor i = 1 To 10 s = s + (i + 1) * (2 * i + 1)Next iPrint s=; s（2）Dim i As Integer, n3 As Integer, n7 As IntegerFor i = 1 To 100 If i Mod 3 = 0 Then n

2、3 = n3 + 1 If Int(i / 7) = i / 7 Then n7 = n7 + 1Next iPrint 1-100中3的倍数有; n3; 个Print 1-100中7的倍数有; n7; 个（3）Dim s1 As String, s2 As String, i As Integers1 = InputBox(Input String)s2 = For i = 1 To Len(s1) s2 = Mid(s1, i, 1) + s2Next iPrint 原序：; s1Print 反序：; s213.下面程序的运行结果是什么？该程序的功能是什么？Private Sub Comm

3、and1_Click() Dim x$, n% n = 20 Do While n 0 a = n Mod 2 n = n 2 x = Chr(48 + a) & xLoopPrint xEnd Sub答：输出字符串“10100”。该程序功能是将十进制数转化为二进制。程序运行结果如下图：14. 下面程序的运行结果是什么？该程序的功能是什么？Private Sub Command1_Click() Dim x%, y%, z% x = 242: y = 44 z = x * y Do Until x = y If x y Then x = x - y Else y = y - x Loop Pr

4、int x, z / xEnd Sub答：运行时输出 22 484。该程序功能是求x和y最大公约数和最小公倍数。程序运行结果如下图：习题五6.声明一个一位字符类型数组，有20个元素，每个元素最多放10个字符，要求：（1）Dim a(1 To 20) As String；（2）Private Sub Command1_Click() Dim i As Integer, j As Integer, n As Integer, c As String * 1 Randomize For i = 1 To 20 a(i) = n = Int(Rnd * 10 + 1) For j = 1 To n c

5、 = Chr(Int(Rnd * 26 + 97) a(i) = a(i) + c Next j Next iEnd Sub（3）Private Sub Command2_Click() Dim i As Integer For i = 1 To 20 Print Tab(i - 1) Mod 5) * 11); a(i); If i Mod 5 = 0 Then Print Next iEnd SubPrivate Sub Command3_Click() Dim i As Integer, imax As Integer imax = 1 For i = 2 To 20 If Len(a(

6、i) Len(a(imax) Then imax = i End If Next i Print 最长的字符串：; a(imax)End Sub 习题六1. 简述子过程与函数过程的共同点和不同之处。答：子过程和函数过程的共同点：函数过程和子过程都是功能相对独立的一种子程序结构，它们有各自的过程头、变量声明和过程体。在程序中使用它们不但可以避免书写重复的程序语句，缩短代码，而且可以使程序条理清晰、容易阅读。子过程和函数过程的不同点：A. 过程声明的关键字不同，子过程用的是Sub，函数过程用的是Function。B. 子过程名无值就无类型声明，函数过程名有值就有类型声明。C. 函数过程名兼作结果变

7、量，因此在函数过程体内至少对函数过程名赋值；而子过程名在过程体内不能赋值。D. 调用方式不同，子过程是一条独立的语句，可用Call子过程名或省略Call直接以子过程名调用；函数过程不是一条独立的语句，是一个函数值，必须参与表达式的运算；E. 一般来说，一个函数过程可以被一个子过程代替，代替时只要改变函数过程定义的形式，并在子过程的形参表中增加一个地址传递的形参来传递结果。2. 什么是形参，什么是实参，什么事只引用？地址引用时，对应的实参有什么限制？答：形参是在定义过程时的一种形式虚设的参数，只代表了该过程参数的个数、类型、位置，形参的名字并不重要，也没有任何值，只表示在过程体内进行某种运算或处

8、理。实参是调用子过程时提供给过程形参的初始值或通过过程体处理后获得的结果。调用实用实参代替形参，实参与形参在个数、类型、位置一一对应，实参与形参名相同与否无关。实参与形参的结合有两种方法，即传地址（ByRef）和传值（ByVal），或称地址引用和只引用，缺省为地址引用。值引用时，系统将实参的值传递给对应的形参，实参与形参断开了联系。如果在过程体中改变形参的值，不会影响到实参。地址引用时，实参与形参变量共同用一个存储单元，如果在子过程中改变了形参的值，对应的实参也将发生改变。地址引用时，实参只能是变量，不能是常量或表达式。3. 支出下面过程语句说明中的错误：（1） Sub f1(n%) As Integer答：错误为Sub子过程名无返回值，也就是没有类型。（2） Function f1%(f1%)答：错误在于函数名与形参名相同。（3） Sub f1(ByVal n%()答：错误在于形参n为数组，不允许声明为ByVal值传递。（4） Sub f1(x(i) as Integer)答：错误在于形参x(i)不允许为数组元素。6.要是变量在某事件过程中保留值，有哪几种变量声明的方法？答：声明变量为全局（Public）、通用声明段或标准模块声明的模块级变量、局部过程声明的静态变量（Static）。