2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5．vbp，在窗体上给出了所有控件和不完整的程序，请去掉程序中的注释符，把程序中的?改为正确的内容。本程序的功能是：如果单击“取数”按钮，则把考生文件夹下的in5．txt文件中的15个姓名读到数组a中，并在窗体上显示这些姓

在考生文件夹下有一个工程文件sjt5．vbp，在窗体上给出了所有控件和不完整的程序，请去掉程序中的注释符，把程序中的?改为正确的内容。本程序的功能是：如果单击“取数”按钮，则把考生文件夹下的in5．txt文件中的15个姓名读到数组a中，并在窗体上显示这些姓

admin2013-11-29  62
问题 在考生文件夹下有一个工程文件sjt5．vbp，在窗体上给出了所有控件和不完整的程序，请去掉程序中的注释符，把程序中的?改为正确的内容。本程序的功能是：如果单击“取数”按钮，则把考生文件夹下的in5．txt文件中的15个姓名读到数组a中，并在窗体上显示这些姓名；当在Text，中输入一个姓氏，或一个姓名后，单击“查找”按钮，则进行查找，若找到，就把所有与Textl中所有具有Textl中姓氏的姓名或相同的姓名显示在Text2中(如图所示)；若未找到，则在Text2中显示“未找到!”；若Textl中没有查找内容，则在Text2中显示“未输入查找内容!”。
    注意：考生不得修改程序的其他部分和控件的属性，最后将修改后的文件按原文件名存盘。
选项
答案窗体的Print办法用于向窗体上输出内容，Cls办法用于清除窗体上已输出的内容。Left()函数用于取出已有字符串左边指定个数的字符串。根据题意，在“取数”按钮的click事件过程中，用Open语句打开文件in5.txt，用For循环的Input #方法读出10个数据存入数组a，并输出到窗体上，在整个输出前应先清除窗体上已有内容。在“查找”按钮的Click事件过程中，先判断在Txtl中是否输入了内容，若没有输入，在Txt2中显示相关信息；若有输入，用For循环在数组a 中逐一查找与Txtl中内容相符的元素，相符的标准是Left(a(i)，n)=Txtl．text(i为循环变量，n为Txtl文本的长度)，最后在文本框中显示结果。 步骤l：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Dim a(15)As String Private Sub Cl＿Click() Dim k As Inleger Open“in5．txt”For Input As＃l Forml．Cls For k=1 To 15 Input＃l，a(k) Print a(k) Next k ‘Close? End Sub Private Sub C2＿Click() Dim k As Integet，n As Integer，c As String ‘n=Len(?) C=“” lf n>0 Then For k=l To 15 ‘If Left(a(k)，?)=Textl．Text Then ‘C=C+“”+? End If Next k If C=“”Then Text2．Text=“未找到!” Else Text2．Text=? End If Else Text2．Text=“未输入查找内容!” End If End Sub 程序结束 第1个?处填入：＃l 第2个?处填入：Textl．Text 第3个?处填入：n 第4个?处填入：a(k) 第5个?处填入：C 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/7WQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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