请设计这样一个程序，当在文本框输入正整数N，单击“计算”命令按钮，进行计算。若N是奇数，计算1!＋3!＋5!＋......＋N!，若是偶数，计算1!＋3!＋5!＋......（N＋1)!

在窗体上绘制两个标签，名称分别为Lab1和Lab2，标题分别为“请输入一个正整数 N”和“1+2+3+…+N=”；绘制两个文本框，名称分别为Text1和Text2，内容都设为空白；绘制一个命令按钮，名为Cmd1，标题为“计算”。编写适当的程序，使程序运行时，在Text1中输入一个正整数N，单击“计算”按钮，计算出1+2+3+…+1N的和显示在Text2中。

程序运行结果如下图所示。

注意：

程序中不得使用任何变量：文件必须存放在考生文件夹中，窗体文件名为 execise120.frm，工程文件名为execise120.vbp。

注意：下面出现的“考生文件夹”均为c:\wexam\25160001。

(1)在名称为Form1的窗体上建立两个主菜单，其标题分别为“文件”和“帮助”，名称分别为vbFile和vbHelp，在“文件”菜单下有3个子菜单项，标题分别为“新建”、“打开”和“存盘”，名称分别为 vbNew、vbOpen和vbSave。要求程序运行后，如果选中“文件”下的某个菜单项，则通过MsgBox对话框显示该菜单项的标题，如图3-3所示。

注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sjt3.vbp。

(2)在窗体上建立一个名称为Text1的文本框，再建立一个名称为Cmd1，标题为“计算”的命令按钮，如图3-4所示。要求程序运行后，单击命令按钮，将计算100-200之间所有素数之和，在文本框中显示结果，同时把结果存入文件out.txt中。 (在考生文件夹中有标准模块mode.bas,其中的putdata过程可以把结果存入文件，而isprime函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回 False，考生可以把该模块文件添加到自己的工程中。)

注意：保存时必须存放在考生文件夹下，窗体文件名为sjt4.frm，工程文件名为sjt4.vbp，结果存入out.txt文件。

请完成下列Java程序：输入2个整数，求最大公约数。要求有2个单行文本区作为输入，2个按钮，一个单击完成计算，一个单击退出程序。

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

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

import java.awt.*；

import java.awt.event.*；

public class ex7_2 extends Frame. implements ActionListener

{

private Label 1；

private TextField tf，tf2；

public static void main(String args[])

{

ex7_2 obj7_2=new ex7_2()；

}

public ex7_2()

{

setTitle("ex7_2")；

Panel p1；

Button b=new Button("OK")；

p1=new Panel()；

tf=new TextField(8)；

p1.add(tf)；

tf2=new TextField(8)；

p1.add(tf2)；

b.addActionListener(this)；

p1.add(b)；

b=new Button("Exit")；

b.addActionListener(this)；

p1.add(b)；

add("North"，p1)；

Panel p2=new Panel()；

l=new Label("最大公因数：")；

p2.add(l)；

add("Center"，p2)；

setsize(500，300)；

show()；

}

public void actionPerformed(ActionEvent ae)

{

if(ae.getActionCommand().equals("Exit"))

//比较ae对象的标识名，是否为Exit

System.exit(0)；

else if(ae.getActlonCommand().equals("OK"))

{

try

{

int a=Integer.parseInt(tf.getText())；

int b=Integer.parseInt(tf2.getText())；

int r，i；

while(b＞0){

______；

______；

b=r；

}

l.setText("最大公约数: "+Integer.toString(a))；

}catch{NumberFormatException nfe)

{

l.setText("请正确输入!")；

}

}

}

}

（1）在考生文件夹下有一个工程文件sj3.vbp，相应的窗体文件为sj3.frm。其功能是在Text1文本框中输入一个数N，单击命令按钮计算从0到N的所有素数的和，并在Text2中显示出来。运行程序如图1-3所示。

图1-3

要求：去掉程序中的注释符"‘"，把程序中的"?"改为正确的内容， 使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

（2）在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm，该程序是不完整的，请在有"?"号的地方填入正确内容，然后删除"?"及代码前的所有注释符（即‘号），但不能修改其他部分。存盘时不得改变文件名和文件夹。

本题描述如下：

本程序的功能为当用户单击窗体上的命令按钮"输入"时，可以输入6个数值，随后程序对这6个数值进行升序排序，单击按钮"输出"则把大于平均值的数显示出来，程序运行时的窗体如图1-4所示。

图1-4

编写程序，输入一个正整数n,求。要求定义和调用函数fact(n)计算n!，函数类型是double。

在考生文件夹下有一个工程文件sj3．vbp，相应的窗体文件为sj3．{rm。其功能是在Text文本框中输入一个数N，单击命令按钮计算从0到N的所有素数的和，并在Text2中显示出来。运行程序如图7-3所示。

注意：去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。

Private Sub Command1_Click()

Dim x As Integer

x=Val(InputBox(“输入数据”))

Text1=Str(fun(x)+fun(x)+fun(x))

End Sub

Private Function fun(ByRef n As Integer)

Ifn Mod 3=0 Then

n=n+n

Else

n=n*n

End If

________=n

End Function

当单击命令按钮，在输入对话框中输入2时，文本框中显示的是_______。

请完成下列Java程序：输入2个整数，求最大公约数。要求有2个单行文本区作为输入，2个按钮，一个点击完成计算，一个点击退出程序。

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

import java.awt.*；

import java.awt.event.*；

public class ex14_2 extends Frame. implements ActionListener{

private Label l；

private TextField tf，tf2；

public static void main(String[]arg){

exl4_2 obj14_2=new ex14_2()；

}

public ex14_2(){

setTitle("ex14_2")；

Panel p1；

Button b=new Button("OK")；

p1=new Panel()；

tf=new TextField(8)；

p1.add(tf)；

d2=new TextField(8)；

p1.add(tf2)；

b.addActionListener(this)；

p1.add(b)；

b=new Button("Exit")；

b.addActionListener(this)；

p1.add(b)；

add("North"，p1)；

Panel p2=new Panel()；

1=new Label("最大公约数：")；

p2.add(1)；

add("Center"，P2)；

setSize(500，300)；

show()；

}

public void actionPerformed(ActionEvent ae){

if(ae.getActionCommand().equals("Exit"))//比较ae对象的标识名，是否为Exit。

System.exit(0)；

else if(ae.getActionCommand().equals("OK")){

try{

int a=Integer.parseInt(tf.getText())；

int b=Integer.parseInt(tf2.getText())；

int r,i；

while(b>0){

__________；

__________；

b=r；

}

1．setText("最大公约数："+Integer.toString(a))；

}catch(NumberFormatException nfe){

1．setText("请正确输入!")；

}

}

}

}