精品理论电影在线_日韩视频一区二区_一本色道精品久久一区二区三区_香蕉综合视频

(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盤根目錄下

的所有文件，請?zhí)羁铡?/P>

(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”，則結束程序。請?zhí)羁铡?/P>