将下面的程序填写完整，如要计算1+2+…+10，请完成下面的程序，其中，s是单精度类型的变量。Dim x as I

s=O

For X=1 to 10

s=【 】

下面的程序要计算1+2+…+10,请补充完整。其中s是单精度类型的变量。

Dim x as Integer, s as Single

s=0

For x=1 to 10

s=【 】

Next x

请帮忙给出正确答案和分析，谢谢！

注意：请勿改动main()主方法和其他已有的语句内容；仅在横线处填入适当的语句。

源程序文件代码清单如下：

public class DoWhileLoop

{

public static void main(______)

{

int n=10；

long result=1；

do

{

_____；

}

_____；

System.out.println("10的阶乘为："+result)；

}

}

注意：请勿改动main()主方法和其他已有的语句内容，仅在横线处填入适当的语句。

源程序文件代码清单如下：

public class DoWhileLoop

{

public static void main(________)

{

int n=10;

long result=1;

do

{

_______________

}

______________

System.out.println("10的阶乘为: "+result);

}

}

阅读以下说明和流程图，回答问题1～2，将解答填入对应的解答栏内。

[说明]

下面的流程图描述了计算自然数1到N(N≥1)之和的过程。

[流程图]

[问题1] 将流程图中的(1)～(3)处补充完整。

[问题2] 为使流程图能计算并输出1*3+2*4+…+N*(N+2)的值，A框内应填写(4)；为使流程图能计算并输出不大于N的全体奇数之和，B框内应填写(5)。

下面的程序是计算给定函数的值，自变量x，y的值用InputBox函数输入，函数如下：

f（x,y） =

程序不完整，请填空，将程序的补充完整。

Option Explicit

Dim x As Single

Dim y As Single

Dim z As Single

Private Sub Command1_Click（）

x=Val（InputBox（"x="） ）

y=Val（InputBox（"y="） ）

End Sub

Private Sub Command2_Click（）

If 【13】 Then

z=x ^ 2 + y ^ 2

ElseIf 【14】 Then

z=x ^ 2 - 2 * y ^ 2

【15】

z=y ^ 2 - 3 * x ^ 2

End If

Form1.Print "当x，y的值为："; x, y

Form1.Print "f（x,y） 的值为："; z

End Sub