请教一个QB的程序怎么写

高中学过QBasic 的，那时候学的还是相当不错的，现在都是有，VB，C，C++，Java，Jsp ... 一路过来

QBasic直接写，肯定是那个程序的语法都有了。具体什么要求啊，写的不是很清楚啊！

“这个程序要我用来测打印机的黑块”，敢问是直接用QB的程序就可以运行吗？没想到QB还真的有用武之地！！！

回答补充：汗...QBasic全称就是Quick Basic

[问题一的代码][QuickBasic v4.5运行通过]

INPUT "Please Input Strings:", a$

DIM l AS INTEGER, n AS INTEGER

INPUT "Input an INTEGER Number:", n

MID$(a$, n, 1) = "1"

MID$(a$, n + 1, 1) = "2"

MID$(a$, n + 2, 1) = "3"

PRINT a$

[问题二答案-QuickBasic 4.5 运行通过]

RANDOMIZE TIMER

CLS

DIM i AS INTEGER

FOR i = 1 TO 15

PRINT USING "###.##"INT(RND * (13099 - 8 + 1) + 8) / 100

NEXT

'*注释

'*生成整数A-B间抱括A与B的随机整数函数是 int(rnd(b-a+1)+a)

'*randomize timer,是打开随机数发生器，免得每次第一次运行程序时产生随机数相同。

'Print using "###.##"是格式化字符串，表示输出3位数与两位小数，这样，小数点就可以对齐。

第三个有点难度，我不能在短时间内写出，故只好给出一个笨方法（基于英语短文一般不长)

先把短文写到一文本文件a.txt,然后在Qbasic中读入:

open "a.txt" for input as 1

input #1,a$

其中input 语句在读取时是以逗号(,),空格与回车为界的，故可以利用它来读取单词数

但考滤到可能读入空格，故读入后要判断它是不是空串或空格，如果不是空串或空格，计数器加1

input #1,a$

a$=ltrim$(a$) '去除左边空格

a$=rtrim$(a$) '去右边空格

if a$<>"" then a=a+1 '计数器加一

这是统计单词数

至于统计重复数，算法较难，小虾我无能，呵呵

---