首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个标题分别是“读数据”和“统计”的命令按钮和初始文本为空、名称分别为Text1和Text2的两个文本框,如图所示。 程序功能如下: ①单击“读数据”按钮,则将考生文件夹下in5.dat
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个标题分别是“读数据”和“统计”的命令按钮和初始文本为空、名称分别为Text1和Text2的两个文本框,如图所示。 程序功能如下: ①单击“读数据”按钮,则将考生文件夹下in5.dat
admin
2019-06-20
33
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。窗体文件的程序如下:PrivateTypexPrivateSubCommand1_Click()aAsInteger:bAsIntegerDimyA
有如下语句序列:Dima,bAsIntegerPrintaPrintb执行以上语句序列,下列叙述中错误的是
使用菜单编辑器设计菜单时,必须输入的项是()。
某二叉树中度为2的结点有10个,则该二叉树中有()个叶子结点。
假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是()。
在窗体上有一个名称为Label1的标签和一个名称为Timer1的计时器,并编写有如下几个事件过程:PrivateSubForm_Load()Timer1.Enabled=FalseTimer1.Interval=_____
数据字典(DD)所定义的对象都包含于
构成计算机软件的是
设:a=12,b=5,c=7,表达式x=(a\c+aModb)+Int(13/5)的值是
设有如下通用过程:PublicFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr="":strL=Len(xStr)i=strL/2DoW
随机试题
当输出功率大于额定功率120%并持续2s后,消防应急广播系统过载指示灯点亮为()。
原核生物的DNA-polI
女性,26岁,哺乳2年,外阴灼热感、瘙痒3天。查体:阴道黏膜充血,分泌物较少水样,无异味,阴道分泌物检查未见明显细菌。该患者最可能的诊断是
某患者,20岁。体温38.0℃,食欲不振,腹泻,经检查血象高、大便镜检:WBC>50/HP,RBCl5~20/HP,可见巨噬细胞。首先考虑
国家鼓励和支持农民和农业生产经营组织使用先进、适用的农业机械,加强农业机械安全管理,提高农业机械化水平。()
任何人实施了违反治安管理行为都应受到处罚。()
关于京剧艺术,下列说法错误的是:
资本市场线和证券市场线的区别。(华中科技大学2016真题)
以下有关网络操作系统的表述中,错误的是()。
About______ofthe15,000visitorsontheopeningdayofHongKongDisneylandcamefromthemainland.
最新回复
(
0
)