【正确答案】正确答案： 素数的判断准则就是看该数是否除了1及其本身外无其他约数(即从2到n-1之间没有可以将其整除的数)即可。文本框用Text属性来显示计算结果，其形式为：文本框名．Text=显示内容。将数据写入文件可用命令Write#或Print#，本程序中用的是后者，其形式为：Print#文件号，[输出列表]。 根据题意，将一个文本框控件和3个命令按钮添加到窗体中，文本框的名称为Textl，Text属性为空，命令按钮的名称分别为Commandl、Command2和Command3，Caption属性分别为“输入”、“计算显示”和“保存”。双击Commandl进入代码窗口，编写如下代码： Dim a As Integer Dim res As Integer Private Sub Commandl_Click() a=Val( InputBox ("输入参数：")) '弹出输入对话框 End Sub Private Sub Command2_Click() While isPrimeNum(a)= False '如果输入参数不是素数则继续循环 a=a-1 Wend Textl． Text =a'将获得的素数在Text1中显示出来 End Sub Function isPrimeNum(num As Integer)As Boolean'判断输入是否为素数 isPrimeNum=True Dim i As Integer For i=2 To num-1 If num Mod i=0 Then isPrimeNum=False End If Next i End Function Private Sub Command3 Click() Open App．Path~”＼out5．txt”For Output As #1 Write #1，a Close#1 End Sub 单击