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

admin2009-01-15  34

问题 在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮,背景色变为红色;再单击,背景色变为绿色;再单击,背景色变为蓝色;再单击背景色变为红色……如此循环。单击“结束”按钮,程序运行结束。请填空。
  Private Sub cmdChange_Click()
   If Mark=0 Then
  【  】
    Mark=1
    ElseIf【  】Then
    Forml.BackColor=vbGreen
    Mark=2
    ElseIf Mark=2 Then
    Form1.BackColor;vbBlue
  【  】
   End If
  End Sub
  Private Sub cmdExit_Click()
   End
  End Sub

选项

答案Form1.BackColor = vbRed , Mark=1 , Mark=0

解析 首先过程中定义了一个模块级整型变量Mark,每次都保留上次运行后的值。由程序可以看出:本题约定Mark等于0表示背景色为红色;Mark等于1表示背景色为绿色;Mark等于2表示背景色为蓝色,每次单击运行后要将Mark变为下次运行时的值,以便符合题目要求。所以【  】应为Form1.BackColor= vbRed,【  】为Mark=1;当背景色变为蓝色后再单击背景色要变为红色,所以应将Mark变为0,所以【  】为Mark=0。注意:多分支控制语句。
转载请注明原文地址:https://kaotiyun.com/show/tp2p777K
0

最新回复(0)