问答题

网页制作
[说明] 现在有一个Ip查询系统，用于查询某高校内部的Ip地址，网页的效果如图11-7所示。下面页面分别使用了表单对象中的哪些?

A.shangxueba.cn/images/ct_csrpecsj_crpecsshot_00112(20102).jpg'

你可能感兴趣的试题

阅读以下说明和流程图，回答问题将解答填入对应栏内。
[说明]
已知递推数列：a(1)=1，a (2s)= a (s)，a(2s+1)=a (s)+a (s+1)(s 为正整数)。试求该数列的第n项与前n项中哪些项最大?最大值为多少?
算法分析：该数列序号分为奇数或偶数两种情况做不同递推，所得数列呈大小有规律的摆动。设置a数组，赋初值a (1)=1。根据递推式，在循环中分项序号s (2～n)为奇数或偶数作不同递推：每得一项 a (s)，即与最大值max 作比较，如果a (s)＞max，则max=a(i)。最后，在所有项中搜索最大项(因最大项可能多于一项)，并打印最大值max。
[问题]
将流程图中的(1)～(5)处补充完整。
注：流程图中(1)循环开始的说明按照“循环变量名：循环初值，循环终值，增量”格式描述。
[流程图]

A.shangxueba.cn/images/ct_crppxm_crppxliucheng_00081(20093).jpg'

阅读以下说明Visual Basic代码，回答问题1～2，将解答填入对应的栏内。
[说明]
本程序实现的功能是判断指定的文本文件中是否包含指定的字符串，并且如果包含则返回其第一次出现的位置(行号、列号)。程序运行界面如下图所示，用户只要通过驱动器列表框、目录列表框选定文件夹，文件列表框会自动列出该文件夹下所有文本文件名称，选中其中某个文件，再输入目标字符串并且单击“查找”按钮，就能看到查找的结果。

在开发过程中，驱动器列表框名为Drive1，目录列表框名为Dirl，文件列表框名为File1，目标字符串输入框名为Text1，“查找”按钮名为Command1。
[Visual Basic 代码]
Private Sub Drivel_Change()
Dirl. Path=(1) '更新目录列表框的路径
End Sub
Private Sub Dirl_Change( )
(2)= Dirl. Path '更新文件列表框的路径 End Sub
Private Sub Commandl_Click( )
Dim fso, a As Object
Dim i, j As Integer
If (3) = '' Then '判断是否已经选中某个文件
MsgBox '请选择一个文件文件!'
(4) '退出事件过程
End If
'创建文件系统对象以及文本流对象
Set fso = CreateOhjecl( 'Scripting. FileSystemOhject' )
Set a = fso. OpenTextFile( Dirl. Path & '/' &(3))
i=1
Do While (5)＜＞ True '逐行读取文件，直至文件末尾
strLine = a. ReadLine
j = InStr(1,(6))'返回目标字符串在文件这一行中的位置
If j > 0 Then '如果目标字符串在这一行出现，则返回其位置
MsgBox '字符串第一次出现的位置是' & '(' & i & ',' &j & '),,'
(4) '退出事件过程
End If
i:i+l
Loop
MsgBox '字符串在文件中不出现，'
End Sub

A.shangxueba.cn/images/ct_crppxm_crppxprogxvb_00055(20093).jpg'