未分类题

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

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

【参考答案】

(1)列表/菜单; (2)文本域。
(1)列表/菜单; (2)文本域。
热门 试题

未分类题
阅读以下说明Visual Basic代码,回答问题1~2,将解答填入对应的栏内。[说明]本程序实现的功能是判断指定的文本文件中是否包含指定的字符串,并且如果包含则返回其第一次出现的位置(行号、列号)。程序运行界面如下图所示,用户只要通过驱动器列表框、目录列表框选定文件夹,文件列表框会自动列出该文件夹下所有文本文件名称,选中其中某个文件,再输入目标字符串并且单击“查找”按钮,就能看到查找的结果。在开发过程中,驱动器列表框名为Drive1,目录列表框名为Dirl,文件列表框名为File1,目标字符串输入框名为Text1,“查找”按钮名为Command1。[Visual Basic 代码]Private Sub Drivel_Change()Dirl. Path=(1) '更新目录列表框的路径End SubPrivate Sub Dirl_Change( )(2)= Dirl. Path '更新文件列表框的路径 End SubPrivate Sub Commandl_Click( )Dim fso, a As ObjectDim i, j As IntegerIf (3) = '' Then '判断是否已经选中某个文件MsgBox '请选择一个文件文件!'(4) '退出事件过程End If'创建文件系统对象以及文本流对象Set fso = CreateOhjecl( 'Scripting. FileSystemOhject' )Set a = fso. OpenTextFile( Dirl. Path & ' ' &(3))i=1Do While (5)<> True '逐行读取文件,直至文件末尾strLine = a. ReadLinej = InStr(1,(6))'返回目标字符串在文件这一行中的位置If j > 0 Then '如果目标字符串在这一行出现,则返回其位置MsgBox '字符串第一次出现的位置是' & '(' & i & ',' &j & '),,'(4) '退出事件过程End Ifi:i+lLoopMsgBox '字符串在文件中不出现,'End Sub