VB信号灯的控制.docVIP

教学过程： 一、设计一个窗体，要求每单击一个按钮，即可变换出不同颜色的交通信号等图标。要求窗体界面和程序功能如“交通信号灯.exe”文件所示。 参考代码： Private Sub Command1_Click() Imagered.Visible = True Imageyellow.Visible = False Imagegreen.Visible = False Label1.Caption = 红灯亮 End Sub Private Sub Command2_Click() Imageyellow.Visible = True Imagered.Visible = False Imagegreen.Visible = False Label1.Caption = 黄灯亮 End Sub Private Sub Command3_Click() Imagegreen.Visible = True Imageyellow.Visible = False Imagered.Visible = False Label1.Caption = 绿灯亮 End Sub Private Sub Form_Load() Imagered.Left = Imageyellow.Left Imagered.Top = Imageyellow.Top Imagegreen.Left = Imageyellow.Left Imagegreen.Top = Imageyellow.Top End Sub 二、用inputbox函数输入一个整数，若该数能被７整除，则用msgbox输出“该数是７的倍数”,否则显示“该数不能被７整除”，界面和效果如下图所示： 参考代码： Private Sub Form_Load() a = InputBox(请输入一个整数, 整数输入) If a Mod 7 = 0 Then MsgBox该数是7的倍数, , 判断界面 Else: MsgBox该数不能倍7整除, , 判断界面 End If End Sub 部分同学的界面设计： 参考代码： Private Sub Command1_Click() If Text1.Text Mod 7 = 0 Then MsgBox 该数是7的倍数, 0, 判断界面 Else MsgBox 该数不能被7整除, 0, 判断界面 End If End Sub 三、三、制作一个个人所得税的计算程序：从2006年１月１日起，个人所得税起征点调整为1600元。设超过1600元的部分为x，x在20000以下的个人所得税如表2—6所示。税额的计算公式为： 应纳税＝x*税率－速算扣除数 级数 全月应纳税所得额x 税率% 速算扣除数 １ 不超过500元 5 0 ２ 500-2000（不包括2000） 10 25 ３ 2000-5000（不包括5000） 15 125 ４ 5000-20000（不包括20000） 20 375 计算按钮的事件过程是：从键盘输入某人一个月的总收入，计算其应交所得税，并将其显示在相应的文本框中，要求显示应交所得税的文本框设为只读。界面如图示： 参考代码： Private Sub Command1_Click() a = Val(Text1.Text) - 1600 If a 500 Then Text2.Text = a * 0.05 ElseIf a 2000 Then Text2.Text = a * 0.1 - 25 ElseIf a 5000 Then Text2.Text = a * 0.15 - 150 ElseIf a 20000 Then Text2.Text = a * 0.2 - 525 End If End Sub Private Sub Command2_Click() Unload me End Sub 四、四、制作一个图片大小缩放的工程文件，窗体界面和程序功能如“第四题.exe”文件所示。单击窗体中的“向左移动”按钮，可以使图片向左移动，单击“向右移动”，可以使图片向右移动，点击“放大”按钮，可以使图片长宽放大，点击“缩小”按钮，可以使图片长宽缩小。 参考代码： Private Sub Command1_Click() Image1.Left = Image1.Left - 100 End Sub Private Sub Command2_Click() Image1.Left = Image1.Left + 100 End Sub Private Sub Command3_Click() Image1.Width = Image1.Width + 100 Image1.Hei