刷题首页
题库
高中信息
题干
(加试题)有如下VB程序段:
flag = True : i = 1
Do While i <= 6
x = Int(Rnd * 100) + 1
If flag Or x >50 Then
a(i)=x
flag = Not flag
i = i + 1
End if
Loop
执行该程序段后,在下列选项中,a(1)~a(6)各元素值不可能的是( )
A.52,95,46,74,77,83
B.50,55,46,70,21,97
C.62,78,57,61,69,50
D.31,54,48,72,50,82
上一题
下一题
0.99难度 选择题 更新时间:2019-11-27 12:16:23
答案(点此获取答案解析)
同类题1
在信息加工中,经常要对被处理的数据进行排序,在排序时经常要进行数据的交换。下面有四个程序段:
其中将能正确地x和y两个变量中的数据进行交换的程序段有几个?
A.1个
B.2个
C.3个
D.4个
同类题2
S=0: M=0:N=0
FOR I=1 TO 20
IF I MOD 2=0 THEN
S=S+1
ELSEIF I MOD 3 =0 THEN
M=M+1
ELSEIF I MOD 5 =0 THEN
N=N+1
END IF
NEXT I
PRINT S,M,N
这段程序的执行结果是( )
A.10 4 1
B.10 3 1
C.10 5 2
D.10 3 3
同类题3
若X=78,则下列程序运行后的运行结果为▁▁。
INPUT X
IF X<60 THEN
PRINT “BuJeGe”
ELSE
IF X<70 THEN
PRINT “JeGe”
ELSE
IF X<85 THEN
PRINT “ZhengDeng”
ELSE
PRINT “YouXiu”
END IF
END IF
END IF
A.YouXiu
B.ZhengDeng
C.JeGe
D.BuJeGe
同类题4
小明在VB中定义了以下函数,功能是求a和b的最大公约数。
Function gcd(a As Integer,b As Integer) As Integer
Do While b>0
c=a Mod b
a=b
b=c
Loop
End Function
调试中发现计算结果一直是0。经过仔细观察与分析,发现错误的原因是( )
A.函数名有错
B.变量c没有定义
C.函数没有返回值
D.b>0应该改为b>=0
同类题5
写出下面流程图所表述的算法的功能▁▁▁▁
A.降序排序
B.求最大值
C.交换输出
D.判断是否是偶数
相关知识点
算法理论
面向对象程序设计 VB开发工具
选择语句
循环语句