网友您好, 请在下方输入框内输入要搜索的题目:

题目内容 (请给出正确答案)

在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在名称为Form1的窗体画两个Label控件,名称分别为Label1和Label2,其中Label1中显示“总人数”,Label2中显示“总分”,添加两个名称分别为Text1和Text2的文本框,再画两个命令按钮,名称分别为Command1与Command2、标题分别为“读取数据”与“计算总分”,数据文件in5.txt存放成绩。

要求程序运行后:单击“读取数据”按钮后,从考生文件夹下的in5.txt中读出数据,并在标签Text1中显示人数;单击“计算总分”便在Text2中显示总分并将结果写入考生文件夹下out5.txt文件中;执行完毕,“读取数据”按钮变成“读取完成”,且无效(变灰),如图60-5所示。

注意:请在有“?”号的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“‘”号),但不能修改其他部分。存盘时不得改变文件名和文件夹,程序编写完整后执行一次操作,将结果保存到考生文件夹下的out5.txt文件中,否则没有成绩。


参考答案

更多 “ 在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在名称为Form1的窗体画两个Label控件,名称分别为Label1和Label2,其中Label1中显示“总人数”,Label2中显示“总分”,添加两个名称分别为Text1和Text2的文本框,再画两个命令按钮,名称分别为Command1与Command2、标题分别为“读取数据”与“计算总分”,数据文件in5.txt存放成绩。要求程序运行后:单击“读取数据”按钮后,从考生文件夹下的in5.txt中读出数据,并在标签Text1中显示人数;单击“计算总分”便在Text2中显示总分并将结果写入考生文件夹下out5.txt文件中;执行完毕,“读取数据”按钮变成“读取完成”,且无效(变灰),如图60-5所示。注意:请在有“?”号的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“‘”号),但不能修改其他部分。存盘时不得改变文件名和文件夹,程序编写完整后执行一次操作,将结果保存到考生文件夹下的out5.txt文件中,否则没有成绩。 ” 相关考题
考题 在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序: Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Label1,A)Label2.Caption=a End Sub 程序运行后,单击命令按钮,在两个标签Label1和Label2中显示的内容分别是: ______。A.ABCD和10B.1234和100C.ABCD和100D.1234和10

考题 在窗体上画两个名称分别为Hscroll1、Hscroll2的滚动条控件;6个名称分别为Label1、Label2、Label3、Label4、Label5、Label6的标签,其中,Label4~Label6分别显示“A”、“B”、“A*B’ 等文字信息,标签Label1、Label2分别显示其右侧的滚动条Value属性值,Label3显示A*B的计算结果,如图1所示。当移动滚动框时,在相应的标签中显示滚动条的值。当单击命令按钮“计算”时,对标签Label1、Label2中显示的两个值求积,并将结果显示在Label3中。以下不能实现求积功能的事件过程是( )。

考题 在窗体上有一个名称为Drivel的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化,并且在标签Label1中显示当前文件夹中文件的数量。下列能够正确实现上述功能的程序是( )。

考题 在窗体上画两个滚动条,名称分别为Hscroll1、Hscroll2;6个标签,名称分别为Label1、Label2、Label3、Label4、Label5、Label6,其中标签Label4~Labe16分别显示“A”、“B”、“A*B”等文字信息,标签Label1、Label2分别显示其右侧的滚动条Value属性值,Label3显示A*B的计算结果,如下图所示。当移动滚动框时,在相应的标签中显示滚动条的值。当单击命令按钮“计算”时,对标签Label1、Label2中显示的两个值求积,并将结果显示在Label3中。以下不能实现求积功能的事件过程是( )。A.B.C.D.

考题 在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Textl和Text2,初始内容均为空)和一个命令按钮(名称为Command1,标题为“显示”)。然后编写命令按钮的Click事件过程。程序运行后,在两个文本框中分别输人姓名和年龄,然后单击“显示”按钮,则在窗体上显示两个文本框中的内容,如图所示。要求程序中不得使用任何变量。注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjtl.vbp,窗体文件名保存为sjtl.frm。

考题 在考生文件夹下有一个工程文件sjt4.vbp,窗体上有一个名称为Command1,标题为“运行”的命令按钮。请画两个名称分别为Text1和Text2,初始内容都为空的文本框,再画两个名称分别为Label1、Label2,标题分别是“最大数”和“最大数位置”的标签。程序功能:单击“运行”按钮,则产生50个不重复的介于0~100之问(含0和100)的随机数,且以每行10个数的形式显示在窗体上;最后将这些随机数中的最大数和最大数所处的位置显示在Text1和Text2中。如图所示为某一次的运行效果。请将“运行”命令按钮的Click事件过程中的注释符去掉,把?改为正确内容,以实现上述程序功能。注意:考生不得修改窗体文件中已经存在的控件和程序,最后,程序按原文件名存盘。

考题 (1)在名为Form1的窗体上绘制两个标签(名称分别为Label1和Label2,标题分别为“长”和“宽”)、两个文本框(名称分别为Text1和Text2,Text属性均为空白)和一个命令按钮(名称为Command1,标题为“输入”)。编写命令按钮的Click事件过程,使程序运行后,若单击命令按钮,则先后显示两个“输入”对话框,在两个“输入”对话框中分别输入长和宽,并分别在两个文本框中显示出来,运行后的窗体如图21-1所示。注意:程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为sj1.vbp,窗体文件名为sj1.frm。(2)在名为Form1的窗体上绘制一个标签(名称为Label1,标题为“输入”)、一个文本框(名称为Text1,Text属性为空白)和一个命令按钮(名称为Command1,标题为“显示”)。请编写命令按钮的Click事件过程,使程序运行后,在文本框中输入内容,然后单击命令按钮,则标签和文本框消失,并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。注意:要求程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为Sj2.vbp,窗体文件名为sj2.frm。

考题 在考生文件夹下有一个工程文件sjt3.vbp,运行情况如图4所示。程序的功能是计算表达式的值:z=(x-2)!+(x-3)!+(x-4)!+…+(x-N)!其中的N和x值通过键盘分别输入到两个文本框Text1、Text2中。单击名称为Commandl、标题为“计算”的命令按钮,则计算表达式的值,并将计算结果显示在名称为Label1的标签中。 在窗体文件中已经给出了全部控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确内容。 要求:程序调试通过后,必须按照如图4所示输入N=5,x=12,然后计算Z的值,并将计算结果显示在标签Label1中,否则没有成绩。 注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件sjt4.vbp。窗体上有名称为Label1的标签和名称为Timer1 的计时器控件。该程序的功能是在名称为Label1的标签中循环显示不同的字符串。程序开始运行,在标签中显示“第一项”(如图5所示),且每隔1秒钟依次显示“第二项”、“第三项”、“第四项”,如此循环。在给出的窗体艾件中已经有了全部控件和程序,但程序不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容。 注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

考题 在窗体上画两个组合框,其名称分别为Combo1、Combo2,然后画两个标签,名称分别为Label1、Label2,如图所示,程序运行后,如果在某个组合框中选择一个项目,则把所选中的项目在其下面的标签中显示出来。请填空。Private Sub Combo1_Click()Call ShowItem(Combo1, Label1)End SubPrivate Sub Combo2_Click()Call ShowItem(Combo2, Label2)End SubPublic Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)______.Caption =______.TextEnd Sub