vb練習題二含答案-資料下載頁
2025-06-07 13:38本頁面
【正文】 1 Then ____(15)____ a(1)=XEnd Subl 在名稱為Form1的窗體上畫一個文本框，其名稱為Text1，在屬性窗口中把該文本框的MultiLine屬性設置為True，然后編寫如下的事件過程： Private Sub Form_Click() Open d:＼test＼ For Input As1 Do While Not ____(16)____EOF(1) Line Input 1,aspect$ whole$=whole$+aspect$+Chr$(13)+Chr$(10) Loop =whole$ Close 1 Open d:＼test＼ For Output As1 Print 1, ____(17)____ Close 1 End Sub以上程序的功能是：。請?zhí)羁铡 設有如下程序： Option Base 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integer, i As Integer arr1=Array(12,435,76,24,78,54,866,43) Min=____(18)____arr1(1) For i=2 To ___(19)____8 If arr1(i)Min Then ____(20)____ Min=arr1(i) Next i Print 最小值是：。 Min End Sub以上程序的功能是：用Array函數建立一個含有8個元素的數組，然后查找并輸出該數組中各元素的最小值。請?zhí)羁铡?
教學教案相關推薦
鄂ICP備17016276號-1