单元五 选择结构.pptVIP

Private Sub Form_Load() Command1.Caption = 判断 Command1.FontName = 黑体 Form1.FontSize = 12 Form1.FontBold = True End Sub * * * * * * * * * * * * * * * * * * * 判断闰年的条件： y mod 400=0 or (y mod 4 =0 and y mod 100 0) 3. 补充题：使用IF语句的嵌套，编写鸡兔同笼问题。 设：鸡为X只，兔为Y只则： x=(4h-f)/2 y=(f-2h)/2 判断条件： （1）要求 2h≤f ≤ 4h ， 范围以外显示“非法数据”(使用用消息框) （2）且 f 应为偶数， 否则显示为“不合题义” (使用用消息框) * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Private sub command1_click() dim x as sing