二、简答题（2道小题，共10分） 1、试述Int()和Fix()两个函数的区别？ （5分） 答：Fix(x)函数无论对正数或负数都是去掉小数部分，取整数部分（符号不变）如：Fix(9.1)＝Fix(9.9)＝9， Fix(-9.1)＝Fix(-9.9)＝-9；而Int(x)函数返回的是不超过x的最大整数，如：Int(9.1)＝Int(9.9)＝9， Int(-9.1)＝Int(-9.9)＝-10。 2、什么是“死循环”？它是如何形成的？ （5分） 答：一个循环结构如果没有一个有效的终止机制,就是死循环。如： For循环体中修 三、编程题（2道小题，共20分） 1、 编写程序，输出下列三角形： 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 （10分） 请将你解答本题所写的源程序粘贴到下面 Private Sub Command1＿Click() Dim i As Integer, j As Integer, begin As Integer begin ＝ 7 For i ＝ 1 To 4 Print Tab(begin); For j ＝ 1 To 2 * i - 1 Print ″1 ″; Next j Print begin ＝ begin - 2 Next iEnd Sub 2、编写程序，用牛顿切线法求方程f(x)＝ x+lnx-1.7＝0的近似实根r， 迭代初值自选，精确到0.0001。〔提示:计算公式为x＝x-f(x)/fˊ(x)〕 （10分） 请将你解答本题所写的源程序粘贴到下面 Private Sub Form＿Activate() Dim x0, x1, fx0, f1x0 x1 ＝ 1.5 Do x0 ＝ x1 f ＝ x0 + Log(x0) - 1.7 f1 ＝ 1 + 1 / x0 x1 ＝ x0 - f / f1 Loop Until Abs(x1 - x0) ＜＝ 0.0001 Print ″x＝″; x1 End Sub 强烈建议您使用IE 6.0以上，屏幕分辨率1024×768以上，真彩，小字体浏览