千橡游戏 - Powered by Discuz! Board

标题: 找编程高手求帮助 [打印本页]

作者: 無泪、じòぴé 时间: 2011-10-16 17:40 标题: 找编程高手求帮助

三、课堂练习和回家作业（先画出流程图，再编写程序代码，最后在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，按从大到小的顺序输出三个变量的值。

作者: Tsnaa 时间: 2011-10-16 17:41

提示: 作者被禁止或删除内容自动屏蔽

作者: 无视y1切 时间: 2011-10-16 17:50

你要做的的excel？

作者: Me悦子 时间: 2011-10-16 18:01 标题: 回复 3# 无视y1切的帖子

提示: 作者被禁止或删除内容自动屏蔽

作者: 无视y1切 时间: 2011-10-16 18:04

=if(mod(mid(a1,15,3),2),"奇数","偶数“）

不对不要来找我哈

作者: 花落无声 时间: 2011-10-16 18:07

提示: 作者被禁止或删除内容自动屏蔽

作者: 無泪、じòぴé 时间: 2011-10-16 18:12

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

作者: 無泪、じòぴé 时间: 2011-10-16 18:17

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

作者: 無泪、じòぴé 时间: 2011-10-16 18:35

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

作者: Tsnaa 时间: 2011-10-16 18:36

提示: 作者被禁止或删除内容自动屏蔽

作者: 花落无声 时间: 2011-10-16 18:39

提示: 作者被禁止或删除内容自动屏蔽

作者: 拓跋风__横扫-s16 时间: 2011-10-16 19:05

提示: 作者被禁止或删除内容自动屏蔽

作者: 拓跋风__横扫-s16 时间: 2011-10-16 19:12

提示: 作者被禁止或删除内容自动屏蔽

作者: Tsnaa 时间: 2011-10-16 19:13

提示: 作者被禁止或删除内容自动屏蔽

作者: 无视y1切 时间: 2011-10-16 19:25

求教C语言

欢迎光临千橡游戏 (http://bbs.t.imop.com/)