[填空题] 在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮,背景色变为红色;再单击,背景色变为绿色;再单击,背景色变为蓝色;再单击背景色变为红色……如此循环。单击“结束”按

19 查阅

[填空题] 在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮,背景色变为红色;再单击,背景色变为绿色;再单击,背景色变为蓝色;再单击背景色变为红色……如此循环。单击“结束”按钮,程序运行结束。请填空。

  Private Sub cmdChange_Click()

   If Mark=0 Then

     【13】 

    Mark=1

    ElseIf 【14】 Then

    Forml.BackColor=vbGreen

    Mark=2

    ElseIf Mark=2 Then

    Form1.BackColor;vbBlue

     【15】 

   End If

  End Sub

  Private Sub cmdExit_Click()

   End

  End Sub

参考答案:

【13】Form1.BackColor = vbRed【14】Mark=1【15】Mark=0

【命题目的】考核条件控制语句的使用方法。【解题要点】首先过程中定义了一个模块级整型变量Mark,每次都保留上次运行后的值。由程序可以看出:本题约定Mark等于0表示背景色为红色;Mark等于1表示背景色为绿色;Mark等于2表示背景色为蓝色,每次单击运行后要将Mark变为下次运行时的值,以便符合题目要求。所以【13】应为Form1.BackColor= vbRed,【14】为Mark=1;当背景色变为蓝色后再单击背景色要变为红色,所以应将Mark变为0,所以【15】为Mark=0。【考点链接】多分支控制语句。

计算机考试