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

VB课后作业 第三次作业 习题四 09信管 李莎 200918104015 2012/4/11  书95页 习题四 9.计算下列循环语句的次数： （1）循环次数为：6 （2）循环次数为：19 （3）循环次数为：0 （4）循环次数为：死循环直至溢出 12.利用循环结构，实现如下功能： （1）Dim i As Integer, s As Integer For i = 1 To 10 s = s + (i + 1) * (2 * i + 1) Next i Print s=; s （2）Dim i As Integer, n3 As Integer, n7 As Integer For i = 1 To 100 If i Mod 3 = 0 Then n3 = n3 + 1 If Int(i / 7) = i / 7 Then n7 = n7 + 1 Next i Print 1-100中3的倍数有; n3; 个 Print 1-100中7的倍数有; n7; 个 （3）Dim s1 As String, s2 As String, i As Integer s1 = InputBox(Input String) s2 = For i = 1 To Len(s1) s2 = Mid(s1, i, 1) + s2 Next i Print 原序：; s1 Print 反序：; s2 13.下面程序的运行结果是什么？该程序的功能是什么？ Private Sub Command1_Click() Dim x$, n% n = 20 Do While n 0 a = n Mod 2 n = n \ 2 x = Chr(48 + a) x Loop Print x End 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 Print x, z / x End 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 = Chr(Int(Rnd * 26 + 97)) a(i) = a(i) + c Next j Next i End 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 i End Sub Private Sub Command3_Click() Dim i As Integer, imax As Integer imax = 1 For i = 2 To 20 If Len(a(i)) Len(a(imax)) Then imax = i End If Next i Print 最长的字符串：; a(imax) End Sub 习题六 简述子过程与函数过程的共同点和不同之处。 答：①子过程和函数过程的共同点：函数过程和子过程都是功能相对独立的一种子程序结构，它们有各自的过程头、变量声明和过程体。在程序中使用它们不但可以避免书写重复的程序语句，缩短代码，而且