编写VB程序，实现如下功能：在文本框Text1里输入一个字符串，单击“判断”按钮Command1，判断这个字符串是不是回文字符串（回文字符串就是一个对称的字符串_刷题宝

题干

编写VB程序，实现如下功能：在文本框Text1里输入一个字符串，单击“判断”按钮Command1，判断这个字符串是不是回文字符串（回文字符串就是一个对称的字符串，如"abcba"或"abccba"都是回文字符串，"abc"不是回文字符串）。在文本框Text2里显示结果，回文字符串显示"yes"，否则显示"no"。运行效果如左图所示。

（1）要使窗体Form1的标题改为“判断回文字符串”，可在其属性窗口（上方右图）中将_____________①属性的属性值修改为“判断回文字符串”。
（2）为实现上述功能，请在划线处填入合适代码或选项
Private Sub Command1_Click()
Dim st As String
Dim i As Integer, j As Integer
Dim flag As Boolean
________② ' (填程序代码)
j = Len(st)
i = 1
flag = True
Do While flag And (i <= j)
If Mid(st, i, 1) = Mid(st, j, 1) Then
i = i + 1
______________③
Else
flag = False
End If
Loop
If __________④ Then
Text2.Text = "yes"
Else
Text2.Text = "no"
End If
End Sub

上一题下一题 0.99难度填空题更新时间:2019-05-07 08:40:16

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

同类题1

（加试题）两质数的差为2，称此对质数为质数对。下列程序是找出100以内的质数对，并成对显示结果。其中，函数zsd判断参数m是否为质数。请完善以下程序：

Function zsd(m) As Boolean
　Dim i As Integer
　zsd ＝ True
　For i ＝ 2 To Int(Sqr(m))
If ①_______________＝ 0 Then zsd ＝ False
　Next i
End Function
Private Sub Command1_Click()
　Dim i As Integer
　p1 ＝ zsd(3)
　For i ＝ 5 To 100 Step 2
p2 ＝ zsd(i)
If　②________________ Then List1.AddITem i － 2　& ”　” & i
p1 ＝ zsd(i)
　Next i
End Sub

同类题2

如图所示的流程图片断：

该流程图中循环部分结束后，变量s的值是（）

同类题3

下列VB 程序用于求2个正整数(均小于10000)的最大公约数:
Private Sub Command1_Click()
Dim x As Integer,y As Integer,z As Integer
x=Val(Text1.Text) ‘第1 个正整数
y=Val(Text2.Text) ‘第2 个正整数

‘调用函数gcd
Text3.Text=Str(z)
End Sub
Function gcd(a As Integer,b As Integer) As Integer
Do While a <> b
If a>b Then a=a-b Else b=b-a
Loop
gcd=b
End Function
方框中的正确语句是( )

同类题4

写出下列程序的输出结果
Private Sub Command1_Click()
Dim a As String
Dim c As String
a = "zhejiangxiaoshi"
c =" Mid(a," Len(a) \ 2 + 2, 7)
Text1.Text = c
End Sub
该程序段运行后，在文本框Text1上显示的是( )

同类题5

采用拉锯式排序法对无序数组元素实现降序排序，即前一遍把最大的元素从右到左送到最左的位置，后一遍把最小的元素是从左到右送到最右的位置，实现该功能的 VB 程序段如下：

c = 1: s = 10
Do While c <= s
For i = s To c + 1 Step -1
If

Then
t = a(i - 1): a(i - 1) = a(i): a(i) = t
End If
Next i
For i =

Then
t = a(i + 1): a(i + 1) = a(i): a(i) = t
End If
Next i
c = c + 1
s = s - 1
Loop
上述程序段三个方框处的语句分别为（）

A．① a(i - 1) < a(i) ② c +1 To s – c ③ a(i) <a(i + 1)

B．① a(i - 1) > a(i) ② c +2 To s – c ③ a(i) >a(i + 1)

C．① a(i - 1) < a(i) ② c +1 To s – c-1 ③ a(i) <a(i + 1)

D．① a(i - 1) > a(i) ② c+ 2 To s – c+1 ③ a(i) >a(i + 1)

相关知识点