首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是: ①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的20 个整数读入数组a 中,同时显示在Text1文本框中; ②单击“变换”按钮,则数组a 中元素的位置自动对调(即第
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是: ①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的20 个整数读入数组a 中,同时显示在Text1文本框中; ②单击“变换”按钮,则数组a 中元素的位置自动对调(即第
admin
2018-10-29
49
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是:
①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的20 个整数读入数组a 中,同时显示在Text1文本框中;
②单击“变换”按钮,则数组a 中元素的位置自动对调(即第一个数组元素与最后一个数组元素对调,第二个数组元素与倒数第二个数组元素对调……),并将位置调整后的数组显示在文本框Text2 中。
在窗体文件中已经给出了全部控件(如图1-8所示),但程序不完整。
要求:完善程序使其实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行前,必须执行“变换”操作,且必须用窗体右上角的“关闭”按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体上有两个标题分别为“读数据”和“统计”的命令按钮;两个名称分别为Text1 和 Text2、初始值为空的文本框,如图1-9所示。
程序功能如下:
①单击“读数据”按钮,则将考生文件夹下n4.dat文件的内容(该文件中仅含有字母和空格)显示在Text1 文本框中;
②在Text1 文本框中选中内容后,单击“统计”按钮,则自动统计选中文本中从未出现过的字母(统计过程中不区分大小写),并将这些字母以大写形式显示在Text2 文本框内。
请将“统计”按钮的Click事件过程中的注释符去掉,把?改为正确内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。
选项
答案
第1小题 【操作步骤】 步骤1:打开考生文件夹中的工程文件sjt3.vbp 步骤2:打开代码编辑窗口,编写“变换”按钮的单击事件过程。 参考代码: Private Sub Command2_Click() ’考生编写 For i = 1 To 10 temp = a(i) a(i) = a(20 - i + 1) a(20 - i + 1) = temp Next i ’以下程序段将已变换的数组元素显示在Text2文本框中 For k = 1 To 20 Text2 = Text2 + Str(a(k)) + Space(2) Next k End Sub 步骤3:按<F5>键运行程序,先单击“读数据”按钮,然后单击“变换”按钮。 步骤4:单击窗体右上角的关闭按钮以结束程序。 步骤5:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件下的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: If sl = 0 Then For i = 1 To sl a(n) = a(n) + 1 For i = 1 To 26 步骤2:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/mtFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
求1!+2!+……+10!的程序如下:PrivateFunctions(xAsInteger) f=1 Fori=1Toxf=f*i Next s=fEndFunctionPrivateSubCommand1
为了使文本框同时具有垂直和水平滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为( )。
可以产生30~50(含30和50)之间的随机整数的表达式是( )。
A、选择B、差C、交D、并B关系T是关系R的一部分,并且是关系R去掉R和S相同的元素,符合差操作。
能够用于标识对象名称的属性是( )。
下面不是键盘事件的是( )。
命令按钮Command1的事件过程如下:PrivateSubCommand1_Click() Dimarr(5,5)AsInteger DimiAsInteger,jAsInteger Fori=1To4
设工程文件中包名称分别为Form1、Form2的两个窗体,且Form1的菜单属性设置如下:窗体Form1中的程序如下:DimFlagAsBooleanPrivateSubForm_Load() Flag=TrueEndSubPr
随机试题
经复议机关复议的,最初造成侵权行为的行政机关为赔偿义务机关,但复议机关的复议决定加重损害的,复议机关对所有损害履行赔偿义务()
模板及其支架承受的荷载分基本荷载和特殊荷载两类。其中钢筋和预埋件的重量可按()kN/m3计算。
扑救电气火灾时,应先断电后灭火。()
红外光谱图中,波数位置不正确的具有强吸收峰的基团是:
在纽约外汇交易市场(以美元为本币),2008年8月28日纽约外汇交易市场欧元兑美元汇率为1:1.4702。2008年8月29日,欧元兑美元汇率为1:1.4671。下列说法正确的是()。(1)对于美元来说,该标价法为直接标价法(2)对
安小姐在一家事业单位工作,每月获得收入1800元。另外,安小姐为甲公司提供咨询服务,兼职所得为每月3000元。根据以上材料回答问题。安小姐同时与甲公司签订固定雇佣合同可比不与甲公司签订合同节税()元。
未规定偿还期限的债券,其利息可视为永续年金。()
财政转移性支出包括()。
2005年~2009年,该省生产总值实际增长速度最慢的一年是()。
根据我国《合同法》的规定,格式条款与非格式条款不一致的,应当采用()。
最新回复
(
0
)