首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有2个标题分别是“读数据”和“查找质数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图3-36所示。 程序功能: (1)考生文件夹
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有2个标题分别是“读数据”和“查找质数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图3-36所示。 程序功能: (1)考生文件夹
admin
2020-02-27
22
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
单击命令按钮时,下列程序段的执行结果为()。PrivateSubCommandl_Click()PrintFuncl(24,18)EndSubPublicFunctionFuncl
下列关于利用通用对话框产生的文件对话框的相关属性的描述中,错误的是( )。
下列关于栈叙述正确的是( )。
要建立一个随机文件记录学生的信息,如下定义的学生记录类型,由学号、姓名和5门课程成绩(百分制)组成,下列的定义正确的是()。
窗体上有一个菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。
语句:PrintAsc(Chr$(Mid$("98765432",4,2)))的输出是
在关系模型中,每一个二维表称为一个
在考生文件夹下有一个工程文件sit5.vbp,在该工程文件中已经定义了一个学生记录类型数据StudType。有三个标题分别为“学号”、“姓名”和“平均分”的标签;三个初始内容为空,用于接收学号、姓名和平均分的文本框Text1、Text2和Text3:一个用
某二叉树的前序遍历序列与中序遍历序列相同,均为ABCDEF,则后序遍历序列为()。
对下列二叉树进行前序遍历的结果为()。
随机试题
患者,男,50岁,进行性吞咽困难3个月,现能进流质饮食。检查:锁骨上未触及肿大的淋巴结。对于该患者,拟行全麻下食管癌根治术,下列关于手术前后的护理的描述错误的是
A.从前向后就位B.从后向前就位C.左侧先就位D.右侧先就位E.垂直就位前、后牙均有缺失。义齿应
8个月小儿,发热1天,T38.5℃,轻咳,吃奶稍差,腹泻,大便稀糊状,无脓血。查体:精神状可,无呼吸困难,咽部充血,双肺无干湿啰音。化验末梢血WBC8.0×109/L,粪常规无WBC及RBC,其最可能的诊断是
涂料中次要成膜物质如红丹、锌铬黄、锌粉、铝粉、云母氧化铁等应属于()。
固定资产投资经济效益指标反映了()。
迅通通信设备有限公司是一家从事通讯设备和软件的研发和生产的高科技公司。随着通信行业的迅猛发展,公司在过去的几年中也发展迅速,由一个初步创立时只有30人的小型企业,逐步发展成现在的具有一定规模的中型企业。如果公司保持现在的发展速度,预计在今后的几年会发展为一
根据《侵权责任法》的规定,患者在诊疗活动中遭受损害,医疗机构不承担赔偿责任的情形有()。(2014一法专一29)
[*]
Thebestsolutionistostoppretendingthatpeople’spersonalinformation,suchasSocialSecurityaccountnumbersandbirthda
关于计算机机型描述中,错误的是______。
最新回复
(
0
)