首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个标题分别是“读数据”和“统计”的命令按钮和初始文本为空、名称分别为Text1和Text2的两个文本框,如图所示。 程序功能如下: ①单击“读数据”按钮,则将考生文件夹下in5.dat
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个标题分别是“读数据”和“统计”的命令按钮和初始文本为空、名称分别为Text1和Text2的两个文本框,如图所示。 程序功能如下: ①单击“读数据”按钮,则将考生文件夹下in5.dat
admin
2019-06-20
31
问题
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个标题分别是“读数据”和“统计”的命令按钮和初始文本为空、名称分别为Text1和Text2的两个文本框,如图所示。
程序功能如下:
①单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容(该文件中仅含有字母和空格)显示在Text1文本框中(此过程已给出)。
②在Text1文件框中选中内容后,单击“统计”按钮,则统计选中文本中出现次数最多的字母(不区分大小写),以大写形式将这些出现次数最多的字母显示在Text2文本框内。
请将“统计”按钮Click事件过程中的注释符去掉,最后将程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Dim x As String, max n As Integer Private Sub Command1_Click() Open App.Path & "\in5.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 = ? st = Text1.SelText Text2 = "" If sl = 0 Then MsgBox "请先选择文本" Else For i = 1 To sl c = Mid(st, i, 1) If c <> " " Then n = Asc(UCase(c)) - Asc("A") + 1 ’ a(n) = ? End If Next i max n = a(1): n = 1 ’ For j = ? To 26 ’ If ? Then max n = a(j) End If Next j For i = 1 To 26 ’ If ? Then Text2.Text = Text2.Text + " " + Chr(Asc("A") + i - 1) End If Next i End If End Sub 程序结束 参考答案 第1个?处填入:Text1.SelLength 第2个?处填入:a(n) + 1 第3个?处填入:1 第4个?处填入:max_n < a(j) 第5个?处填入:a(i) = max_n 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/LfUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在属性窗口中把窗体的KeyPreview属性设置为True,然后编写如下两个事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyC
InputBox函数返回值的类型为()。
如图2所示,在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timer1。要求每1s在文本框中显示一次当前的时间。PrivateSubTimer1__________TextTime.Text=Time
软件生命周期可分为定义阶段、开发阶段和维护阶段,下面不属于开发阶段任务的是
表达式Sgn(0.25)的值是
标准模块中有如下程序代码:PublicxAsInteger,yAsIntegerSubvar_pub()x=10:y=20EndSub在窗体上有1个命令按钮,并有如下事件过程:PrivateSubCommand1_Click(
对长度为n的线性表进行顺序查找,在最坏情况下所需要的比较次数为
一棵二叉树中共有70个叶子结点与80个度为1的结点,则该二叉树中的总结点数为
在VisualBasic中,不能关闭的窗口是
(1)在标题为“列表框”、名称为Form1的窗体上添加一个名称为List1的列表框,通过属性窗口输入4个列表项:“数学”、“语文”、“历史”、“地理”,列表项形式采用复选框形式,如图所示。列表框的宽为1100,高不限。注意:存盘时必须存放在考生文
随机试题
为了避免焊接热影响区韧性的恶化,不推荐大电流、粗丝、多丝埋弧焊工艺。
下面哪项不是双胎的剖宫产指征
关于口腔医学美学的形式美的主要法则中下述哪项准确
女,24岁。低热,腹胀4个月,消瘦,停经。查体:全腹膨隆,未触及肿块,移动性浊音(+)。腹腔积液检查:比重1.018,蛋白37g/L。细胞数580×106/L,淋巴细胞0.80,最可能的疾病是()
关于慢性阻塞性肺疾病,下列说法正确的是()。
水流在直径为d的圆管中满流流动时,湿周χ和水力半径R分别是()。
下列费用中,应计入设备运杂费的有()。
一般纳税人因销售货物退回或者折让而退还给购买方的增值税额,应从发生销售货物退回或者折让当期的销项税额中扣减。()
针对8位二进制数,下列说法中正确的是()。
Oldfriends,theyfinishyoursentences,theyrememberthecatthatranawaywhenyouweretwelve,andtheytellyouthetruthw
最新回复
(
0
)