对称字符串的特征是从左到右读和从右到左读完全一样的。如“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

在窗体上画一个命令按钮，其Name属性为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1Click
Dim a(4,4)
For i = 1 To 3
For j = 1 To 3
a(i,j)=(i-1)*3+j
Next j
Next i
PRINT A（3，1）
End Sub
程序运行后，单击命令按钮，其输出结果为.

同类题2

下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是：____________________ 。
Private Sub Command1 Click
Dim x As Integer, m As Integer
m = 3
For x = 1 To 5
If m > 3 Then m = m + 2 Else m = m - 1
Next x
Text1.Text = Str(m)
End Sub

同类题3

某算法的部分流程图如图所示。执行这部分流程，依次输入10，8，6，4，2，则输出s的值是

同类题4

袜子颜色配对问题。现有不同颜色的袜子若干（袜子的颜色用数字编号1~15表示）,颜色相同的袜子才能组成一双，其中有几只袜子是落单的，现要求找出落单袜子的颜色以及能够配对的袜子数量。编写程序解决该问题，程序运行时，在文本框Text1中依次输入袜子的颜色编号(数据都用逗号分隔并以逗号结尾)，单击“查找”按钮，在列表框List1中输出落单袜子的颜色编号，在标签label1中现实能配对的袜子数量。运行界面如图所示，实现上述功能的VB程序如下。

请回答下列问题：
（1）写出VB代码中的方法名____________（只需填一个方法名）；
（2）根据题意，请在划线处填入合适代码；
（3）加框处程序代码有错，请改正。
Const n = 15
Private Sub Command1_Click()
Dim a(1 To n) As Integer '数组a存放不同颜色袜子的数量，默认值为0
Dim s As String, ch As String
Dim c As Integer, i As Integer, t As Integer
List1.Clear
s = Text1.Text
t = 0 ：c = 0 : i = 1
Do While i <= Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
t = t * 10 + Val(ch)
Else
a(t) = _____________
t = 0
End If
i = i + 1
Loop
For i = 1 To n
If __________ Then List1.AddItem "落单袜子的颜色为" + Str(i)
c =

　　_______________　　
Next i
Label1.Caption = "能配对的袜子有" + Str(c) + "双"
End Sub

同类题5

某算法流程图如图所示，若输入m和n的值分别为189和161，执行这部分流程后，变量m的值为（）

相关知识点