Office中国论坛/Access中国论坛

标题: 请教各位大侠如何实现如下小程序 [打印本页]

作者: jay 时间: 2003-9-23 20:13
标题: 请教各位大侠如何实现如下小程序
请教各位大侠如何实现如下小程序
这是温度记录的程序

要求：用FUNCTION（函数）ARRAY（数组）和读，写TEXT FILE（文本文件）来完成这个程序,界面全部用英语,生成.exe

这里给出了3个年份的温度记录，分别是：
2001 月       温度
January 34.71
February  29.17
March    21.90
April    20.35
May    14.99
June    19.01
July    14.02
August 21.48
September 24.27
October 29.12
November  29.13
December  33.14

2002 月       温度
January 35.54
February  28.62
March    22.01
April    21.23
May    15.08
June    18.92
July    13.75
August 21.73
September 24.35
October 28.96
November  29.47
December  32.78

2003 月       温度
January 37.71
February  31.70
March    27.89
April    24.50
May    23.05

开始菜单：
1。Select a year to work with ( 输入要看的年份）
2. Display data as a table ( 显示数据在桌面上）
3. Display data as a vertical histogram (显示数据在图表里）
4. Display yearly statistics to date ( 显示统计的日子）
5. Record data ( 保存数据）
6. Change data ( 修改数据）
7. Store the current data ( 保存当前数据）

0. Exit the program (结束并保存程序）

Please enter a number (0 .. 7) ==>（输入数字0-7）

程序正式开始运行：

首先，要问用户输入0--7的数字。（如果是第一次用这个程序，用户必须要先选1，然后输入年份才能继续以后的程序运行）
输入年份后，如果是2000，2001或2003。程序将继续返回主菜单，并问用户输入下一步（就是在从0-7中输入数字）
如果用户输入的是其他年份，程序要首先问用户是否要新建一个TEXT FILE（文本文件）如果用户选择是，那程序需要叫用户输入
从1月到12月每个月的温度，然后保存在TEXT FILE（文本文件）同时返回主菜单。如果用户选择不是，程序也将返回主菜单,并且默认
当前年份和用户输入的年份一样，但没有任何温度记录

在输入了年份之后，如果用户选择输入2，那程序需要把那年的所有温度显示出来，格式如下：
Table of temperature data for 2003
Quarter1 --- --- ---
Quarter2 --- --- ---
注意，在输出的时候，每行只能显示3个温度，之后就要在下一行显示，而且Quarter后面的数字要和行数一样，
显示结束后，系统会问用户回到主菜单。如果当前的年份没有任何的温度记录，系统需要在返回主菜单之前给
用户提示信息-“There is no any data racord in this year"

在返回主菜单后，如果用户输入数字3，那程序要显示那年每月的温度用“*”表示（比如25。1，就用25个*。要4舍5入）格式如下：
Histogram of temperture data for ----(这里显示的年份）
Jan *********
Feb ***********
Mar ************
Apr **********
May ********
Jun ********************          （*的数量和温度一样）
Jul **********
Aug ********************
Sep ******************************
Oct **********
Nov ************
Dec ***********
显示结束后，系统会问用户回到主菜单。如果当前的年份没有任何的温度记录，系统需要在返回主菜单之前给用户提示信息-
“There is no any data racord in this year"

在返回主菜单后，如果用户输入数字4，那程序要显示那年温度记录中的最高，最低和平均数值。格式如下：
Temperature statistics for 2002

Highest monthly average

最高）
Lowest monthly average:（最低）
Average yearly temperature: (平均数值）
显示结束后，系统会问用户回到主菜单。如果当前的年份没有任何的温度记录，系统需要在返回主菜单之前给
用户提示信息-“There is no any data racord in this year"

在返回主菜单后，如果用户输入数字5，那程序要用户输入更多的月份温度记录，比如说，2003，TEXT FILE（文本文件）
里的记录是到5月，那系统就要叫用户从6月开始继续输入每月的温度记录，直到12月结束。如果当年的记录已经
满了12个月，那要提示用户，温度已经满了。并结束输入，返回主菜单。
输入结束后，系统会问用户回到主菜单。如果当前的年份没有任何的温度记录，系统需要在返回主菜单之前给
用户提示信息-“There is no any data racord in this year"

在返回主菜单后，如果用户输入数字6，那系统要问用户具体要改那年中哪个月的温度，修改后要保存并覆盖之前的温度记录
输入结束后，系统会问用户回到主菜单。如果当前的年份没有任何的温度记录，系统需要在返回主菜单之前给
用户提示信息-“There is no any data racord in this year"

在返回主菜单后，如果用户输入数字7，系统要把当前的温度记录全部保存。并返回主菜单。

在返回主菜单后，如果用户输入数字0，结束程序。

以下是我写的一点开头，主要是在用户输入错误的

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)