全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB上機(jī)試題及答案(十一)

全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB上機(jī)試題及答案(十一)基本操作（2小題，每題15分，共30分）****************************************************************請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VB應(yīng)用程序（包括界面和代碼）。請(qǐng)根據(jù)以下各個(gè)小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序（包括界面和代碼）。

（1）在名稱為Form1的窗體上畫(huà)一個(gè)列表框，其名稱為L(zhǎng)ist1，通過(guò)屬性窗口向列表框中輸入9個(gè)項(xiàng)目，分別為10、20、30、40、50、60、70、80、90；畫(huà)一個(gè)文本框，其名稱為Hscroll，Min屬性和Max分別為0和100，如圖所示，編寫(xiě)適當(dāng)?shù)氖录^(guò)程。程序運(yùn)行后，如果單擊列表框中的某個(gè)項(xiàng)目?jī)?nèi)容，并把滾動(dòng)條的滾動(dòng)框移動(dòng)到相應(yīng)的位置，如圖所示。

要求：不得使用任何變量。

（2）在名稱為Form1的窗體中畫(huà)一個(gè)圖像框，名稱為Image1，其高、寬分別為1800、4500，通過(guò)屬性窗口把考生文件夾下的圖像文件smile.bmp裝入圖像框；再畫(huà)一個(gè)命令按鈕，名稱為Cmd1，標(biāo)題為"放大"。

請(qǐng)編寫(xiě)適當(dāng)事件過(guò)程，程序運(yùn)行后，單擊"放大"按鈕，則把圖像框的高度、寬度均增加100，同時(shí)圖像也隨之自動(dòng)放大。

注意：程序中不得使用任何變量。

要求：題目中所給的程序不完整，請(qǐng)讀懂程序后將其補(bǔ)充完整，以原文件名保存。

試題源程序：

1PrivateSubForm_Load()

2Text1.Text=""

3Text1.FontSize=10

4Label1.FontSize=12

5Label1.FontBold=True

6Label1.Font0="隸書(shū)"

7Label1.Caption="請(qǐng)輸入口令..."

8EndSub

9PrivateSubText1_KeyPress(KeyAsciiAsInteger)

10StaticPWordAsString

11StaticCounterAsInteger

12StaticNumberftriesAsInteger

13Numberftries=Numberftries+1

14'If?ThenEnd

15Counter=Counter+1

16'PWord=PWord+?

17KeyAscii=0

18Text1.Text=String$(Counter,"*")

19IfLCase$(PWord)="abcd"Then

20Text1.Text=""

21PWord=0

22MsgBox"口令正確，繼續(xù)..."

23Counter=0

24Print"continue..."

25'ElseIf?Then

26Counter=0

27PWord=""

28Text1.Text=""

29MsgBox"口令不對(duì)，請(qǐng)重新輸入"

30EndIf

31EndSub****************************************************************參考答案與分析（1）【解析】

本題主要考查了鼠標(biāo)左鍵以及右鍵的使用，即鼠標(biāo)的Button屬性。Button為1時(shí)，表示鼠標(biāo)的左鍵，為2時(shí)，表示鼠標(biāo)的右鍵，為4時(shí)，表示鼠標(biāo)的中鍵，故在第一個(gè)?處填入1，表示按下鼠標(biāo)的左鍵，第二個(gè)?處填入2，表示鼠標(biāo)的右鍵。

【答案】

（1）啟動(dòng)VB，打開(kāi)考生文件夾下的工程文件stj2.vbp。

（2）雙擊窗體的任何位置，進(jìn)入代碼編輯窗口，補(bǔ)充程序如下：

第一個(gè)?處填入1

第二個(gè)?處填入2

（3）運(yùn)行程序，確定無(wú)誤后以原文件名保存。

（2）【解析】

本題主要考查了文本框的KeyPress事件。每按下鍵盤(pán)的一個(gè)鍵就觸發(fā)一次KeyPress事件。在本題中用文本框的KeyPress事件來(lái)測(cè)試輸入口令是否正確。在該過(guò)程中，定義了3個(gè)靜態(tài)變量，其中Numberftries變量用來(lái)對(duì)輸入的口令字符計(jì)數(shù)。每按一次鍵，就觸發(fā)一次KeyPress事件，Numberftries變量加1，當(dāng)該值達(dá)到12時(shí)結(jié)束程序，因此第一個(gè)問(wèn)號(hào)處應(yīng)填入Numberftries=12?？诹钣伤膫€(gè)字符組成，既由每次輸入的字符連接起來(lái)組成，因此第二個(gè)問(wèn)號(hào)處應(yīng)填入Chr$(KeyAscii)，用Counter來(lái)表示輸入口令長(zhǎng)度，每輸入四個(gè)為一個(gè)完整的口令，因此第三個(gè)問(wèn)號(hào)處應(yīng)填入Counter=4。

【答案】

（1）啟動(dòng)VB，打開(kāi)考生文件夾下的工程文件stj4.vbp。

（2）雙擊窗體的任何位置，進(jìn)入代碼編輯窗口，填寫(xiě)代碼：

第一個(gè)?處填入：Numberftries=12

第二個(gè)?處填入：Chr$(KeyAscii)

第三個(gè)?處填入：Counter=4

（3）填寫(xiě)完畢，調(diào)試并運(yùn)行，運(yùn)行無(wú)誤后以原文件名保存。綜合應(yīng)用（1小題，共30分）****************************************************************請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VB應(yīng)用程序（包括界面和代碼）。在考生文件夾下有工程文件djks043.vbp及窗體文件djks043.frm，該程序是不完整的，請(qǐng)?jiān)谟?？的地方填入正確內(nèi)容，然后刪除？及所有注釋符（′），但不能修改其他部分。存盤(pán)時(shí)不得改變文件名和文件夾。

本題描述如下：在窗體上有兩個(gè)標(biāo)簽、兩個(gè)文本框、一個(gè)框架、三個(gè)單選框以及兩個(gè)控制按鈕。標(biāo)簽的名稱分別為L(zhǎng)abel1與Label2，標(biāo)題分別為"原文本"、"加密文本"；文本框的名稱分別為T(mén)ext1與Text2,Text屬性均為空；兩個(gè)控制按鈕的名稱分別為Command1與Command2，標(biāo)題分別為"加密"與"讀入"；單選框的名稱統(tǒng)一為Option1，標(biāo)題分別為2、4、6；框架名稱為Frame1，標(biāo)題為"加密類(lèi)型"。單擊"讀入"按鈕，程序?qū)⒆x入考生文件夾下的文本文件in043.txt，單擊"加密"按鈕，加密過(guò)的文本顯示在Text2中。根據(jù)單選框中不同的數(shù)字，加密的方法不同。例如選擇Option1，則逐一把Text1中的字符串改為它后面的第2個(gè)字母。

程序運(yùn)行時(shí)的窗體界面如圖所示。

【試題源程序】

1PrivateSubCommand1_Click()

2Text2.Text=""

3DimnAsInteger

4DimiAsInteger

5DimmAsInteger

6DimStrAsString

7DimStrTextAsString

8Fori=0To2

9IfOption1(i).ValueThen

10′n=Val(?.Caption)

11EndIf

12Nexti

13m=Len(Text1.Text)

14Fori=1Tom

15′Str=Mid$(Text1.Text,?,1)

16′Str=?(1,Asc(Str)+n)

17IfStr>"z"OrStr>"Z"AndStr<"a"Then

18Str=String(1,Asc(Str)-26)

19EndIf

20StrText=StrText+Str

21Nexti

22Text2.Text=StrText

23EndSub

24

25PrivateSubCommand2_Click()

26DimsAsString

27OpenApp.Path&"\in043.txt"ForInputAs#1

28Input#1,s

29Text1.Text=s

30Close#1

31EndSub****************************************************************參考答案與分析【解析】

第一個(gè)？處填Option1(i)，表示如果第i個(gè)單選框被選中，則把第i個(gè)單選框的Caption轉(zhuǎn)換成數(shù)值賦給n。Mid表示從字符串指定的位置截取指定的字符。第二個(gè)？處填i，表示從字符串第i個(gè)字符處向右截取1個(gè)字符，這為轉(zhuǎn)化這個(gè)字符做準(zhǔn)備。第三個(gè)？處填String，表示返回指定數(shù)量的指定字符串，它的第一個(gè)參數(shù)確定返回字符串的個(gè)數(shù)，第二個(gè)字符串確定返回的字符。注意，String函數(shù)的第二個(gè)參數(shù)，可以是Ascii碼值，返回對(duì)應(yīng)的字符。

【答案】

1．單擊考試界面的"功能"選項(xiàng)，從彈出的菜單中選擇"啟動(dòng)應(yīng)用程序"選項(xiàng)。VisualBas