首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有2个标题分别是“读数据”和“查找质数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图3-36所示。 程序功能: (1)考生文件夹
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有2个标题分别是“读数据”和“查找质数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图3-36所示。 程序功能: (1)考生文件夹
admin
2020-02-27
43
问题
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有2个标题分别是“读数据”和“查找质数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图3-36所示。
程序功能:
(1)考生文件夹下in5.dat文件中存放着100个大于10的正整数。单击“读数据”按钮,则将in5.dat文件中的数据读入数组a中。
(2)单击“查找质数”按钮,则查找in5.dat文件中的所有质数,并将这些质数顺次显示在Text1文本框内。
“读数据”按钮的Click事件过程已给出,请编写函数prime,实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须使用“查找质数”按钮完成查找质数的过程,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
步骤1:打开考生文件夹中的工程文件sjt5.vbp,在窗体上添加以一个文本框,并按照表4-24设置相关属性。 [*] 步骤2:在代码编辑窗口中,补充prime函数。参考代码: Function prime(p As Integer) As Boolean ’考生编写 Dim flag As Boolean flag=True For m=2 To p/2 If p Mod m=0 Then flag=False Exit For End If Next m prime=flag End Function 步骤3:按
运行程序,单击各按钮测试验证。 步骤4:按要求将文件保存至考生文件夹中。
解析
题目要求设计判断某个数n是否素数的函数prime,方法是:看在2~n/2范围内能否找到一个整数m将n整除,若m存在,则n不是素数;若找不到m,则n为素数。
转载请注明原文地址:https://kaotiyun.com/show/wHTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名为Command1的命令按钮,然后编写如下代码:OptionBase1PrivateSubCommand1_Click() Dima a=Array(1,2,3,4) j=1 Fori=4T
用LineInput语句从顺序文件读出数据时,每次读出一行数据。所谓一行是指遇到()分隔符,即认为一行的结束。
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()c=1234c1=Trim(Str(c))Fori=1To4 Print NextEndSub程序
设有如下函数:FunctionDelSpace(chAsString)AsIntegerDimfl%,st$,C$st=“”n=0Fork=
VB中有3个键盘事件:KeyVress、KeyDown、KeyUP,若光标在Text1文本框中,则每输入一个字母()。
以下数组定义语句中,错误的是( )。
窗体上有名称为Command1的命令按钮,其事件过程如下:OptionBase1PrivateSubCommand1_Click()DimaDimb(10)AsIntegera=Array(2,4,
以下数组定义语句中,错误的是( )。
已知二叉树后序遍历序列是CDABE,中序遍历序列是CADEB,它的前序遍历序列是()。
随机试题
婚姻关系存续期间,在下列哪一情况下,夫妻一方不能向人民法院请求分割共同财产?()
按照安装方式,可将Modem分为____________。
下述有关前庭器官毛细胞功能特征的描述,恰当的是
甲乙所订合同属何性质的合同?()。若在合同履行期间,山洪暴发,10吨毛糖油全被洪水冲走。对此项损失,应由谁负担?()。
银行理财业务人员在与客户签订理财规划服务合同时应注意()。
信用社与客户业务往来应遵循的原则是______、______、______和______。
提供showDocument()方法,使Applet能够请求浏览器访问特定URL的类是
Ifbookshadneverbeendiscovered,manwouldhavefoundsomeotherwayofrecordinghiscommunication.Butthen,forourconsid
WhatIsLiteraryWriting?I.Literaryworkshavecreativeor【T1】______content【T1】______—attractmenandwomen—toyieldaest
A、Theywouldhavemoneyhandyinmanydifferentplaces.B、Theywouldleaveittolatergenerations.C、Itwouldbekeptsafe.D、T
最新回复
(
0
)