無泪、じòぴé

三、课堂练习和回家作业（先画出流程图，再编写程序代码，最后在VB环境下编程运行）

1、[文件名：判奇偶]  从键盘任意输入一个正整数，判断其奇偶性，如果是奇数，则输出“该数是奇数”，否则输出“该数是偶数”。

2、[文件名：给评语]  输入某学生成绩，若成绩在85分以上则输出“very good”,若成绩在60分至85分之间则输出“good”，若成绩低于60分则输出“no good”。

3、[文件名：解一元二次方程]  输入任意大小的三个系数的值给a、b、c赋值，然后根据根号判别式的值的大小性质，求解一元二次方程的解（当b2-4ac大于0时应求出两个不相同的实数解；当b2-4ac等于0时应说明有两个相同的实数解并给出解；当b2-4ac小于0时应给出“无实数解”的提示）。

4、[文件名：三数降序排序]  从键盘输入三个数a，b，c，按从大到小的顺序输出三个变量的值。

无视y1切

你要做的的excel？

无视y1切

=if(mod(mid(a1,15,3),2),"奇数","偶数“）   不对不要来找我哈

無泪、じòぴé

Private Sub Command1_Click()
a=Text1.Text
If a Mod 2 = 0 Then
     Print " a是偶数"
Else
     Print " a是奇数"
End If
End Sub

無泪、じòぴé

Private Sub Command1_Click()
a = Text1.Text
If a > 85 Then
     Print "very good"
Else
     If a >= 60 Then
           Print "good"
     Else
           Print "no good"
     End If
End If
End Sub

無泪、じòぴé

Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
c = Text3.Text
If a > b Then
    x = a: a = b: b = x
    Else
    If a > c Then
        x = a: a = c: c = x
        Else
        x = b: b = c: c = x
        End If
End If
Print a, b, c
End Sub