首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm,包含了所有控件和部分程序,如图3.109所示。要求如下: ①利用属性窗口向列表框添加四个项目:Visual Basic、Turbo C、C++、Java。
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm,包含了所有控件和部分程序,如图3.109所示。要求如下: ①利用属性窗口向列表框添加四个项目:Visual Basic、Turbo C、C++、Java。
admin
2017-09-22
46
问题
(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
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:PrivateFuncdonf(mAsInteger)IfmMod2=0Thenf=mE1Se
要获取当前驱动器,应使用驱动器列表框的()属性。
VisualBasic是一种面向对象的程序设计语言,构成对象的三要素是()。
关系R和S进行自然连接时,要求R和S含有一个或多个公共______。
使用语句DimAAsInteger声明数组A之后,以下说法正确的是()。
以下程序用随机函数模拟掷骰子,统计掷50次骰子出现各点的次数。阅读该程序,并在【】和【】处填上正确的内容。PrivateSubCommand1_Click()Dimd(6)fori=1To50n=【】d(n)=【
下列程序运行后的输出结果是【】。PrivateSubf(k,s)s=1Forj=1Toks=s*jNextEndSubPrivateSubCommand1_Click()Sum=0Fori=1
若有一个动态数组a有两个元素a(0)和a(1),现要令数组a有三个元素a(0)、a(1)和a(2),则应当使用【】语句。
如果存在如下过程:PrivateFunctionFun(a()AsInteger)DimFirstAsInteger,LastAsInteger,iAsInteger First=LBound(a) La
随机试题
按项目销售时间及进度,房地产销售分期有()。
发生道路交通事故,未造成人身伤亡,当事人对事实及成因无争义的,可以()再进行协商处理。
下列各项中属于会计法律制度的是( )。
下列()单位可以不办理注册登记,直接委托代理报关企业报关或自行向海关报关。
下列有关房产税税率的表述,符合现行规定的有()。
第三者责任险负责赔偿保险车辆因意外事故,致使第三者遭受人身伤亡或财产的直接损失。所谓第三者是指被保险人及其财产和保险车辆上所有人员与财产以外的他人、他物。所谓“所有人员”指车上的驾驶员和所有乘坐人员。但这些人下车后除驾驶员外,均可视为第三者。根据以上定义,
办公室就只有你一人,领导让你送紧急文件,正好又有群众上访,你该怎么办?
若f(x)不变号,且曲线y=f(x)在点(1,1)处的曲率圆为x2+y2=2,则函数f(x)在区间(1,2)内
Doyouremembermyname?
Doctorsbelievethatsecond-handsmokemaycauselungcancerinpeoplewhodonotsmoke.Nonsmokersoftenbreatheinthesmokef
最新回复
(
0
)