(1)在考生文件夹下有一个工程文件sjt3.vbp。 程序的功能是: &...
程序的功能是:
1)程序运行时,文件列表框显示当前文件夹中的所有扩展名为jpg的文件。
2)双击文件列表框中某个图片文件名时,能在图像框中显示出该张图片,并将该图片文件的信息(包括路径及文件名)显示到标签中。
3) “下一张”命令按钮的功能:选中并显示上次选中文件的下一个图片文件(如果文件列表框中没有被选中的图片文件或上次选中的是最后一个文件名,则从第1个图片文件开始 )。在当前程序所在文件夹中,已经提供了所需要的图片文件,运行时窗体如图所示。在给出的窗体文件中已经有了全部控件,但程序不完整。请将事件过程中的注释符去掉,把 ?改为正确的内容,以实现上述程序功能。
注意:
考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是:程序运行时,文本框中显示一篇英文短文,单击“查找”按钮时可输入查找内容,如图1所示。
图1
若未找到查找内容,查找结束;若找到查找内容,被找到的内容在文本框中以反相显示(即呈选中状态),每找到一次都给出提示,并在左下角文本框中显示累计的次数,如图2所示,若单击提示对话框的“是”按钮,则继续向后查找;若单击“否”按钮,则终止查找。
图2
在给出的窗体文件中已经有了全部控件,但程序不完整。请将事件过程中的注释符去掉,把 ?改为正确的内容,以实现上述程序功能。
注意:
考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原件名存盘。
参考解析: (1)【解题思路】文件列表框(File ListBox)控件的常用属性使用,包括Pattern属性、FileName属性、ListCount属性、ListIndex属性。其中:ListIndex属性用来设置或返回当前控件上所选择项目的“索引值”(即下标)。在文件列表框中,第一项的索引值为0,第二项为1,以此类推。如果没有选中任何项,则ListIndex属性的值将被设置为-1。
【操作步骤】
步骤1:打开本题工程文件。
步骤2:打开代码编辑窗口,去掉程序中的注释符“'”,将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Private Sub Command1_Click()
If File1.ListIndex = -1 Or File1.ListIndex = File1.ListCount - 1 Then
File1.ListIndex = 0
Else
If File1.ListIndex >= 0 Then
File1.ListIndex = File1.ListIndex + 1
End If
End If
ShowInfor
End Sub
Private Sub File1_DblClick()
Call ShowInfor
End Sub
Private Sub ShowInfor()
Label1.Caption = App.Path + "\" + File1.FileName
Image1.Picture = LoadPicture(Label1.Caption)
End Sub
Private Sub Form_Load()
File1.Path = App.Path
File1.Pattern = "*.jpg"
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
(2)【解题思路】本题主要考察文本框控件属性的使用,包括SelLength属性和SelStart属性。其中SelStart属性为定义当前选择的文本的起始位置。0表示选择的开始位置在第一个字符之前,1表示从第二个字符之前开始选择,以此类推;SelLength属性为当前选中的字符数,可以在程序中把该属性设置为一个整数值。还有就是字符串匹配函数InStr的用法。
【操作步骤】
步骤1:打开本题工程文件。
步骤2:打开代码编辑窗口,去掉程序中的注释符“'”,将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Private Sub Command1_Click()
Dim fstr As String, ostr As String
Dim times As Integer, pos As Integer
Dim ans As Integer
fstr = InputBox("输入待查内容", "查找")
If fstr = "" Then
Exit Sub
End If
times = 0
ostr = Text1.Text
pos = InStr(1, ostr, fstr)
Do While pos <> 0
Text1.SelStart = pos - 1
Text1.SelLength = Len(fstr)
times = times + 1
Text2.Text = times
ans = MsgBox("找到了,是否继续查找?", vbYesNo)
If ans = vbYes Then
pos = pos + Len(fstr)
pos = InStr(pos, ostr, fstr)
Else
Exit Do
End If
Loop
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。