Question

一些VB问题,谁帮我解答正确,我送出全部积分和三十元人民币

二、简答题（11道小题，共30分）
1、编写程序，计算并输出下面级数前n项(n＝50)的部分和。
1*2+2*3+3*4+4*5+……+n*(n+1)+…

（10分）
请将你解答本题所写的源程序粘贴到下面

________________________________________
2、已知一个学生信息的文本文件为student.dat，学生信息包括：
姓名（字符型）
专业（字符型）
年龄（整型）
分数（整型）
编写程序，查找姓名为“王军”的学生并输出其记录。

（10分）
请将你解答本题所写的源程序粘贴到下面

________________________________________
3、将矩阵m(n,n)对角线上的元素置为1，其余元素置为0。

（10分）
请将你解答本题所写的源程序粘贴到下面

________________________________________
4、编写程序，用牛顿切线法求方程f(x)＝ x+lnx-2.0＝0的近似实根r，
迭代初值自选，精确到0.0001。〔提示:计算公式为x＝x-f(x)/fˊ(x)〕

（10分）
请将你解答本题所写的源程序粘贴到下面

________________________________________
5、已知在正文文件t1.dat中，每个记录只有一个实数，其格式为：x.xxxxx，试把该
文件的前81个数依序按行读入到一个9*9的二维数组中，计算并向文件t2.dat输出
反对角线(一、三象限方向)元素值之积M。(M的值应填入答题卡)

（10分）
请将你解答本题所写的源程序粘贴到下面

________________________________________
6、运行程序有几种方法？各是什么？
（5分）

________________________________________
7、使用VB建立一个应用软件的全过程有哪些步骤？。
（5分）

________________________________________
8、在循环中，设变量Fac用于存放10! 的结果， 那么Fac的初值能为0吗？
（5分）

________________________________________
9、If…then…elseif 分支语句和 select Case分支语句有什么区别？
（5分）

________________________________________
10、在输入代码时，如何从属性列表和方法列表中快速输入属性及方法？
（5分）

________________________________________
11、试述Tab()和Space()两个函数的区别？
（5分）

Answer 1

我准备回答你这个问题，先占个位置，省的一会该不知道连接跑到哪里去了。
等我一个题一个题的来回答。
我的QQ：260210087
加我注明百度VB三十元。
我就冲三十元来的。
1、编写程序，计算并输出下面级数前n项(n＝50)的部分和。
1*2+2*3+3*4+4*5+……+n*(n+1)+…

（10分）
请将你解答本题所写的源程序粘贴到下面

第一题：
答：窗体上有TEXT1和TEXT2。还有Command1,
编写如下代码
Private Sub Command1_Click()
Dim n, sum As Integer
n = Text1.Text
sum = 0
For i = 1 To n
sum = sum + i * (i + 1)
Next i
Text2.Text = sum
End Sub

________________________________________
2、已知一个学生信息的文本文件为student.dat，学生信息包括：
姓名（字符型）
专业（字符型）
年龄（整型）
分数（整型）
编写程序，查找姓名为“王军”的学生并输出其记录。

（10分）
请将你解答本题所写的源程序粘贴到下面

第二题：
答：在窗体上放两个text分别为TEXT1、TEXT2、和一个按钮Command1
Text2的MultiLine属性要设置成True，ScrollBars属性赋值为3，
运行之后在text1里面输入王军；单击Command1运行，TEXT2里面显示结果。
把student.dat文本文件放在"c:\student.dat"
编写如下代码：

Private Sub Command1_Click()
Dim s As String, txtLine As String
s = Text1.Text
Text2.Text = ""
Open "c:\student.dat" For Input As #1 '文件路径可以自己设置，如果和VB程序同目录，可以使用App.Path & "student.dat"
Do While Not EOF(1)
Line Input #1, txtLine
If InStr(txtLine, s) <> 0 Then Text2.Text = Text2.Text & txtLine & Chr(13) & Chr(10)
Loop
Close #1
End Sub

________________________________________
3、将矩阵m(n,n)对角线上的元素置为1，其余元素置为0。

（10分）
请将你解答本题所写的源程序粘贴到下面

第三题：
答：在窗体上放一个text1、放一个Command1。运行之后在text1里面输入N的值，点击Command1显示运行结果。
在代码窗里编写如下代码。

Private Sub output(n As Integer)
Dim i As Integer, j As Integer
For i = 0 To n - 1
For j = 0 To n - 1
If i = j Or i + j = n - 1 Then
Print "1 ";
Else
Print "0 ";
End If
Next
Print
Next
End Sub

Private Sub Command1_Click()
Me.Cls
Call output(Text1.Text)
End Sub

今天先回答这么多，如果您有诚意，能付款的话，下面的题我会继续帮您思考的。

________________________________________
4、编写程序，用牛顿切线法求方程f(x)＝ x+lnx-2.0＝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) - 2.0
f1 = 1 + 1 / x0
x1 = x0 - f / f1
Loop Until Abs(x1 - x0) <= 0.0001
Print "x="; x1
End Sub

________________________________________
5、已知在正文文件t1.dat中，每个记录只有一个实数，其格式为：x.xxxxx，试把该
文件的前81个数依序按行读入到一个9*9的二维数组中，计算并向文件t2.dat输出
反对角线(一、三象限方向)元素值之积M。(M的值应填入答题卡)

（10分）
请将你解答本题所写的源程序粘贴到下面

________________________________________
6、运行程序有几种方法？各是什么？
（5分）

答：
1.启动运行，按F5
2.全编译执行，按组合键CTRL+F5
3.逐语句运行 按F8
4.逐过程运行 按组合键SHIFT+F8
5.生成工程，可执行程序EXE之后再运行。
6.在代码窗左边添加“断点”之后运行。“断点”是鼠标单击左边空白处产生的红点。

________________________________________
7、使用VB建立一个应用软件的全过程有哪些步骤？。
（5分）

答：
设计整体思路→创建窗体、对象并调整属性→为每个对象设置对应的代码→调试、修正→发布

________________________________________
8、在循环中，设变量Fac用于存放10! 的结果， 那么Fac的初值能为0吗？
（5分）

答：Fac的初始值可以为零。

________________________________________
9、If…then…elseif 分支语句和 select Case分支语句有什么区别？
（5分）

答：If－Else语句除了可以用来判断相等不相等的关系，还可以用来判断大于或小于的关系，这点Select Case语句是无法做到的。Select Case语句可以改装成If-Else语句，但If-Else语句有时很难甚至无法或者需要通过其它方法来改装成Select Case语句。

________________________________________
10、在输入代码时，如何从属性列表和方法列表中快速输入属性及方法？
（5分）

答：使用方向键上和下调整光标，把光标调整到所需要的属性或方法上，按空格键。

________________________________________
11、试述Tab()和Space()两个函数的区别？
（5分）

答：
Tab()函数是：在显示或打印列表中的下一个表达式之前移动多少列。
Space()函数是:输出多少个空格。