几道qb程序请大家帮忙

来源：百度知道 编辑：UC知道 时间：2024/05/01 18:02:40
1、用键盘输入一个长度大于6的字符串，要求把左起第n、n+1、n+2三个字符换成“123”(不管原来是什么字符)，即变成“***123*…*”。（*表示原来的字符，字符串原有的长度不变）。N也由键盘输入。

2、随机产生15个[0.08，130.99]之间的两位小数，然后将它们按小数点对齐的形式打印出来。

3、用计算机来统计一段英语短文中各单词出现的次数。
程序要求：
用键盘输入一段英语短文。输出此短文中出现单词和该单词出现的次数。
请用Qbasic编写.谢谢了!

回答补充：汗...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 语句在读取时是以逗号(,),空格与回车为界的，故可以利用它来读取单词数
但考滤到可能读入空格，故读入后要判断它是不是空串或空格，如果不是空串或空格，计数