2. 计算机
  3. (1)在考生文件夹中有工程文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。请考生在窗体上设置一个计时器，名称为Timerl，并补充完整程序代码，使得程序开始运行后，每隔3秒，用黑色填充四分之一的圆，界面如图64—4所示。 注意：请在

(1)在考生文件夹中有工程文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。请考生在窗体上设置一个计时器，名称为Timerl，并补充完整程序代码，使得程序开始运行后，每隔3秒，用黑色填充四分之一的圆，界面如图64—4所示。 注意：请在

admin2010-07-13  28
问题  (1)在考生文件夹中有工程文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。请考生在窗体上设置一个计时器，名称为Timerl，并补充完整程序代码，使得程序开始运行后，每隔3秒，用黑色填充四分之一的圆，界面如图64—4所示。
    注意：请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。

    (2)在考生文件夹下有工程文件sj4．Vbp及窗体文件sj4．frm，该程序是不完整的。本程序的功能为当用户单击窗体上的命令按钮“输入”时，可以输入4个数值，随后程序对这4个数值进行升序排序，并显示出来，如图64—5所示。
    注意：请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案(1)计时器控件用以实现在规则的时间间隔触发其Timer事件，执行有关事件过程代码，来完成对应功能。Interval属性用于设置触发计时器的Timer事件的时间间隔，单位为毫秒，值为0时计时器不启用。Enabled属性控制计时器是否开始启用，True为启用，False为不启用。 程序中用到了Circle函数来画圆，其格式为：原点，半径，[颜色]，[起始角度]，[结束角度]。每隔3秒填充一次，也就是第4秒填充一次，因此，以4为循环周期。根据题意，将一个计时控件添加到窗体中，其名称为Timerl，间隔为3000毫秒，双击Timerl，进入代码编写窗口，补充后的具体代码如下： Dim a As Integer Private Sub Form_Click() a=0’初始化计数值 End Sub Private Sub Timerl_Timer() Const rPI As Single=3．14159265358979 ’圆周率 Me．FillStyle=0’填充方式为0 Me．Cls’清空窗口 For i=1 To 600 ’从半径为l到600画圆，即填充颜色 Me．Circle(1500，1000)，i，vbBlack，360／180*rPI，(90*a+90)／180*rPI Next i Me．Circle(1500，1000)，600，(90*a+90)／180*rPI，360／180*rPI a=(a+1)Mod 4’以4为周期填充 End Sub 单击[*]按钮运行程序，并按要求保存。 (2)本题主要考查考生阅读程序的能力，以及对数组、输入函数、IF语句的掌握情况。 根据题意，将两个命令按钮添加到窗体中，名称分别为Commandl和Command2、Caption分别为“输入”和“排序”，设置完成后双击Commandl进入代码窗口，补充后的代码如下： Dim a(4)As Integer Dim i As Integer Dim str As String Dim,tmp As String Private Sub Commandl_Click() str="" For i=1 To 4 a(i)=Val(InputBox("请输入：")) ’逐个输入数据 tmp=a(i) str=str+tmp+"" ’将数据放入字符串中 Next i Print str ’在窗口上显示字符串 End Sub Private Sub Command2_Click() str="排序后：" For i=1 To 4 ’升序排列 temp=a(i) For i=0 To i If a(j)>temp Then’读取的数据比原位置的数据大则偏移 For k=i To j+1 Step-1 a(k)=a(k-1) ’数据向后偏移一个 Next k a(j)=temp Exit For End If Next j Next i For i=1 To 4 tmp=a(i) ’将排序后的数组放人字符串中 str=str+tmp+"" Next i Print str’显示排序后的数组字符串 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/oGmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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