首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有三个文本框,其名称分别为Text1、Text2和Text3,其中Text1、Text2可多行显示。请添加三个命令按钮,名称分别为Cmdl、Cmd2和Cmd3,标题分别为“产生数组”、“统计”和“退出”,
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有三个文本框,其名称分别为Text1、Text2和Text3,其中Text1、Text2可多行显示。请添加三个命令按钮,名称分别为Cmdl、Cmd2和Cmd3,标题分别为“产生数组”、“统计”和“退出”,
admin
2015-06-30
56
问题
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有三个文本框,其名称分别为Text1、Text2和Text3,其中Text1、Text2可多行显示。请添加三个命令按钮,名称分别为Cmdl、Cmd2和Cmd3,标题分别为“产生数组”、“统计”和“退出”,如图所示。程序功能如下:
①单击“产生数组”按钮时,随机生成20个0~10之间(不含0和10)的数值,并将其保存到一维数组a中,同时也将这20个数值在Text1文本框内显示。
②单击“统计”按钮时,统计出数组a中出现频率最高的数值及其出现的次数,并将出现频率最高的数值在Text2文本框内显示、出现频率最高的次数在Text3文本框内显示。
③单击“退出”按钮时,结束程序运行。
注意:不得修改窗体文件中已经存在的控件和程序,最后将修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件,设置控件的属性。程序中用到的控件及属性见表3.61。 [*] 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(20) As Integer, b(20) As Integer Private Sub Cmd1_Click() Text1.Text = "": Text2.Text = "": Text3.Text = "" For i = 1 To 20 ’ a(i) = Fix(Rnd * ? + 1) b(i) = 1 Text1.Text = Text1.Text + Str(a(i)) + Space(2) Next i End Sub Private Sub Cmd2_Click() fmax = 0 For i = 1 To 20 ’ For j = 1 To ? If a(i) = a(j) Then b(i) = b(i) + 1 End If Next j ’ If b(i) > ? Then fmax = b(i) Next i For i = 1 To 20 ’ If b(i) = ? Then Text2.Text = Text2.Text + Str(a(i)) + Space(2) End If Next i Text3.Text = fmax End Sub Private Sub Cmd3_Click() ’ ? End Sub 程序结束 参考答案 第1个?处填入:9 第2个?处填入:i - 1 第3个?处填入:fmax 第4个?处填入:fmax 第5个?处填入:End 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/NVQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
()属性用于设置组合框的风格。
当循环队列非空且队尾指针等于队头指针时,说明循环队列已满,不能进行人队运算。这种情况称为【】。
下面程序用“冒泡”法将数组a中的10个整数按升序排列,算法是:从数组的第1个元素开始,依次将相邻的两个数相比较(第1个数与第2个数,第2个数与第3个数……如此重复),若前面的数较大,则这两个数交换位置。这样执行一遍后,最后一个数已经是数组中最大的数。然后将
以下程序判断从文本框Text1中输入的数据,如果该数据满足条件:除以3余2,除以5余3,除以7余4,则输出;否则,将焦点定位在文本框Text中,选中其中的文本。PrivateSubCommand1_Click()x=Val(
在窗体上面画一个命令按钮,然后编写如下事件过程______。OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)
在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(真Name属性为Command1),然后编写如下事件过程:PrivateSubCommand1_Click()x=0DoWh
在3种不同类型的组合框中,只能选择而不能输入数据的组合框是【】。
VB的工程资源管理器可管理多种类型的文件,下面叙述正确的是______。
下面程序执行的结果是______。PrivateSubForm_Click()A$=“123”:B$=“456”C=Val(A$)+Val(B$)Print
若二叉树中度为2的结点有15个,度为1的结点有10个,则有______个叶结点。
随机试题
周邦彦的《少年游》中有名句:“并刀如水,吴盐胜雪,纤手破新橙。”其中“并刀”的产地在今天的()。
场地行走时电工工具不应挎在肩上。()
下列各项中,否属于合并财务报表编制原则的是【】
方差分析中变量变换的目的是
自然界的花儿不仅形态各异,颜色更是五彩缤纷,那么,鲜花为什么会有各种颜色呢?原来,花瓣中含有各种色素,正是因为这些色素,才形成了花儿的五颜六色。造就花儿色泽最主要的色素,叫做“花青素”,是自然界一类广泛存在于植物中的水溶性天然色素,属类黄酮化合物。它分布在
水管型温度传感器的安装开孔与焊接,必须在管道的()前进行。
申请人申请行政复议,可以书面申请,也可以口头申请;口头申请的,行政复议机关应当()记录申请人的基本情况、行政复议请求、申请行政复议的主要事实、理由和时间。
维生素的主要作用是()。
将一枚硬币独立地掷两次,引进事件:A1={掷第一次出现正面},A2={掷第二次出现正面},A3={正、反面各出现一次},A4{正面出现两次},则事件().
在VisualFoxPro中,为了将菜单作为顶层菜单,需要设置表单的某属性值为2,该属性是
最新回复
(
0
)