主观

阅读以下说明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

参考答案
您可能感兴趣的试题

阅读以下说明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

阅读下列程序说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。

[说明]

本程序提供了查询景点票价信息的功能,查询包括两种方式:按景点名称查询以及白定义查询。程序界面如下图所示:

 其中,选择景点名称的组合框(Comobox)名为Combo1,单旋钮“旺季”和“淡季”分别名为Op- tion1和Option2,用于输入票价上限的文本框名为Texi1,两种查询方式的“提交”按钮分别名为 Command1和Command2。已知Combol列表中第i个景点的旺季票价和淡季票价分别存放于数组元素P(i,0)和p(i,1)中。

[Visual Basic代码]

Dim p(20, 2) As Single    '通用声明

Private Sub Form_Load( )

  For i = 0 To 9     '对p赋值

    p(i, 0)=........ :p(i, 1)=.......

  Next

End Sub

Private Sub Commandl_Click( )  '查询方式一:按景点名称查询

  Dim cboTcxt As String

  eboText =(1) 

  Fori = 0 To (2) -1   '对Combo1中各列表项循环

    If (3)= cboText Then

       MsgBox "景点名称" & cboText & "旺季票价" & p(i, 0) & _

            ",淡季票价" & p(i, 1)

       Exit Sub

    End If

  Next i

End Sub

Private Sub Command2_Click( )   查询方式二:自定义查询

  Dim price As Single, result As String, flag As Boolean

  price =Val( (4) )

  flag = False

    result = ""

  For i = 0 To (2) - 1'对Combo1中列表项循环,找出符合条件的景点

    If(Optionl. Value And p(i, 0) < = price) Or((5)) Then

      (6) 

       result=result & "景点名称" &(3)& ",旺季票价:"&_

            p(i, 0) & ",淡季票价:" & p(i, 1) & vbCrLf

    End If

  Next i

  If flag Then

    MagBox result

 Else: Msgaox "没有找到符合条件的景点信息!"

  End If

End Sub

阅读以下函数说明和C语言函数,将应填入(n)处的字句写在对应栏内。

【说明】

 函数fun1 (int bb[])的功能是:在3位整数(100~999)中寻找符合条件的整数并依次从小到大存入数组中;它既是完全平方数,两位数字又相同,例如144、676等。

 【函数2.11】

 fun1 (int bb[])

 {

   int i, j, k=0, g, s, b;

   for (i=100; i<=999; i++)

    {

      g=i%10;

      (1) 

      b=i/100;

      if ((i== (int) sqrt (i) * (int) sqrt (i)) && (g==s‖s==b‖b==g))

      (2) 

    }

   return k;

 }

 【函数2.2说明】

 函数void fun2()的功能是:数组a中有300个四位数,求出数组a千位数上的数减百位数上的数减十位数上的数减个位数上的数大于零的个数CNT,再把所有满足此条件的四位数依次存入数组bb中,然后对数组bb的四位数按小到大的顺序进行排序。例如:9123,9-1-2-3>0,则该数满足条件存入数组bb中,且个数CNT=CNT+1,9812,9-8-1-2<0,则该数不满足条件,忽略。

 【函数2.2】

 void fun2 ( )

 {

   int q,b,s,g,i,j;

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

     {q=a[i]/1000;

      b=a[i]/100%10;

      s=a[i]/10%10;

      g=a[i]%10;

      if (q-b-s-g>0)

      (3) 

      }

       for ( i=0;i<cnt-1;i++ )

       for ( j=i+1;j<cnt;j++ )

       if ( bb[i]>bb[j] )

       { (4) 

       bb[i]=bb[j];

       (5) 

      }

 }

¥

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服