[多項(xiàng)選擇題] 在考生文件夾內(nèi)(C:ylc)有一個(gè)工程文件ylc.vbp。在窗體上有一個(gè)文本框，名字為Text1，以及兩個(gè)命令按鈕，名字分別為Command1和Command2，標(biāo)題分別為Search和Save。還有一個(gè)函數(shù)過(guò)程Search(a)，在程序中可以直接調(diào)用該函數(shù)，其功能為判斷整型參數(shù)number是否為質(zhì)數(shù)。如果是則返回True，否則返回False。編寫一個(gè)事件過(guò)程，實(shí)現(xiàn)以下功能：運(yùn)行時(shí)，在文本框內(nèi)輸入一個(gè)正整數(shù)。單擊Search按鈕后，找到小于該正整數(shù)的第一個(gè)素?cái)?shù)，顯示在 Text1中；單擊“Save”，則把Text1中的計(jì)算結(jié)果存入考生文件夾下的out.txt文件中。程序運(yùn)行后如圖27所示。要求實(shí)現(xiàn)題目給出的功能，并將文件保存在考生文件夾下，工程文件名為 ylc.vbp。

在工具箱中選擇命令按鈕控件，在窗體上創(chuàng)建兩個(gè)命令按鈕，名稱分別為CommandA和CommandB，標(biāo)題分別為Search和Save。 (B)雙擊Search按鈕彈出代碼窗口，在其中添加如下代碼： Private Sub CommandA_Click() Dim a As Integer number=Val(TextA. Text) Do While (Search(number)=False) number=number-A Loop TextA.Text=nu

(1)該題答案第4部分中的代碼調(diào)用了原始文件中的Search函數(shù)過(guò)程。當(dāng)函數(shù)判斷得到第一個(gè)質(zhì)數(shù)時(shí)就會(huì)跳出Do循環(huán)體，并將該質(zhì)數(shù)值賦給文本框的Text屬性，顯示在文本框中。 (2)第5部分中編寫了一個(gè)用于向文件out.txt寫入數(shù)據(jù)的過(guò)程，并在Save按鈕的單擊事件中調(diào)用了這個(gè)過(guò)程。