在考生目录下有一个工程文件 sjt5.vbp,其窗体上有一个文本框,名称为Text1;还有两个命令按钮,名称分别为C1、C2,标题分别为"计算"、"存盘",如图所示。并有一个函数过程isprime可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则返回True,否则返回False。
请编写适当的事件过程, 使得在运行时,单击"计算"按钮,则找出大于18000的第1个素数,并显示在 Text1中;单击"存盘"按钮,则把Text1中的计算结果存入考生文件夹下的out5.txt文件中。
注意:考生不得修改isprime函数过程和控件的属性,必须把计算结果通过"存盘"按钮存入out5.txt文件中,否则无成绩。各位大哥,大姐能帮个忙吗?小弟明天要考试了。没把握啊。谢谢各位大侠了!
请编写适当的事件过程, 使得在运行时,单击"计算"按钮,则找出大于18000的第1个素数,并显示在 Text1中;单击"存盘"按钮,则把Text1中的计算结果存入考生文件夹下的out5.txt文件中。
注意:考生不得修改isprime函数过程和控件的属性,必须把计算结果通过"存盘"按钮存入out5.txt文件中,否则无成绩。各位大哥,大姐能帮个忙吗?小弟明天要考试了。没把握啊。谢谢各位大侠了!
解决方案 »
- 把没收到贺卡的同学挖出来
- 求助:导出EXCEL时报错,找不到ISAM!
- 如何调用IE,然后打开一个网址?
- 为什么打印时少了一条记录?
- 程序中有一个最小化的窗体,双击它的标题栏,能使它回复到原先的WindowState,并且能自动记忆原先的状态是最大化还是Normal状态。我怎么
- VB中得到随机数的命令?
- **************很好拿的分,哪儿可以下载3d素材?大家进来帮我,我帮我女友。****************
- 请问怎样用ADO对象建立具有层次关系的记录集,就象用DataEnvironment给一个命令添加子命令并建立与父命令对象的关联那样
- 如何将MSChart1控件中显示的图表打印出来??
- langzhi:怎样取得和修改系统日期、时间?
- 如何读取文本框1的一行到多行数据?
- 有熟悉SSoledbGrid控件的朋友吗?
n = 18000
Do Until isprime(n)
n = n + 1
Loop
Text1.Text = n
End SubPrivate Sub C2_Click()
Open App.Path & "\out5.txt" For Output As #1
Write #1, n
Close #1
End Sub
Dim n As LongPrivate Sub C1_Click()
n = 18000
Do
n = n + 1
Loop Until isprime(n)
Text1.Text = n
End SubPrivate Sub C2_Click()
Open App.Path & "\out5.txt" For Output As #1
Write #1, n
Close #1
End Sub