Qbasic语言中,能产生1～100之间（含0和100）的随机整数的表达式为（ ）.

一道QBASIC的题下面程序用于统计从键盘输入字符串中,英文字母“a”的个数.请将程序补充完整.clss=0input

一道QBASIC的题
下面程序用于统计从键盘输入字符串中,英文字母“a”的个数.请将程序补充完整.
cls
s=0
input st$
for x=1 to ______
if ______ ="a" then s=_______
next x
print "s=";s
end
我就知道第三个是 s=s+1

boboqian1年前1

慎诚 共回答了18个问题 | 采纳率94.4%

这道题的纲要,知道LEN函数为统计字符串长度的.
（1）LEN(ST$)
要知道MID$函数是干什么的,一个一个的取,取出来判断就可以了.
（2）MID$(ST$,X,1)
正如楼主所说的,第三个填的是（s＝s＋1）
这个程序很简单啊,如果有QBASIC问题可以百度HI我!

1年前查看全部

QBasic无暇素数无暇素数是一个两位数,各位、十位对调后还是素数.求所有的无暇素数

iceses1年前1

GRACES119 共回答了21个问题 | 采纳率90.5%

CLS
FOR i = 10 TO 99
k = 0:t = 0
DO
k = k + 1
FOR j = 2 TO i /2
IF k * j = i THEN t = t + 1:EXIT DO
NEXT j
LOOP UNTIL k = i
k=0
p1 = FIX(i / 10)*10+i10
do
k=k+1
for j = 2 to p12
if k*j=p1 then t=t+1:exit do
next j
loop until k=p1
IF t = 0 THEN PRINT i,:y = y + 1
NEXT i
PRINT
PRINT "all"; y
END

1年前查看全部

IF THEN 在QBASIC里有什么用啊,不用他行不行啊?

IF THEN 在QBASIC里有什么用啊,不用他行不行啊?
易懂一点

suyuanguan1年前2

悠悠烟水 共回答了13个问题 | 采纳率69.2%

if then 为条件语句,就是指“如果……就……”,在qbasic中：
条语句：IF THEN
块语句：
IF THEN

end if
一般与else同用：
条语句：IF THEN ELSE
块语句：
IF THEN

ELSE

END IF

1年前查看全部

用qbasic判断一个数是不是绝对素数素数

陌上清1年前2

激战黄金圣斗士 共回答了18个问题 | 采纳率88.9%

CLS
RANDOMIZE TIMER
A=INT(RND*2+1)
IF A=2 THEN "YES" ELSE "NO"

1年前查看全部

求QBasic表达式1.数X四舍五入保留2位小数的表达式为2.写出X是否为偶数的表达式3.条件1〈X《2或10《X〈15

求QBasic表达式
1.数X四舍五入保留2位小数的表达式为
2.写出X是否为偶数的表达式
3.条件1〈X《2或10《X〈15在BASIC中应成条件表达式

玲珑无心1年前1

J清N茶J 共回答了18个问题 | 采纳率88.9%

1) SGN(X)*INT(ABS(X)*100+0.5)/100
2) X MOD 2=0 或 INT(X/2)=INT(X/2) 或 X/2=X2
3) (X>1 AND X=10 AND X

1年前查看全部

(1)、有如下QBASIC 程序段：该程序段运行后,变量a的值是（ ）.（2分） a = 20 If a

以_一1年前1

情丝语 共回答了16个问题 | 采纳率93.8%

a = 20
If a

1年前查看全部

用qbasic求20到50之间的质数

nanjing61年前3

muto 共回答了21个问题 | 采纳率100%

CLS
FOR I=20 TO 50
JS=0
FOR J=1 TO I
IF I MOD J=0 THEN
JS=JS+1
END IF
NEXT J
IF JS=2 THEN PRINT I
NEXT I
END

1年前查看全部

QBASIC语法词汇QBASIC中RANDOMIZE TIMER和TAB分别有什么意义?比如:CLSFOR I = 1T

QBASIC语法词汇
QBASIC中RANDOMIZE TIMER和TAB分别有什么意义?
比如:
CLS
FOR I = 1TO 10
PRINT TAB(16-I);" * "
屏幕上就会出现一条由 * 组成的斜线

等你19个月1年前2

chemhehe 共回答了20个问题 | 采纳率100%

RANDOMIZE格式：RANDOMIZE
作用：初始化机器内部的随机数发生器(RND).
TAB格式：TAB(n%)
作用：将当前字符光标当前的第n%列位置,该函数也仅可用在PRINT和LPRINT语句中.

1年前查看全部

qbasic中取正负两数之间的随机数公式

米米要做结婚狂1年前1

wxx872510 共回答了17个问题 | 采纳率82.4%

设正数为a,负数为b.
randomize timer
用时int(rnd*(a-b+1))+a

1年前查看全部

求QBASIC 高一几个算法语句

求QBASIC 高一几个算法语句
1、输入一个三位数 求各位数之和
2、输入三数,除去最大值取剩下两数的平均
3、输出100的所有正约数,并计算满足条件的个数

情似游丝1年前1

zhangshubin1130 共回答了16个问题 | 采纳率93.8%

1、输入一个三位数 求各位数之和
CLS
DO
PRINT "please input a number(100

1年前查看全部

怎样用qbasic解一个未知数的方程.最好有过程,有讲解

kaifengren1年前1

Mike__zheng 共回答了22个问题 | 采纳率95.5%

对于这种问题,有点无语,比较难!
给你一个解带括号的算式值的程序吧!
CLS
INPUT A$
L = LEN(A$)
DIM A$(L),B(L)
PRINT A$; =;
DO
Q = INSTR(A$,))
IF Q

1年前查看全部

设计一个算法,求所有这样的三位数这些三位数等于它各位数字的立方和.用Qbasic程序求解

设计一个算法,求所有这样的三位数这些三位数等于它各位数字的立方和.用Qbasic程序求解
设计一个算法,求所有这样的三位数这些三位数等于它各位数字的立方和.
n=100
x=1
y=0
i=0
Do
IF n=x^3+y^3+i^3 THEN
PRINT n
END IF
n=n+1
i=i+1
IF i>9 THEN
i=0
y=y+1
END IF
IF y>9 THEN
y=0
x=x+1
END IF
LOOP UNTIL n>=1000
END

孙琎1年前4

llb88 共回答了11个问题 | 采纳率100%

你说的是 水仙花数 吗
n=100
x=1
y=0
i=0
Do
IF n=x^3+y^3+i^3 THEN
PRINT n
END IF
n=n+1
i=i+1
IF i>9 THEN
i=0
y=y+1
END IF
IF y>9 THEN
y=0
x=x+1
END IF
LOOP UNTIL n>=1000
END

1年前查看全部

QBASIC程序完善程序，请将正确的内容填在该题相应的下划线上。程序的功能为计算 Y=30+31+32+……320。 T

QBASIC程序
完善程序，请将正确的内容填在该题相应的下划线上。程序的功能
为计算 Y=30+31+32+……320。
T=0
FOR N=（ ）
P=3^N
T=( )
NEXT N
PRINT T
END

bfbo1年前1

cookle5 共回答了24个问题 | 采纳率83.3%

T=0
FOR N=（30 TO 320 ）
P=3^N
T=( T+N )
NEXT N
PRINT T
END

1年前查看全部

一道QBASIC题for i = 1 to 10a =int(90*rnd)+10b =int(90*rnd)+10pr

一道QBASIC题
for i = 1 to 10
a =int(90*rnd)+10
b =int(90*rnd)+10
print a ; "+" ; b; "=";
if c=a+b then score =score +10
next i
print "your score is"; score
end
随机数是怎么循环的,

秋水随想1年前2

diomede 共回答了17个问题 | 采纳率100%

for i = 1 to 10
next i
这是强行循环的.
题中的c根本没有赋值,无法进行if c=a+b then 的判断.
随机数90*rnd 是0～90出随机数,a与b均是10～100的范围.
但是由于c的错误,变量score不能赋值,所以最终输出：
your score is 0
就这样了.

1年前查看全部

如何用QBASIC计算代数式?当a=3 b=4时用QB计算a+3b等于多少?

一起去海边HAPPY1年前2

danshenya018 共回答了14个问题 | 采纳率85.7%

a=3
b=4
c=a+3*b
print c
end

1年前查看全部

QBasic初学题目解答计算两个数的差,判断这个差是正数,还是零,还是负数.clsinput "a,b";a,bc=a-

QBasic初学题目解答
计算两个数的差,判断这个差是正数,还是零,还是负数.
cls
input "a,b";a,b
c=a-b
if c

eileen12341年前7

走投无路 共回答了27个问题 | 采纳率96.3%

c=a-b
先不用管a、b,你写的if c0 then
print "+,zheng shu"
else
if c=0 then print"0,a=b" else print"-,a

1年前查看全部

QBASIC 运算!完善下列程序,使其判断从键盘输入的一个正整数的奇偶性.INUPT XIF X/2____INT(X/

QBASIC 运算!
完善下列程序,使其判断从键盘输入的一个正整数的奇偶性.
INUPT X
IF X/2____INT(X/2) THEN
PRINT "这是个偶数"
ELSE
PRINT "这是个奇数"
END IF
END
------------------------------------------------------------
完善下列程序,使其能求出1+5+9+……+21之和.
LET Y=0
FOR I=1 TO 21 STEP ______
LET Y=Y+I
NEXT I
PRINT Y
END
------------------------------------------
写出下列程序运行结果.
LET A= 2
LET B= 9
LET C=A+SQR(B)
PRINT C
END
运行结果:_______
---------------------------------------------
写出下列程序运行结果.
LET X=20
LET Y=5
LET Z=X/Y-1
PRINT Z
END
运行结果:_______

游子A11年前1

alldied 共回答了25个问题 | 采纳率96%

INUPT X
IF X/2__=__INT(X/2) THEN
PRINT "这是个偶数"
ELSE
PRINT "这是个奇数"
END IF
END
------------------------------------------------------------
完善下列程序,使其能求出1+5+9+……+21之和.
LET Y=0
FOR I=1 TO 21 STEP __4____
LET Y=Y+I
NEXT I
PRINT Y
END
------------------------------------------
写出下列程序运行结果.
LET A= 2
LET B= 9
LET C=A+SQR(B)//sql是求平方根的函数,这里是计算根号下9是多少
PRINT C
END
运行结果:___5____
---------------------------------------------
写出下列程序运行结果.
LET X=20
LET Y=5
LET Z=X/Y-1
PRINT Z
END
运行结果:___3____

1年前查看全部

关于round函数大家看下这QBASIC程序x = -13.2y = 0.32z = nit ( x )e = abs

关于round函数
大家看下这QBASIC程序
x = -13.2
y = 0.32
z = nit ( x )
e = abs ( z + round(y * 5 ) )
print z
print e
end
我想问下那个"round"这个函数是表示的是什么意思?
能详细的给我说说下吗?

不再存在的东山区1年前1

一虫虫 共回答了11个问题 | 采纳率100%

ound函数可能是自定义的四舍五入函数,以实现四舍五入的功能.例如：ROUND（4.5）=5,ROUND（4.4）=4.在QBASIC中,可以用INT函数来直接实现四舍五入,INT函数的格式是INT（X）,它可以实现取整的功能,例如INT（4.4）=4,INT（4.8）=4.在将它稍稍变化后,可实现四舍五入,格式为：INT（X+0.5）,例如：将4.4四舍五入,INT（4.4+0.5）=4,将4.8四舍五入,INT（4.8+0.5）=5.

1年前查看全部

Qbasic的一道题先输出n除以7的余数,应该是n MOD 7吧,然后下一步要判断余数是否为0,怎么写?

xppww1年前1

jeuhala 共回答了14个问题 | 采纳率85.7%

input n
s=n mod 7
if s=0 then print "neng zheng chu!"
end

1年前查看全部

求一道QBASIC题答案键盘输入任意一个三位整数X,分离出个位G,十位S和百位B,输出X的各位数字之和.如：输入123,

求一道QBASIC题答案
键盘输入任意一个三位整数X,分离出个位G,十位S和百位B,输出X的各位数字之和.如：输入123,输出1+2+3=6
————————
G=_______
S=_______
B=_______
S=_______
PRINT ____________________;S
END
问题如上,求哪位大哥帮帮忙!

维修卡1年前1

ilyhk20 共回答了6个问题 | 采纳率83.3%

G=X-X100*100-(X10-X100*10)
S=X10-X100*10
B=X100
S=S+G+B
PRINT G;"+";S-G-B;"+";B;"=";S
END
或者
G=X-INT(X/100)*100-(INT(X/10)-INT(X/100)*10)
S=INT(X/10)-INT(X/100)*10
B=INT(X/100)
S=S+G+B
PRINT G;"+";S-G-B;"+";B;"=";S
END
话说题里给的变量名和语句顺序太2了吧...本来这种问题不需要这么费劲的表达的.出题的人脑子有问题,估计又是应试教育下的畸形.

1年前查看全部

一道QBASIC题,会的指导下

我怎样才能找到你1年前1

大后天会更好 共回答了16个问题 | 采纳率75%

运算结果：90
逐行解释：
设置s为0,i为1
当i小于等于100时执行以下循环
如果i除以10的余数不等于0,那么
设置s的值为s当前值+1,设置i的值为i当前值+1
否则
设置i的值为i当前值+1
结束判断
循环
输出s的值

1年前查看全部

QBASIC试题~写出下列程序运行结果.LET A=1LET B=5LET T=ALET A=BLET B=TPRINT

QBASIC试题~
写出下列程序运行结果.
LET A=1
LET B=5
LET T=A
LET A=B
LET B=T
PRINT B
END
运行结果:(_1_)

buding12261年前1

神之幻游 共回答了13个问题 | 采纳率100%

A=1
B=5
LET T=A 那么 A=1 B=5 T=A=1
LET A=B 那么 A=B=5 B=5 T=1
LET B=T 那么 A=5 B=T=1 T=1
输出B
那么 运行结果:1
很简单的,虽然我学的是pasic

1年前查看全部