一些vb问题,谁帮我解答正确,我送出全部积分和三十元人民币
我准备回答你这个问题,先占个位置,省的一会该不知道连接跑到哪里去了。等我一个题一个题的来回答。我的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 = sumend sub ________________________________________2、已知一个学生信息的文本文件为student.dat,学生信息包括:姓名(字符型)专业(字符型)年龄(整型)分数(整型)编写程序,查找姓名为“王军”的学生并输出其记录。(10分)请将你解答本题所写的源程序粘贴到下面 第二题:答:在窗体上放两个text分别为text1、text2、和一个按钮command1text2的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 #1end 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 nextend subprivate 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.启动运行,按f52.全编译执行,按组合键ctrl+f53.逐语句运行 按f84.逐过程运行 按组合键shift+f85.生成工程,可执行程序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()函数是:输出多少个空格。 20210311