2014計(jì)算機(jī)等級(jí)《二級(jí)VB》上機(jī)考試預(yù)測(cè)題及答案1

　　三、簡(jiǎn)單應(yīng)用題

　　42

　　(1)在考生文件夾下有一個(gè)工程文件sj3.vbp，相應(yīng)的窗體文件名為sj3.frm，請(qǐng)裝入該文件，在窗體上畫一個(gè)列表框和一個(gè)文本框，名稱分別為L(zhǎng)ist1和Text1。

　　編寫適當(dāng)?shù)氖录^(guò)程。程序運(yùn)行后，如果在文本框中輸入要添加的項(xiàng)并雙擊，則將該項(xiàng)添加到列表框中(內(nèi)容任意，不少于3個(gè))，如圖3-3所示;如果雙擊list1的某一項(xiàng)則將其從列表框中刪除，如圖3-4所示。提供的窗體文件可以實(shí)現(xiàn)上述功能，但這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整。

圖3-3

圖3-4

　　要求：去掉程序中的注釋符"'"，把程序中的"?"改為適當(dāng)?shù)膬?nèi)容，使其正確運(yùn)行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。

　　(2)在考生文件夾下有一個(gè)工程文件sj4.vbp，窗體如圖所示。其功能是單擊"輸入數(shù)據(jù)"按鈕，則可輸入一個(gè)整數(shù)n(要求： ;單擊"計(jì)算"按鈕，則計(jì)算1!+2!+3!…+n!的值，并將計(jì)算結(jié)果顯示在文本框中;單擊"存盤"按鈕，則把文本框中的結(jié)果保存到考生文件夾下的out4.dat文件中。

　　文件中已經(jīng)給出了所有控件和程序，但程序不完整，請(qǐng)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，并編寫"計(jì)算"按鈕的Click事件過(guò)程。

　　注意：不得修改已經(jīng)存在的內(nèi)容和控件屬性，在結(jié)束程序運(yùn)行之前，必須用"存盤"按鈕存儲(chǔ)計(jì)算結(jié)果，否則無(wú)成績(jī)。最后將修改后的文件按原文件名存盤。

　　圖3-5

　　要求：去掉程序中的注釋符"'"，把程序中的"?"改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。

　　參考答案:請(qǐng)參考解析 系統(tǒng)解析:(1)根據(jù)題意，將一個(gè)ListBox控件和一個(gè)Text控件添加到窗體上，ListBox的名稱為L(zhǎng)ist1，Text的名稱為Text1，Text屬性為空。雙擊List1進(jìn)入代碼窗口，編寫如下代碼：

　　Private Sub List1_DblClick()

　　List1.RemoveItem (List1.ListIndex) '雙擊刪除選中項(xiàng)

　　End Sub

　　Private Sub Text1_DblClick() '雙擊Text調(diào)用的函數(shù)

　　If Text1.Text <> "" Then

　　List1.AddItem Text1.Text '當(dāng)Text1中有內(nèi)容則添加到List1中

　　End If

　　End Sub

　　單擊 按鈕運(yùn)行程序，并按要求保存。

　　(2)本題主要考查Val()函數(shù)、InputBox()函數(shù)、MsgBox()函數(shù)、命令按鈕的Enabled屬性以及文件操作。

　　根據(jù)題意，編寫如下代碼：

　　Dim n As Integer

　　Private Sub Command1_Click()

　　n = Val(InputBox("請(qǐng)輸入整數(shù)(8-12)", "輸入"))

　　If n > 12 Or n < 8 Then

　　MsgBox ("數(shù)據(jù)錯(cuò)誤，請(qǐng)重新輸入")

　　Command2.Enabled = False

　　Command3.Enabled = False

　　Else

　　Command2.Enabled = True

　　Command3.Enabled = True

　　End If

　　End Sub

　　Private Sub Command2_Click()

　　Dim s As Long, k As Integer

　　'考生應(yīng)編寫的程序

　　s = 0

　　For k = 1 To n

　　s = s + f(k)

　　Next

　　Text1 = s

　　End Sub

　　Function f(n As Integer) As Long

　　s = 1

　　For k = 2 To n

　　s = s * k

　　Next

　　f = s

　　End Function

　　Private Sub Command3_Click()

　　Open App.Path & "\out4.dat" For Output As #1

　　Print #1, n, Text1

　　Close #1

　　End Sub

　　單擊

　　按鈕運(yùn)行程序，并按要求保存。

　　相關(guān)推薦：

　　2014年全國(guó)計(jì)算機(jī)二級(jí)VB上機(jī)考試試題匯總

　　考試吧考后首發(fā)2014年3月計(jì)算機(jī)等考真題及答案通知

　　考試吧推薦：2014年3月計(jì)算機(jī)二級(jí)考前沖刺備考專題