2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5．vbp。程序功能如下： 1)单击“读数据”按钮，从文件中读出数据，放入二维数组a中。 2)单击“生成新数组”按钮时，依据a数组生成b数组；若a数组元素为素数，则直接将a数组元素的值赋给b数组中相同下标的

在考生文件夹下有一个工程文件sjt5．vbp。程序功能如下： 1)单击“读数据”按钮，从文件中读出数据，放入二维数组a中。 2)单击“生成新数组”按钮时，依据a数组生成b数组；若a数组元素为素数，则直接将a数组元素的值赋给b数组中相同下标的

admin2018-10-29  15
问题 在考生文件夹下有一个工程文件sjt5．vbp。程序功能如下：
    1)单击“读数据”按钮，从文件中读出数据，放入二维数组a中。
    2)单击“生成新数组”按钮时，依据a数组生成b数组；若a数组元素为素数，则直接将a数组元素的值赋给b数组中相同下标的数组元素；若a数组元素的值能被2整除，则将该元素值的平方作为b数组同下标的元素；若，a数组元素为其他值，则将该元素乘2的值作为b数组同下标的元素。
    3)单击“查找最大值”按钮，则在b数组中找最大值并显示在Label2标签上。
    在给出的窗体文件中已经有了全部控件，标准模块中有判断素数的函数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)Mod 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 Label2．Caption＝k ’＝＝＝＝＝＝＝考生编写程序结束＝＝＝＝＝＝＝＝＝＝＝＝＝ Open App．Path ＆ "＼out5．txt" For Output As ＃1 Print＝＃1，Label2．Caption Close ＃1 End Sub 步骤2：按＜F5＞运行程序，单击各按钮测试验证。 步骤3：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/FtFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)