(1)考生文件夹下有一个工程文件sjt3.vbp,其窗体上有1个名称为Text1的控件数组;一个标题为”排序”的命令按钮。程序运行时,在文本框数组中输入8个整数,如图3—29(a)所示;然后单击“排序”按钮,则8个整数按降序排序,如图3—29(b)所示。

admin2017-10-27  43

问题 (1)考生文件夹下有一个工程文件sjt3.vbp,其窗体上有1个名称为Text1的控件数组;一个标题为”排序”的命令按钮。程序运行时,在文本框数组中输入8个整数,如图3—29(a)所示;然后单击“排序”按钮,则8个整数按降序排序,如图3—29(b)所示。

    在给出的窗体文件中已经有了全部控件,但程序不完整。请将事件过程中的注释符去掉,把“?”改为正确的内容,以实现上述程序功能。
    注意:考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名存盘。
    (2)在考生文件夹下有工程文件sjt4.vbp。其窗体界面如图3—30所示,可以实现以下功能:
    “添加项目”按钮可以把在组合框编辑区中输入的新项目添加到组合框列表中,但不能添加重复项目;“删除项目”按钮从列表中删除选中的项目;“添加爱好”按钮把组合框编辑区中的内容追加到下面的文本框原有内容之后;  “清除爱好”按钮清除该文本框内容。
    在给出的窗体文件中已经有了全部控件,但程序不完整。请将事件过程中的注释符去掉,把“?”改为正确的内容,以实现上述程序功能。

    注意:考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名存盘。

选项

答案(1)【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: k=i For j=i+1 To 7 If Val(Text1(j).Text) Val(Text1(k).Text)Then Text1(k).Text=j 步骤2:按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: If Combol.Text=Combol.List(k)Then Combol.AddItem Combol.Text Combol.RemoveItem Combol.ListIndex Text1.Text =Text1.Text & " " & Combol.Text Text1.Text=" " 步骤2:按要求将文件保存至考生文件夹中。

解析
转载请注明原文地址:https://kaotiyun.com/show/5VGp777K
0

最新回复(0)