首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
admin
2012-10-09
73
问题
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
(1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件名和文件夹。如图16-3所示。
在名称为Form1的窗体上有1个Labe1控件,四个Text控件及七个命令按钮,功能为:开始启动工程时,界面上除“开始录入”及“退出”按钮之外,其他按钮均不可用(灰色显示);单击“开始录入”按钮之后,利用InputBox让用户连续且必须录入10个数。若录入为非数字符号,则给出警告“输入数据无效,请重新输入数值数据,请输入第n个数”;录入完毕后,“开始录入”变灰,其他变为可用状态;按相应的按钮可分别求出所录入数据的升序、降序排列及最大数和最小数,并在右侧对应的文本框中显示(注意用 A(10)存放最大数,A(1)存放最小数);单击“清除”按钮将所有文本框清空。
(2) 在考生文件夹下有工程文件sit4.vbp及窗体文件sjt4.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件名和文件夹。如图16-4所示。
在名称为Form1,标题为“求和程序”的窗体上有3个Labe1控件,2个Text控件和3个命令按钮。该程序的主要功能是求从1到Text1中用户输入的任意自然数n的累加和。刚启动工程时,“显示结果”和“清除”按钮均为灰色;可以在输入框内输入任意自然数(n值太大时,运算时间将很长,建议不超过9位)。在输入数的同时“显示结果”变为可用。当输入为非数值时,累加结果为0;单击“显示结果”可以在Text2中显示累加和,且该框内的文字不可修改,同时“显示结果”变灰,“清除”变为可用;单击“清除”,输入框和显示框均显示“0”单击“关闭”按钮结束程序的运行。
选项
答案
在窗体上建立好控件后,先设置控件属性,再编写事件过程。 用数组a(10)来接收InputBox输入的10数,InputBox的格式为:InputBox(提示[,标题][,默认][,X坐标位置][,Y坐标位置]);控件是否可用可利用其Enabled属性设置,当该值为True时可用,为False时不可用(灰色);判断是否是数字可用IsNumeric(),如果是数字返回True,否则返回False;本程序中用到的排序方法是将某一个元素做为标杆,其后的每一个元素与其比较,若小于标杆则两者交换,依此类推,题中要求排完序后a(1)至a(10)依次存放大数,在文本框中显示升序和降序的时候只要两者反序显示即可,即升序可依次显示a(1)到a(10),降序可依次显示a(10)到a(1)。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表16-3。 [*] 第二步:编写程序代码。 程序提供的代码: Option Explicit Dim a(10) As Variant Dim i As Integer, j As Integer Dim m As Single Private Sub Command1_Click() ’Text2.Text= Command1.Enabled=False Command7.Enabled=True End Sub Private Sub Command2_Click() ’Text3.Text=? Command2.Enabled=False Command7.Enabled=True End Sub Private Sub Command3_Click() For i=1 To 10 ’Text1.Text=Text1.Text &?& "," Next i Command3.Enabled=False Command7.Enabled=True End Sub Private Sub Command4_Click() For i=10 To 1 Step -1 ’Text4.Text=Text4.Text &?& "," Next i Command4.Enabled=False Command7.Enabled=True End Sub Private Sub Command5_Click() End End Sub Private Sub Command6 Click() Label1.Enabled=False For i=1 To 10 a(i)=InputBox("请输入第" & i & "个数,请务必输入数值数据! ","输入") Do While IsNumeric(a(i) )=False a(i)=InputBox("输入数据无效,请重新输入数值数据! ! !" & "请输入第" & _ i & "个数","输入") Loop Next i For i=1 To 9 For j=i+1 To 10 ’If Val(a(j) ) ?Val(a(i) ) Then m=a(j) a(j)=a(i) a(i)=m End If Next j Next i Command6.Enabled=False Commandl.Enabled=True Command2.Enabled=True Command3.Enabled=True Command4.Enabled=True Command5.Enabled=True Command7.Enabled=False End Sub Private Sub Command7_Click() ’Text1.Text=? ’Text2.Text=? ’Text3.Text=? ’Text4.Text=? Label1.Enabled=True Command6.Enabled=True Command4.Enabled=False Command3.Enabled=False Command2.Enabled=False Commandl.Enabled=False Command7.Enabled=False End Sub Private Sub Form_Load() Command1.Enabled=False Command2.Enabled=False Command3.Enabled=False Command4.Enabled=False Command7.Enabled=False End Sub 参考代码: Option Explicit Dim a(10) As Variant Dim i As Integer, j As Integer Dim m As Single Private Sub Command1_Click() Text2.Text=a(10) Command1.Enabled=False Command7.Enabled=True End Sub Private Sub Command2_Click() Text3.Text=a(1) Command2.Enabled=False Command7.Enabled=True End Sub Private Sub Command3_Click() For i=1 To 10 Text1.Text=Text1.Text & a(i) &"," Next i Command3.Enabled=False Command7.Enabled=True End Sub Private Sub Command4_Click() For i=10 To 1 Step -1 Text4.Text=Text4.Text & a(i) &"," Next i Command4.Enabled=False Command7.Enabled=True End Sub Private Sub Command5_Click() End End Sub Private Sub Command6_Click() Label1.Enabled=False For i=1 To 10 a(i)=InputBox("请输入第" & i & "个数,请务必输入数值数据!","输入") Do While IsNumeric(a(i) )=False a(i)=InputBox("输入数据无效,请重新输入数值数据! ! !" & "请输入第" & i & _ "个数","输入") Loop Next i For i=1 To 9 For j=i+1 To 10 If Val(a(j) )< Val(a(i) ) Then m=a(j) a(j)=a(i) a(i)=m End If Next j Next i Command6.Enabled=False Command1.Enabled=True Command2.Enabled=True Command3.Enabled=True Command4.Enabled=True Command5.Enabled=True Command7.Enabled=False End Sub Private Sub Command7_Click() Text1.Text="" Text2.Text="" Text3.Text="" Text4.Text="" Label1.Enabled=True Command6.Enabled=True Command4.Enabled=False Command3.Enabled=False Command2.Enabled=False Command1.Enabled=False Command7.Enabled=False End Sub Private Sub Form_Load() Command1.Enabled=False Command2.Enabled=False Command3.Enabled=False Command4.Enabled=False Command7.Enabled=False End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (2)控件是否可用可利用其Enabled属性设置,当该值为True时可用,为False时不可用(灰色);计算从1到n的数字的和可从1开始向后计算,每一步计算的结果都保留然后再用上一步计算的值和后面的数字计算;清除可使文本框的内容置空来实现(文本框.Text="");显示结果框内的文字不可修改,是通过Locked属性变为True时锁定的。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表16-4。 [*] 第二步:编写程序代码: 程序提供的代码: Option Explicit Private Sub Commandl Click() Dim i As Double Dim sum As Double Dim n As Double sum=0 n=Val(Text1.Text) For i=1 To n ’ sum=? Next 1 ’Text2.Text=? Command1.Enabled=False Command2.Enabled=True End Sub Private Sub Command2 Click() ’Text1.Text=? ’Text2.Text=? Command1.Enabled=True Command2.Enabled=False End Sub Private Sub Command3 Click() End End Sub Private Sub Form Load() Command1.Enabled=False Command2.Enabled=False End Sub Private Sub Text1_Change() Command1.Enabled=True End Sub Option Explicit Private Sub Command1 Click() Dim i As Double Dim sum As Double Dim n As Double sum=0 n=Val(Text1.Text) For i=1 To n sum=sum+i Next i Text2.Text=sum Command1.Enabled=False Command2.Enabled=True End Sub Private Sub Command2_Click() Text1.Text=0 Text2.Text=0 Command1.Enabled=True Command2.Enabled=False End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Command1.Enabled=False Command2.Enabled=False End Sub Private Sub Text1_Change() Command1.Enabled=True End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/rChp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
当我们输入代码时,VisualBasic可以自动检测______错误。
下面程序是用来打印九九乘法表的,请补充完整。 DimiAsInteger,jAsInteger,Strl$ Strl="" Fori=1To9 Forj=1To9 If【】Then Strl=St
设有下面的循环: i=1 Do i=i+3 Printi LoopUntilI>_________ 程序运行后要执行3次循环体,则条件中I的最小值为
数据库设计分为以下6个设计阶段:需求分析阶段、【】、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。
Jackson结构化程序设计方法是英国的M.Jackson提出的,它是—种面向【】的设计方法。
在关系模型中,把数据看成一个二维表,每一个二维表称为一个【】。
软件危机出现于60年代末,为了解决软件危机,人们提出了【】的原理来设计软件这就是软件工程诞生的基础。
运行下面的程序后,输出的结果为 Cls Dimt(5,5)asInteger Fori=1To5:t(i,i)=1:Next Fori=1To5 Forj=1To5 Printt(i,j), Next
计算z的值,当x大于y时,z=x;否则z=y。下列语句错误的是
在计算机中,算法是指_______。
随机试题
下列选项中,属于用人单位履行劳动合同义务的是()。
关节盘分区中关节负重区为
业主确认监理单位是否履行监督合同的主要说明性文件是( )。
损失控制计划系统中灾难计划的效果是()
李先生购买了某公司首次公开发售时的股票,该公司的分红为每股1.20元,并预计能在未来3年中以每年10%的速度增长,则3年后的股利为()元。(答案取近似数值)
练习密度
网络:网游:网瘾
李白作《哭晁卿衡》,以纪念误传在返国途中罹难的留唐日本友人()。
试论物权请求权。[武大2012年研]
Accordingtothenews,thesenioraidetoPresidentYeltsinwas__
最新回复
(
0
)