(1)在考生文件夹中有工程文件sj3.vbp及窗体文件sj3.frm。在名为Forml的窗体上有3个Label控件和两个命令按钮,Label控件均为提示信息。命令按钮名称分别为Cmdl和Cmd2,标题分别为“Quit”和“Begin”。程序运行后,单击“B

admin2009-03-26  35

问题 (1)在考生文件夹中有工程文件sj3.vbp及窗体文件sj3.frm。在名为Forml的窗体上有3个Label控件和两个命令按钮,Label控件均为提示信息。命令按钮名称分别为Cmdl和Cmd2,标题分别为“Quit”和“Begin”。程序运行后,单击“Begin"按钮.程序自动利用循环计算1+1/2+1/3+…+1/10的结果,并把结果写入到考生文件夹中out67.dat文件中。执行完毕,“Begin”按钮变成“End”按钮,且无效(变灰),如图61—3所示。

    注意:在有问号“?”的地方填入正确内容,然后删除“?”及所有注释符“’”,但不得修改其他部分。保存时不得改变文件名和文件夹。
    (2)在考生文件夹中有一个工程文件sj4.vbp(相应的窗体文件名为sj4.frm)。在名为Forml的窗体上有4个文本框,初始内容为空;1个命令按钮,标题为“求Max”。其功能是通过调用过程FindMax求数组的最大值。
    请装入该文件。程序运行后,在4个文本框中各输人一个整数,然后单击命令按钮,即可求出数组的最大值,并在窗体上显示出来,如图61—4所示。

    本程序不完整,请补充完整,并能正确运行.
    注意:去掉程序中的注释符“’”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序的其他部分。最后,按原文件名并在原文件夹中保存修改后的文件。

选项

答案 (1)①打开题目所给工程文件。 ②将注释语句改为: Open App.Path&"\"&”out67.txt"For Output As#1 E=1 Write#1,E Cmdl.Caption="End" Crodl.Enahled=False ③按要求保存文件即完成本题。 (2)①打开题目所给工程文件。 ②将注释语句改为: Start=LBound(a) Finish=UBound(a) Max=a(Start) If a(i)>Max Then Max=a(i) M=Find Max(art2()) ③按要求保存文件即完成本题。

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

最新回复(0)