Vb编写程序题型及答案.doc

Vb编写程序题型一、基本操作题1、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“绿色”，标签上文字为“这里是一个标签”（5分）。(2)编写事件过程，运行程序后，单击命令按钮，窗体的背景色改为绿色（5分）。(3)编写事件过程，运行程序后，单击窗体，标签上显示“你单击了窗体”（5分）。答案：Private Sub Command1_Click() Form1.BackColor = vbGreenEnd SubPrivate Sub Form_Click() Label1.Caption = 你单击了窗体End Sub2、新建工程，在窗体上创建一个命令按钮Command1和一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“改变大小”，标签上文字为“改变颜色”（5分）。(2)编写事件过程，运行程序后，单击命令按钮，适当增加窗体的高度（5分）。(3)编写事件过程，运行程序后，单击标签，将窗体的背景色改为绿色（5分）。答案：Private Sub Command1_Click() Form1.Height = Form1.Height + 200End SubPrivate Sub Label1_Click() Form1.BackColor = vbGreenEnd Sub3、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求： (1)在属性窗口中设置两个命令按钮上的文字分别为“隐藏”和“显示”，标签上文字为“可以隐藏的控件”（5分）。 (2)编写事件过程，运行程序后，单击“隐藏”按钮，标签不可见，单击“显示”按钮，标签重新可见（5分）。 3)编写事件过程，运行程序后，单击窗体，窗体的标题栏上显示“隐藏/显示控件”（5分）。答案：Private Sub Command1_Click() Label1.Visible = FalseEnd SubPrivate Sub Command2_Click() Label1.Visible = TrueEnd SubPrivate Sub Form_Click() Form1.Caption = 隐藏/显示控件End Sub4、新建工程，在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton13。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求： (1)在属性窗口中设置命令按钮上的文字为“关闭”，标签上的文字为“字体颜色”，三个单选钮上的文字分别为“红”、“绿”、“蓝”（5分）。(2)编写事件过程，运行程序后，单击命令按钮可关闭窗体（5分）。(3)编写事件过程，运行程序后，分别单击三个单选钮，可改变标签文字为红色、绿色或蓝色（5分）答案：Private Sub Command1_Click() EndEnd SubPrivate Sub Option1_Click()Label1.ForeColor = vbRedEnd SubPrivate Sub Option2_Click()Label1.ForeColor = vbGreenEnd SubPrivate Sub Option3_Click()Label1.ForeColor = vbBlueEnd Sub 5、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“窗体标题”，标签上文字为“窗体颜色”（5分）。(2)编写事件过程，运行程序后，单击命令按钮，窗体的标题栏上显示“VisualBasic考试”（5分）。(3)编写事件过程，运行程序后，单击标签，窗体的背景色改为红色（5分）。答案：Private Sub Command1_Click() Form1.Caption = Visual Basic考试End SubPrivate Sub Label1_Click() Form1.BackColor = vbRedEnd Sub6、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置两个命令按钮上的文字分别为“改变颜色”和“改变大小”，标签上文字为“计算机等级考试”，标签可以自动调整大小以显示所有文字（5分）。(2)编写事件过程，运行程序后，单击“改变颜色”按钮，标签的背景色改为绿色（5分）。(3)编写事件过程，运行程序后，单击“改变大小”按钮，标签上的文字内容改为“大小已经改变”，文字大小改为30(磅)（5分）。答案：Private Sub Command1_Click() Label1.BackColor = vbGreenEnd SubPrivate Sub Command2_Click() Label1.Caption = 大小已经改变 Label1.FontSize = 30End Sub7、新建工程，在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton13。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“关闭”，标签上的文字为“请选择学历”，三个单选钮上的文字分别为“硕士”、“本科”、“大专”（5分）。(2)编写事件过程，运行程序后，单击命令按钮可关闭窗体（5分）。(3)编写事件过程，运行程序后，分别单击三个单选钮，标签上的文字相应改变为“硕士学历”、“本科学历”或“大专学历”（5分）。答案：Private Sub Command1_Click() EndEnd SubPrivate Sub Option1_Click() Label1.Caption = 硕士学历End SubPrivate Sub Option2_Click() Label1.Caption = 本科学历End SubPrivate Sub Option3_Click() Label1.Caption = 大专学历End Sub8、新建工程，在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton13。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“红色”，标签上的文字为“字体大小”，三个单选钮上的文字分别为“10”、“14”、“18”（5分）。(2)编写事件过程，运行程序后，单击命令按钮可将标签文字改变为红色（5分）。(3)编写事件过程，运行程序后，分别单击三个单选钮，可改变标签文字大小为10磅、14磅或18磅（5分）。答案：Private Sub Command1_Click() Label1.ForeColor = vbRedEnd SubPrivate Sub Option1_Click() Label1.FontSize = 10End SubPrivate Sub Option2_Click() Label1.FontSize = 14End SubPrivate Sub Option3_Click() Label1.FontSize = 18End Sub 9、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置两个命令按钮上的文字分别为“改变颜色”和“改变字体”，标签上文字为“计算机等级考试”，标签可以自动调整大小以显示所有文字（5分）。(2)编写事件过程，运行程序后，单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为红色（5分）。(3)编写事件过程，运行程序后，单击“改变字体”按钮，标签上的字体改为“黑体”（5分）。答案：Private Sub Command1_Click() Label1.ForeColor = vbRedLabel 1.Caption = 颜色已经改变 End SubPrivate Sub Command2_Click() Label1.FontName = 黑体End Sub10、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置两个命令按钮上的文字分别为“改变大小”和“改变字体”，标签上文字为“VisualBasic程序设计”，字体为宋体，标签可以自动调整大小以显示所有文字（5分）。(2)编写事件过程，运行程序后，单击“改变大小”按钮，标签上的文字大小改为28(磅)（5分）。(3)编写事件过程，运行程序后，单击“改变字体”按钮，标签上的文字字体改为黑体，文字内容改为“这是黑体”（5分）。答案：Private Sub Command1_Click() Label1.FontSize = 28End SubPrivate Sub Command2_Click() Label1.FontName = 黑体 Label1.Caption = 这是黑体End Sub或者(3)编写事件过程，运行程序后，单击“改变字体”按钮，标签上的文字字体改为楷体，文字内容改为“这是楷体”（5分）。（提示：楷体的字体名称为“楷体_GB2312”。）Private Sub Command2_Click() Label1.FontName = 楷体_GB2312 Label1.Caption = 这是楷体End Sub（提示：楷体的字体名称为“楷体_GB2312”。）11、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“显示”，将标签上的文字清除（5分）。(2)编写事件过程，运行程序后，单击“显示”按钮，标签上显示“你单击了显示按钮”（5分）。(3)编写事件过程，运行程序后，每次单击窗体，命令按钮均向左移动一个按钮位置（5分）。答案：Private Sub Command1_Click() Label1.Caption = 你单击了显示按钮End SubPrivate Sub Form_Click()Command1.Move Command1.Left - Command1.WidthEnd Sub或者(3)编写事件过程，运行程序后，每次单击窗体，命令按钮均向右移动一个按钮位置（5分）。Private Sub Form_Click()Command1.Move Command1.Left +Command1.WidthEnd Sub或者(3)编写事件过程，运行程序后，每次单击窗体，命令按钮均向上移动一个按钮位置（5分）。Private Sub Form_Click()Command1.Move Command1.Left，command1.top-command1.heightEnd Sub或者(3)编写事件过程，运行程序后，每次单击窗体，命令按钮均向下移动一个按钮位置（5分）。Private Sub Form_Click()Command1.Move Command1.Left，command1.top+command1.heightEnd Sub12、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“清除”，标签上文字为“这里是一个标签”（5分）。(2)编写事件过程，运行程序后，单击“清除”按钮，清除标签上的文字（5分）。(3)编写事件过程，运行程序后，每次单击标签，标签均向左移动200(Twip)（5分）答案：Private Sub Command1_Click() Label1.Caption = End SubPrivate Sub Label1_Click()Label1.Move Label1.Left - 200Label1.Left= Label1.Left-200End Sub 或者(3)编写事件过程，运行程序后，每次单击标签，标签均向右移动200(Twip) Private Sub Label1_Click()Label1.Move Label1.Left+ 200End Sub 或者(3)编写事件过程，运行程序后，每次单击标签，标签均向上移动200(Twip)Private Sub Label1_Click()Label1.Move Label1.Left，label1.top-200End Sub 或者(3)编写事件过程，运行程序后，每次单击标签，标签均向下移动200(Twip)Private Sub Label1_Click()Label1.Move Label1.Left，label1.top+200End Sub 二、操作编程题1、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7分）。编写事件过程并满足以下要求：(1)单击命令按钮1，产生100个300,3000之间的随机整数并显示在列表框1中（9分）。(2)单击命令按钮2，计算上述数据中能被13和15同时整除的数及其平均值，并分别用列表框2和一个标签显示结果。（9分）。（提示：使用数组存储数据）答案：Dim a(1 To 100) As IntegerPrivate Sub Command1_Click() Randomize timer List1.CleaFor i = 1 To 100 a(i) = Int(2701 * Rnd() + 300) List1.AddItem a(i) Next iEnd SubPrivate Sub Command2_Click() Sum& = 0: n% = 0List2.ClearLabel1.Caption = For i = 1 To 100If a(i) Mod 13 = 0 And a(i) Mod 15 = 0 Then n = n + 1 List2.AddItem a(i) Sum = Sum + a(i)End IfNext i If n 0 Then Label1.Caption = Str(Sum / n)End Sub2、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7分）。编写事件过程并满足以下要求：(1)运行时单击命令按钮1，产生100个100,200之间的随机整数并显示在列表框中（9分）。(2)然后单击命令按钮2，在两个文本框中分别显示上述数据中第10-19个和第50-59个数据的平均值（9分）。（提示：使用数组存储数据）答案：Dim a(1 To 100) As IntegerPrivate Sub Command1_Click() RandomizeFor i = 1 To 100 a(i) = Int(101 * Rnd() + 100) List1.AddItem a(i)List1.AddItem Str(a(i) Next iEnd SubPrivate Sub Command2_Click()sum1& = 0: sum2& = 0For i = 10 To 19 sum1 = sum1 + a(i)Next iFor i = 50 To 59 sum2 = sum2 + a(i)Next iText1.Text = Str(sum1 / 10)Text2.Text = Str(sum2 / 10) End Sub3、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7分）。编写事件过程并满足以下要求：(1)运行时单击命令按钮1，产生100个100,200之间的随机整数并显示在列表框中（9分）。(2)然后单击命令按钮2，在两个文本框中分别显示上述数据中前10个和后10个数据的平均值（9分）。（提示：使用数组存储数据）答案：Dim a(1 To 100) As IntegerPrivate Sub Command1_Click() Randomize For i = 1 To 100 a(i) = Int(101 * Rnd() + 100) List1.AddItem a(i) Next iEnd SubPrivate Sub Command2_Click()sum1& = 0: sum2& = 0For i = 1 To 10 sum1 = sum1 + a(i)Next iFor i = 91 To 100 sum2 = sum2 + a(i)Next iText1.Text = Str(sum1 / 10)Text2.Text = Str(sum2 / 10) End Sub4、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7分）。编写事件过程并满足以下要求：(1)单击命令按钮1，产生100个不大于300的随机整数并显示在列表框1中（9分）。(2)单击命令按钮2，在列表框2中显示上述随机整数中前20个偶数（9分）。（提示：使用数组存储数据） 答案：Dim a(1 To 100) As IntegerPrivate Sub Command1_Click() Randomize For i = 1 To 100 a(i) = Int(301 * Rnd() List1.AddItem a(i) Next iEnd SubPrivate Sub Command2_Click() Sum& = 0: n = 0 For i = 1 To 100 If a(i) Mod 2 = 0 Then List2.AddItem a(i) n = n + 1If n=20 Then Exit For End If Next iEnd Sub 或者(2)单击命令按钮2，在列表框2中显示上述随机整数中前20个奇数（9分）Private Sub Command2_Click() Sum& = 0: n = 1 For i = 1 To 100 If a(i) Mod 2 0 And n =”A” and mid(text1.text,i,1)=”a” and mid(text1.text,i,1)=”0” and mid(text1.text,i,1)=”9” then n=n+1 end if next i text2.text=str(n)End Sub8、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7分）。编写事件过程并满足以下要求：(1)在文本框1中输入若干字符，此时应在标签中同步显示输入的内容（9分）。(2)输入完成后，单击命令按钮，在文本框2和文本框3中分别显示输入字符中所含大写字母A和小写字母a的个数（9分）。答案：Private Sub Text1_Change() Label1.Caption = Text1.TextEnd Sub Private Sub Command1_Click() Num1% = 0: num2% = 0 For i = 1 To Len(Text1.Text) If Mid(Text1.Text, i, 1) = A Then num1 = num1 + 1 If Mid(Text1.Text, i, 1) = a Then num2 = num2 + 1 Next i Text2.Text = Str(num3) Text3.Text = Str(num7)End Sub9、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7分）。编写事件过程并满足以下要求：(1)运行时单击窗体，利用InputBox函数输入三个数据，并将其分别显示在三个标签上。（9分）。(2)输入完成后，单击命令按钮，将这些数据按从大到小的顺序排列并显示在列表框中（9分）。答案：Dim x1 As Double, x2 As Double, x3 As DoublePrivate Sub Form_Click() x1 = InputBox(请输入第一个数：) x2 = InputBox(请输入第二个数：) x3 = InputBox(请输入第三个数：)lablel1.caption=x1label2.caption=x2label3.caption=x3End SubPrivate Sub Command1_Click()If x1 x2 Then t = x1: x1 = x2: x2 = tIf x1 x3 Then t = x1: x1 = x3: x3 = tIf x2 x3 Then t = x2: x2 = x3: x3 = tList1.AddItem x1List1.AddItem x2List1.AddItem x3End Sub 或者(2)输入完成后，单击命令按钮，将这些数据按从小到大的顺序排列并显示在列表框中（9分）。Private Sub Command1_Click()If x1 x2 Then t = x1: x1 = x2: x2 = tIf x1 x3 Then t = x1: x1 = x3: x3 = tIf x2 x3 Then t = x2: x2 = x3: x3 = tList1.AddItem x1List1.AddItem x2List1.AddItem x3End Sub 10、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7分）。编写事件过程并满足以下要求：(1)单击命令按钮1，产生100个10，99之间的随机整数并显示在列表框1中（9分）。(2)单击命令按钮2，在列表框2中显示上述随机整数中小于60的所有数据（9分）。（提示：使用数组存储数据）答案：Dim a(1 To 100) As IntegerPrivate Sub Command1_Click() Randomize For i = 1 To 100 a(i) = Int(90 * Rnd() + 10) List1.AddItem a(i) Next iEnd SubPrivate Sub Command2_Click() For i = 1 To 100 If a(i) mo then mo=a(i)if a(i) mod 20 and a(i)mq then mq=a(i)next i text1.text=motext2.text=mqEnd Sub 或者(2)单击命令按钮2，在两个文本框中分别显示上述数据中的最小偶数和最小奇数（9分）。Private Sub Command2_Click() mo%=200 存放最小偶数mq%=199 存放最小奇数for i=1 to 100if a(i) mod 2=0 and a(i)mo then mo=a(i)if a(i) mod 20 and a(i)mq then mq=a(i)next i text1.text=motext2.text=mqEnd Sub 12、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7分）。编写事件过程并满足以下要求：(1)声明一个含10个元素的一维数组，运行时单击命令按钮1，利用InputBox函数以循环方式给数组赋值。（9分）。(2)输入完成后，单击命令按钮2，以适当方式显示数组中的元素，并将数组中后5个数的平均值显示在一个文本框中（9分）。答案：Dim a(1 To 10) As IntegerPrivate Sub Command1_Click() For i = 1 To 10 a(i) = InputBox(请输入数据：) Next iEnd SubPrivate Sub Command2_Click()Sum& = 0For i = 1 To 10 Print a(i);Next iFor i = 6 To 10 Sum = Sum + a(i)Next iText1.Text = Str(Sum / 5)End Sub 或者(2)输入完成后，单击命令按钮2，以适当方式显示数组中的元素，并将数组中前5个数的平均值显示在一个文本框中（9分）。答案：Private Sub Command2_Click()Sum& = 0For i = 1 To 10 Print a(i);Next iFor i = 1 To 5 Sum = Sum + a(i)Next iText1.Text = Str(Sum / 5)End Sub 或者(2)输入完成后，单击命令按钮，显示（方式不限）数组中的元素，并将数组中前4个元素的平均值输出到一个文本框中（9分）。答案：Private Sub Command2_Click()Sum& = 0For i = 1 To 10 Print a(i);Next iFor i = 1 To 4 Sum = Sum + a(i)Next iText1.Text = Str(Sum / 4)End Sub 补充的题型：（程序均在窗体的click事件中编写）13、求100-300之间的所有素数，且把它们添加到列表框中显示出来.答案：For num=100 to 300 flag = True 先假定num是素数 For i% = 2 To Int(Sqr(num) int(num/2) If num Mod i = 0 Then flag = False: Exit For Next i If flag = True Then list1.additem numNext 14、找出100-999之间的所有“水仙花数”,且把它们添加到列表框中显示出来。水仙花数”是指一个三位数，其各位数字的立方和等于该数本身。For i% = 100 To 999 a% = Int(i / 100) b% = Int(i - a * 100) / 10) c% = i Mod 10 If i = a 3 + b 3 + c 3 Then List1.AddItem i Next i15、有一个数列，前两个数是1，1，第三个数是前两个数的和，以后的每个数都是其前两个数的和。要求出此数列的前30个数，且把它们显示在列表框中。X1& = 1 X2& = 1 List1.AddItem X1 List1.AddItem X2For i% = 3 To 30 x3& = X1 + X2 List1.AddItem x3 X1 = X2 X2 = x3 Next i16、找出1-100之间的全部同构数，且把它们显示在列表框中。所谓同构数是指这样一个数，它出现在它的平方数的右端。例如5的平方为25，5就是同构数。25也是一个同构数。答案：For num=1 to 100 num2=num2 n=len(num) Len(Trim(Str(num) if num=val(right(str(num2),n) then list1.additem numNext num17、找出1-100之间的所有“完全数”, 且把它们显示在列表框中。如果一个数的因子之和等于这个数本身，则称这样的数为“完全数”。如整数28的因子为1，2、4、7、14，其和为1+2+4+7+14=28，因此28为“完全数”。答案：For num=1 to 100 sum=0 这个语句千万不能漏 For i=1 to num-1 If num mod i=0 then sum=sum+i Next iif num=sum then list1.additem numNext num 三、求累加和编成题第一部分：求整数区间范围内满足条件的整数的和1、编写程序，计算出3000到7000之间能被7整除但不能被17整除的所有整数的平方根的和。要求：运行程序，将结果四舍五入保留4位小数，并采用适当的方式输出。答案：Private Sub Form_Click()Sum# = 0For i% = 3000 To 7000 If I Mod 7 = 0 And I Mod 17 0 Then Sum = Sum + Sqr(i)Next iSum = Round(Sum, 4)Print sumEnd sub2、编写程序，计算出3000到9990之间所有能同时被11和17整除的整数的平方根的和。要求：运行程序，将结果四舍五入保留4位小数，并采用适当的方式输出。答案：Private Sub Form_Click()Sum# = 0For i% = 3000 To 9990 If i Mod 11 = 0 And i Mod 17 =0 Then Sum = Sum + Sqr(i)Next iSum = Round(Sum, 4)Print sumEnd sub3、编写程序，计算出100到500之间所有满足下列条件的整数和：整数能被其每位数字的和整除。要求：在运行程序时，采用适当的方式输出计算结果。答案：Private Sub Form_Click()Sum&=0For i% = 100 To 500 a%=i100b%=(i-a*100)10c%=(i-a*100) mod 10If i mod (a+b+c) =0 then sum=i+sumNext iPrint sumEnd sub4、编写程序，计算出2000到9990之间所有能同时被11和17整除的整数之和。要求：在运行程序时，采用适当的方式输出计算结果。答案：Private Sub Form_Click()Sum& = 0For i% = 2000 To 9990 If i Mod 11 = 0 And i Mod 17 = 0 Then Sum = Sum + iNext iPrint SumEnd Sub第二部分：求指定项数的数列的和1、编写程序，计算并输出下面数列前n项(设n=50)的和。 12,-23,34,-45,(-1)(n-1)n(n+1), （其中， 表示幂运算）要求：在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。Private Sub Form_Click()n% = InputBox(请输入求和的数列的项数：)Sum&= 0P& = 0For i% = 1 To n p = (-1) (i - 1) * i * (i + 1) Sum = Sum + pNext i Print sumEnd Sub2、编写程序，计算并输出下面数列前n（设n=75）项中所有偶数项的和。123,345,567,(2n-1)2n(2n+1),要求：在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果答案：Private Sub Form_Click()n% = InputBox(请输入求和的数列的项数：)Sum& = 0P& = 0For i& = 2 To n step 2 p = （2*i-1）*(2*i)*(2*i+1) Sum = Sum + pNext i Print sumEnd Sub3、编写程序,计算并输出下面数列前65项的和。-123,234,-345,(-1)n(n(n+1)(n+2),（其中，(-1)n表示-1的n次方）要求：在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。答案：Private Sub Form_Click()n% = InputBox(请输入求和的数列的项数：)Sum& = 0P& = 0For i& = 1 To n p =(-1)i*(i*(i+1)*(i+2) Sum = Sum + pNext i Print sumEnd Sub4、编写程序，计算并输出下面数列前n（设n=69）项中所有奇数项的和。123,234,345,n(n+1)(n+2),要求：在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果.答案: Private Sub Form_Click()n% = InputBox(请输入求和的数列的项数：)Sum& = 0P& = 0For i& = 1 To n step 2 p =i*(i+1)*(i+2) Sum = Sum + pNext i Print sumEnd Sub5、编写程序，计算并输出下面数列前35项的和。1,23,33,43,n3,（其中，表示幂运算）要求：在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。Private Sub Form_Click()n% = InputBox(请输入求和的数列的项数：)Sum& = 0P& = 0For i& = 1 To n p =i3 Sum = Sum + pNext i Print sumEnd Sub6、编写程序，计算并输出下列数列前35项的和， (1-2-3),(4-5-6),(7-8-9),(3n+1)-(3