(1)考生文件夹中有工程文件sjt3.vbp。其窗体上已有部分控件。在窗体上添加含有两个单选钮的控件数组,其名称为Optionl,单选按钮的下标分别为0、1,Caption属性分别为“驱动器为C”及“列txt文件”,如图3.12所示。运行程序时,驱动器列表

admin2017-09-22  31

问题 (1)考生文件夹中有工程文件sjt3.vbp。其窗体上已有部分控件。在窗体上添加含有两个单选钮的控件数组,其名称为Optionl,单选按钮的下标分别为0、1,Caption属性分别为“驱动器为C”及“列txt文件”,如图3.12所示。运行程序时,驱动器列表框、目录列表框和文件列表框三个控件能够同步变化。
    1)选中“驱动器为C”单选按钮,则驱动器列表框的当前驱动器被设为“C”。
    2)选中“列txt文件”单选按钮,则文件列表框中只显示tXt类型的文件。
    3)单击文件列表框中的某个文件时,被选中的文件名显示在“当前文件”右侧的标签中。
    要求:按照题目要求添加控件,设置有关属性,去掉程序中的注释符,把程序中的“?”改为正确的内容。
    注意:考生不得修改窗体文件中已经存在的程序。最后,程序按原文件名存盘。

    (2)在考生文件夹下有一个工程文件sjt4.vbp。窗体上已有全部控件,如图3.13(a)所示。要求单击标题为“生成矩阵”的命令按钮时,随机生成由单个大写字母组成的5×5矩阵,并显示在名称为Text1的文本框中。单击“查找”按钮,找出所生成矩阵中ASCII值最大的字母及其位置,并显示在Text2中(只显示一个ASCII值最大的字母及其位置),如图3.13(b)所示(Text2中显示的是第2行第5列的“Y”)。在给出的窗体文件中已经有了全部控件,但程序不完整。要求去掉程序中的注释符,把程序中的“?”改为正确的内容。
    注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

选项

答案(1)步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,在代码编辑窗1:3中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: Filel.Path=Dirl.Path Dirl.Path=Drivel.Drive If Index=0 Then Filel.Pattern="*.txt" 步骤2:按要求将文件保存至考生文件夹中。 (2)步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: s=s+a(i,j)+" " Text1=s Nax=Asc(a(i,j)) Text2 = Chr(Nax) & Str(NaxT) & Str(NaxJ) 步骤2:按要求将文件保存至考生文件夹中。

解析 (1)驱动器列表框(Drive ListBox)用来显示当前系统中所有有效磁盘驱动器的列表;目录列表框(Dir List Box)用来分层显示指定磁盘驱动器上的目录列表;文件列表框(File List Box)用来显示指定目录中所选择文件类型的文件列表,默认为*.*。要在程序运行时,能对系统中的文件进行浏览,就要让驱动器列表框、目录列表框和文件列表框实现同步变化,关键是将驱动器列表框、目录列表框、文件列表框相互关联起来,这可通过编写驱动器列表框、目录列表框的Change事件过程,使三者的路径保持一致来实现。
    (2)题目要求在点击“生成矩阵”命令按钮时,在Text1文本框内生成一个5×5的大写字母矩阵,通过一个嵌套的循环来实现。同样在矩阵里面查找ASCII码最大的字母的时候也是通过嵌套的循环来搜索。
    第一个“?”处是给变量s赋值,在外层的For循环里面“s=s & Chr(13)&Chr(10)”是给S添加换行,因此内层For循环是给s添加行数据,因此第一个“?”处是把a(i,i)的值添加到s当中;第二个“?”处是把S的值赋给Text1文本框;第三个“?”处的If判断当前元素a(i,j)是否比Max大,如果大的话将其赋值给Max变量:最后一个“?”处是在Text2文本框里面显示Max的值和位置。
转载请注明原文地址:https://jikaoti.com/ti/2dy0FFFM
0

最新回复(0)