计算机测速小程序

刘友生
1997-01-01

　　ＲＥＭ　编程语言：ＱＢＡＳＩＣ
　　ＫＥＹ　ＯＦＦ：ＣＬＳ
　　ＬＯＣＡＴＥ　３，１８：ＩＮＰＵＴ　＂请输入测试时间：＂；Ｔ
　　ｔ１＄＝ＴＩＭＥ＄
　　ｔｉｍｅ１＝ＶＡＬ（ＭＩＤ＄（ｔ１＄，１，２））＊３６００＋ＶＡＬ（ＭＩＤ＄（ｔ１＄，４，２））＊６０＋ＶＡＬ（ＭＩＤ＄（ｔ１＄，７，２））
　　ＦＯＲ　ｉ＝１　ＴＯ　５００００００００　　　
　　ｔ２＄＝ＴＩＭＥ＄　　　
　　ｔｉｍｅ２＝ＶＡＬ（ＭＩＤ＄（ｔ２＄，１，２））＊３６００＋ＶＡＬ（ＭＩＤ＄（ｔ２＄，４，２））＊６０＋ＶＡＬ（ＭＩＤ＄（ｔ２＄，７，２））　　　
　　ＬＯＣＡＴＥ　５，１８：　　　
　　ＺＣ＝ｔｉｍｅ２－ｔｉｍｅ１　　　
　　ＰＲＩＮＴ　ＩＮＴ（ＺＣ／６０）；＂分＂；ＺＣ　ＭＯＤ　６０；＂秒＂　　　
　　ＩＦ　ＺＣ＝Ｔ　ＴＨＥＮ　　　　　　
　　ＬＯＣＡＴＥ　７，１８：ＰＲＩＮＴ　ＩＮＴ（ｉ＊１８／ＺＣ）；＂次／每秒运行＂：ＥＸＩＴ　ＦＯＲ　　　
　　ＥＮＤ　ＩＦ
　　ＮＥＸＴ　ｉ
　　ＥＮＤ　　

 