vb等級考試題目與評析47-在線瀏覽
2024-11-07 10:04本頁面
【正文】 ********************************************************************** （ 2）在考生文件夾下有一個工程文件 ，請在窗體上畫三個文本框，其 名稱分別為 Text Text2和 Text3，文本框內(nèi)容分別設(shè)置為“等級考試”、 “計算機(jī)”和空白。程序運 行后，如果選中“交換”單選按鈕并單擊窗體，則 Text1文本框中內(nèi)容與 Text2文本框中內(nèi)容 進(jìn)行交換，并在 Text3文本框中顯示“交換成功”；如 果選中“連接”單選按鈕并單擊窗體，則把 Text1和 Text2的內(nèi)容按 Text1 在前， Text2在后的順序連接起來，并在 Text3文本框中顯示連接后的內(nèi) 容。 注意：不得修改已經(jīng)給出的程序。退出程序時必須通過單擊窗體右上角的關(guān)閉按鈕， 否則可能無成績。 設(shè)置單選按鈕 Value屬性的語法是： 單選按鈕名 .Value = True（ 1)或 False（ 0) 由于 Value屬性是單選按鈕的缺省屬性，因此在設(shè)置該屬性的值的時候，可以省略屬性名。 點擊工具箱中的 OptionButton控件圖標(biāo)，然后在 F1中拖拉出兩個單選按鈕，通過屬性窗口分別設(shè)置其 Name屬性為“ Op1”和“ Op2”， Caption屬性為“飛機(jī)”和“火車”。 點擊工具箱中的 CommandButton控件圖標(biāo)，然后在窗體上拖拉出一個命令按鈕，通過屬性窗口設(shè)置其 Name屬性為“ C1”， Caption屬性為“確定”。 打開代碼窗口，輸入如下的代碼： Private Sub C1_Click（ ) If Then If Then = 坐飛機(jī)去廣州 Else: = 坐飛機(jī)去昆明 End If Else: If Then = 坐火車去廣州 Else: = 坐火車去昆明 End If End If End Sub 按要求進(jìn)行操作并保存文件即完成本題。 點擊工具箱中的 OptionButton控件圖標(biāo)，然后在窗體中拖拉出兩個單選按鈕，通過屬性窗口分別設(shè)置其 Name屬性為“ Op1”和“ Op2”， Caption屬性為“交換”和“連接”。 3. 綜合應(yīng)用（ 1小題，計 30分） 注意：下面出現(xiàn)的“考生文件夾”均為 C:\WEXAM\00000000\ 在考生文件夾下有一個工程文件 ，窗體文件中的 ReadData1和 ReadData2過程可以把 入 Arr1和 Arr2數(shù)組中；而 WriteData 過程可以把計算出的整數(shù)值寫到考生文 件夾下指定的文件中（整數(shù)值通過計
公司管理相關(guān)推薦
鄂ICP備17016276號-1