首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在窗口中有一个Text文本框控件,名称为Textl;一个Label标签;名称为Labell;一个命令按钮,名称为Commandl;标题为“读入文件”。要求程序运行后,单
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在窗口中有一个Text文本框控件,名称为Textl;一个Label标签;名称为Labell;一个命令按钮,名称为Commandl;标题为“读入文件”。要求程序运行后,单
admin
2009-03-26
17
问题
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在窗口中有一个Text文本框控件,名称为Textl;一个Label标签;名称为Labell;一个命令按钮,名称为Commandl;标题为“读入文件”。要求程序运行后,单击Commandl将in.txt的内容显示到Textl中,并统计Textl中有多少个字符,将结果显示在Labell中。程序运行时的窗体界面如图31—3所示。
注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
(2)在考生文件夹下有一个工程文件sj4.vbp,相应的窗体文件名为sj4.frm,求数组的中间值。程序运行后,单击“读入”按钮,通过输入对话框输入5个整数,然后单击“取中间值”命令按钮,即可求出数组的中间值,并在名称为Labell的标签上显示出来,如图31—4所示。请把程序补充完整,并能正确运行。
注意:去掉程序中的注释符“’”,把程序中的“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
选项
答案
(1)根据题意,将一个Text控件,一个Label控件和一个Command控件添加到窗体上,Text的名称为Textl、Text属性为空、MultiLine属性为True、ScrollBar属性为2,Label的名称为Labell、Caption属性为空,Command的名称为Commandl、Caption属性为“读人文件”,设置完成后双击Commandl命令按钮,编写如下代码: Private Sub Commandl_Click() Dim str As String Dim tmp As String str="" Open"App.Path&\in.txt"For
Input As #1
’打开文件准备读取 While
EOF(1)=False
’判断是否读到文件尾 Input#1,tmp’读取字符串 str=str+tmp’将读取的字符串放人输出字符串中 Wend Close#1’关闭文件 Textl.
Text
=str ’在Textl中显示输出字符串 Labell.
Caption
=
Len
(str) ’将字符串长度在Labell中显示出来 End Sub 单击[*]按钮运行程序,并按要求保存。 (2)根据题意,在窗体上添加一个Text控件和两个Command控件,Text的名称为Text1、Text属性为空,Command的名称分别为Commandl和Command2,Caption属性分别为“读入”和“取中间值”。双击Commandl命令按钮,编写如下代码: Dim a(5)As Integer Private Sub Commandl_Click() Dim i As Integer Dim tmp As Integer Dim j As Integer Dim k As Integer For i=1 To 5 a(i)=Val(
InputBox
("请输入")) ’通过输入对话框获得5个数放人数组中 Next i For i=1 To 5 ’降序排列 temp=a(i) For j=1 To i If a(j)
Exit For End If Next j Next i End Sub Private Sub Command2 Click() Textl.
Text
=a(3) ’数组a的第3个数即为中间值 End Sub 单击[*] 按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://jikaoti.com/ti/TEq0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据库设计有两种方法,它们是()。
下列关于Applet的叙述中,错误的是()。
在一个类的内部嵌套定义的类称为【】。
当一个应用程序的所有非守护线程终止运行时,但仍然有守护线程在运行,应用程序将
已知表达式intm[]={0,1,2,3,4,5,6};,下面表达式的值与数组下标量总数相等的是()
给出下面程序的代码:byte[]array1,array2[];bytearray3[][];byte[][]array4;下面数组操作语句中______是不正确。
赋值表达式是由位于赋值运算符左边的变量和右边的【】组成。
int类型的取值范围为()。
【】结构,也称为重复结构,即算法中有一组操作要求反复被执行。
char类型的取值范围是()。
随机试题
工业纯铝的线膨胀系数约为低碳钢的()。
(2010年4月)“不得包养情人”属于行政机关公务员应该遵守的______。
目前调强实现的方式有
案情:甲与乙分别出资60万元和240万元共同设立新雨开发有限公司(下称新雨公司题),由乙任执行董事并负责公司经营管理,甲任监事。乙同时为其个人投资的东风有限责任公司(下称东风公司题)的总经理,该公司欠白云公司货款50万元未还。乙与白云公司达成协议约定:若3
在现浇普通钢筋混凝土楼盖时,控制裂缝的主要施工措施有()。
下列方案中哪个方案能满足防火规范?[2006年第38题]
实行财政直接支付的支出包括()。
儿童对勇敢和冒险不能分辨主要是他们的抽象逻辑思维水平比较低的缘故。()
(2012联考48)由细颗粒物造成的灰霾天气对人体健康的危害要比沙尘暴更大。粒径10微米以上的颗粒物会被挡在人的鼻子外面;粒径在2.5微米至10微米的颗粒物,能够进入上呼吸道,但部分可通过痰液等排出体外,另外也会被鼻腔内部的绒毛阻挡,对人体健康危害相对较小
下列各项中不属于法人变更的是()。
最新回复
(
0
)