(1)在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm),请装入该文件,在窗体上画一个列表框(名称为List1)和一个文本框(名称为Text1),如图1-265(a)所示。编写窗体的MouseDown事件过程。程序运行后,如

admin2019-06-11  30

问题 (1)在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm),请装入该文件,在窗体上画一个列表框(名称为List1)和一个文本框(名称为Text1),如图1-265(a)所示。编写窗体的MouseDown事件过程。程序运行后,如果用鼠标左键单击窗体,则从键盘上输入要添加到列表框中的项目(内容任意,不少于三个);如果用鼠标右键单击窗体,则从键盘上输入要删除的项目,将其从列表框中删除。程序的运行情况如图1-265(b)所示。提供的窗体文件可以实现上述功能。但这个程序不完整,请把它补充完整。

    要求:去掉程序中的注释符,把程序中的?改为适当的内容,使其正确运行,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
    (2)在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm),其功能是通过调用过程FindMin 求数组的最小值,请装入该文件。程序运行后,在四个文本框中各输入一个整数,然后单击“求最小值”按钮,即可求出数组的最小值,并在窗体上显示出来(如图1-266所示)。这个程序不完整,请把它补充完整,并能正确运行。

    要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

选项

答案第1小题 【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,如表2-136所列在窗体Form1中画出控件并设置它们的属性。 [*] 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: List1.AddItem Text1.Text For i = 0 To List1.ListCount - 1 If List1.List(i) = Text1.Text Then List1.RemoveItem i 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件夹下的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: Start = LBound(a) Finish = UBound(a) Min = a(Start) If a(i)> Min Then Min = a(i) M = FindMin(arr2) 步骤2:按要求将文件保存至考生文件夹中。

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

最新回复(0)