有如下VisualBasic程序段：Dima(1To7)AsInteger,iAsInteger,jAsInteger,kAsInteger,cAsIntege_刷题宝

题干

有如下Visual Basic程序段：
Dim a(1 To 7) As Integer, i As Integer, j As Integer, k As Integer, c As Integer
a(1) =" 3:" a(2) =" 9:" a(3) =" 1:" a(4) =" 5:" a(5) =" 8:" a(6) =" 6:" a(2) = 2
s = ""
For i =" 1" To 3
For j =" i" + 1 To 7
If a(j) < a(i) Then
k =" a(j):" a(j) =" a(i):" a(i) = k
c =" c" + 1
End If
Next j
s =" Str(a(i))" + s
Next i
text1.Text =" Str(c)" & “:” & s
该程序段运行后,文本框Text1中显示的内容是

A．5:6 8 9

B．3: 9 8 6

C．3:1 2 3

D．5:3 2 1

上一题下一题 0.99难度选择题更新时间:2017-02-17 10:36:02

答案(点此获取答案解析）

同类题1

在VB中，若a=10，b=15，则语句print a；"+"；b；"="，a+b的结果为（）

同类题2

已知 a=10,b=20,c=40，下列表达式中值为 True 的是（）

B．a<b And b>c

同类题3

编写VB程序，实现如下功能：在文本框Text1中输入一个十进制整数，单击命令按钮Command1,在标签Label2上显示转换成十六进制数的结果，运行效果如图所示。

（1）在设计程序界面时，要使按钮Command1上的文字显示为“转化成十六进制”，应修改按钮Command1的_____________________属性。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim y As Integer, r As Integer
Dim s As String, t As String
t = "0123456789ABCDEF"
s = ""
y = ①_________
Do While y>0
r = y Mod 16
s = ②__________
y = ③_________
Loop
Label2.Caption = Text1.Text + "转化成十六进制数为：" + str(s)
End Sub

同类题4

在 Visual Basic 中，关系表达式 x/y=x\y 为真，则说明

A．x不能被y整除

B．x与y一定不相等

C．x与y一定相等

D．x 能被y整除

同类题5

实现某排序算法的部分VB 程序如下:
For i=1 To 6
k=i
For j=i+1 To 7
If a(j)<a(k) Then k=j
Next j
If i<>k Then
t=a(i):a(i)= a(k):a(k)= t
End If
Next i
在排序过程中,经过某一遍排序“加工”后,数组元素a(1)到a(7)的数据依次为“10,41,75,12,63,11,85”｡则下一遍排序“加工”后数组元素a(1)到a(7)的数据依次是( )

A．10,11,41,75,12,63,85	B．10,11,75,12,63,41,85
C．10,11,12,75,63,41,85	D．10,11,12,41,63,75,85

相关知识点