(8)在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，然后编写如下程序：

Function Fun(x As Integer,ByVal y As Integer)As Integer

x=x+y

If x<0 Then

Fun=x

Else

Fun=y

End If

End Function

Private Sub Command1_Click()

Dim a As Integer,b As Integer

a=-10：b=5

Text1.Text=Fun(a，b)

Text2.Text=Fun(a，b)

End Sub

程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是【9】和【10】。

(9)在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编

写如下代码：

Dim SaveAll As String

Private Sub Command1_Click()

Text1.Text=Left(UCase(SaveAll)，4)

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

SaveAll=SaveAll+Chr(KeyAscii)

End Sub

程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是【11】。

(10)在窗体上画1个命令按钮和1个通用对话框，其名称分别为Command1和CommonDialog1，然后编写如下事件过程：

Private Sub Command1_Click()

CommonDialog1.【12】="打开文件"

CommonDialog1.Filter="All Files(*.*)|*.*"

CommonDialog1.InitDir="C：＼"

CommonDialog1.ShowOpen

End Sub

该程序的功能是，程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“AIl Files(*.*)”，并显示C盘根目录下

的所有文件，请填空。

(11)在窗体上画1个文本框，名称为Text1，然后编写如下程序：

Private Sub Form_Load()

Open"d：＼temp＼dat.txt"For Output As#1

Text1.Text=""

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

lf【13】=13 Then

If UCase(Text1.Text)=【14】Then

Close 1

End

Else

Write#1，【15】

Text1.Text=""

End If

End If

End Sub

以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则结束程序。请填空。