首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有三个文本框,其名称分别为Text1、Text2和Text3,其中Text1、Text2可多行显示。请添加三个命令按钮,名称分别为Cmdl、Cmd2和Cmd3,标题分别为“产生数组”、“统计”和“退出”,
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有三个文本框,其名称分别为Text1、Text2和Text3,其中Text1、Text2可多行显示。请添加三个命令按钮,名称分别为Cmdl、Cmd2和Cmd3,标题分别为“产生数组”、“统计”和“退出”,
admin
2015-06-30
41
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
如果存在如下过程:PrivateFunctionFMax(a()AsInteger)DimFirstAsInteger,LastAsInteger,iAsIntegerFirst=
有如下函数过程。FunctionUNC(ByValxAsInteger,ByValyAsInteger)AsIntegerDoWhiley<>0S=x/yx=yy
下列程序段的执行结果为______。DimA(10),B(5)Fori=1To10A(i)=iNextiForj=1To5B(j)=j*20
为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是______。
在窗体上有两个命令按钮Command1和Commnd2,三个文本框Text1,Text2和Text3,有如下事件过程:PrivateSubComuand1_Click()Text3.Text=Text1.Text+Te
在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是()
以下语句错误的是:______。
下列叙述不正确的是
以下关于VisualBasic数据类型的说法,不恰当的是
用二维表来表示实体及实体之间联系的数据模型称为______。
随机试题
排便时,间歇性带血,并有肿物脱出肛门外,排便完自行还纳,诊断为
A.苯巴比妥B.艾司唑仑C.苯妥英钠D.氟哌啶醇E.氯丙嗪结构中含有咪唑环
A.12.5分子ATPB.12分子ATPC.10.5分子ATPD.10分子ATPE.2分子ATP1分子乙酰CoA彻底氧化产生
一级房地产估价机构资质由建设部审批。[2005年考题]()
上市公司应当在可转换公司债券期满后( )内,办理完毕偿还债券余额本息的事项。
下列关于现金流分析的说法,不正确的是()。
以下关于局部总线说法正确的是()。
下列叙述中正确的是()。
下面选项中关于位运算的叙述正确的是
Becausesomanypeopleintheirteensandearly20sareincreasinglysocializing—accessibletoeachothereveryminuteoftheda
最新回复
(
0
)