刷题首页
题库
高中信息
题干
有如下VB程序段:
For i =" 1" To 3
For j =" 5" To i Step -1
If a(j) < a(j + 1) Then
k =" a(j):" a(j) =" a(j" + 1): a(j + 1) = k
End If
Next j
List1.AddItem Str(a(i))
Next i
数组元素a(1)到a(6)的数据依次为“1,5,7,6,9,3”,经过该程序段加工后,列表框list1中显示的内容是:
A.9、7、6
B.1,3,5
C.9、7、6、1、5、3
D.9,7,6,5,3,1
上一题
下一题
0.99难度 选择题 更新时间:2017-03-01 04:49:01
答案(点此获取答案解析)
同类题1
某Visual Basic程序如下:
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i As Integer
a(1) = 1
For i =" 2" To 10
a(i) =" a(i-1)" + i
Next i
Text1.Text = Str(a(5))
End Sub
运行程序,单击命令按钮Command1后,在文本框Text1中显示的内容为( )
A.5
B.10
C.15
D.21
同类题2
在VB语言中,字符串运算符“+”和“&”的作用是把两个或多个字符串连接成一个字符串,则表达式"20" + "13" & "20+13"的运算结果是( )
A."3333"
B."201333"
C."201320+13"
D."332013"
同类题3
在VB中,给变量a,b,c均赋值为1,下列语句正确的是( )
A.a=1,b=1,c=1
B.a=1:b=1:c=1
C.a=1;b=1;c=1
D.a=b=c=1
同类题4
一个六位数n,它的高二位与低二位恰好相同,同时又能被97整除,如109610、196619等。编写VB程序,统计所有符合条件的六位数的个数。
Dim n As Long '六位数
Dim g2 As Integer '高二位
Dim d2 As Integer '低二位
Dim t As Integer '计数
t = 0
n = 100000
Do
g2= ______①______
d2= ______②______
Loop Until n>=1000000
Print t
‘备注:loop until 指的是循环到若条件成立则退出循环
同类题5
设a="2," b="3," c="4," d="5," 下列表达式Not a<="c" Or 4*c="b^2" And b<>a+c的值是( )
A.-1
B.1
C.True
D.False
相关知识点
算法理论
面向对象程序设计 VB开发工具
基本运算及表达式