首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有三个文本框,其名称分别为Text1、Text2和Text3,其中Text1、Text2可多行显示。请添加三个命令按钮,名称分别为Cmdl、Cmd2和Cmd3,标题分别为“产生数组”、“统计”和“退出”,
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有三个文本框,其名称分别为Text1、Text2和Text3,其中Text1、Text2可多行显示。请添加三个命令按钮,名称分别为Cmdl、Cmd2和Cmd3,标题分别为“产生数组”、“统计”和“退出”,
admin
2015-06-30
65
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
有如下函数过程。FunctionUNC(ByValxAsInteger,ByValyAsInteger)AsIntegerDoWhiley<>0S=x/yx=yy
排序是计算机程序设计中的一种重要操作,常见的排序方法有插入排序、【】和选择排序等。
在列表框中当前被选中的列表项的序号是由下列哪个属性表示______。
以下关于菜单的叙述中,错误的是______。
决定控件上文字的字体、字形、大小、效果的属性是______。
以下程序判断从文本框Text1中输入的数据,如果该数据满足条件:除以3余2,除以5余3,除以7余4,则输出;否则,将焦点定位在文本框Text中,选中其中的文本。PrivateSubCommand1_Click()x=Val(
对象实现了数据和操作的结合,使数据和操作______于对象的统一体中。
算法的工作量大小和实现算法所需的存储单元多少分别称为算法的【】。
关系模型的完整性规则是对关系的某种约束条件,包括实体完整性、【】和自定义完整性。
用树形结构来表示实体之间联系的模型称为______。
随机试题
催化剂使用寿命短,操作较短时间就要更新或活化的反应,比较适用()反应器。
A、40%~60%B、50%~70%C、60%~80%D、80%E、90%使用环氧乙烷灭菌器,灭菌物品装载量不应超过柜内总体积的()
某县人民政府因一重点企业A公司建设需要,决定对其辖区内的某村村民予以集体搬迁。该村大部分村民(计60户)不服县政府决定,准备向人民法院提起行政诉讼。若该村60户村民向法院提起行政诉讼,则本案的第三人是:
下列关于房地产经纪机构经营模式的表述中,错误的是:()。
以下哪项不属于贷款效益性调查的内容?()
按我国会计准则的规定,外币财务报表折算为人民币报表时,所有者权益变动表中的“未分配利润”项目应当()。
【2019上】在西方音乐发展史上,出现了许多具有重要影响的音乐家。下列选项中,被誉为“交响曲之父”的作曲家是()。
以下各项中,哪年的该省净增人口数量最少( )。2001年—2005年期间,福建总人口约增长了( )。
设f(x,y)=则f(x,y)在(0,0)处().
若Cactle的命中率为0.95,且Cactle的速度是主存的5倍,那么与不采用Cactle相比较,采用Cache后速度大致提高到______倍。
最新回复
(
0
)