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

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

admin2015-06-30  54
问题 在考生文件夹下有一个工程文件sjt5．vbp，在窗体上给出了所有控件和不完整的程序，请去掉程序中的注释符，把程序中的?改为正确的内容。
    本程序的功能是：如果单击“取数”按钮，则把考生文件夹下的in5．txt文件中的15个姓名读到数组a中，并在窗体上显示这些姓名；当在Text1中输入一个姓氏，或一个姓名后，单击“查找”按钮，则进行查找，若找到，就把所有与Text1中所有具有Text1中姓氏的姓名或相同的姓名显示在Text2中(如图所示)；若未找到，则在Text2中显示“未找到!”；若Text1中没有查找内容，则在Text2中显示“未输入查找内容!”。
    注意：考生不得修改程序的其他部分和控件的属性，最后将修改后的文件按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Dim a(15) As String Private Sub C1_Click() Dim k As Integer Open "in5.txt" For Input As #1 Form1.Cls For k = 1 To 15 　　　Input #1, a(k) 　　　Print a(k) Next k ’Close ? End Sub Private Sub C2_Click() Dim k As Integer, n As Integer, c As String ’n = Len( ? ) c = "" If n > 0 Then 　　　For k = 1 To 15 ’If Left(a(k), ? ) = Text1.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个？处填入：#1 第2个？处填入：Text1.Text 第3个？处填入：n 第4个？处填入：a(k) 第5个？处填入：c 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/mVQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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