若使文本框能显示多行，则应（）。

（ 9 ） 窗体上有名称为 Command1 的命令按钮及名称为 Text1 、 能显示多行文本的文本框 。 程序运行后 ，如果单击命令按钮，则可打开磁盘文件 c:\test.txt ，并将文件中的内容（多行文本）显示在文本框中。

下面是实现此功能的程序，请填空。

Private Sub Command1_Click()

Text1= ””

Number=FreeFile

Open “ c:\test.txt ” For Input As Number

Do While Not Eof( 【 14 】 )

Line Input #Number,s

Text1.Text=Text1.Text+ 【 15 】 +Chr(13)+Chr(10)

Loop

Close Number

End Sub

窗体上有名称为Commandl的命令按钮及名称为Textl、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c：＼test．txt，并将文件中的内容(多行文本)显示在文本框中。下面是实现此功能的程序，请填空。

Private Sub Commandl_Click()

Textl=“”

Number=FreeFile

Open“c：＼test．txt”For Input As Number

Do While Not EOF(【 】)

Line InputNumber，s

Textl．Text=Textl．Text+【 】+Chr(13)+Chr(10)

Loop

Close Number

End Sub

在考生文件夹下有一个工程文件sjt5．vbp，其窗体上画有两个名称分别为Text1、Text2的文本框，其中Text1可多行显示。请画两个名称为Command1、Command2，标题为“产生数组”、“查找”的命令按钮。如图8所示。程序功能如下： ①单击“产生数组”按钮，则用随机函数生成10个0～100之间(不含0和100)互不相同的数值，并将它们保存到一准数组a中，同时也将这10个数值显示在Text1文本框内； ②单击“查找”按钮将弹出输入对话框，接收用户输入的任意一个数，并在一维数组a中查找该数，若查找失败，则在Text2文本框内显示该数“不存在于数组中”；否则显示该数在数组中的位置。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。

提交作业方式为：将源代码粘贴到答题的文本编辑框中。 注意： 1.无需提交项目文件 2.如果未将源代码粘贴到文本框中，则本题不给分。 10只猴子摘了500个桃子，它们约定按照下述规则吃桃子： （1）规则1：每天吃当前桃子数量的一半，并再奖励一只猴子多吃一个桃子。 例如：第一天吃的桃子数为500/2 + 1=251个桃子。 说明：如果桃子数量的一半不为整数，例如49个桃子的一半是24.5个桃子，这时取整数个桃子，即为24个桃子，除此之外，还需要再奖励一只猴子多吃一个桃子。 （2）规则2：除了最后一天之外，每天每只猴子至少能分得1个桃子。如果使用规则1时不能保证每只猴子都分得1个桃子，则当天给每只猴子派发1个桃子，即当天需要派发10个桃子。 （3）如果某一天所有桃子数量不够每只猴子一个时，则当天吃完所有桃子，这即是吃这些桃子的最后一天。 （4）问最后一天还有多少个桃子可以吃，以及每天猴子们都分得多少个桃子吃，每天吃完桃子后还剩多少个桃子？ 要求如下： （1）界面有一个多行文本框Textbox1和一个按钮Button1。 （2）单击Button1，执行程序。 （3）在多行文本框中显示如下内容： 总共有500个桃子，10只猴子分享。 第1天吃掉？？？个桃子，还剩??个桃子。 第2天吃掉？？？个桃子，还剩??个桃子。 。。。 第？天吃掉？？？个桃子，还剩??个桃子。 第？天，也就是最后一天还剩？？？个桃子可以吃。 要求上述显示内容每行换行。 提示： （1）每天吃当前桃子数量的一半再加1，直至当天可以吃的桃子数量的一半加1比10少，则不再按照该规则执行。 （2）文本框中的内容的换行可以使用下面的方法： 例如： textbox1中初始内容为空。需要在第一行中显示内容：你好。代码可为： Textbox1.text= Textbox1.text & “你好” & vbCrLf 注：vbCrLf是Visual Basic(VB,一种编程语言)中的一个字符串常数，即“Chr(13) & Chr(10)”（回车符与换行符连接在一起），是换行的意思 需要在第二行中进一步显示：这是一个VB程序。则完整代码为： Textbox1.text= Textbox1.text & “你好” & vbCrLf Textbox1.text = Textbox1.text & “这是一个VB程序” & vbCrlf 如果每次生成的字符串都存储在变量A中，代码可改为： Dim A$ A=”你好” Textbox1.text= Textbox1.text & A & vbCrlf A=“这是一个VB程序” Textbox1.text= Textbox1.text & A & vbCrlf

必须将源代码粘贴到答题的文本编辑框中，无需上传附件。 注意：如果未将源代码粘贴到文本框中，则本题不给分。 10只猴子摘了500个桃子，它们约定按照下述规则吃桃子： （1）规则1：每天吃当前桃子数量的一半，并再奖励一只猴子多吃一个桃子。 例如：第一天吃的桃子数为500/2 + 1=251个桃子。 说明：如果桃子数量的一半不为整数，例如49个桃子的一半是24.5个桃子，这时取整数个桃子，即为24个桃子，除此之外，还需要再奖励一只猴子多吃一个桃子。 （2）规则2：除了最后一天之外，每天每只猴子至少能分得1个桃子。如果使用规则1时不能保证每只猴子都分得1个桃子，则当天给每只猴子派发1个桃子，即当天需要派发10个桃子。 （3）如果某一天所有桃子数量不够每只猴子一个时，则当天吃完所有桃子，这即是吃这些桃子的最后一天。 （4）问最后一天还有多少个桃子可以吃，以及每天猴子们都分得多少个桃子吃，每天吃完桃子后还剩多少个桃子？ 要求如下： （1）界面有一个多行文本框Textbox1和一个按钮Button1。 （2）单击Button1，执行程序。 （3）在多行文本框中显示如下内容： 总共有500个桃子，10只猴子分享。 第1天吃掉？？？个桃子，还剩??个桃子。 第2天吃掉？？？个桃子，还剩??个桃子。 ... 第？天吃掉？？？个桃子，还剩??个桃子。 第？天，也就是最后一天还剩？？？个桃子可以吃。 要求上述显示内容每行换行。 提示： （1）每天吃当前桃子数量的一半再加1，直至当天可以吃的桃子数量的一半加1比10少，则不再按照该规则执行。 （2）文本框中的内容的换行可以使用下面的方法： 例如： textbox1中初始内容为空。需要在第一行中显示内容：你好。代码可为： Textbox1.text= Textbox1.text & “你好” & vbCrLf 注：vbCrLf是Visual Basic(VB,一种编程语言)中的一个字符串常数，即“Chr(13) & Chr(10)”（回车符与换行符连接在一起），是换行的意思 需要在第二行中进一步显示：这是一个VB程序。则完整代码为： Textbox1.text= Textbox1.text & “你好” & vbCrLf Textbox1.text = Textbox1.text & “这是一个VB程序” & vbCrlf 如果每次生成的字符串都存储在变量A中，代码可改为： Dim A$ A=”你好” Textbox1.text= Textbox1.text & A & vbCrlf A=“这是一个VB程序” Textbox1.text= Textbox1.text & A & vbCrlf

阅读下列说明和HTML文本，分析其中嵌入的JavaScdpt脚本，

[说明]

在表单的多行文本域中显示打字效果，即先显示一个光标，再显示一个字，然后循环显不，

[HTML 文本]

＜html＞

＜!--省略部分为HTML文本框--＞

＜script. language="JavaScript"＞ //JavaScript区域开始标识

var m=0； //定义变量m，并赋初值0

function tl(){ //声明一个数组，并对其进行初始化

m=(1)：

for(i=0；i＜m;i++)

(2)：

}

t1=mew tl(

"能熟练使用一种网络操作系统、一种浏览器软件和一种电子邮件收发与管理软件”，

"能熟练使用一种网页制作软件制作一般的网页”，

"能熟练使用HTML语言和JavaScript语言制作一般的网页”，

)： //定义对象

var x=0：pos=0; //定义变量并赋初值

var 1=t1[o].1ength //定义变量1，并将对象t1数组元素的长度值赋给变量1

function tt() {

document.form.tf.value=ti[x].subswing(0.pos)+"-";

//将数组t1中元素从0到“pos'’的值显示出来。

“form"是表单的名， “t1是多行文本输入域的名。

If((3)){ //如果数组t1中一个元素显示完毕，则显示下一个，否则继续显示

(4)：

setTimeout("tt()"，400): //设置定时器，值越小速度越快

if(++x==m){ //如果数组d中所有元素均显示完毕，则从头显示，否则继续显示

(5)；

1=t1[x]．length；

}

else{

setTimeout("tt0", 400):

}

}

＜/script＞

＜body＞

＜form. name=form＞

＜text,area name=ff rows=3 cols=38＞＜/textarea＞

＜/form＞

＜!--省略部分为HTML 文本框--＞

＜/html＞

如图所示，在列表框Listl中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项：若未找到，则在Text2中显示“查无此人”。请填空。

Private Sub Commandl_Click()

Dim k As Integer, n As Imeger,found As Boolean

found=False

n=Len(【 】)

k=0

While k＜Listl.ListCount And Not found

If Text1=Left$(Listl.List(k),n)Then

Text2=【 】

found=True

End If

k=k+1

Wend

If Not found Then

Text2="查无此人"

End If

End Sub

如下图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。

Private Sub Commandl_CliCk()

Dimk As Integer，n As Integer，found As Boolean

found=

如图16-10所示．在列表框List1中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。 Private Sub Conmlandl_Click() Dim k As Integer, n As Integer, found As Boolean found=False n=Len(【 】) k=0 While k＜List1. ListCount And Not found If Text1=Left $(List1. List(k), n)Then Text2=【 】 found=True End If k=k+1 Wend If Not found Then Text2="查无此人" End If End Sub

●试题四

阅读下列说明和HTML文本，分析其中嵌入的JavaScript脚本，将应填入(n)处的语句写在答题纸的对应栏内。

［说明］

在表单的多行文本域中显示打字效果，即先显示一个光标，再显示一个字，然后循环显示。

【HTML文本】

<html>

<!省略部分为HTML文本框>

<script. language="JavaScript">／／JavaScript区域开始标识

vat m=0；//定义变量m，并赋初值0

function tl(){//声明一个数组，并对其进行初始化

m= (1) ；

for(i=0;i<m;i++)

(2) ；

}

tl=mew tl(

"能熟练使用一种网络操作系统、一种浏览器软件和一种电子邮件收发与管理软件"，

"能熟练使用一种网页制作软件制作一般的网页"，

"能熟练使用HTML，语言和JavaScript语言制作一般的网页"，

)；//定义对象

var x=0；pos=0；//定义变量并赋初值

vavl=tl［o］.length；//定义变量1，并将对象t1数组元素的长度值赋给变量1

function tt(){

document.form.tf.value=tl［x］.subswing(0，pos)+"-"；

//将数组tl中元素从0到“pos”的值显示出来。

“form”是表单的名，“tl”是多行文本输入域的名。

If( (3) ){//如果数组tl中一个元素显示完毕，则显示下一个，否则继续显示

(4) ；

setTimeout("tt()"，400)；//设置定时器，值越小速度越快

if(++x==m{//如果数组d中所有元素均显示完毕，则从头显示，否则继续显示

(5) ；

1=tl［x］.1ength：

}

else{

setTimeout("tt()"，400);

}

}

<／script>

<body>

<form. name=form>

<textarea name=tf rows=3 cols=38><／textarea>

</form>

………

<! 省略部分为HTML文本框 >

……

<／html>