首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件央下有一个工程文件sjt5.vbp,窗体上有三个文本框,其名称分别为Textl、Text2和Text3,其中Textl、Text2可多行显示。请添加三个命令按钮,名称分别为Cmdl、Cmd2和Cmd3,标题分别为“产生数组”、“统计”和“退出”,
在考生文件央下有一个工程文件sjt5.vbp,窗体上有三个文本框,其名称分别为Textl、Text2和Text3,其中Textl、Text2可多行显示。请添加三个命令按钮,名称分别为Cmdl、Cmd2和Cmd3,标题分别为“产生数组”、“统计”和“退出”,
admin
2020-04-08
33
问题
在考生文件央下有一个工程文件sjt5.vbp,窗体上有三个文本框,其名称分别为Textl、Text2和Text3,其中Textl、Text2可多行显示。请添加三个命令按钮,名称分别为Cmdl、Cmd2和Cmd3,标题分别为“产生数组”、“统计”和“退出”,如图所示。程序功能如下:
①单击“产生数组”按钮时,随机生成20个0~10之间(不含0和10)的数值,并将其保存到一维数组a中,同时也将这20个数值在Textl文本框内显示。
②单击“统计”按钮时,统计出数组a中出现频率最高的数值及其出现的次数,并将出现频率最高的数值在Text2文本框内显示、出现频率最高的次数在Text3文本框内显示。
③单击“退出”按钮时,结束程序运行。
注意:不得修改窗体文件中已经存在的控件和程序,最后将修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤l:打开本题工程文件,设置控件的属性。程序中用到的控件及属性见表4.55。 [*] 步骤2:打开代码编辑窗口,去掉程序中的注释符“′”,将问题改为正确的内容。 参考答案(阴影部分是需考生填入的内容) Option Base 1 Dim a(20)As Integer,b(20)As Inte- ger Private Sub Cmd] Click() Textl.Text="":Text2.Text="": Text3.Text="" For i=1 To 20 a(i)=Fix(Rnd*
9
+1)′生成0 ~10的数值并存入数组a中 b(i) =1 Textl.Text=Textl.Text+ str(a(i)) +Space(2)′将生成的数显示在Textl中 Next i End Sub Private Sub Cmd2_Click() fmax=0 For i=1 To 20 Forj=1 To
i-1
数组共有20个数字 If a(i)=a(j)Then b(i)=b(i)+1′依次存入对应数出现的频率 End If Next j If b(i)>
fmax
Then fmax=b (i)′谈次得到的数出现频率与目前出现频率最多的数比较,若大于目前的数,则将最大的数改为该次得到的数 Next 1 For i=1 To 20 If b(i)=
fmax
Then′从数组中找到 与fmax相同的值 Text2.Text=Text2.Text +Str(a(i))+Space(2) End If Next i Text3.Text=fmax End Sub PriVate Sub Cmd3_Click()
End
′当单击"结束"按钮时,则退出程序 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 【易错提示】生成20个0~10(不含0和lO)的数要注意上、下限,Fix()函数是截尾取值,因此Fix(Rnd*?+1)的问号处应该填入的数值为9,如果是10,就会包含有10这个数值。
解析
单击“产生数组”按钮时,通过Rnd函数随机生成20个0~10(不含0和10)的数值,并将其保存到一维数组a中,同时运用Space()函数和str()函数将这20个数值显示在Textl文本框内。单击“统计”按钮时,统计出数组a中出现频率最高的数值及其出现的次数。并把出现的次数赋值给数组b,通过对数组b中数值的排序,找出最高次数,并通过判断最高次数的值,找出出现频率最高的数值,并将其数值显示在Text2文本框内,将出现次数显示在Text3文本框内。单击“退出”按钮,运用End语句结束程序运行。str函数将数值转化为字符串,Val()函数是将字符转换为数值。Space(n)函数用于输入空格,n为空格的个数。Fix()函数用于截尾取整,生成整数。
转载请注明原文地址:https://kaotiyun.com/show/WNTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Text1的文本框,一个名称为Combo1的组合框。将文本框中的内容添加到组合框中所使用的命令是
以下能够触发文本框Change事件的操作是( )。
下列程序的执行结果为()。A=“5”:B=“6”A=Val(A)+Val(B)B=Val(“56”)IfA<>BThenPrintA-BElsePrintB-A
(1)在考生目录下有一个工程文件vbsi3.vbp,窗体上有一个命令按钮cmdNext(标题为“下一个”)。要求:在窗体上建立一个单选按钮数组optItern,含4个单选按钮,标题分别为“A”、“B”、“C”、“D”,初始状态下,“A”为选中状态
假定在某个事件过程中需要计算:y=3!+5!的值,下面最好的设计是
编写如下程序:PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegerDimnAsInteger,sAsIntegera=1
有人在属性窗口中通过设置Picture属性为命令按钮装入了图片,但没有显示,其原因是
下列属性中,决定单选按钮是否被选中的是()。
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是()。
(1)考生文件夹中有工程文件sjt3.vbp。窗体上有一个名称为Label1、标题为“标签控件”的标签;有一个名称为Command1、标题为“命令按钮”的命令按钮。单击上述两控件中的任一控件,则在标签Label2中显示所单击控件的标题内容(标题内容前添加“
随机试题
下列不伴有高血压的疾病是
患者男性,30岁。左侧胸痛4个月,下肢无力2个月。神经系统查体:左下肢肌力4级,右下肢肌力5级(一)。右侧T10以下痛温觉消失,左侧减退。T4水平痛觉过敏。左侧巴氏征阳性。可能选择的治疗方式是
患儿16个月,有惊厥史,血钙为75mmol/L,以维生素D缺乏性手足搐搦症收入院,查体可能出现
甲乙丙丁4人组成一个运输有限合伙企业,合伙协议规定甲、乙为普通合伙人,丙、丁为有限合伙人。某日,丁为合伙企业运送石材,路遇法院拍卖房屋,丁想替合伙企业竞买该房,于是以合伙企业的名义将石材质押给徐某,借得20万元,竞买了房子。徐某的债权若得不到实现,应当向谁
工作之间的逻辑关系包括()关系。
工程索赔时最常用的一种方法是()。
公民甲驾驶车辆闯了红灯,交警对其处以200元罚款。交警的行为属于()。
党委领导和政府领导都要不断适应新形势的需要,通过改革和完善,加强各自的领导职能,形成领导关系的全面强化。( )
A、 B、 C、 D、 E、 C
Thesubstancecanbeaddedtogasolinetoacceleratethespeedofautomobiles.
最新回复
(
0
)