原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
上机模拟试题十一
在考生文件夹内(C:\ylc)有一个工程文件ylc.vbp。在窗体上有一个文本框，名字为Text1，以及两个命令按钮，名字分别为Command1和Command2，标题分别为Search和Save。还有一个函数过程Search(a)，在程序中可以直接调用该函数，其功能为判断整型参数number是否为质数。如果是则返回True，否则返回False。编写一个事件过程，实现以下功能：运行时，在文本框内输入一个正整数。单击Search按钮后，找到小于该正整数的第一个素数，显示在 Text1中；单击“Save”，则把Text1中的计算结果存入考生文件夹下的out.txt文件中。程序运行后如图27所示。要求实现题目给出的功能，并将文件保存在考生文件夹下，工程文件名为 ylc.vbp。
上机模拟试题十一参考答案
答案：
(1)在工具箱中选择命令按钮控件，在窗体上创建两个命令按钮，名称分别为Command1和Command2，标题分别为Search和Save。
(2)双击Search按钮弹出代码窗口，在其中添加如下代码：
Private Sub Command1_Click()
Dim a As Integer
number=Val(Text1. Text)
Do While (Search(number)=False)
number=number-1
Loop
Text1.Text=number
End Sub
(3)双击“Save”按钮弹出代码窗口，在其中添加如下代码：
Private Sub Command2_Click()
Call savedata(out.txt, CInt(Text1.Text))
End Sub
Sub savedata(filename As String, number As Integer)
Open App. Path \ filename For Output As #1
Print #1, number
Close #1
End Sub
(4)按F5键运行程序。如图27所示。
(5)执行“文件”→“保存工程”命令，将工程文件命名为ylc.vbp，窗体文件命名为 ylc.frm。
[解析]
(1)该题答案第4部分中的代码调用了原始文件中的Search函数过程。当函数判断得到第一个质数时就会跳出Do循环体，并将该质数值赋给文本框的Text属性，显示在文本框中。
(2)第5部分中编写了一个用于向文件out.txt写入数据的过程，并在Save按钮的单击事件中调用了这个过程。
文档评论（0）