首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序功能如下: 1)单击“读数据”按钮,从文件中读出数据,放入二维数组a中。 2)单击“生成新数组”按钮时,依据a数组生成b数组;若a数组元素为素数,则直接将a数组元素的值赋给b数组中相同下标的
在考生文件夹下有一个工程文件sjt5.vbp。程序功能如下: 1)单击“读数据”按钮,从文件中读出数据,放入二维数组a中。 2)单击“生成新数组”按钮时,依据a数组生成b数组;若a数组元素为素数,则直接将a数组元素的值赋给b数组中相同下标的
admin
2020-07-22
84
问题
在考生文件夹下有一个工程文件sjt5.vbp。程序功能如下:
1)单击“读数据”按钮,从文件中读出数据,放入二维数组a中。
2)单击“生成新数组”按钮时,依据a数组生成b数组;若a数组元素为素数,则直接将a数组元素的值赋给b数组中相同下标的数组元素;若a数组元素的值能被2整除,则将该元素值的平方作为b数组同下标的元素;若a数组元素为其他值,则将该元素乘2的值作为b数组同下标的元素。
3)单击“查找最大值”按钮,则在b数组中找最大值并显示在Labe12标签上。
在给出的窗体文件中已经有了全部控件,标准模块中有判断素数的函数IsPrime。要求去掉程序中的注释符,把程序中的?改为正确的内容,并编写相应的程序,实现程序的功能。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后,各命令按钮的事件过程必须至少各执行一次。
选项
答案
【操作步骤】 步骤1:打开考生文件夹中的工程文件sjt5.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 End 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 Labe12.Caption=k ’======考生编写程序结束============ Open App.Path & "\out5.txt" For Output As #1 Print #1,Labe12.Caption Cl ose #1 End Sub 步骤2:按<F5>运行程序,单击各按钮测试验证。 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/qHHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列选项中不属于面向对象程序设计特征的是
设有如下通用过程:PublicFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr=””:strL=Len(xStr)
有下面程序代码:PrivateSubCommandl_Click()a=Array(1,2,3,4,5,6,7,8,9,10)n=UBound(a)Fork=0ToUBound(a)/2Printa(k)*a(n);:n=
如果在窗体模块中所有程序代码的前面有语句:Dimx,则x是
在窗体上画一个名称为HScroll1的水平滚动条,其Min和Max属性分别为0和100。程序运行后,如果用鼠标拖动滚动框,则在拖动过程中显示滚动框的当前值。以下能实现上述操作的事件过程是()。
命令按钮、单选按钮、复选框都可以通过Picture属性在控件上显示图片,但需事先设置某一属性,该属性为
已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分,某人编写程序如下:OptionBase1PrivateSubCommand1Click()DimsimAsInte
假定已在窗体上画了多个控件,其中有一个被选中,为了在属性窗口中设置窗体的属性,预先应执行的操作是
下面可以产生20~30(含20和30)的随机整数的表达式是
以下过程的功能是从数组中寻找最大值:PrivateSUbFindMax(a()AsInteger,ByRefMaxAsInteger)DimSAsInteger,fAsIntegerDimiAsIntegerS=LBound(a
随机试题
根据新的任务,人有意识地把注意从一种活动和对象指向另一种活动和对象,是注意的哪一种品质【】
患者,女,25岁。低热2周。查体:气管不偏,右侧胸部呼吸运动减弱,叩诊呈浊音,肺泡呼吸音减低,可闻及湿啰音,左肺未见异常。根据患者的右侧胸部体征,可诊断为
关于CT图像重建技术的叙述,错误的是
下列细菌既为尿路感染最常见的病原菌,又可产ESBL的是
使用面弓的目的是
下列主体可作为保证人的是()。
良好的班集体具有哪些教育作用?
在标准ASCII编码表中,数字码、小写英文字母和大写英文字母的前后次序是
"Everythinghappensforthebest",mymothersaid(31)Ifaceddisappointment."Ifyoucarryon,onedaysomethinggoodwill(32
WaterSports水上运动Thehistoryofman’sinvolvementwithwatersports/stretchesbackbeforehistorywaswrittendown./Iti
最新回复
(
0
)