vb等級(jí)考試題目與評(píng)析18-資料下載頁(yè)
2025-08-26 13:03本頁(yè)面
【導(dǎo)讀】請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序。幫助”，名稱(chēng)分別為edit、help。其中“編輯”菜單含有一個(gè)子菜單，共。的名稱(chēng)分別為“cut”、“copy”、“paste”?！鞍粹o2”，其中“按鈕2”的初始狀態(tài)為無(wú)效。程序中不得使用任何變量。菜單的“標(biāo)題”是程序運(yùn)行和設(shè)計(jì)過(guò)程中用戶(hù)所看到的菜單項(xiàng)顯示的文字信息；菜單的“名稱(chēng)”是菜單控件名，是該菜單項(xiàng)區(qū)別于其他菜單項(xiàng)以及其他控件的重要標(biāo)識(shí)。新建一個(gè)窗體，執(zhí)行“工具”菜單中的“菜單編輯器”命令，打開(kāi)菜單編輯器。稱(chēng)”欄中輸入“help”。Enabled屬性用來(lái)確定對(duì)象是否能夠?qū)τ脩?hù)產(chǎn)生的事件作出反應(yīng)，即是否可用。值為T(mén)rue時(shí)，允許對(duì)象對(duì)事件作出反應(yīng)；取值為False時(shí)，禁止對(duì)象對(duì)事件作出反應(yīng)。拖拉出一個(gè)命令按鈕，通過(guò)屬性窗口設(shè)置其N(xiāo)ame屬性為“C2”,Caption屬性為“按鈕2”。號(hào)的地方填入正確內(nèi)容，然后刪除？及所有注釋符，修改后正確的程序代碼如下：
【正文】 件夾中的文件“ ”中。（在考生文件夾下有標(biāo)準(zhǔn)模塊 ，其中 putdata過(guò)程可以把一個(gè)整型數(shù)存入“ ”文件，考生可以把該模塊文件 添加到自己的工程中）。 注意：程序中對(duì)文件的操作統(tǒng)一使用相對(duì)路徑；文件必須存放在考生文件夾 下，窗體文件名為 ，工程文件名為 ，結(jié)果存入 ， 否則沒(méi)有成績(jī)。 參考答案 ： 新建一個(gè)工程 ， 雙擊控件面板中的 “ TextBox” 控件 ， 在窗體 Form1上自動(dòng)添加一個(gè) “ 名稱(chēng) ” 為 “ Text1” 的文本框 ， 在屬性頁(yè)上設(shè)置 “ Multiline” 屬性為 “ True”，“ ScrollBars” 屬性為 “ 2” 。 雙擊控件面板中的 “ CommandButton” 控件 ， 在窗體 Form1上自動(dòng)添加一個(gè) “ 名稱(chēng) ” 為 “ Command1” 的命令按鈕 ，在屬性頁(yè)上設(shè)置 “ 名稱(chēng) ” 為 “ C1”，“ Caption” 屬性為 “ 讀入數(shù)據(jù) ”， 同樣的方法設(shè)置 “ C2”，“ 顯示偶數(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