2. 计算机
  3. (1)在考生文件夹下有一个工程文件sj3．vbp，相应的窗体文件为sj3．frm。其功能是随机产生30个0～1000的整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮(名称为Commandl，标题为“输出最小值”)，即可求出其最小值，并

(1)在考生文件夹下有一个工程文件sj3．vbp，相应的窗体文件为sj3．frm。其功能是随机产生30个0～1000的整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮(名称为Commandl，标题为“输出最小值”)，即可求出其最小值，并

admin2009-03-26  58
问题 (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://www.kaotiyun.com/show/qV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)