vb等級(jí)考試題目與評(píng)析19-資料下載頁(yè)
2025-08-26 13:03本頁(yè)面
【導(dǎo)讀】請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序。命令按鈕，編寫適當(dāng)?shù)氖录^(guò)程。要求程序運(yùn)行后，如果單擊“顯示”命。使用任何變量，直接顯示字符串）。選按鈕，在文本框中顯示字符串“AAA”；如果單擊“二系”單選按鈕，新建一個(gè)工程，雙擊控件面板上的“PictureBox”控件，在窗體Form1上自動(dòng)添加一個(gè)名稱為“Picture1”的圖。上自動(dòng)添加一個(gè)名稱為“Command1”的命令按鈕，在屬性頁(yè)上把“名稱”設(shè)為“Cmd1”，“Caption”屬性設(shè)為。單擊標(biāo)準(zhǔn)工具欄上的“保存工程”按鈕，以文件名，。性頁(yè)上把“名稱”設(shè)為“Op1”，“Caption”屬性設(shè)為“一系”，相同的方法設(shè)置“二系”和“九系”。則在文本框內(nèi)顯示“李四”；如果選擇“王五”則在文本框內(nèi)顯示“王五”。“今年不休”；一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽。換，分別在“標(biāo)題框”和“名稱框”中輸入題面中要求的菜單名稱及標(biāo)題。單擊向右的箭頭，設(shè)置成主菜單的二級(jí)菜單。號(hào)的地方填入正確內(nèi)容，然后刪除？及所有注釋符，修改后正確的程序代碼如下：
【正文】 1中顯示出來(lái)，并把所有奇數(shù)之和存入考生 文件夾中的文件“ ”中。（在考生文件夾下有標(biāo)準(zhǔn)模塊 ，其 中 putdata過(guò)程可以把一個(gè)整型數(shù)存入 ，考生可以把該模塊文件 添加到自己的工程中）。 注意：程序中對(duì)文件的操作統(tǒng)一使用相對(duì)路徑；文件必須存放在考生文件夾 下，窗體文件名為 ，工程文件名為 ，結(jié)果存入 ， 否則沒(méi)有成績(jī)。 新建一個(gè)工程 ， 雙擊控件面板中的 TextBox控件 ， 在窗體 Form1上自動(dòng)添加一個(gè) 名稱 為 Text1的 文本框 ，在屬性頁(yè)上設(shè)置 Multiline屬性為 True， ScrollBars屬性為 2。 雙擊控件面板中的 CommandButton控件 ， 在窗體 Form1上自動(dòng)添加一個(gè) 名稱 為 Command1的命令按 鈕 ，在屬性頁(yè)上設(shè)置 名稱 為 Cmd1， Caption屬性為 讀入數(shù)據(jù) ， 同樣的方法設(shè)置 Cmd2， 顯示奇數(shù)并保存 。 選擇 工程 菜單中的 添加模塊 菜單項(xiàng)，打開(kāi) 現(xiàn)存 頁(yè)，選擇考生文件夾下的 文件， 單擊 打開(kāi) 按鈕，右鍵單擊 Form1窗體，選擇 查看代碼 選項(xiàng)，輸入以下代碼： Dim a(100) As Integer Private Sub Cmd1_Click() Open amp。 \ For Input As 1 = For i = 1 To 100 Input 1, a(i) = amp。 a(i) amp。 Space(1) Next i Close 1 End Sub Private Sub Cmd2_Click() = s = 0 For i = 1 To 100 If a(i) Mod 2 0 Then = amp。 a(i) amp。 Space(1) s = s + a(i) End If Next putdata s End Sub 單擊標(biāo)準(zhǔn)工具欄中 保存工程 按鈕 ， 選擇考生文件夾 ， 分別以文件名 件。
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1