主观

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

[说明]

 下面的程序利用递归算法计算x和y的最大公约数。

[函数2.1]

main ( )

{ int x,y,k,t;

 scanf(" % d% d" , &x, &y);

 if(x>y) { t=x;x=y; y=t;}

  (1);

 while(k! =0){

  y=x;

  (2);

  k=y%x;

 }

 prinff( "% d" ,x); }

[函数2.2说明]

函数fun(char *str,char *substr的功能是计算子串sugbstr在串str中出现的次数。

[函数2.2]

fun(ehar * str, char * substr)

{ int x,y,z;

  (3);

  for(x=0;str[ x] ! = '\O';x + + )

  for(y=x,z=0;sabstr[z] = =str[y];(4),y+ +)

  if((5)= ='\0') {

    num + +;

    break;

  }

 return(num);

}

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

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

[说明]

 本程序实现的功能是查看磁盘上的图片及其基本信息。程序运行界面如下图所示,用户只要逐步选择适当的驱动器、目录和图片文件,图片内容随即显示在界面中央,文件的基本信息则呈现于右侧文本框中。用户还可以删除或复制选中的图片文件。

    

 在开发过程中,驱动器列表框名为Drivel,目录列表框名为Dir1,文件列表框名为File1,图片的显示由Image控件对象Image1来实现,文件信息文本框名为Text1,按钮“删除文件”和“复制到…”分别名为CmdDel和CmdCpy。

[Visual Basic代码]

Dim filename As String

Dim fso As New (1), file As file

Private Sub Form_Load()

  Set fso = CreateObject("Scripting.FileSystemObject")

  Drivel.Drive = "F:"

End Sub

Private Sub Dir1_Change()

 File1.path=Dirl.path    ’更新文件列表框的路径

End Sub

Private Sub Drive1_Change()

  Dir1.path =(2)      ’更新目录列表框的路径

End Sub

Private Sub File1_Click()’文件列表框的单击事件响应代码

 If Right(Dir1.path, 1) <>"\" Then

    filename = Dir1.path & "\" & Filel.filename

 Else

    filename = Dir1.path & Filel.filename

 End If

 Image1.Picture =(3) 

 Set file = fso.GetFile(filename)

 Text1. Text = "文件名称:" & file.Name & vbCrLf & _

        "文件大小:" & file. Size & "字节" & vbCrLf & _

       "文件类型:" & file.Type & vbCrLf & _

       "创建日期:" & file. DateCreated & vbCrLf & _

       "修改日期:" & file. DateLastModified

End Sub

Private Sub CmdCpy_Chck()’按钮“复制到…”的单击事件响应代码

 Dim path As String

 path = InputBox("请输入目标路径(含文件名):")

  (4) 

End Sub

Private Sub CmdDel_Click()’按钮“删除文件”的单击事件响应代码

  (5) 

End Sub

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

[说明]

 某小型家电超市开发了下面的程序,用以实现商品提货信息的汇总和输出功能。程序的运行界面如下图所示:

    

 程序界面包含两个控件数组,分别是提货商品复选框控件数组Check1以及提货数量文本框控件数组Text1(相同下标的复选框和文本框相对应),提货清单的显示由List控件实现,按钮“打印清单”和“清除”分别名为Command1和Command2。

[Visual Basic代码]

’提货商品复选框的单击事件响应代码

Private Sub Check1_Click(Index As Integer)

If Check1 (Index). Value = 1 Then (1). SetFocus

End Sub

’按钮“打印清单”的单击事件响应代码

Private Sub Command1_Click()

  Dim i, n, price As Integer, sum As Long, title As String

  sum = 0

  For i = O To 4

       Select Case i

          Case 0:  title ="电视机":  price = 3580

          Case 1:  title ="微波炉":  price = 660

          Case 2:  title ="电冰箱":  price = 1850

          Case 3:  title ="DVD":   price = 2880

          Case 4:  title ="空调":   price = 2500

      End Select

  If (2)= 1 And Textl(i). Text < > " " Then

      (3) title & Text1(i).Text & "台"

  n = n + Val(Textl(i))

  sum =(4) 

  End If

  Next i

  If sum < > 0 Then

    (3) "共:" & n &"台," &"合计金额:"& sum &"元。"

 End If

End Sub

’按钮“清除”的单击事件响应代码

Private Sub Command2_Click()

  (5) 

End Sub

¥

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服