（加试题）有如下程序段：Fori=2To6Forj=1Toi-1Ifa(j)<=a(i)Andd(j)>=d(i) Thend(i)=d(j)+1:pre_刷题宝

题干

（加试题）有如下程序段：

For i = 2 To 6

For j = 1 To i - 1
If a(j) <= a(i) And d(j) >= d(i) Then
d(i) =d(j)+1 : pre(i) = j
End If
Next j

Next i

max = 0 : k = 0

For i = 1 To 6

If d(i)>max Then max = d(i) : k = i

Next i

Do While k <> 0

st = a(k) & ","& st
k=pre(k)

Loop

Text1.Text = Mid(st, 1, Len(st) - 1)

数组元素a(1)到a(6)的值依次为“2,6,5,9,8,8”，数组d各元素的值初始化为1，数组pre各元素的值初始化为0，经过该程序段“加工”后，Text1中的值是( )

A．2,5,9

B．2,6,8,8

C．2,5,8,8

D．2,5,6,8,8,9

上一题下一题 0.99难度选择题更新时间:2019-05-25 01:10:55

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

同类题1

本程序要求完成的功能是：计算
s=1/1+2/(1*2)+3/(1*2*3)+…+ n/(1*2*3*…*n)的值。
请将已有VB代码补充完整。
n = inputbox(“请输入n的值”)
s = 0
________(1)________
For i =" 1" to n
t =" t" * i
s =" s" + ______(2)_______
Next i
Print s
（1）__________ （2）__________

同类题2

对称字符串的特征是从左到右读和从右到左读是完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下：
n=Len(s) 's是待判断的字符串
k=0:j=n
For i=1 to n/2

Next i
If k=0 Then Label1.Caption="对称" Else Label1.Caption="不对称"
方框中的代码由以下三部分组成：
①j=j-1
②If c1 <> c2 Then k = k+1
③c1=Mid(s,i,1) : c2=Mid(s,j,1)
代码顺序正确的选项是（　　）

同类题3

数组a中存放了某校田径运动会中八名100米短跑运动员的成绩，数据存放情况如下表：

a（1）	a（2）	a（3）	a（4）	a（5）	a（6）	a（7）	a（8）
12.8	13.3	12.3	12.6	13.5	12.1	13	13.8

若按升序排列，并采用冒泡排序算法自右向左进行比较和交换，那么前两轮排序的数据交换总次
数为（）。

同类题4

编程找出四位整数abcd 中满足下述关系的数：（ab+cd)(ab+cd)=abcd。小明编写了一个此问题求解的 VB程序，单击“求解” 命令按钮 Command1，在列表框List1中显示结果，如（20+25）*（20+25）=2025，则在列表框显示“2025”（注：双引号不显示）。程序设计界面如图所示：

(1)如图所示，小明通过设置“ 求解” 命令按钮 Command1 的____________ （单选,填字母：

C．Height ）属性设置文字“求解” 为斜体。

(2)为实现上述功能，请在划线处填入合适代码或选项。
Private Sub Commandl_Click()
Dim i As Integer
Dim k As Long, m As Long, n As Long
For i = 1000 To 9999
m = i \ 100
n =___________________
k = (m + n) * (m + n)
If k = i Then
_______________________
End If
Next i
End Sub
(3) 由上述算法可知，“3025”这个四位数__________(选填：会/不会）在列表框 List1 中显示。

同类题5

在游戏中经常有开数字密码锁得场景，已知一个6位数的密码锁，正确的数字顺序组合是由下面一组数字426815经过两次冒泡排序得到，请问开锁的正确数字组合可能是（）。

相关知识点