2. 计算机
  3. (1)在考生目录下有一个工程文件sj3．vbp，窗体中有一个命令按钮，标题为“开始”，名称为Commandl；有一个图片框，名称为Picl，还有一个计时器，名称为Timer1。并给出了两个事件过程，但并不完整，要求： 设置计时器的属性，使其每隔3秒

(1)在考生目录下有一个工程文件sj3．vbp，窗体中有一个命令按钮，标题为“开始”，名称为Commandl；有一个图片框，名称为Picl，还有一个计时器，名称为Timer1。并给出了两个事件过程，但并不完整，要求： 设置计时器的属性，使其每隔3秒

admin2010-07-13  72
问题  (1)在考生目录下有一个工程文件sj3．vbp，窗体中有一个命令按钮，标题为“开始”，名称为Commandl；有一个图片框，名称为Picl，还有一个计时器，名称为Timer1。并给出了两个事件过程，但并不完整，要求：
    设置计时器的属性，使其每隔3秒调用Timerl事件过程一次，改变Picl的背景色(红、绿、蓝3色)。
    去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，使得在运行时单击“开始”按钮，则Picl每隔3秒改变一次背景色，由红变绿，由绿变蓝，再由蓝变红，如图23—3所示。
    注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
    (2)在窗体上绘制一个命令按钮，名称为Commandl，标题分别为“计算”，一个名称为Textl的文本框。请编写适当的事件过程，在Textl中输出30以内满足勾股定理的整数组合。注：勾股定理中3个数的关系是：a2+b2=c2。例如3、4、5就是一个整数组合，即32+42=52。如图23—4所示。

    注意：编写程序，去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
选项
答案(1)本题主要考查Timer控件的属性设置和图片框控件的属性设置。计时器的Interval属性用于设置每次触发计时器的Timer事件的时间间隔，单位为毫秒，它可以在属性窗口中设置，也可以通过代码设置。图片框控件既可用于显示图片，也可用于在上面绘图，由于本题只要求改变颜色，所以只需控制其背景颜色属性即可。根据题意，补充后的代码如下： Dim a As Integer Private Sub Commandl_Click() Timerl．Interval=1000’开始后，Timer的间隔时间为1秒 End Sub Private Sub Form_Load() a=0’初始化计数 Picl．BackColor=RtB(255，0，O) End Sub Private Sub Timerl_Timer() a=(a+1)Mod 9 ’以9为周期 If a<3 Then’当a小于3时 Picl．BackColor=RGB(255，0，O) ’背景色为红色 ElseIf a>=3 And a<6 Then’当a<6时 Picl．BackColor=RGB(O，255，0) ’背景色为绿色 Else’其他情况 Picl．BackColor=RGB(0，0，255)’背景色为蓝色 End If End Sub 单击[*]按钮运行程序，并按要求保存。 (2)本题只要明白勾股定理的含义就不难了，即a^2+b^2=c^2。程序中利用3重循环对30以内的数进行遍历，每发现一组符合条件的数，就以逗号间隔显示在文本框中。窗体界面题中已设计好，只需补充相应的代码，补充后的代码如下： Private Sub Commandl_Click() Dim i As Integer Dim j As Integer Dim k As Integer Dim str As String str="" For i=1 To 30 ’第1个数用For循环从1遍历到30 For j=i To 30’第2个数用For循环从i遍历到30 For k=i To 30’第3个数用For循环从i遍历到30 If i^2+j^2=k^2 Then’满足勾股定理 str=str+CStr(i)+"，"+CStr(j)+"，"+CStr(k)+vbCrLf’将获得的3个数通过字符串形式记录 End If Next k Next j Next i Textl．Text=str’在Textl中显示结果 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/PLmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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