对称字符串的特征是从左到右读和从右到左读完全一样的。如“abba”是对称的，“abcba”也是对称的。判断文本框Text1中的字符串是否对称的VB程序段如下：s_刷题宝

题干

对称字符串的特征是从左到右读和从右到左读完全一样的。如“abba”是对称的，“abcba”也是对称的。判断文本框Text1中的字符串是否对称的VB程序段如下：
s-Textl.Text: k=0:n=Len(s)\2
For i=1 To n

If Mid(s,i,1)=Mid(s,__________,1) Then k=k+1

Next i
If k= n Then Label1.Caption="对称" Else label1.Caption="不对称"
划线处代码合适的选项是（）

A．n- i	B．Len(s)-i
C．n-i+1	D．Len(s)-i+1

上一题下一题 0.99难度选择题更新时间:2020-03-31 11:34:02

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

同类题1

阅读程序，写出运行结果

Dim i As Integer

Dim x As Integer

Dim y As Integer

y=30

x=Val(InputBox(“x=”))

If y< x Then

y=x

End If

Next i

Print y

程序运行后，依次输入：36 87 51

运行后输出结果是_________________。

同类题2

某对分查找算法的VB程序段如下：

数组元素a（1）到a（10）的值依次为“2，3，5，8，9，10，13，17，19，20”。在文本框Text l中输人待查找的数，执行该程序段，则文本框Text 2中显示的内容可能的是（）

同类题3

下面这个程序实现了把一个十进制数转换成八进制数。

(1)要是按钮命令显示文本改为“转换”可在属性窗口中__________属性的属性值改为“转换”。
(2)为实现上述功能，请在划线处填入合适代码。

Private Sub Command1_Click( )

Dim n, m As Integer

Dim ch, s As String

s = "01234567"

____________________

ch = ""

Do While n > 0

m = n Mod 8

__________________

Loop

Text2.Text = ch

End Sub

同类题4

下列程序段的执行结果为:（）
 Dim M(10) as integer
 For i = 0 To 10
 M(i) = 2*i
 Next i
 Print M(M(3）


同类题5

有如下VB程序段：
For i = 1 To 3
j = 1
Do While j <= n - i - 1
If a(j) > a(j + 2) Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
End If
j = j + 1
Loop
Next i
如果n=7，数组元素a(1)到a(7)的值依次是“13，12，10，12，1，0，14”，程序段运行结束后，a(5)、a(6)、a(7)的值依次为

B．13，0，14

C．12，13，14

D．13，12，14

相关知识点