(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm,包含了所有控件和部分程序,如图3.109所示。要求如下: ①利用属性窗口向列表框添加四个项目:Visual Basic、Turbo C、C++、Java。

admin2017-09-22  43

问题 (1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm,包含了所有控件和部分程序,如图3.109所示。要求如下:
    ①利用属性窗口向列表框添加四个项目:Visual Basic、Turbo C、C++、Java。
    ②请编写适当的程序完成以下功能:当选择列表框中的一项和单选按钮Optionl,然后单击“确定"按钮,则文本框中显示“×××笔试”;当选择列表框中的一项和单选按钮Option2,然后单击“确定”按钮,则文本框中显示“×××上机”。其中“×××”是在列表框中所选择的项目。
    注意:考生不得修改窗体文件中已经存在的程序,退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前,必须至少要进行一次选择操作(包括列表框和单选按钮),否则不得分。最后把修改后的文件按原文件名存盘。
    (2)在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm。在窗体上有一个命令按钮,其名称为Command1,标题为“计算并输出”。程序运行后,如果单击命令按钮,程序将计算500以内两个数之间(包括开头和结尾的数)所有连续数的和为1250的正整数,并在窗体上显示出来。这样的数有多组,程序输出每组开头和结尾的正整数,并用“~”连接起来,如图3.110所示。该程序不完整,请把它补充完整。
    要求:去掉程序中的注释符,把程序中的“?"改为正确的内容,使其能正确运行,但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。

选项

答案(1)步骤1:打开考生文件夹下的工程文件sjt3.vbp,在窗体上选中列表框,为其List属性输入四个项目:Visual Basic、Turbo C、C++、Java,注意每输入一项后用+键换到下一项输入。 步骤2:打开代码编辑窗口,编写“确定”按钮的单击事件过程。参考代码: If Optionl.Vatlue And List1.Text<>"" Then Text1.Text=List1.Text & Optionl.Caption Else If Option2.Value And List1.Text<>""Then Text1.Text=List1.Text & OptiOn2.Captio n End If End If 步骤3:按要求将文件保存至考生文件夹中。 步骤4:按键运行程序,在列表框中选择一项,并选中一个单选按钮,单击“确定”按钮,单击窗体右上角的关闭按钮结束程序。 (2)步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: iSum=0 isum=iSum+j If isum=1250 Then 步骤2:按要求将文件保存至考生文件夹中。

解析 (1)本题根据是选择“笔试”或“上机”分为两种情况,若选择“笔试”则在文本框中显示列表框的Text属性值与单选按钮Optionl的Caption属性值的组合内容;若选择“上机”则在文本框中显示列表框的Text属性值与单选按钮Option2的Caption属性值的组合内容。
    (2)程序设计思路:按顺序让1~500中的每一个数都与它之后的所有的数逐一相加,在相加过程中若累加和等于或超过1250时,则停止该组数继续相加,并将和等于1250的该组数的开头和结尾的数按题目要求输出。源程序使用嵌套For循环完成上述功能,变量iSum用于记录每组数累加时的和,其初值应为0;表达式iSum=iSum+j用于实现累加功能;当累加和正好等于1250时,输出该组数的开头和结尾的数,即i和j。
转载请注明原文地址:https://kaotiyun.com/show/GjGp777K
0

最新回复(0)