2. 计算机
  3. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim s As String, i As Integer Dim n As Integer s = InputB

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim s As String, i As Integer Dim n As Integer s = InputB

admin2015-06-30  29
问题 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
  Dim s As String, i As Integer
  Dim n As Integer
  s = InputBox("输入数据")
  n = Len(s)
  For i = 1 To n \ 2
      If __________________________  Then
         Exit For
      End If
  Next i
  If i > n \ 2 Then
     Print s & "是对称字符串"
  Else
     Print s & "不是对称字符串"
  End If
End Sub
该过程的功能是判断输入的字符串是否为对称字符串（例如："1234321"、"XYZZYX"都是对称字符串）。为了实现这一功能，则在横线处应填入的表达式是
选项 A、Mid(s, i, 1) <> Mid(s, n - i + 1, 1)
B、Mid(i, s, 1) <> Mid(n - i + 1, s , 1)
C、Mid(s, i+1, 1) <> Mid(s, n - i, 1)
D、Mid(i+1, s , 1) <> Mid(n - i , s , 1)
答案A
解析 InputBox函数可以产生一个对话框，作为输入数据的界面，等待用户输入数据，并且返回输入的内容。求字符串长函数Len(s)，英文全称：Length，返回字符串s的长度，即所包含的字符的个数。求字符串是不是对称字符串，思想如下，接收所输入字符串，获取该字符串的长度，再将该字符串的第一个字符与最后一个字符进行比较，第二个字符与倒数第二个字符进行比较，以此类推，直到比较到该字符串长度的一半为至。在此比较过程中，如果出现所比较的字符不相等，直接退出整个循环，则所输入对话框中数据不是对称字符串。如果比较到该字符串一半，所比较字符仍然相等，则所输入对话框中数据是对称字符串。故横线处，所比较的应该是当前下标与对应位置的下标的字符是否相等。Mid (s,n1，n2)是字符串截取函数，从s的第n1个字符开始，向后截取n2个字符。Mid(s,i,1)截取当前位置的字符，其对应位置的字符位置是Mid(s,n-i+1,1)。故本题正确选项为A。
转载请注明原文地址:https://kaotiyun.com/show/SVQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)