刷题首页
题库
高中信息
题干
有如下VB程序段:
For i=1To5
a(i)=Int(Rnd*20)+1
Next i
For i=2 To 5
If i Mod 2=1 And a(i-1)<a(i)Then
t=a(i):a(i)=a(i-1):a(i-1)=t
Else
a(i)=a(i)-1
End If
Next i
执行该程序段后,a(1)~a(5)各元素不可能的值是( )
A.7 3 0 19 0
B.18 16 1 9 2
C.20 17 8 19 15
D.19 0 7 8 4
上一题
下一题
0.99难度 选择题 更新时间:2019-11-20 12:46:59
答案(点此获取答案解析)
同类题1
若依次输入12,6,运行以下VB程序的结果是( )
A.24
B.30
C.1266
D.12612
同类题2
输出的结果为
。
Dim n as integer
Dim s as long
n=9
s=0
do while n>=1
s=s+n
n=n-2
loop
print s
同类题3
某Visual Basic程序如下:
Private Sub Command1_Click()
Dim x As Integer, y As Integer ,a As Integer ,b As Integer
X="0"
y=0
For a="1" To 3
x=x+1
For b="2" to 4
y=y+1
Next b
Next a
Text1.text=str(a)
Text2.text=str(b)
End Sub
单击Command1按钮后,Text1显示
①
,Text2显示
②
。
同类题4
运行如下VB程序:
Private Sub Command1_Click( )
Dim x As Integer
Dim y As String
x=Val(Text1.Text)
If x>=95 Then
y=“非常满意”
ElseIf x>=80 Then
y=“满意”
ElseIf x>=60 Then
y=“基本满意”
Else
y=“不满意”
End If
Label1.Caption=y
End Sub
在文本框Text1中输入50,单击命令按钮Command1后,在标签Label1中显示( )
A.非常满意
B.满意
C.基本满意
D.不满意
同类题5
下列VB程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是
,文本框Text2中显示的内容是
。
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0"
n=10
for i =" 2" to 10 step 3:Zxxk.Com
If n Mod i =" 0" Then
c = c+i
else
c=" c" * i
end if
next i
Text1.Text = Str(i)
Text2.Text = Str(c)
End Sub
相关知识点
算法理论
面向对象程序设计 VB开发工具
选择语句
循环语句