首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能如下: ①单击“读数据”按钮,则将考生文件夹下in3.dat文件中的20个整数读人数组a中,同时在Text1文本框中显示。 ②单击“变换”按钮,则数组a中元素的位置自动对调(第一个数组元
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能如下: ①单击“读数据”按钮,则将考生文件夹下in3.dat文件中的20个整数读人数组a中,同时在Text1文本框中显示。 ②单击“变换”按钮,则数组a中元素的位置自动对调(第一个数组元
admin
2020-02-27
66
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能如下:
①单击“读数据”按钮,则将考生文件夹下in3.dat文件中的20个整数读人数组a中,同时在Text1文本框中显示。
②单击“变换”按钮,则数组a中元素的位置自动对调(第一个数组元素与最后一个数组元素对调,第二个数组元素与倒数第二个数组元素对调……),并将位置调整后的数组显示在文本框Text2中。
在窗体文件中已经给出了全部控件(如图所示),但程序不完整。
要求:将程序补充完整使其实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行前,必须执行“变换”操作,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体上有两个名称分别为Text1和Text2,初始文本为空的文本框,两个标题分别为“读数据”和“统计”的命令按钮,如图所示。
程序功能如下:
①单击“读数据”按钮,则将考生文件夹下的in4.dat文件的内容(该文件中仅含有字母和空格)显示在Text1文本框中。
②在Text1文本框中选中文本后,单击“统计”按钮,则自动统计选中文本中没有出现过的字母(统计过程中不区分大小写),并将这些字母以大写形式显示在Text2文本框内。
请将“统计”按钮Click事件过程中的注释符去掉,把“?”改为正确内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序。最后将修改后的文件按原文件名存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Dim a(20) As Integer Private Sub Command1_Click() Dim k As Integer Open App.Path & "\in3.dat" For Input As #1 For k = 1 To 20 Input #1, a(k) Text1 = Text1 + Str(a(k)) + Space(2) Next k Close #1 End Sub Private Sub Command2_Click() ’考生编写 ’以下程序段将已变换的数组元素显示在Text2文本框中 For k = 1 To 20 Text2 = Text2 + Str(a(k)) + Space(2) Next k End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path & "\out3.dat" For Output As #1 Print #1, Text2.Text Close #1 End Sub 程序结束 参考答案 Private Sub Command2_Click() ’考生编写 Dim i As Integer For i = 1 To 10 b = a(i) a(i) = a(21 - i) a(21 - i) = b Next i ’以下程序段将已变换的数组元素显示在Text2文本框中 For k = 1 To 20 Text2 = Text2 + Str(a(k)) + Space(2) Next k End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Dim x As String, max n As Integer Private Sub Command1_Click() Open App.Path & "\in4.dat" For Input As #1 s = Input(LOF(1), #1) Close #1 Text1.Text = s End Sub Private Sub Command2_Click() Dim a(26) As Integer sl= Text1.SelLength st = Text1.SelText Text2.Text = "" ’ If ? Then MsgBox "请先选择文本!" Else ’ For i = 1 To ? c = Mid(st, i, 1) If c <> " " Then n = Asc(UCase(c)) - Asc("A") + 1 ’ a(n) = ? End If Next ’ For i = 1 To ? If a(i) = 0 Then Text2.Text = Text2.Text + " " + Chr(Asc("A") + i - 1) End If Next End If End Sub 程序结束 参考答案 第1个?处填入:Text1.SelLength = 0 第2个?处填入:sl 第3个?处填入:a(n)+1 第4个?处填入:26 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/qkTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了删除列表框中的一个列表项,应使用的列表框方法是()。
以下关于VB的叙述中,错误的是()。
下列叙述中正确的是()。
在VisualBasic环境下设计应用程序时,系统能自动检查出的错误是()。
(1)在名称为:Form1的窗体上画一个标题为“直辖市”、名称为Framel的框架,在框架中画一个名称为Combol的组合框,其编辑域为空,有如图所示的4个列表项,外观风格也与图中相同。注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗
(1)在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当
(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体中有两个图片框,名称分别为P1、P2,其中的图片内容分别是一架航天飞机和一朵云彩,一个命令按钮,名称为C1.命题为“发射”,还有一个计时器,名称为Timerl。并给出了两个事件过程,但并不完整,试求:
(1)在名称为Form1的窗体上添加一个名称为L1的标签,标签上标题为“请输入密码”,添加一个名称为Text1的文本框,其宽、高分别为2000和300,设置适当的属性,使得在输入密码时,文本框中显示为“*”字符,此外再把窗体的标题设置为“密码窗口”,以上这
下面有关标准模块的叙述中,错误的是()。
为达到把a、b中的值交换后输出的目的,某人编程如下:PrivateSubCommand1_Click()a%=10:b%=20Callswap(a,b)Printa,bEndSubPr
随机试题
骆宾王《代李敬业传檄天下文》讨伐的是
A、thoughtB、boughtC、broughtD、thoughD
以下哪些植物为药材黄连的原植物?
应急演练实施是将演练方案付诸行动的过程,是整个演练程序中的核心环节。下列内容中,属于应急演练实施阶段的是()。
有些生物在发育过程中,幼体和成体的形态结构存在较大差异,这种发育方式叫作变态发育。变态发育又包括完全变态发育和不完全变态发育。下列生物中,进行不完全变态发育的是()。
现行《宪法》规定,由于国家机关和国家工作人员侵犯公民权利而受损失的人,有依法律规定()。
甲对乙实施抢劫,乙奋起抗争,恰遇甲之友丙经过,甲请丙帮忙,共同抢得乙身上钱财若干。甲、丙的共同犯罪属于()。
资本一帝国主义列强对中国的侵略,首先和主要的是进行军事侵略。这种军事侵略是逐步升级的,从骚扰、蚕食中国沿海、边疆,到割占中国大片领土,甚至企图瓜分中国。规定把台湾、澎湖列岛和辽东半岛割让给日本的不平等条约是
Asisknowntoall,avaguelawisalways______todifferentinterpretations.
I’mgoingtotalkaboutthepreservingoffruitshere.Attheendofeverysummer,astheheapsoffreshfruitstarttodwindle
最新回复
(
0
)