问答题
去掉程序中的注释符“"”，把程序中的“?”改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。
在考生文件夹下有一个工程文件sj5.vbp，其窗体上有一个文本框，名称为Text1；有3个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“输入”、“计算显示”、“保存”，运行界面如下图所示。在给定程序中有一个函数过程isPrimeNum，其功能是判断参数是否为素数，如果是素数，则返回True，否则返回False。
请将程序中有问号的地方替换为相应的代码，使得在运行时，单击“输入”按钮，弹出输入对话框，单击“计算显示”按钮，则找出大于输入参数的最小素数，并显示在Text1中；单击“保存”按钮，则把Text1中的计算结果存入考生文件夹下的out5.txt文件中。
注意：考生不得修改isPrimeNum函数过程和控件的属性，必须把计算结果通过“保存”按钮存入out5.txt文件中，否则无成绩。
在考生文件夹下有一个工程文件sj5.vbp，其窗体上有一个文本框，名称为Text1；有3个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“输入”、“计算显示”、“保存”，运行界面如下图所示。在给定程序中有一个函数过程isPrimeNum，其功能是判断参数是否为素数，如果是素数，则返回True，否则返回False。
请将程序中有问号的地方替换为相应的代码，使得在运行时，单击“输入”按钮，弹出输入对话框，单击“计算显示”按钮，则找出大于输入参数的最小素数，并显示在Text1中；单击“保存”按钮，则把Text1中的计算结果存入考生文件夹下的out5.txt文件中。
注意：考生不得修改isPrimeNum函数过程和控件的属性，必须把计算结果通过“保存”按钮存入out5.txt文件中，否则无成绩。
【正确答案】
【答案解析】判断一个数是否为素数就是看该数是否除了1及其本身外别无其他约数(即从2到n-1之间没有可以将其整除的数)即可，从Function函数中可知，变量is Prime Num是用于保留判断数是否是素数的结果的，值为True表示是素数，值为False表示不是素数。文本框通过Text属性显示计算结果，其形式为：文本框名.Text=要显示的内容。将数据写入文件可用命令Write#语句或Print#语句，本程序中用的是前者，其形式为：Write#文件号,[输出列表]。
根据题意，将一个文本框控件和3个命令按钮添加到窗体中，文本框的名称为Text1，Text属性为空，命令按钮的名称分别为Command1、Command2和Command3，Caption属性分别为“输入”、“计算显示”和“保存”。双击Command1进入代码窗口，编写如下代码：
Dim a As Integer
Dim res As Integer
Private Sub Command1_Click()
a=Val( InputBox("输入参数:" )) "弹出输入对话框
End Sub
Private Sub Command2_Click()
While is Prime Num(a)=False "如果输入参数不是素数则继续循环
a=a+1
Wend
Text1. Text =a "将获得的素数在Text1中显示出来
End Sub
Function is Prime Num(num As Integer)As Boolean "判断输入是否为素数
is Prime Num=True
Dim i As Integer
For i=2 To num-1
If num Mod i=0 Then
is Prime Num=False
End If
Next i
End Function
Private Sub Command3_Click()
Open"out5.txt"For Output As#1
Write #1,a
Close#1
End Sub
单击
根据题意，将一个文本框控件和3个命令按钮添加到窗体中，文本框的名称为Text1，Text属性为空，命令按钮的名称分别为Command1、Command2和Command3，Caption属性分别为“输入”、“计算显示”和“保存”。双击Command1进入代码窗口，编写如下代码：
Dim a As Integer
Dim res As Integer
Private Sub Command1_Click()
a=Val( InputBox("输入参数:" )) "弹出输入对话框
End Sub
Private Sub Command2_Click()
While is Prime Num(a)=False "如果输入参数不是素数则继续循环
a=a+1
Wend
Text1. Text =a "将获得的素数在Text1中显示出来
End Sub
Function is Prime Num(num As Integer)As Boolean "判断输入是否为素数
is Prime Num=True
Dim i As Integer
For i=2 To num-1
If num Mod i=0 Then
is Prime Num=False
End If
Next i
End Function
Private Sub Command3_Click()
Open"out5.txt"For Output As#1
Write #1,a
Close#1
End Sub
单击