vb習(xí)題及部分答案

vb習(xí)題及部分答案

ID:40261770

大小:70.99 KB

頁數(shù):5頁

時間:2019-07-29

vb習(xí)題及部分答案_第1頁
vb習(xí)題及部分答案_第2頁
vb習(xí)題及部分答案_第3頁
vb習(xí)題及部分答案_第4頁
vb習(xí)題及部分答案_第5頁
資源描述:

《vb習(xí)題及部分答案》由會員上傳分享,免費在線閱讀,更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫

1、1.在名稱為Form1的窗體上畫一個名稱為Command1、標(biāo)題為“保存文件”的命令按鈕,再畫一個名稱為CommonDialog1的通用對話框。要求:1)通過屬性窗口設(shè)置適當(dāng)?shù)膶傩?,使得運行時對話框的標(biāo)題為“保存文件”,且默認(rèn)文件名為out2;2)運行時單擊“保存文件”命令按鈕,則以“保存對話框”方式打開該通用對話框,如圖所示。注意:要求程序中不能使用變量,每個事件過程中只能寫一條語句。保存時必須存放在考生文件夾下,工程文件名為sjt2.vbp,窗體文件名為sjt2.frm。PrivateSubCommand1_Click()CommonDia

2、log1.Action=1EndSub2.在名稱為Form1的窗體上畫一個名稱為command1的命令按鈕,標(biāo)題為“命令按鈕”。然后建立一個菜單,標(biāo)題為“控件”,名稱為menu,包含兩個子菜單項,一個是“顯示命令按鈕”,名稱為subMenu1;另一個是“隱藏命令按鈕”,名稱為subMenu2,如圖所示。編寫適當(dāng)?shù)氖录^程,使得程序運行時,如果選擇“顯示命令按鈕”菜單命令,則顯示命令按鈕控件;而如果選擇“隱藏命令按鈕”菜單命令,則隱藏命令按鈕控件。PrivateSubsubMenu1_Click()Command1.Visible=TrueEnd

3、SubPrivateSubsubMenu2_Click()Command1.Visible=FalseEndSub3.在考生文件夾下有一個工程文件sjt4.vbp,含有Form1和Form2兩個窗體,F(xiàn)orm1為啟動窗體。兩個窗體上的控件如圖1所示。程序運行后,在Form1窗體的文本框中輸入有關(guān)信息(‘密碼’框中顯示‘*’字符),然后單擊‘提交’按鈕則彈出‘確認(rèn)’對話框(即Form2窗體),并在對話框中顯示輸入的信息,如圖2所示。單擊‘確認(rèn)’按鈕則程序結(jié)束,單擊‘重輸’按鈕,則對話框消失,回到Form1窗體。在給出的窗體文件中已經(jīng)給出了程序,但

4、不完整。要求:1)把Form1的標(biāo)題改為‘注冊’,把Form2的標(biāo)題改為‘確認(rèn)’;2)設(shè)置適當(dāng)?shù)膶傩?,使Form2標(biāo)題欄上的所有按鈕消失(如圖2所示);3)去掉程序中的注釋符,把程序中的?改為正確的內(nèi)容。窗體1PrivateSubCommand1_Click()a=Text1.Textb=Text2.Textn=Text3.TextIfOption1.Value=TrueThensex="男"IfOption2.Value=TrueThensex="女"Form2.ShowForm2.Print"用戶民:";aForm2.Print"密碼:";

5、bForm2.Print"姓名:";nForm2.Print"性別:";sexEndSubPublicaAsString,bAsString,nAsStringPublicsexAsString在模塊中:PublicaAsString,bAsString,nAsStringPublicsexAsString(全局變量)在窗體2中:PrivateSubCommand1_Click()EndEndSubPrivateSubCommand2_Click()form1.Showform1.Text1.Text=""form1.Text2.Text=""

6、form1.Text3.Text=""EndSub4.在名稱為Form1的窗體上畫一個名稱為Text1的文本框,再建立一個名稱為Format的彈出式菜單,含三個菜單項,標(biāo)題分別為‘加粗’、‘斜體’、‘下劃線’,名稱分別為M1、M2、M3。請編寫適當(dāng)?shù)氖录^程,在運行時當(dāng)用鼠標(biāo)右鍵單擊文本框時,彈出此菜單,選中一個菜單項后,則進(jìn)行菜單標(biāo)題所描述的操作,如圖所示。PrivateSubM1_Click()Text1.FontBold=TrueEndSubPrivateSubM2_Click()Text1.FontItalic=TrueEndSubPr

7、ivateSubM3_Click()Text1.FontUnderline=TrueEndSubPrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenText1.Enabled=False:Text1.Enabled=True:PopupMenuFormatEndSub5.在考生文件夾下有一個工程文件sjt5.vbp。在窗體文件中已經(jīng)給出了全部控件及部分程序。程序運行時,在文本框Text1中輸入一個大于2的偶數(shù),并單擊

8、"分解為"命令按鈕,則可以將該偶數(shù)分解為兩個素數(shù)之和,且要求其中一個素數(shù)是所能夠分解出的最小的素數(shù)(一個偶數(shù)有時可以分解為多種素數(shù)的組合,例如24可以

當(dāng)前文檔最多預(yù)覽五頁,下載文檔查看全文

此文檔下載收益歸作者所有

當(dāng)前文檔最多預(yù)覽五頁,下載文檔查看全文
溫馨提示:
1. 部分包含數(shù)學(xué)公式或PPT動畫的文件,查看預(yù)覽時可能會顯示錯亂或異常,文件下載后無此問題,請放心下載。
2. 本文檔由用戶上傳,版權(quán)歸屬用戶,天天文庫負(fù)責(zé)整理代發(fā)布。如果您對本文檔版權(quán)有爭議請及時聯(lián)系客服。
3. 下載前請仔細(xì)閱讀文檔內(nèi)容,確認(rèn)文檔內(nèi)容符合您的需求后進(jìn)行下載,若出現(xiàn)內(nèi)容與標(biāo)題不符可向本站投訴處理。
4. 下載文檔時可能由于網(wǎng)絡(luò)波動等原因無法下載或下載錯誤,付費完成后未能成功下載的用戶請聯(lián)系客服處理。