首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序功能如下: 1)单击“读数据”按钮,从文件中读出数据,放入二维数组a中。 2)单击“生成新数组”按钮时,依据a数组生成b数组;若a数组元素为素数,则直接将a数组元素的值赋给b数组中相同下标的
在考生文件夹下有一个工程文件sjt5.vbp。程序功能如下: 1)单击“读数据”按钮,从文件中读出数据,放入二维数组a中。 2)单击“生成新数组”按钮时,依据a数组生成b数组;若a数组元素为素数,则直接将a数组元素的值赋给b数组中相同下标的
admin
2020-02-27
43
问题
在考生文件夹下有一个工程文件sjt5.vbp。程序功能如下:
1)单击“读数据”按钮,从文件中读出数据,放入二维数组a中。
2)单击“生成新数组”按钮时,依据a数组生成b数组;若a数组元素为素数,则直接将a数组元素的值赋给b数组中相同下标的数组元素;若a数组元素的值能被2整除,则将该元素值的平方作为b数组同下标的元素;若a数组元素为其他值,则将该元素乘2的值作为b数组同下标的元素。
3)单击“查找最大值”按钮,则在b数组中找最大值并显示在Label2标签上。
在给出的窗体文件中已经有了全部控件,标准模块中有判断素数的函数IsPrime。要求去掉程序中的注释符,把程序中的?改为正确的内容,并编写相应的程序,实现程序的功能。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后,各命令按钮的事件过程必须至少各执行一次。
选项
答案
步骤1:打开考生文件夹中的工程文件sjr5.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。在“由考生编写”处补充正确代码。参考代码: Open App.Path & "\in5.txt"For Input As #1 Input #1,a(i,j) Private Sub Command2_Click() ’======以下由考生编写============ For i=1 To 5 For j=1 To 5 If sushu(a(i,j))=True Then b(i,j) =a(i,j) Else If a(i,j)Nod 2=0 Then b(i,j)=a(i,j)*a(i,j) ElSe b(i,j)=a(i,j)*2 Erld If End If Next.i,j ’==========考生编写程序结束=========== End Sub Private Sub Command3_Click() ’======以下由考生编写============ Dim k As Long k=0 For i=1 To 5 For j=1 To 5 f b(i,j)>k Then k=b(i,j) Next.i,j Label2.Caption=k ’=========考生编写程序结束============== Open App.Path & "\out5.txt" For Output.As #1 Print #1,Label2.Caption Close #1 End Sub 步骤2:按
运行程序,单击各按钮测试验证。 步骤3:按要求将文件保存至考生文件夹中。
解析
题目要求从文件中读取数据放到数组a当中,给数组a赋值通过嵌套的For循环来实现。“生成新数组”按钮的事件处理过程,按照规则来得到数组b,需要通过嵌套循环实现数组元素逐个赋值。同样,在查找最大值的时候通过嵌套的循环逐个搜索数组b的各个元素,就可以得到最大值。
转载请注明原文地址:https://kaotiyun.com/show/1TTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
关系数据模型的三个组成部分中不包括()。
(1)在考生文件夹下有一个工程文件Sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0~1000的整数,放入一个数组中,然后输出这20个整数中小于500的所有整数之和。程序运行后,单击命令按钮(名称为Commandl,标题为“输出小
窗体上有名称分别为Text1、Text2的文本框,名称为Command1的命令按钮。运行程序,在Text1中输入“FormList”,然后单击命令按钮,执行如下程序:PrivateSubCommandl.Click()Text2.Text=UCas
能够存放组合框的所有项目内容的属性是()。
(1)在名称为Form1的窗体上添加一个名称为Shape1的形状控件,通过设置参数使其形状为圆形;添加一个名称为Label1的标签,标题为“形状”,标签的大小能够根据标签内容的字数、大小而定;添加一个名称为Text1的文本框,文本框最多能够显示5个字符,文
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框
表达式Int(-15.8)+Fix(.15.8)+Int(15.8)+Fix(15.8)的运算结果是()。
在窗体上画2个文本框(名称分别为Text1和Text2),一个命令按钮(名称为Command1)。并定义以下记录类型和变量:PrivateTypeTeacherIDAsIntegerNameAsString*10En
已知:x=-6y=39则表达式"y\x*Sgn(x)"的值为( )。
若变量a未事先定义而直接使用(例如:a=0),则变量a的类型是()。
随机试题
A.溶血反应B.过敏反应C.发热反应D.细菌污染反应输血最常见的并发症是
房地产经纪人在查看房屋信息时,一旦发现房屋有承租人,应提醒业主(即出租人)至少提前()个月通知承租人房屋将出售的情况。
质量检验方法中,量测的手段可归纳为靠、吊、量、( )四个字。
下列属于国务院制定的财务会计行政法规的是()。
以股东权行使的目的不同可以将股东权划分为共益权和自益权。下列选项中,属于共益权的有()。
【2010年】如果注册会计师已获取有关控制在期中运行有效性的审计证据,通常还应实施的审计程序有()。
不同的领导作风也不相同,有的人习惯______,不求立功,只图不出乱子;有的则勇于创新,各种______的方案______。依次填入划横线处的词语,最恰当的一组是()
下列国家或地区中,属于英美法系的是()
求级数的和。
实时操作系统(RTOS)内核与应用程序之间的接口称为()。
最新回复
(
0
)