若已在窗体中加入一个通用对话框，要求在运行时，通过ShowOpen打开对话框时只显示扩展名为.doc的文

在窗体画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_CIick()

Dim a(1 To 10)

Dim p(1 To 3)

k=5

For i =1 To 10

a(i)=i

Next i

For i=1 To 3

p(i)=a(i*i)

Next i

For i=1 To 3

k=k+p(i)*2

Next i

Print k

End Sub

程序运行后，单击命令按钮，输出结果是【 】。

如果在立即窗口中执行下列操作：

a=8

b=9

print(a＞B)；

则输出结果是______。

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

1．在名称为Form1的窗体上放置一个名称为Drive1的DriveListBox控件，一个名称为Dir1的DirListBox控件和一个名称为File1的FileListBox控件。程序运行时，可以对系统中的文件进行浏览；当双击File1中的文件名时，用MsgBox显示文件名(不显示路径名)。

注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为Sjt1. frm，工程文件名为sjt1.vbp。

2．在名称为Form1的窗体上放置一个名为Text1的文本框控件和一个名为Timer1的计时器控件，程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。

注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为sjt2. frm，工程文件名为sjt2.vbp，如图1—1所示。

当内容使程序完整。

Sub PrintOut()

Dim a As Integer

a = MsgBox("输出结果?", vblnformation + vbYesNo, "提示：")

If a = ______ Then

Print "Myresult"

End If

End Sub

输入，请填空。

Private Sub Command1_C1iek()

Dim x As Single

Dim amax As Single,amln As Single

x=InputBox("请输入分数")

amax=x

amin＝x

Do While【 】

If x＞amax Then

amax=x

End If

If【 】Then

amin=x

End If

x＝InputBox("请输入分数")

Loop

Print amax,amin

End Sub

对象还有操作，用于改变对象的状态，对象及其操作就是对象的【 】。

把窗体的KeyPreview属性设置为True，并编写如下两个事件过程：

Private Sub Form_KeyDown(KcyCode As Integer,Shift As Integer)

Print Key Code；

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

Print Key Ascii

End Sub

程序运行后，如果按下A键，则在窗体上输出的数值为【 】和【 】。