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

题干

有如下VB程序段：
a(1)＝"231"：a(2)＝"34"：a(3)＝"23"：a(4)＝"234"：a(5)＝"123"
For i＝1To4

For j＝1To5－i

If a(j)>a(j＋1)Then t＝a(j)：a(j)＝a(j＋1)：a(j＋1)＝t

Next j

Next i
执行该程序段后，数组元素a(1)到a(5)的数据依次为( )

A．“23”，”231”，”234”，”34”，”123”	B．“23”，”123”，”231”，”234”，”34”
C．“23”，”34”，”123”，”231”，”234”	D．“123”，”23”，”231”，”234”，”34”

上一题下一题 0.99难度选择题更新时间:2019-11-20 12:46:56

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

同类题1

有如下VB程序段：
s=“Good Luck 2019!”
n=0：m=0：k=0
For i=1 To Len(s)

ch=Mid(s，i，1)

If ch >=”0”And ch<=”9” Then

Else If ch>="a” And ch<=”z” Then

Else

End If

Next i
执行该程序段后，变量k的值为( )

同类题2

下列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

同类题3

小明用 VB编写了一个连续高温天数的统计软件。小明采集了金华市 7-8 月的每日最高气温，并存放在 ACCESS数据库中。程序运行时，读取日期和最高气温并显示在列表框 List1 中，在文本框 Text1 中输入温度值，单击“统计”按钮 Command1，程序自动统计运行在该温度值及以上的最长连续天数，并显示在 Text3 中，同时在 Text2 中显示日期区间，运行界面如下图所示。

实现上述功能的 VB 代码如下，在划线处填入合适代码。
Dim rq(1 To 100) As String ‘ 存放日期
Dim qw(1 To 100) As Integer ‘ 存放最高气温值
Dim n As Integer '总天数
Private Sub Form_Load()
' 读取数据库内容，其中日期数据存放在数组 rq 中，最高气温数据存放在 qw 中，第 i 个日期保存在 rq（i）中，对应的气温保存在 qw（i）中，并显示在列表框 List1 中，代码略
End Sub
Private Sub Command1_Click()
Dim ntempend As Integer ‘ 记录当前结束日期的下标
Dim max As Integer ‘ 记录最大连续天数
Dim nend As Integer ‘ 记录最大连续天数下的结束日期的下标
Dim ncount As Integer ‘ 统计连续天数
Dim tjqw As Integer ‘ 存放输入的温度
tjqw = Val(Text1.Text)
ncount = 0
max = 0
For i = 1 To n
If ___________①___________ Then
ncount = ncount + 1
ntempend =i
Else
ncount = 0
End If
If max < ncount Then
max = ncount
___________②___________
End If
Next
If max <> 0 Then Text2.Text = ___________③___________ & "-" & rq(nend)

同类题4

在VB中，下列程序段执行后，变量a,b,c的值分别是（）
a=1:b=1:c=1
do while a+b+c<=10
a=a+1
b=b*2
c=b/2
loop

同类题5

小宇为选定班级参赛作品编写了一个VB程序，设计如下：在文本框Text1内输入5位评委对3个作品的评分数据（评委对作品的评分数据由3位十进制数组成，第1位对应作品编号，第2、3位对应作品得分，分值范围为60,99。如“275”表示2号作品得分75）。单击“计分”按钮后，在标签Label1中输出3个作品的平均分，在标签Label2中输出参赛的作品（选择最高平均分作品参赛，若最高平均分存在并列，则从并列作品中随机柚取）。程序运行界面如图所示。

（1）“计分”按钮的对象名为_________。
（2）程序部分代码如下，请在划线处填入合适代码。
Private Suh jf_Click( )
Dim s As String，d As String，i As Integer
Dim f1 As Single，f2 As Single，f3 As Single
s = Text1. Text
i = 1
Do While ___________
d = Mid(s,i,3)
If Mid(d,1,1) = "1” Then
f1 = f1 + Val(Mid(d,2, 2))
ElseIf Mid(d, 1, 1) = “2” Then
f2 = f2 + Val(Mid(d,2, 2))
Else
f3 = f3 + Val(Mid(d,2, 2))
End If
________________
Loop
Label1.Caption="作品1平均分为:" + Str(f1 / 5)+ “作品2平均分为:” + Str(f2 / 5)+ “作品3平均分为:” + Str(f3 / 5)
'以下省略“处理并列最高平均分，并在Labd2中输出选取的参赛作品”的代码
End Sub
（3）运行该程序时，在文本框Text1中以不同的顺序输入原评分数据：
380/295/283/170/180/385/372/285/190/180/390/384/272/170/276,单击“计分”按钮，则Label1中显示的结果__________(选填:会/不会）发生改变。

相关知识点