vb等级考试题目与评析86(编辑修改稿)内容摘要：
，并 将删除后 A数组的内容重新显示在 Text1中。 在给出的窗体文件中已经有了全部控件（如图所示），但程序不完整， 要求： 去掉 删除 按钮 Click事件过程中的注释符，把。 改为正确的内容， 以实 现上述程序功能。 注意： 不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件 名存盘。 第 1小题： 本题主要考查了回文的判定，其主要代码如下： Function foundhuiwen(p As String) Dim n As Integer, k As Integer, i As Integer n = Len(p) k = Int(n / 2) For i = 1 To k If Mid(p, i, 1) = Mid(p, n i + 1, 1) Then foundhuiwen = True Else foundhuiwen = False Exit For End If Next i End Function 按要求保存文件即完成本题。 第 2小题： 本题主要考查了相同数据的判定和删除。 解题方法： 打开 窗口，修改后的代码如下： Private Sub Command3_Click() For i = 1 To n If num = a(i) Then Exit For Next i If n i Then MsgBox 该数不存在于数组中，不能执行删除操作。 Else n = n 1 For j = i To n a(j) = a(j + 1) Next End If Text1 = For k = 1 To n Text1 = Text1 + Str(a(k)) + Space(2)。阅读剩余 0%
本站所有文章资讯、展示的图片素材等内容均为注册用户上传(部分报媒/平媒内容转载自网络合作媒体)，仅供学习参考。
用户通过本站上传、发布的任何内容的知识产权归属用户或原始著作权人所有。如有侵犯您的版权，请联系我们反馈本站将在三个工作日内改正。