首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在窗体上有一个标签数组,名称为Labell,该数组有4个控件元素,标题分别是“文本编辑”“程序运行”“移动窗体”和“双向箭头”。运行界面如图63—3所示。在程序运行后,
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在窗体上有一个标签数组,名称为Labell,该数组有4个控件元素,标题分别是“文本编辑”“程序运行”“移动窗体”和“双向箭头”。运行界面如图63—3所示。在程序运行后,
admin
2010-07-13
22
问题
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在窗体上有一个标签数组,名称为Labell,该数组有4个控件元素,标题分别是“文本编辑”“程序运行”“移动窗体”和“双向箭头”。运行界面如图63—3所示。在程序运行后,将鼠标移动到各控件元素上,则鼠标的形状将变成各控件元素的标题所代表的鼠标形状,离开控件元素,则又变成正常情况下的箭头形状。
注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
(2)在考生文件夹下有工程文件sj4.vbp,窗体文件sj4.frm,该程序是不完整的。在窗体上有一个名为Textl的文本框,有两个命令按钮,名称分别是Commandl和Command2、标题分别是“读人数据”和“计算保存”,如图63—4所示。要求程序运行后,单击Commandl按钮,将文本文件in4.txt中的所有数字读到数组a中,并在文本框内显示出来。随后Commandl按钮变为无效。然后单击Command2按钮,求出数组a中的各元素的立方并赋值回相应的元素,例如,a(1)=2,则新a(1)=a(1)*a(1)*a(1)=8。把计算后的数组的值全部写入考生文件夹下的文本文件out4.txt中,并在文本框中显示出来,最后Command2按钮也变为无效。
注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。修改后的工程及窗体文件,均以原名保存在考生文件夹下。
选项
答案
(1)本题主要考查控件数组的创建及属性设置。控件数组是由一组相同类型的控件组成,建立控件数组时,系统给每个元素赋一个唯一的索引号(Index)。鼠标的形状由其MousePointer属性设置,该属性值为3时对应文本编辑时的鼠标形状、为11时对应程序运行时的鼠标形状、为5时对应移动窗体时的鼠标形状、为7时对应双向箭头的鼠标形状。根据题意,在窗体中添加一个含有4个控件数组的标签控件,将其Caption属性分别设置为“文本编辑”、“程序运行”、“移动窗体”和“双向箭头”,并编写如下代码: Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) Forml.
MousePointer
=0 End Sub Private Sub Labell_MouseMove(Index As Integer,Button As Integer,Shift As Integer,X As Single,Y As Single) Select Case
Index
Case 0 Forml.MousePointer=3 Case 1 Forml.MousePointer=11 Case 2 Forml.MousePointer=5 Case 3 Forml.MousePointer=7 End Select End Sub 单击[*]按钮运行程序,并按要求保存。 (2)根据题意,将一个文本框控件和两个命令按钮添加到窗体中,文本框的名称为Textl,命令按钮的名称分别为Commandl和Command2,Caption属性分别为“读人数据”和“计算保存”,由于不知道读取数据的个数,所以要用到动态数组,动态数组的用法如下: Dim a()as Long ReDim a(n)as Long 具体代码如下: Dim temp As Long Dim num As Integer Dim a()As Long Dim i As Integer Dim str As String Dim trap As String Private Sub Commandl_Click() num=0 str="" Open"App.Path&\in4.txt"For Input As#l’打开文件 While
EOF(1)=False
’EOF判断是否读到文件末尾 Input#1,temp’如果没读到文件末尾则继续读取 num=num+l ’计数加1,以确定要分配的数组个数 Wend Close#1 ReDim a(num)As Long Open"App.Pathl&\in4.txt"For
Input As#2
’打开文件 For i=1 To num’利用For循环读取数据 Input#2,a(i)’读取数据 tmp=a(i) ’将数值赋给字符串 str=str+tmp+"" ’写入字符串,显示在Textl里面 Next i Close#2 Textl.
Text
=str’将Text里显示字符串 End Sub Private Sub Command2_Click() str="" For i=1 To num ’利用for循环进行计算 a(i)=a(i)*a(i)*a(i) ’计算立方 Next i Open"App.Path&\out4.txt"For
Append As#3
’打开文件 For i=1 To num’利用循环写入文件
Print
#3,a(i) tmp=a(i) str=str+trap+"" Next i Close#3 Textl.
Text
=str End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://jikaoti.com/ti/2Jg0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序段的输出结果是()。classBase{inti;Base(){add(1);}voidadd(intV){i+=v;}Voidphnt()
结构化程序设计的3种基本结构是()。
关于内存变量的调用,下列说法中正确的是()。
下面选项中不属于简单数据类型的是( )。
关系模型允许定义三类数据约束,下列不属于数据约束的是( )。
Java语言中的【】是程序的基本单位。
在Applet中,下列方法中能完成主类实例初始化工作的是( )。
下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请在横线处将程序补充完整。publicclassSun{publicstaticvoidmain(Stringargs[]){int[]a={678,45,324,528,439,3
耦合和内聚是评价模块独立性的两个主要标准,其中______反映了模块内各成分之间的联系。
随机试题
我国公务员级别确定与晋升的依据有()
下列组织中呈现嗜银性的是
患者胃痛暴作,恶寒喜暖,脘腹得温则痛减,口不渴,喜热饮,舌苔薄白,脉弦紧。治疗应首选()
长期应用氯丙嗪,最常见的副作用是
继发效应指用冷或用热超过一定时间,产生与生理反应相反的作用。()
如图所示,均质鼓轮A和圆盘B质量均为m,半径均为R,物体C质量也为m。若物体C上升时的速度为v,则系统对A点的动量矩为()。
财务顾问申请人应当提交最近()个月未因执业行为违法违规受到处罚的说明。
判决宣告前,一人犯数罪,分别被判处有期徒刑,对于数个有期徒刑的并罚,应采用()(2017年一专一第11题)
王某与李某素有仇怨。一日,李某拦住王某,百般辱骂,王某挥舞拳头作势欲打李某,李某逃跑,王某紧追不舍。李某从屠户徐某处抢得一把杀猪刀,王某不敢再追。李某用言语刺激王某,王某又追。待王某追近时,李某用杀猪刀捅了王某一刀,导致王某心脏破裂而死。李某的行为属于(
打开考生文件夹下的演示文稿yswg.pptx,按照下列要求完成对此文稿的修饰并保存。(1)使用演示文稿设计中的“活力”模板来修饰全文。全文幻灯片的切换效果设置成“百叶窗”。(2)将第三张幻灯片版式改变为“标题和内容”,标题处键入“顶峰”,将对象部分动
最新回复
(
0
)