vb程序设计0道编程题.docxVIP

1 . 输 入 3 个 数 ， 输 出 最 大 的 数 Private Sub Command11_Click() Dim max% X1=Val(InputBox(input)) X2=Val(InputBox(input)) x3=Val(InputBox(input)) max=X1 If max=X2 Then End Sub Private Sub Command14_Click() 4.输入一年份，判断它是否为闰年，并显示有关信息。 （判断闰年的条件是：年份能4被整除但不能被100 整除 ， 或 者 能 被 400 整 除 ） yes=Val(InputBox(year)) If yes Mod 4=0 And yes Mod 1000 Or yes Mod 400=0 Then max=X2 End If If max=x3 Then max=x3 End If MsgBox(yes是 Else MsgBox(yes不 End If End Sub 闰年) 是闰年) MsgBox(3个数之中的最大数max=max) End Sub Private Sub Command12_Click() Private Sub Command15_Click() 5.输入学生的百分制成绩，转换输出为五级制成绩， 90～100 分转换为优秀，80～89 转换为良好，70～