有如下VB程序段：a(1)="231":a(2)="34":a(3)="23":a(4)="234":a(5)="123"Fori=1To2Forj=1To5-_刷题宝

题干

有如下 VB 程序段：
a(1) = "231": a(2) = "34": a(3) = "23": a(4) = "234": a(5) = "123"
For i = 1 To 2
For j = 1 To 5 - i
If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t
Next j
Text1.text=a(j)
Next i
执行该程序段后，文本框Text1显示的内容为（）

A．34	B．123
C．231	D．234

上一题下一题 0.99难度选择题更新时间:2019-11-27 12:17:11

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

同类题1

有如下 VB 程序段：
Private Sub Commandl_Click()
Dim s As String, res As String, ch As String
Dim i As Integer
s=Textl.Text:res="":ch=""
For i=1 To Len(s)
ch=Mid(s,i,l)
If Not(ch>="0"And ch<="9"＝Then
res=ch＋res
End If
Next i
Labell.Caption=res
End Sub
在文本框 Textl 中输入“Qns 2020_GK”后单击按钮 Command1，在标签Labell 中显示（）

同类题2

有如下 VB 程序段：
s = 0
For i = 1 To 10
s = s + i Mod 2
Next i
Label1.Caption = Str(s) &“-”& str(i) 该程序段运行后，在标签 Label1 上显示的是( )。

同类题3

Function f(x As Long, y As Long) As Long
Dim t As Long, r As Long
If x < y Then t =" x:" x =" y:" y = t
r =" x" Mod y
Do While r <> 0
x =" y:" y = r
r =" x" Mod y
Loop
f = y
End Function
-------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim a As Long, b As Long
x = Val(InputBox("x="))
y = Val(InputBox("y="))
a =" x:" b = y
s =" f(x," y)
MsgBox (Str(a * b / s))
End Sub
当x=20，y=6时，以上程序运行后，输出结果是（）

同类题4

某VB程序段如下：
s=0
For i=2 To 5
For j=i To 5
If j Mod i=0 Then
a(j)=a(j)+1
s=s+a(j)
End If
Next j
Next i
数组a的初值均为0，上面程序段执行后，最终变量s的值为（）

同类题5

在VB 中，用来实现循环结构的语句是（）。

A．For…Next	B．Do While…Loop
C．If…Then…	D．Do…Loop Until

相关知识点