大一计算机期末程序考试常考题.docVIP

判断奇数还是偶数 Private Sub Form_Click() Dim x As Integer x = Val(InputBox(请输入要判断的数)) If x Mod 2 = 0 Then Print x; 是一个偶数 Else Print x; 是一个奇数 End If End Sub 成绩的评定 Private Sub Command1_Click() Dim sgnx As Single sgnx = Val(Text1.Text) If sgnx = 0 And sgnx 60 Then Label3.Caption = 很差 ElseIf sgnx = 60 And sgnx 80 Then Label3.Caption = 中等 ElseIf sgnx = 80 And sgnx = 100 Then Label3.Caption = 很好 Else MsgBox 成绩输入不合格请重新输入 Text1.Text = End If End Sub 5-5输入ABC三个数按照由大到小打印出来 Private Sub Form_Click() Dim a As Single, b As Single, c As Single a = Inp