问答题
在名为Form1的窗体上建立一个文本框，名为Text1；再建立一个命令按钮，名为cmd1，标题为“计算”，如下图所示。
要求程序运行后，单击命令按钮，则计算出100～200之间所有素数之和，并在文本框中显示结果，同时把结果存人文件out418.txt中(在考生文件夹中有标准模块mode.bas，其中的putdata过程可以把结果存入文件；而isprime函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False。考生可以把该模块文件添加到自己的工程中)。
注意：文件必须存放在考生文件夹中，窗体文件名为sj4.frm，工程文件名为sj4.vbp。
要求程序运行后，单击命令按钮，则计算出100～200之间所有素数之和，并在文本框中显示结果，同时把结果存人文件out418.txt中(在考生文件夹中有标准模块mode.bas，其中的putdata过程可以把结果存入文件；而isprime函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False。考生可以把该模块文件添加到自己的工程中)。
注意：文件必须存放在考生文件夹中，窗体文件名为sj4.frm，工程文件名为sj4.vbp。
【正确答案】①新建一个名为Form1的窗体；
②单击工具箱中的TextBox控件图标，在窗体上拖拉出一个文本框，在属性窗口设置该文本框名称为Text1；
③单击工具箱中的Command Button控件图标，在窗体上拖拉出一个命令按钮，在属性窗口设置该命令按钮名称为Cmd1，Caption属性为“计算”；
④打开代码窗口输入如下代码：
Private Sub Cmd1_Click()
Dim temp As Long
temp=0
For i=100 To 200
If is prime(i)
Then temp=temp+i
End If
Next
Text1.Text=temp
put data"out48.txt"
temp
End Sub
⑤按要求保存文件即完成本题。
②单击工具箱中的TextBox控件图标，在窗体上拖拉出一个文本框，在属性窗口设置该文本框名称为Text1；
③单击工具箱中的Command Button控件图标，在窗体上拖拉出一个命令按钮，在属性窗口设置该命令按钮名称为Cmd1，Caption属性为“计算”；
④打开代码窗口输入如下代码：
Private Sub Cmd1_Click()
Dim temp As Long
temp=0
For i=100 To 200
If is prime(i)
Then temp=temp+i
End If
Next
Text1.Text=temp
put data"out48.txt"
temp
End Sub
⑤按要求保存文件即完成本题。
【答案解析】