奶头挺立呻吟高潮av全片,成人试看120秒体验区,性欧美极品v,A片高潮抽搐揉捏奶头视频

試題

9月計算機二級VB考試題庫及答案

時間:2025-05-23 08:08:19 試題 我要投稿
  • 相關推薦

2016年9月計算機二級VB考試題庫及答案

  一、基本操作題

2016年9月計算機二級VB考試題庫及答案

  (1)在名稱為Forml的窗體上畫兩個標簽(名稱分別為Labell和Label2,標題分別為“姓名”和“年齡”)、兩個文本框(名稱分別為Textl和Text2,初始內容均為空)和一個命令按鈕(名稱為Commandl,標題為“顯示”)。然后編寫命令按鈕的Click事件過程。程序運行后,在兩個文本框中分別輸人姓名和年齡,然后單擊“顯示”按鈕,則在窗體上顯示兩個文本框中的內容,如圖所示。要求程序中不得使用任何變量。

  注意:存盤時必須存放在考生文件夾下,工程文件名保存為sjtl.vbp,窗體文件名保存為sjtl.frm。

  (2)在名稱為Forml的窗體上畫一個圖片框,其名稱為Picturel,一個水平滾動條,名稱為HScrolll,一個命令按鈕,名稱為Commandl,標題為“設置屬性”,通過屬性窗口在圖片框中裝入一個圖形(文件名為piel.jPg,位于考生目錄下),圖片框的高度與圖形的高度相同,圖片框的寬度任意(如圖1所示)。編寫適當的事件過程,程序運行后,如果單擊命令按鈕,則設置水平滾動條的屬性如下:

  Minl00

  Maxl500

  LargeChangel00

  SmaUChangel0

  之后就可以通過移動滾動條上的滾動塊來放大或縮小圖片框。程序運行后的窗體如圖2所示。要求程序中不得使用任何變量。

  注意:存盤時必須存放在考生文件夾下,工程文件名為sjt2.vbp,窗體文件名為sjt2.frm。

  二、簡單應用題

  (1)在考生文件夾下有一個工程文件sit3.vbp(相應的窗體文件名為sit3.frm),在窗體上添加一個名稱為Listl的列表框和一個名稱為Textl的文本框,如圖1所示。編寫窗體的MouseDown事件過程。程序運行后,如果用鼠標單擊窗體,則從鍵盤上輸入要添加到列表框中的項目(內容任意,不少于三個);如果用鼠標右鍵單擊窗體,則從鍵盤上輸入要刪除的項目,將其從列表框中刪除。程序的運行情況如圖2所示。這個程序不完整,請把它補充完整,并能正確運行。

  要求:去掉程序中的注釋符,把程序中的?改為適當的內容,使其正確運行,但不能修改程序中的其他部分。最后將修改后的文件按原文件名存盤。

  (2)在考生文件夾下有一個工程文件sjt4.vbp(相應的窗體文件名為sjt4.frm),其功能是通過調用過程FindMin求數組的最小值。程序運行后,在4個文本框中各輸入一個整數,然后單擊命令按鈕,即可求出數組的最小值,并在窗體上顯示出來(如圖所示)。

  要求:去掉程序中的注釋符,把程序中的?改為正確的內容,使其實現上述功能,但不能修改程序中的其他部分。

  最后把修改后的文件按原文件名存盤。

  三、綜合應用題

  在窗體上建立三個菜單(名稱分別為Read、Cale和Save,標題分別為“讀人數據”、“計算并輸出”和“存盤”),然后再添加一個文本框,名稱為Textl,MuhiLine屬性設置為True,ScrollBars屬性設置為2(如圖所示)。程序運行后,如果執行“讀人數據”命令,則讀入考生文件夾下datainl.txt文件中的100個整數,放人一個數組中,數組的下界為1;如果單擊“計算并輸出”按鈕,則把該數組中下標為偶數的元素在文本框中顯示出來,求出它們的和,并把所求得的和在窗體上顯示出來;如果單擊“存盤”按鈕,則把所求得的和存入考牛文件夾下的dataout.txt文件中。

  在考生文件夾下有一個工程文件sjt5.vbp,窗體文件中的ReadData過程可以把datainl.txt文件中的100個整數讀入Arr數組中;而WriteData過程可以把指定的整數值寫到考生文件夾下指定的文件中(整數值通過計算求得,文件名為dataout.txt)。

  注意:考生不得修改窗體文件中已經存在的程序。存盤時,工程文件名仍保存為sit5.vbp,窗體文件名仍保存為sjt5.frm。

  參考答案

  一、基本操作題

  (1)【考點分析】本題考點有:標簽的Name和Caption屬性、文本框Name和Text屬性、命令按鈕的Name和Caption屬性、“&”和“+”運算符以及Print方法。

  【解題思路】通過標簽的Name和Caption屬性設置標簽的名稱和標題,通過文本框Name和Text屬性設置文本框的名稱和文本,通過命令按鈕的Name和Caption屬性設置命令按鈕的名稱和標題,“&”和“+”運算符均可將兩個表達式作為字符串連接。在窗體上輸出文本內容可使用Print方法。

  【操作步驟】

  步驟1:新建一個窗體,按照題目要求建立控件并設置相應屬性,程序中用到的控件及屬性如表3.16所示。

  步驟2:打開代碼編輯窗口,在指定位置編寫如下代碼。

  參考答案

  PrivateSubCommandl_Click()

  Forml.PrintTextl.Text&",現年"&

  Text2.Text&"歲"

  EndSub

  步驟3:調試并運行程序,關閉程序后按題目要求存盤。

  (2)【考點分析】本題考點有:水平滾動條的Name、Max、Min、LargeChange、SmallChange和Value屬性,圖片框的Width、Name和Picture屬性以及命令按鈕的Name和Caption屬性。

  【解題思路】在設計階段通過Picture屬性為圖片框指定顯示的圖片,通過Wi&h屬性來設定或修改圖片框的寬度。通過調整滾動條滑塊的位置即可改變其Value屬性的值,滾動條的Max和Min屬性限定了滾動條所能表示的最大值和最小值,LargeChange屬性用于設置當單擊滑塊與兩側箭頭問區域時Value屬性值的改變量,SmallChange屬性用于設置當單擊滾動條兩側箭頭時Value屬性值的改變量。當改變滾動條滑塊位置后將觸發其Change事件。

  【操作步驟】

  步驟1:新建一個窗體,添加控件并設置相應的屬性。程序中用到的控件及其屬性見表3.17。

  步驟2:打開代碼編輯窗口,在指定位置編寫如下代碼。

  參考答案

  PrivateSubCommandl_Click()

  HScrolii.Max=1500´設置滾動條的最大值、最小值、最大改變值、最小改變值

  HSCro111.Min=100

  HScrolll.LargeChange=100

  HScrolll.SmaliChange=10

  EndSub

  PrivateSubHScrolii_Change()

  Picturel.Width=HScrolii.Value´將圖片的width與滾動條的Value保持一致EndSub

  步驟3:調試并運行程序,關閉程序后按題目要求存盤。

  二、簡單應用題

  (1)【考點分析】本題考點有:列表框的Name、List和ListCount屬性,文本框的Name和Text屬性,Removehem方法,InputBox函數,For循環語句以及If判斷語句。

  【解題思路】當在窗體上按下鼠標鍵時將觸發其Mouse-Down事件,該事件過程的參數Button值為1時表示當前按下的是鼠標左鍵;當Button值為2時表示當前按下的是鼠標右鍵。向列表框添加項目使用Addhem方法,刪除列表項使用Removehem方法。當執行刪除操作時,本題在For循環語句中逐一判斷列表中各項是否與輸入內容一致,若一致則刪除列表框中該項。

  程序中用到了InputBox()函數,其格式為:

  InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

  其中常用參數為prompt和title。prompt是一個字符串,其長度不得超過1024個字符,它是在對話框內顯示的信息,用來提示用戶輸入。

  title:是一個字符串,它是對話框的標題,顯示在對話框頂部的標題區。

  【操作步驟】

  步驟1:打開本題工程文件,按表3.18所列在窗體畫出控件并設置其屬性。

  步驟2:打開代碼編輯窗口,去掉程序中的注釋符“´”,將問號改為正確的內容。

  參考答案(橫線部分是需考生填入的內容)

  PrivateSubForm_MouseDown(ButtonAsInte-ger,ShiftAsInteger,XAsSingle,YAsSingle)

  IfButton=lThen

  Textl.Text=InputBox("請輸入要添加的項目")

  Listl.AddItem__________´將Textl中的內容加入列表

  EndIf

  IfButton=2Then

  Textl.Text=InputBox("請輸入要刪除的項目")

  ´列表總數用LiStCount求得

  Fori=0To__________

  ´判斷列表項是否為要刪除的項

  IfListl.List(i)=__________

  Then

  ´刪除i所對應的項

  Listl.RemoveItem__________

  EndIf

  Nexti

  EndIf

  EndSub

  程序結束

  步驟3:調試并運行程序,關閉程序后按題目要求存盤。

  【易錯提示】列表數組List(i)下標從0開始,列表項的循環上限應為ListCount-1,要注意InputBox語句的格式。

  (2)【考點分析】本題考點有:Array()函數,UBound()函數,LBound()函數,Val()函數,Print方法,CInt()函數,For循環語句以及If判斷語句。

  【解題思路】文本框里的內容(包括數字)默認都是當做字符串來處理的,如果需要參與數據運算,則需先用Val()函數將其轉化為數字(例如Val(Textl.Text))。CInt函數將數值轉換為整型。

  這里需要指出的是,利用Array對數組各元素賦值,聲明數組的類型只能是Variant。

  在本題的FindMin過程中,用變量Min記錄最小值,最初把數組的第一個元素的值賦給Min,然后通過For循環語句將其后的元素依次與之比較,如果小于Min的值則與之交換,依次類推,最終Min的值就是數組各元素中的最小值。在窗體上打印信息可以通過Print方法來實現,其形式為:

  [對象.]Print要顯示的內容

  【操作步驟】

  步驟1:打開本題工程文件。

  步驟2:打開代碼編輯窗口,去掉程序中的注釋符“´”,

  將問號改為正確的內容。

  參考答案(陰影部分是需考生填入的內容)

  OptiOnBase1

  PrivateFunctionFindMin(a()AsInteger)

  DS_mStartAsInteger

  DimFinishAs2nteger,iAsInteger

  Start=__________(a)´求數組下界值

  Finish=__________求數組上界值

  Nin=__________(Start)´將第一個數賦給最小值進行比較

  Fori=StartToFinish鋸環判斷找最小值

  Ifa(i)__________NJ_nThenNin=__________

  Nexti

  FindNin=Min

  EndFunctioil

  PrivateSubCommandl_Click()

  Dimarrl

  Dimart2(4)AsInteger

  arrl=Array(Val(Textl.Text),Val

  (Text2.Text),Val(Text3.Text:),Val(Text4.Text))´申請arrl數組并初始化

  Fori=1To4

  art2(i)=CInt(arrl(i))´CTnt函數將

  arrl中的數值轉換為整型

  Next;i

  M=FindNin(__________)

  Print"最小值是:";M

  EndSub

  步驟3:調試并運行程序,關閉程序后按題目要求存盤。

  【易錯提示】0ptionbase在模塊級別中使用,用來聲明數組下標的默認下界,optionbase后面只能是0或者l,默認值為0。

  三、綜合應用題

  【考點分析】本題考點有:文本框的Name、MultiLine、SerollBars和Text屬性,文件操作,菜單編輯器的使用(名稱、標題、內縮符號),Art()函數以及Space()函數。

  【解題思路】根據題意在“讀人數據”命令的Click事件過程中,通過調用ReadData過程將數據從datainl.txt文件讀入到數組Arr(窗體變量)中;在“計算并輸出”命令的Click事件過程中,在For循環語句(循環變量i的初值為2,終值為100,步長為2)中依次將數組Art中下標為偶數的元素顯示在文本框中,并將其值累加到變量sum;在“存盤”命令的Click事件過程中,通過調用WriteData過程將sum的值寫入數據文件dataout.txt中。

  【操作步驟】

  步驟1:打開本題工程文件,利用菜單設計器,按表中的設置建立菜單項,在窗體Forml中繪制一個文本框,其相關屬性及其值見表3.19和表3.20。

  步驟2:打開代碼編輯窗口,在代碼編輯窗口指定位置編寫以下代碼。

  參考答案

  ´需要考生編寫的內容

  DimSl.1mAsinteger

  考生編寫程序結束

  ´需要考生編寫的內容

  PrivateSubCalc_Click()

  Textl.Text=""

  Fori=2Tol00Step2’從2開始循環,以2為步長的下標都是偶數

  Textl.Text;=Textl.Text&Art(i)&

  Space(5)

  SLlm=SLlm+Art(i)。對下標為偶數的值求和

  Nexti

  PrintSLIm

  EndSub

  PrivateSubRead_Click()

  ReadData。調用ReadData子過程

  EndSub

  PrivateSubSave_Click()´調用Save_Click函數

  WriteI?ata"clataout.txt",slim

  EndSub

  ´考生編寫程序結束

  步驟3:調試并運行程序,關閉程序后按題目要求存盤。

  【易錯提示】調用WriteData過程時需傳遞參數dataout.txt和sum,變量sHin應為窗體變量。

【9月計算機二級VB考試題庫及答案】相關文章:

2016年9月計算機二級VB選擇題題庫及答案10-01

9月計算機二級office題庫及答案05-06

9月全國計算機二級vb題庫及答案08-17

2017年9月計算機二級考試VB備考題及答案09-01

9月計算機二級考試VB真題10-11

2017年9月計算機二級《VB》選擇題題庫07-15

2023年9月計算機二級《VB》考題與答案09-05

2017年9月計算機二級考試VB復習題及答案09-15

2016年9月計算機二級《VB》備考試題及答案11-08

主站蜘蛛池模板: 武清区| 腾冲县| 枣庄市| 通河县| 安龙县| 克什克腾旗| 汾西县| 南澳县| 江都市| 滨州市| 江津市| 察隅县| 噶尔县| 镇巴县| 收藏| 保靖县| 博白县| 金川县| 稻城县| 内乡县| 沂南县| 商城县| 宿松县| 通榆县| 通化市| 河津市| 寻甸| 庆安县| 卢龙县| 温宿县| 彭山县| 庆云县| 黑山县| 庄浪县| 郯城县| 乌鲁木齐县| 商南县| 金寨县| 龙胜| 射洪县| 康乐县|