首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt4.vbp。程序的功能是,单击“产生随机数”按钮可以产生10个随机数放到数组中并显示在图片框中,在文本框中输入一个小于10的正整数m,单击“移动数据”按钮,可以把数组中的前m个数据移动到后面去,并显示在图片框中。如图所示。
在考生目录下有一个工程文件sjt4.vbp。程序的功能是,单击“产生随机数”按钮可以产生10个随机数放到数组中并显示在图片框中,在文本框中输入一个小于10的正整数m,单击“移动数据”按钮,可以把数组中的前m个数据移动到后面去,并显示在图片框中。如图所示。
admin
2019-06-11
35
问题
在考生目录下有一个工程文件sjt4.vbp。程序的功能是,单击“产生随机数”按钮可以产生10个随机数放到数组中并显示在图片框中,在文本框中输入一个小于10的正整数m,单击“移动数据”按钮,可以把数组中的前m个数据移动到后面去,并显示在图片框中。如图所示。
在给出的窗体文件中已经有了全部控件,但程序不完整。
要求:去掉程序中的注释符,把程序中的?改为正确的内容。最后把修改后的文件按原文件名存盘。
选项
答案
[操作步骤] 步骤1:打开本题项目工程 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考代码(画下划线部分是需填入的内容) Dim a%(1 To 10) Private Sub Command1 C1ick() Randomize For k=1 To 10 a(k)=Int(Rnd*90+10) Picture1.Print a(k); Next k picture1.Print picture1.Print"----------------------------------" End Sub Private Sub Command2_Click() m%=Val(Text1) NoveArray a(),
m
For k=1 To 10 Picture1.Print a(k); Next k Picture1.Print End Sub Sub NoveArray(a()As Integer,m As Integer) n%=UBound(a) For k=1 To
m
x=a(1) For j=1 To n-1 a(j)=a(
j+1
) Next j a(n)=
x
Next k End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘
解析
转载请注明原文地址:https://kaotiyun.com/show/GNUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的函数过程如下:PrivateSubCommand1_Click()DimiAsIntegerFori=1To500Ifp(i)Thens=s+1NextPrint
设子程序过程定义的首部为:PublicSubs(XAsInteger,YAsSingle)则以下正确的调用形式为
在窗体上画1个命令按钮,并编写如下事件过程:PrivateSubCommand1_Click()Dima(3,3)Form=1To3Forn=1To3Ifn=inOrn=4-mThena(m,n)=m+nElsea(m,n)
在窗体上画1名为Command1的命令按钮和1名Text1的文本框,再编写如下程序:DimssAsStringPrivateSubCommand1_Click()PrivateSubText1_KeyPress(KeyAscii_
下列事件的事件过程中,参数是输入字符ASCII码的是
以下可以判断是否在文本框(名称为Text1)内按下了回车键的事件过程是
在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程:PrivateSubCommand1_Click()Counter=0Fori=1T04Fori=6To1Step-2Counter=Co
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。窗体文件的程序如下:PrivateTypexaAsInteger:bAsIntegerEndTypePrivateSubCommand1_Click()
如果在VisualBasic集成环境中没有打开属性窗口,下列可以打开属性窗口的操作是
输入VB源程序时,若一个命令行中包含两个语句,则两个语句之间的分隔符应使用
随机试题
建立施工安全生产管理制度体系应贯彻的方针是()。
A.滑膜炎B.肌腱附着点炎C.关节软骨变性D.小血管炎系统性红斑狼疮的病理特征是
男,43岁,右腰部钝痛3年,B超示右肾盂结石直径2cm,右肾轻度积水,左肾未见异常。
在项目实阶段,业主应协调设计与施工、监理与施工等方面的关系,组织承包方和设计单位进行()。
对于多层厂房,在其结构形式一定的条件下,若厂房宽度和长度越大,则经济层数和单方造价的变化趋势是()。【2008年真题】
《国家中长期教育改革和发展规划纲要(2010--2020年)》提出,要把()作为教育改革发展的核心任务。
1998年9月30日上午5时30分,浦城县南浦客运车队个体中巴客车,由宁德地区古田县开出,经屏南县、政和县开往南平市浦城县。该车核定限载19人,从古田车站发车时车上实载16人(含驾乘人员),在站门口上车2人,沿途在古田、屏南陆续有人上车,其中在古田至平湖镇
徇私枉法
WindOWSServer2003中配置SNMP服务时,必须以__________身份登录才能完成SNMP服务的配置功能。(2012年下半年试题)
Formanypeopletoday,readingisnolongerrelaxation.Tokeepuptheirworktheymustreadletters,reports,tradepublication
最新回复
(
0
)