首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sj3.vbp,相应的窗体文件为sj3.frm。其功能是随机产生30个0~1000的整数,放入一个数组中,然后输出其中的最小值。程序运行后,单击命令按钮(名称为Commandl,标题为“输出最小值”),即可求出其最小值,并
(1)在考生文件夹下有一个工程文件sj3.vbp,相应的窗体文件为sj3.frm。其功能是随机产生30个0~1000的整数,放入一个数组中,然后输出其中的最小值。程序运行后,单击命令按钮(名称为Commandl,标题为“输出最小值”),即可求出其最小值,并
admin
2009-03-26
63
问题
(1)在考生文件夹下有一个工程文件sj3.vbp,相应的窗体文件为sj3.frm。其功能是随机产生30个0~1000的整数,放入一个数组中,然后输出其中的最小值。程序运行后,单击命令按钮(名称为Commandl,标题为“输出最小值”),即可求出其最小值,并在窗体上显示出来(如图40一4所示)。这个程序不完整,请把它补充完整,并能正确运行。
注意:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,该程序是不完整的。窗口中有一个名称为Picturel的图片框,一个名称为HScrolll的滚动条,3个名称分别为Commandl、Command2和Command3的命令按钮,标题分别为“开始”、“暂停”和“关闭”,一个名称为Timerl的计时器控件。程序运行后,单击“开始”按钮后,使红框沿直线左右运动,并可以使用滚动条调节运动的速度;单击“暂停”按钮后,小球暂停运动;单击“关闭”按钮结束程序。程序运行界面如图40—5所示。
注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案
(1)本题主要考查Randomize语句、Rnd()函数、Int()函数、循环语句、判断语句以及Print方法,根据题意,双击进入代码窗口,编写如下代码: 0ption Base 1 Private Sub Commandl_Click() Dim arrN(30)As Integer Dim Min As Integer Randomize For i=1 To 30 arrN(i)=Int(Rnd*
1000
) Next i
Min
=arrN(1) For i=2 To 30 If
arrN(i)
Then Min=arrN(i) End If Next i Print Min End Sub 单击[*]按钮运行程序,并按要求保存。 (2)计时器控件作用是以一定的时间间隔激发计时器事件(Timer)执行相应的代码。当计时器控件的Enabled属性为True时,计时器计时开始,当为False时计时器计时暂停。 根据题意,将3个命令按钮、一个标签、一个计时控件和一个水平滚动条控件添加到窗体中,命令按钮的名称分别为Commandl、Command2和Command3,Caption属性为“开始”、“暂停”和“关闭”,Timer的间隔为0,名称为Timerl,标签的名称为Labell,背景色为红色,水平滚动条的名称为HScrolll,Min属性为5,Max属性为30。双击Commandl进入代码编写窗口,开始时,将Timer的Interval赋为1,而暂停时则设为0,初始Interval为0,具体代码如下: Dim direct As Integer Dim rights As Integer Dim lr As Integer Private Sub Commandl_Click() Timerl.
Interval
=1 gnd Sub Private Sub Command2 Click() Timerl.
Interval
=0 End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() direct=0 Timerl.
Interval
=0 Timerl Timer End Sub Private Sub Timerl Timer() rights=Forml.Width-1500 lr=Labell.Left+Labell.Width If Labell.Left>=3 60 And lr<=rights Then If direct=0 Then Labell.Left=Labell.Left+HSerolll.
Value
Else Labell.Left=Labell.Left-HScrolll.
Value
End If Else If Labell.Left<360 Then Labell.Left=360 direct=0 End If If lr>rights Then direct=1 Labell.Left=rights-Labell.Width End If End If End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/qV1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
选择运算的结果关系同原关系具有【】的结构框架,投影运算的结果关系同原关系通常具有【】的结构框架。
给定下面的代码:byte[]arrayl,array2[];bytearray3[][];byte[][]array4;如果上面的每一个数组都初始化了,以下各项语句中错误的是()。
下列关于类型转换的说法中,正确的是()。
面向对象程序设计有许多特性,下列选项中用来尽可能隐蔽对象的内部细节的是()。
关系数据库管理系统能实现的专门关系运算包括选择、连接和【】。
一些重要的程序语言(如C语言和Pascal语言)允许过程的递归调用。而实现递归调用中的存储分配通常用()
设有n元关系R及m元关系S,则关系R与S经笛卡儿积后所得新关系是一个()元关系。
int类型的取值范围为()。
关于文件名的处理中,测试当前文件是否目录用【】函数。
随机试题
复方小活络丸的组成药物除当归、川芎外,还包括()
慢性肾盂肾炎病人,经系统治疗,尿常规已正常,还应作哪些检查以判断治疗效果
计算机的应用领域包括()。
建立账套。(1)账套信息账套号:107账套名称:北京华都科技有限公司启用会计期间:2014年8月(2)单位信息单位名称:北京华都科技有限公司单位简称:北京华都科技(3)核算类型行业性质:小企业会计制度账套主管:陈
位于市区的甲企业为增值税一般纳税人,2016年2月发生以下经营业务:(1)购入一批材料,取得的增值税专用发票上注明价款150万元,增值税税额25.5万元;委托某运输企业(增值税一般纳税人)运送材料,取得运输企业开具的增值税专用发票上注明运费5万元。(2
某企业为了增强生产和经营能力,通过契约交易,以联合生产形式与某世界500强企业建立战略联盟,该战略联盟属于()。
蛋白质一能量营养不良可分为水肿型营养不良、消瘦型营养不良和混合型营养不良。
拜占庭式教堂的典型代表是__________。
“奶奶不断唠叨:‘老天爷,你怎么不睁眼,这雨没完没了地下,你还叫我们穷人活不活’。”以上是某文学作品中的片段,“奶奶”的话表达了中国传统文化中对“天”的敬重。这与中国古代()学派有关。
Atsometimearound2300BC,giveortakeacenturyortwo,alargenumberofthemajorcivilizationsoftheworldcollapsed,in
最新回复
(
0
)