2010下半年黨章考試試卷

《程序設(shè)計(jì)基礎(chǔ)》和《VisualBasic程序設(shè)計(jì)?！纺M試題2010-10一、選擇題都是一些基本的概念例如：1、要使窗體在運(yùn)行是不顯示最大化按鈕，只要對下列（A）屬性設(shè)置。MaximizeBoxBorderStyleWidthMinimizeBox2、要增加組合框Combo控件中選項(xiàng)，應(yīng)使用Items集合的（C）方法。SubRemoveAddClear3、表達(dá)式16/4-2^5*8/4MOD5\2的值為（B）14420124、要設(shè)置DataGrid控件的標(biāo)題文本，應(yīng)修改（B）屬性。TextCaptionTextCaptionTitle5、下面程序段的運(yùn)行后，n的值為（C）n=1forI=1to4n=n*Inext68244二、操作題1、新建項(xiàng)目test01，將其保存在目錄下，要求：程序執(zhí)行結(jié)果如下圖；此程序功能是：隨機(jī)產(chǎn)生1個整數(shù)（整數(shù)的范圍為0-100），并顯示在第1個文本框中，單擊“判斷”按鈕，能判斷該整數(shù)是奇數(shù)還是偶數(shù)，并顯示在第2個文本框中；第2個文本框設(shè)置為不可修改；單擊“退出”按鈕退出該程序。單擊“判斷”按鈕界面參考答案：將第2個文本框的readonly屬性設(shè)置為true.程序代碼如下：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimx,yAsIntegerx=CInt(TextBox1.Text)IfxMod2=1ThenTextBox2.Text="奇數(shù)"ElseTextBox2.Text="偶數(shù)"EndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.Close()EndSubPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDimbAsNewSystem.RandomMe.TextBox1.Text=b.Next(0,100)EndSub2、新建項(xiàng)目test02，將其保存在目錄下，要求：程序執(zhí)行結(jié)果如下圖。單擊“產(chǎn)生數(shù)組”按鈕，隨機(jī)產(chǎn)生10個整數(shù)，整數(shù)的范圍為0-100，并顯示在第一個文本框中；（用數(shù)組實(shí)現(xiàn)）單擊“求最大值”按鈕，計(jì)算出10個整數(shù)中的最大數(shù)，并顯示，運(yùn)行結(jié)果如下圖所示；將2個文本框改為不可修改狀態(tài)。單擊“產(chǎn)生數(shù)組”單擊“求最大值”設(shè)兩個文本框的readonly屬性為true程序代碼如下：DimArr(9)AsSingle'存放隨機(jī)產(chǎn)生的數(shù)PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimiAsIntegerDimbAsNewSystem.RandomTextBox1.Text=""Fori=0To9'本循環(huán)顯示元素?cái)?shù)組的各元素值A(chǔ)rr(i)=b.Next(0,100)TextBox1.Text=TextBox1.Text+CStr(Arr(i))+""NextiMe.TextBox2.Clear()EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimiAsIntegerDimmAsSinglem=Arr(0)Fori=1To9Ifm<Arr(i)Thenm=Arr(i)EndIfNextiTextBox2.Text=CStr(m)EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickEndEndSub3、新建項(xiàng)目test03，將其保存在目錄下，要求：程序執(zhí)行結(jié)果如下圖；此程序功能是：隨機(jī)產(chǎn)生3個整數(shù)（整數(shù)的范圍為0-500），并顯示在前3個文本框中，單擊“求最小”按鈕，能求出其中最小的整數(shù)，并顯示在第4個文本框中；顯示最小值的文本框（第4個文本框）設(shè)置為不可修改；單擊“退出”按鈕退出該程序。單擊“求最小”按鈕界面PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,b,c,tAsIntegera=Val(Me.TextBox1.Text)b=Val(Me.TextBox2.Text)c=Val(Me.TextBox3.Text)Ifa<bThent=aElset=bEndIfIft>cThent=cEndIfMe.TextBox5.Text=CStr(t)EndSubPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDimbAsNewSystem.RandomMe.TextBox1.Text=b.Next(0,500)Me.TextBox2.Text=b.Next(0,500)Me.TextBox3.Text=b.Next(0,500)EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickEndEndSub4、新建項(xiàng)目test04。超市為了促銷，按購買貨物的款數(shù)多少分別給予不同的優(yōu)惠折扣，具體折扣情況如下：購物不足100元的，沒有折扣；購物滿100元（含100元，下同），不足500元的，減價5％；購物滿500元，不足1000元的，減價8％；購物滿1000元，不足3000元的，減價10％；購物滿3000元的，減價15％。此程序功能是：根據(jù)輸入的購物款計(jì)算出應(yīng)付款，增加“清除”和“退出”按鈕。程序界面如下：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimm,d,AmountAsSingle'm是購物款，d是折扣，Amount是應(yīng)付款m=Val(TextBox1.Text)'獲取輸入的購物款I(lǐng)fm<100Then'算出折扣數(shù)d=0ElseIfm<500Thend=0.05ElseIfm<1000Thend=0.08ElseIfm<3000Thend=0.1Elsed=0.15EndIfAmount=m*(1-d)'算出應(yīng)付款TextBox2.Text=CStr(Amount)'顯示應(yīng)付款EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.TextBox1.Text=""Me.TextBox2.Text=""EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickEndEndSub5、新建項(xiàng)目test05，將其保存在目錄下，要求：程序運(yùn)行界面如下圖；設(shè)置主菜單，其內(nèi)容（包括快捷鍵等）如下圖所示（“編輯”、“格式”、“查看”和“幫助”下的二級菜單可以為空）；設(shè)置快捷菜單如下圖所示（包括：“剪切”、“復(fù)制”和“粘貼”），即在窗體下單擊鼠標(biāo)右鍵會出現(xiàn)的菜單；將主界面設(shè)置為MDI格式，單擊“新建”菜單，能打開第二個窗體，具體如下圖所示，第二個窗體是包含在第一個窗體中，第二個窗體中只有一個文本框控件，該文本框需要設(shè)置為多行。界面中主菜單界面中快捷菜單單擊“新建”菜單后的界面PrivateSub新建NToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles新建NToolStripMenuItem.ClickForm2.MdiParent=MeForm2.Show()EndSubPrivateSub退出ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles退出ToolStripMenuItem.ClickendEndSub6、新建項(xiàng)目test06，將其保存在目錄下，要求：輸入任意正整數(shù)（最多9位正整數(shù)），求各位數(shù)之和，并顯示在第二個文本框中（第二個文本框不可修改），程序運(yùn)行界面如下圖；求整數(shù)各位數(shù)之和的功能用函數(shù)實(shí)現(xiàn)，“計(jì)算”按鈕事件中只要調(diào)用該函數(shù)即可，函數(shù)框架如下所示：FunctionF(ByValnAsInteger)AsInteger ‘函數(shù)體EndFunction當(dāng)?shù)谝粋€文本框中輸入非整數(shù)時，在第二個文本框中顯示提示，如下圖。FunctionF(ByValnAsInteger)AsIntegerDimsum,i,mAsIntegerDimsAsStrings=CStr(n)sum=0m=Len(s)Fori=1Tomsum=sum+Val(Mid(s,i,1))NextReturnsumEndFunctionPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimaAsLongDimsumAsIntegerTrya=Convert.ToInt32(Me.TextBox1.Text)Ifa<0ThenMe.TextBox2.Text="非正整數(shù)"Elsesum=F(a)Me.TextBox2.Text=CStr(sum)EndIfCatchexAsSystem.FormatExceptionMe.TextBox2.Text="非整數(shù)"CatchexAsExceptionMe.TextBox2.Text="其他錯誤"EndTryEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndEndSub7、新建項(xiàng)目test07，將其保存在目錄下，要求：求整數(shù)n到整數(shù)m之間所有奇數(shù)之和（n<m），并顯示在第三個文本框中（第三個文本框不可修改），程序執(zhí)行結(jié)果如下圖；求n到m之間所有奇數(shù)之和的功能用函數(shù)實(shí)現(xiàn)，“計(jì)算”按鈕事件中只要調(diào)用該函數(shù)即可，函數(shù)框架如下所示：Functions(ByValnAsInteger,ByValmAsInteger)AsInteger'函數(shù)體EndFunction當(dāng)輸入的n大于m時（第1整數(shù)大于第2個整數(shù)），在第三個文本框中顯示提示，如下圖。Functions(ByValnAsInteger,ByValmAsInteger)AsInteger'函數(shù)體Dimi,iStart,sumAsLongsum=0IfnMod2=1TheniStart=nElseiStart=n+1EndIfFori=iStartTomStep2sum+=iNextReturnsumEndFunctionPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,bAsIntegerDimsumAsLong=0a=Val(Me.TextBox1.Text)b=Val(Me.TextBox2.Text)Ifa>bThenMe.TextBox3.Text="應(yīng)該n<m"Elsesum=s(a,b)Me.TextBox3.Text=CStr(sum)EndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickEndEndSub8、新建項(xiàng)目test08，在文本框中輸入學(xué)生的成績，單擊“轉(zhuǎn)換”按鈕，在標(biāo)簽中顯示該顯示的成績等級。90-100為優(yōu)，80-89為良、70-79為中、60-69及格、小于60為不及格。程序運(yùn)行如下圖所示：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimxAsIntegerx=Val(TextBox1.Text)Ifx<0Orx>100ThenLabel2.Text="錯誤的成績"ElseLabel2.Text="你的成績等級是:"SelectCasexCase90To100Label2.Text+="優(yōu)"Case80To89Label2.Text+="良"Case70To79Label2.Text+="中"Case60To69Label2.Text+="及格"Case0To59Label2.Text+="不及格"EndSelectEndIfEndSub9、新建項(xiàng)目test09，將其保存在目錄下，要求：求4個數(shù)字最大，并顯示在第五個文本框中（第五個文本框不可修改），程序執(zhí)行結(jié)果如下圖；編寫“求2個數(shù)字最大”的函數(shù)，“計(jì)算”按鈕事件中只要多次調(diào)用該函數(shù)即可，函數(shù)框架如下所示：FunctionMax(ByVala1AsInteger,ByVala2AsInteger)AsInteger'函數(shù)體EndFunction當(dāng)前4個文本框中輸入非數(shù)子時，在第五個文本框中顯示提示，如下圖。FunctionMax(ByVala1AsInteger,ByVala2AsInteger)AsInteger'函數(shù)體DimmAsIntegerIfa1>a2Thenm=a1Elsem=a2EndIfReturnmEndFunctionPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickEndEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,b,c,dAsSingleDimtAsSingleTrya=Convert.ToInt32(Me.TextBox1.Text)b=Convert.ToInt32(Me.TextBox2.Text)c=Convert.ToInt32(Me.TextBox3.Text)d=Convert.ToInt32(Me.TextBox4.Text)t=Max(a,b)t=Max(t,c)t=Max(t,d)Me.TextBox5.Text=CStr(t)CatchexAsSystem.FormatExceptionMe.TextBox5.Text="有非數(shù)字"CatchexAsExceptionMe.TextBox5.Text="其他錯誤"EndTryEndSub10、新建項(xiàng)目test10，將其保存在目錄下，要求：定義一個具有10個元素的一維數(shù)組，給它的每一個元素賦一個隨機(jī)數(shù)（范圍：20~100）。然后求出該數(shù)組的所有元素的平均值及比平均值小的元素個數(shù)。DimArr(9)AsIntegerPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimiAsIntegerDimbAsNewSystem.RandomTextBox1.Text=""Fori=0To9Arr(i)=b.Next(20,100)TextBox1.Text=TextBox1.Text+CStr(Arr(i))+""NextiEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimaverAsDoubleDimi,sum,countAsIntegerFori=0To9sum=sum+Arr(i)Nextiaver=sum/10Fori=0To9IfArr(i)<averThencount=count+1EndIfNextiTextBox2.Text=CStr(aver)TextBox3.Text=CStr(count)EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickClose()EndSub11、新建項(xiàng)目test11，將其保存在目錄下，要求：編寫一個“個人簡歷表”程序。該程序運(yùn)行后，用戶在文本框中輸入姓名和年齡，選擇性別、職業(yè)、學(xué)歷和個人興趣等個人信息，單擊“遞交”按鈕運(yùn)行后右邊顯示具體個人信息。DimStrMsg,StrMsg1,StrMsg2,StrMsg3AsStringPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickIfMe.RadioButton1.Checked=TrueThenStrMsg1="男"EndIfIfMe.RadioButton2.Checked=TrueThenStrMsg1="女"EndIfSelectCaseTrueCaseMe.RadioButton3.CheckedStrMsg2="中專"CaseMe.RadioButton4.CheckedStrMsg2="大專"CaseMe.RadioButton5.CheckedStrMsg2="本科"CaseMe.RadioButton6.CheckedStrMsg2="碩士"CaseMe.RadioButton7.CheckedStrMsg2="博士"EndSelectSelectCaseTrueCaseMe.RadioButton8.CheckedStrMsg3="教師"CaseMe.RadioButton9.CheckedStrMsg3="醫(yī)生"CaseMe.RadioButton10.CheckedStrMsg3="工程師"CaseMe.RadioButton11.CheckedStrMsg3="公務(wù)員"CaseMe.RadioButton12.CheckedStrMsg3="自由職業(yè)"EndSelectIfMe.CheckBox1.CheckedThenStrMsg="旅游"+""EndIfIfMe.CheckBox2.CheckedThenStrMsg+="攝影"+""EndIfIfMe.CheckBox3.CheckedThenStrMsg+="網(wǎng)球"+""EndIfIfMe.CheckBox4.CheckedThenStrMsg+="流行音樂"+""EndIfIfMe.CheckBox5.CheckedThenStrMsg+="探險"EndIfRefreshResume()'調(diào)用通用過程EndSubPrivateSubRefreshResume()'自定義一個通用過程RichTextBox1.Clear()RichTextBox1.Text+="簡歷"+vbCrLfRichTextBox1.Text+="姓名："+Me.Textbox1.Text+vbCrLfRichTextBox1.Text+="年齡："+Me.TextBox2.Text+vbCrLfRichTextBox1.Text+="性別："+StrMsg1+vbCrLfRichTextBox1.Text+="職業(yè)："+StrMsg3+vbCrLfRichTextBox1.Text+="學(xué)歷："+StrMsg2+vbCrLfRichTextBox1.Text+="個人興趣："+StrMsg+vbCrLfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.Textbox1.Text=""Me.TextBox2.Text=""Me.Textbox1.Focus()Me.RichTextBox1.Clear()Me.RadioButton1.Checked=FalseMe.RadioButton2.Checked=FalseMe.RadioButton3.Checked=FalseMe.RadioButton4.Checked=FalseMe.RadioButton5.Checked=FalseMe.RadioButton6.Checked=FalseMe.RadioButton7.Checked=FalseMe.RadioButton8.Checked=FalseMe.RadioButton9.Checked=FalseMe.RadioButton10.Checked=FalseMe.RadioButton11.Checked=FalseMe.RadioButton12.Checked=FalseMe.CheckBox1.Checked=FalseMe.CheckBox2.Checked=FalseMe.CheckBox3.Checked=FalseMe.CheckBox4.Checked=FalseMe.CheckBox5.Checked=FalseStrMsg=""StrMsg1=""StrMsg2=""StrMsg3=""EndSub12、新建項(xiàng)目test12，要求：初始狀態(tài)時，左邊列表框中的數(shù)據(jù)如下圖所示；2個列表框中的記錄始終自動排序；單擊“添加”按鈕，能夠把文本框中的內(nèi)容添加到左邊列表框中，不能添加空字符串，不能添加重復(fù)的記錄（左邊列表框和右邊列表框都要判斷）；單擊“刪除”按鈕，能夠把右邊列表框中所選擇的記錄刪除；完成中間4個按鈕的功能，列表框都支持多選，而且可以進(jìn)行多條記錄的移動，如下圖所示。初始狀態(tài)把左邊列表框中的多個記錄移到右邊列表框中PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickDimsAsStrings=Me.TextBox1.Text.TrimIfs=""ThenMessageBox.Show("添加內(nèi)容不能為空")ExitSubEndIfIfMe.ListBox1.FindStringExact(Me.TextBox1.Text)>=0ThenMessageBox.Show("將要添加的記錄在左邊列表框中已經(jīng)存在")ExitSubEndIfIfMe.ListBox2.FindStringExact(Me.TextBox1.Text)>=0ThenMessageBox.Show("將要添加的記錄在右邊列表框中已經(jīng)存在")ExitSubEndIfMe.ListBox1.Items.Add(Me.TextBox1.Text)Me.TextBox1.Clear()EndSubPrivateSubButton5_Click(ByValsenderAsSys