三、簡單應用題

　　42

　　(1)在考生文件夾下有一個工程文件sj3.vbp，相應的窗體文件名為sj3.frm，請裝入該文件，在窗體上畫一個列表框和一個文本框，名稱分別為List1和Text1。

　　編寫適當的事件過程。程序運行后，如果在文本框中輸入要添加的項并雙擊，則將該項添加到列表框中(內容任意，不少于3個)，如圖3-3所示;如果雙擊list1的某一項則將其從列表框中刪除，如圖3-4所示。提供的窗體文件可以實現上述功能，但這個程序不完整，請把它補充完整。

圖3-3

圖3-4

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

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

　　文件中已經給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的?改為正確的內容，并編寫"計算"按鈕的Click事件過程。

　　注意：不得修改已經存在的內容和控件屬性，在結束程序運行之前，必須用"存盤"按鈕存儲計算結果，否則無成績。最后將修改后的文件按原文件名存盤。

　　圖3-5

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

　　參考答案:請參考解析 系統解析:(1)根據題意，將一個ListBox控件和一個Text控件添加到窗體上，ListBox的名稱為List1，Text的名稱為Text1，Text屬性為空。雙擊List1進入代碼窗口，編寫如下代碼：

　　Private Sub List1_DblClick()

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

　　End Sub

　　Private Sub Text1_DblClick() '雙擊Text調用的函數

　　If Text1.Text <> "" Then

　　List1.AddItem Text1.Text '當Text1中有內容則添加到List1中

　　End If

　　End Sub

　　單擊 按鈕運行程序，并按要求保存。

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

　　根據題意，編寫如下代碼：

　　Dim n As Integer

　　Private Sub Command1_Click()

　　n = Val(InputBox("請輸入整數(8-12)", "輸入"))

　　If n > 12 Or n < 8 Then

　　MsgBox ("數據錯誤，請重新輸入")

　　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

　　'考生應編寫的程序

　　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

　　單擊

　　按鈕運行程序，并按要求保存。

　　相關推薦：

　　2014年全國計算機二級VB上機考試試題匯總

　　考試吧考后首發2014年3月計算機等考真題及答案通知

　　考試吧推薦：2014年3月計算機二級考前沖刺備考專題