java语言中数组中的每个数据称为_java语言中,数组是指一组数据的集合,数组中的每个数据称为()...

阅读以下说明及Visual Basic代码,将应填入(n)处的字句写在对应栏内。[说明]下图是一个简易文本编辑器程序的运行界面:用户打开磁盘上的某个文件后,可以直接对文本进行编辑,也可以利用界面提供的按钮完成相应操作。主要操作介绍如下:(1)打开文件:打开文件对话框,其中仅显示“*.txt”类型的文件。用户选中某一文件后,其内容将呈现于界面文本框内;(2)查找:提示用户输入要查找的内容,将首次出现的查找内容以蓝色高亮标记;(3)替换:若文本框中已选中某段文本,则提示用户输入要替换的内容,在文本框中完成替换。在开发过程中,文本框名为Text1,“打开文件”、“保存文件”、“查找”、“替换”、“退出”按钮分别命名为Command1至Command5。[Visual Basic代码]Dim fileName As StringDim fso As New (1), ts As Object’打开文本文件Private Sub Command1_Click()CommonDialog1.Filter = '*.txt'CommonDialog1.ShowOpenfileName =(2) ’保存所打开的文件名Set fso=CreateObjeet('Scripting.FileSystemObject')Set ts=fso.OpenTextFile(fileName, ForReading)If Not ts.AtEndOfStream ThenText1.Text =(3)End Ifts. CloseEnd Sub’保存文本文件Private Sub Command2_Click()Set ts = fso.OpenTextFile(fileName, ForWriting)(4)ts.CloseEnd Sub’查找字符串Private Sub Command3_Cliek()Dim search As String, position As Integersearch = InputBox('输入要查找的字符串:')position = InStr(Text1.Text, search) ’在文本中查找字符串If position >0 Then ’若找到指定的字符串Text1.SelStart = position - 1 ’设置选定文本的起始位置Text1.SelLength = Len(search) ’设置选定文本的长度ElseMsgBox '没有发现要查找的字符串'End IfEnd Sub’替换选中的字符串Private Sub Command4_Click()Dim object As StringIf (5) >0 Then ’若已经选中了要替换的文本object = InputBox('输入要替换的字符串:')Text1.SelText = object ’替换文本ElseMsgBox '请先选中要替换的文本!'End IfEnd Sub’退出程序Private Sub Command5_Click()EndEnd Sub

题型:

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值