软件水平考试(初级)程序员下午(应用技术)模拟试卷14

0
收藏   分享
  • 卷面总分:75分
  • 试卷类型:模拟考试
  • 测试费用:免费
  • 答案解析:是
  • 练习次数:15次
  • 作答时间:150分钟
试卷简介
试卷预览
1

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

1

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