2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5．vbp，窗体上有三个文本框，其名称分别为Textl、Text2和Text3，其中Textl、Text2可多行显示。请画三个名称分别为Cmdl、Cmd2和Cmd3，标题分别为“产生数组”、“统计”和“退出”的命令按钮，如

在考生文件夹下有一个工程文件sjt5．vbp，窗体上有三个文本框，其名称分别为Textl、Text2和Text3，其中Textl、Text2可多行显示。请画三个名称分别为Cmdl、Cmd2和Cmd3，标题分别为“产生数组”、“统计”和“退出”的命令按钮，如

admin2010-09-02  53
问题 在考生文件夹下有一个工程文件sjt5．vbp，窗体上有三个文本框，其名称分别为Textl、Text2和Text3，其中Textl、Text2可多行显示。请画三个名称分别为Cmdl、Cmd2和Cmd3，标题分别为“产生数组”、“统计”和“退出”的命令按钮，如图1-235所示。程序功能如下：
①单击“产生数组”按钮时，用随机函数生成20个0～10之间(不含0和10)的数值。并将其保存到一维数组a中，同时也将这20个数值显示在Textl文本框内。
②单击“统计”按钮时，统计出数组a中出现频率最高的数值及其出现的次数，并将出现频率最高的数值显示在Text2文本框内、出现频率最高的次数显示在Text3文本框内。
③单击“退出”按钮时，结束程序运行。请将程序中的注释符去掉，把?改为正确的内容，以实现上述程序功能。
注意：不得修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名存盘。
选项
答案 【操作步骤】 步骤1：打开考生文件夹中的本题工程文件sjt5．vbp，在窗体上画三个命令按钮，属性及其值如表2-138所示。 [*] [*] 步骤2：在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： a(i)=Fix(Rnd*9十1) For j=1 To i-1 If b(i) >fmax Then fmax=b(i) If b(i)=fmax Then End 步骤3：按要求将文件保存至考生文件夹中。
解析     Rnd()函数用于产生一个小于1但大于或等于0的随机数值。为了生成某个范围内的随机整数，可使用以下公式：
    Int((upperbound-lowerbound+1)*Rnd+lowerbound)
    这里，upperbound是随机数范围的上限，而lowerbound则是随机数范围的下限。
    本题在“产生数组”按钮的单击事件过程中，通过For循环生成20个0～10之间(不含0和10)互不相同的随机数，并存入数组a，其中生成函数的表达式应为：Fix(Rnd*9+1)。同时初始化b数组每个元素值为1。  在“统计”按钮的单击事件过程中，通过双重的For循环逐一计算出数组a中的元素重复的次数并计入数组b的相应元素中，然后从中找出最大值fmax，循环结束后显示出来。
    在“退出”按钮的单击事件过程中，使用End语句结束整个程序的运行。
转载请注明原文地址:https://www.kaotiyun.com/show/AUmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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