計算機(jī)二級vb試題及答案

計算機(jī)二級vb試題及答案1.基本操作(2小題，每小題15分，共計30分)(1)在名稱為Form1的窗體上畫一個標(biāo)簽，其名稱為Label1，標(biāo)題為“等級考試”，BorderStyle屬性為1，可以根據(jù)標(biāo)題自動調(diào)整大小;然后再畫一個命令按鈕，其名稱和標(biāo)題均為Command1，編寫適當(dāng)?shù)氖录^程。程序運(yùn)行后，其界面如圖1所示，此時如果單擊命令按鈕，則標(biāo)簽消失，同時用標(biāo)簽的標(biāo)題作為命令按鈕的標(biāo)題，如圖2所示。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt11.vbp，窗體文件名為sjt11.frm。PrivateSubCommand1_Click()Command1.Caption=Label1Label1.Visible=FalseEndSub(2)在名稱為Form1的窗體上畫兩個文本框，名稱分別為Text1、Text2，再畫兩個命令按鈕，名稱分別為Command1、Command2，標(biāo)題分別為“復(fù)制”、“刪除”。程序運(yùn)行時，在Text1中輸入一串字符，并用鼠標(biāo)托拽的方法選擇幾個字符，然后單擊“復(fù)制”按鈕，則被選中的字符被復(fù)制到Text2中(如圖所示)。若單擊“刪除”按鈕，則被選擇的字符從Text1中被刪除。請編寫兩個命令按鈕的Click過程完成上述功能。注意：要求程序中不得使用變量，事件過程中只能寫一條語句。存盤時必須存放在考生文件夾下，工程文件名為sjt12.vbp，窗體文件名為sjt12.frm。PrivateSubCommand1_Click()'Text2=Text1.SelText'或Me.Text2.Text=Form1.Text1.SelTextEndSubPrivateSubCommand2_Click()Form1.Text1.SelText=""EndSub2.簡單應(yīng)用(2小題，每題20分，計40分)(1)在考生目錄下有一個工程文件sjt21.vbp，包含了所有控件和部分程序，如圖所示。要求：1)利用屬性窗口設(shè)置適當(dāng)?shù)膶傩?，使Text1、Text2中數(shù)據(jù)右對齊;2)請編寫適當(dāng)?shù)某绦蛲瓿梢韵鹿δ埽涸赥ext1中輸入40(度數(shù))，選擇組合框中的一個項(xiàng)目，單擊“計算”按鈕，則根據(jù)所選擇的項(xiàng)目，計算出相應(yīng)的正弦、余弦值(保留3位小數(shù)，第4位截去，π取3.14159)，并顯示在Text2中。注意：考生不得修改窗體文件中已經(jīng)存在的程序，在結(jié)束程序運(yùn)行之前，必須進(jìn)行一種計算;在Text1中輸入的必須是40;必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。最后，按原文件名存盤。PrivateSubCommand1_Click()ConstPI=3.14159SelectCaseCombo1.TextCase"sin":a=Sin(CInt(Text1.Text)*PI/180)Case"cos":a=Cos(CInt(Text1.Text)*PI/180)Case"tg":a=Tan(CInt(Text1.Text)*PI/180)Case"ctg":a=1/Tan(CInt(Text1.Text)*PI/180)'Case"tg":a=Sin(CInt(Text1.Text)*PI/180)/Cos(CInt(Text1.Text)*PI/180)'Case"ctg":a=Cos(CInt(Text1.Text)*PI/180)/Sin(CInt(Text1.Text)*PI/180)EndSelectText2=Int(a*1000)/1000EndSubPrivateSubForm_Unload(CancelAsInteger)CallmysubEndSubSubmysub()Open"out3.txt"ForOutputAs#1Print#1,Form1.Combo1.Text,Form1.Text1.Text,Form1.Text2.TextClose#1EndSub(2)在考生文件夾下有一個工程文件sjt22.vbp，窗體上已經(jīng)畫出所有控件。程序的作用是構(gòu)成一個簡單的時鐘。剛運(yùn)行時，不計時，選擇一個單選按鈕后，再單擊“計時”按鈕，則開始計時，并根據(jù)所選的單選按鈕決定是每秒顯示一次秒數(shù)，還是每10秒顯示一次秒數(shù)。Text2用于顯示秒，如圖所示。窗體文件中已經(jīng)給出了程序，但不完整，請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。DimnumPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()num=num+1'num=?Ifnum<60ThenIfOption1.Value=TrueThenText2.Text=numElseIf(num/10=CInt(Int(num/10)))ThenText2.Text=Text2.Text+10'Text2.Text=Text2.Text+?EndIfEndIfElseText2.Text=0num=0Text1.Text=Text1.Text+1'Text1.Text=Text1.Text+?EndIfEndSub3.綜合應(yīng)用(1小題，計30分)在考生文件夾下有一個工程文件sjt5.vbp，其名稱為Form1的窗體上已有三個文本框Text1、Text2、Text3，以及程序。請完成以下工作：1)在屬性窗口中修改Text3的'適當(dāng)屬性，使其在運(yùn)行時不顯示，窗體如圖所示;2)建立下拉式菜單，如下表所示：

標(biāo)題

名稱

編輯

Edit

剪切

Cut

復(fù)制

Copy

粘貼

Paste3)窗體文件中給出了所有事件過程，但不完整，請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。以便實(shí)現(xiàn)以下功能：當(dāng)光標(biāo)所在的文本框中無內(nèi)容時，“剪切”、“復(fù)制”不可用，否則可以把該文本框中的內(nèi)容剪切或復(fù)制到Text3中;若Text3中無內(nèi)容，則“粘貼”不能用，否則可以把Text3中的內(nèi)容粘貼在光標(biāo)所在的文本框中的內(nèi)容之后。DimwhichAsIntegerPrivateSubcopy_Click()Ifwhich=1ThenText3.Text=Text1.TextElseIfwhich=2ThenText3.Text=Text2.TextEndIfEndSubPrivateSubcut_Click()Ifwhich=1ThenText3.Text=Text1.TextText1.Text=""ElseIfwhich=2ThenText3.Text=Text2.TextText2.Text=""EndIfEndSubPrivateSubedit_Click()Ifwhich=1Then'Ifwhich=?ThenIfText1.Text=""Thencut.Enabled=Falsecopy.Enabled=FalseElsecut.Enabled=Truecopy.Enabled=TrueEndIfElseIfwhich=2Then'ElseIfwhich=?ThenIfText2.Text=""Thencut.Enabled=Falsecopy.Enabled=FalseElsecut.Enabled=Truecopy.Enabled=TrueEndIfEndIfIfText3.Text=""Thenpaste.Enabled=FalseElsepaste.Enabled=TrueEndIfEndSubPrivateSubpaste_Click()Ifwhich=1ThenText1.Text=Text1+Text3.Text'Text1.Text=?ElseIfwhich=2ThenText2.Text=Text2+Text3.Text'Text2.Text=?EndIfEndSubPrivateSubText1_GotFocus()'本過程的作用是：當(dāng)焦點(diǎn)在Text1中時，which=1which=1EndSubPrivateSubText2_GotFocus()'本過程的作用是：當(dāng)焦點(diǎn)在Text2中時，which=2which=2EndSubPrivateSubText3_Change()EndSub1