首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(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
69
问题
(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全国计算机二级
相关试题推荐
假定有一个文本框,其名称为Text1,为了使该文本框具有焦点,应执行的语句是______。
以下程序用随机函数模拟掷骰子,统计掷50次骰子出现各点的次数。阅读该程序,并在【】和【】处填上正确的内容。PrivateSubCommand1_Click()Dimd(6)fori=1To50n=【】d(n)=【
阅读下列程序: PrivateSubCommand1_Click() DimiAsInteger,kAsInteger k=2 Fori=1To3 PrintH(k); Nexti EndSub Fu
单击一次命令按钮后,下列程序的执行结果为 PrivateSubCommand1_Click() DimmAsInteger,IAsInteger,x(10)AsInteger ForI=0To4:x(I)=I+1
一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Fomil中有语句PublicXAsInteger,在Model1中有语句PublicYAsInteger.则以下叙述中正确的是
为了使命令按钮(名称为Command1)右移200,应使用的语句是
下列代码运行后输出结果是DefstrB-EPrivateSubCommand1_Click()B$="123"C="456"PrintB+C$EndSub
下面程序运行后,输出的结果是如下矩阵:471058116912请在程序[]处填入正确的内容。
在窗体上画一个名称为Filel的文件列表框,并编写如下程序:PrivateSubFilel_DblClick()x=Shell(Filel.FileName,1)EndSub以下关于该程序的叙述中,错误的是__
执行如下两条语句后,窗体上显示的是()。a=9.8596PrintFormat(a,“$00,00.00”)
随机试题
破产清算
下列关于防风通圣散的叙述中,正确的是
A.病变在上在表的疾病B.病变在下在里的疾病C.病势逆上者D.病势陷下者沉降药可治
患者,女性,33岁,停经8个月,第一胎,阴道大量流血3小时入院。出血时不伴有腹痛及阴道流水。既往有2次人流史,药物流产1次。查体:P120次/分,BP87/56mmHg,神清,轻度贫血貌,宫高30cm,腹围95cm,胎位LSA,FHR150次/分。询问
社会保障法律制度的社会保障对象、社会保障项目、社会保障待遇水平,受到( )的制约和影响。
并购重组委员会委员审核并购重组申请文件时,有下列哪些情形之一的,应当及时提出回避?()
银行做好对催收外包机构的管理,需要防范出现的风险包括()
设随机变量X的概率密度为f(x)=求Y=3X的概率密度.
规定保证权利和义务得以实现或职权和权责得以履行的法律规范的总称是
关于设计模式,下列说法正确的是()。
最新回复
(
0
)