首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序功能如下: 1)单击“读数据”按钮,从文件中读出数据,放入二维数组a中。 2)单击“生成新数组”按钮时,依据a数组生成b数组;若a数组元素为素数,则直接将a数组元素的值赋给b数组中相同下标的
在考生文件夹下有一个工程文件sjt5.vbp。程序功能如下: 1)单击“读数据”按钮,从文件中读出数据,放入二维数组a中。 2)单击“生成新数组”按钮时,依据a数组生成b数组;若a数组元素为素数,则直接将a数组元素的值赋给b数组中相同下标的
admin
2020-02-27
54
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
窗体上有Command1、Command2两个命令按钮。现编写以下程序:OptionBase0Dima()AsInteger,mAsIntegerPrivateSubCommandl_Click()m
下面程序的执行结果是()。PrivateSubCommandl_Click()a=0k=1DoWhilek
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是:①单击“读数据”按钮,则将考生文件夹下in3.dat文件中的100个正整数读入数组a中。②单击“计算”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另一个整数的
如下关于变体类型变量的叙述中,错误的是( )。
A、选择B、投影C、自然连接D、并A由关系R到关系S为一元运算,排除C和D。关系S是关系R的一部分,是通过选择之后的结果,因此选A。
表达式Int(-15.8)+Fix(.15.8)+Int(15.8)+Fix(15.8)的运算结果是()。
下列表达式的值为2123的是()。
在关系中凡能惟一标识元组的最小属性集称为该表的键或码。二维表中可能有若干个键,它们称为该表的()。
设“A=“87654321””,则表达式Val(Left(A,4)+Mid(A,4,2))的值为()。
InputBox函数返回值的类型为()。
随机试题
以下花卉不属于球根花卉的是:
流行性乙型脑炎镜下可见
肝硬化假小叶形成的最主要因素是
继发不孕绝对不孕
A、高侧壁心肌梗死B、前壁心肌梗死C、前侧壁心肌梗死D、内膜下心肌梗死E、下壁心肌梗死窦性心动过缓多见于
在下列投资方案评价指标中,不考虑资金时间价值的指标是()。
人民警察礼貌待人、文明执勤主要体现在()。
一个民族的生命基因,熔铸着文化的力量;一个民族前进的每一行足印,都闪耀着文化的光芒;一个民族的兴衰存亡,说到底是文化的兴衰存亡。当今世界各国,除了经济、科技、军事力量等“硬实力”的比拼,文化软实力的竞争也日趋激烈,因为文化愈来愈成为民族凝聚力和创造力的重要
现有的数据处理和声音通信的信息网一般采用(36)。
A、Themanwasquiteallright.B、Thewomanwaslateforcoming.C、Thewomanaskedthemantowait.D、Themanwasannoyedbyher
最新回复
(
0
)