計(jì)算機(jī)VB二級考試上機(jī)題及答案

時(shí)間：2024-07-21 20:47:44 計(jì)算機(jī)等級我要投稿

相關(guān)推薦

2016計(jì)算機(jī)VB二級考試上機(jī)題及答案

　　1.基本操作(2小題，每題15分，共計(jì)30分)

2016計(jì)算機(jī)VB二級考試上機(jī)題及答案

　　Private Sub C2_Click()

　　C1.SetFocus

　　End Sub

　　(2)在名稱為Form1的窗體上畫一個(gè)文本框，名稱為Text1，其寬度為1000;再畫一個(gè)滾動條，名稱為HS1。其刻度值的范圍是1000-2000。請編寫滾動條的Change事件過程，程序運(yùn)行后，如果移動滾動框，則可按照滾動條的刻度值改變文本框的寬度。運(yùn)行時(shí)的窗體如圖所示。程序中不能使用任何變量，事件過程只能寫一條語句。

　　Private Sub HS1_Change()

　　Text1.Width = HS1.Value

　　End Sub

　　2.簡單應(yīng)用(2小題，每題20分，計(jì)40分)

　　(1)在考生文件夾下有一個(gè)工程文件sjt21.vbp，窗體上有兩個(gè)列表框，名稱分別為List1、List2，在List2中己經(jīng)預(yù)設(shè)了內(nèi)容，還有兩個(gè)命令按鈕，名稱分別為C1、C2，標(biāo)題分別為“添加”、“清除”。如圖所示。程序的功能是在運(yùn)行時(shí)，如果選中右邊列標(biāo)框中的一個(gè)列表項(xiàng)，單擊“添加”按鈕，則把該項(xiàng)移到左邊的列表框中;若選中左邊列標(biāo)框中的一個(gè)列表項(xiàng)，單擊“清除”按鈕，則把該項(xiàng)移回右邊的列表框中。文件中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件按原文件名存盤。

　　Private Sub Form_Load()

　　List1.AddItem "性別"

　　List1.AddItem "班號"

　　List1.AddItem "簡歷"

　　List2.AddItem "學(xué)號"

　　List2.AddItem "姓名"

　　List2.AddItem "年齡"

　　List2.AddItem "照片"

　　End Sub

　　Private Sub C1_Click()

　　List2.AddItem List1.Text

　　List1.RemoveItem List1.ListIndex

　　End Sub

　　Private Sub C2_Click()

　　Dim k As Integer

　　k = 0

　　While (k < List2.ListCount)

　　If List2.Selected(k) = True Then

　　List1.AddItem List2.Text

　　List2.RemoveItem k

　　End If

　　k = k + 1

　　Wend

　　End Sub

　　(2)在考生文件夾下有一個(gè)工程文件sjt22.vbp，請?jiān)贔orm1窗體上建立一個(gè)名稱為Op1的單選按鈕數(shù)組，含有三個(gè)單選按鈕，其標(biāo)題分別為“10!”“11!”“12!”，Index屬性分別為0、1、2;再畫一個(gè)名稱為C1的命令按鈕，標(biāo)題為“計(jì)算”;畫一個(gè)名稱為Text1的文本框，如圖所示。程序的功能是在選定一個(gè)單選按鈕并單擊“計(jì)算”按鈕后，可以計(jì)算出相應(yīng)的階乘值，在Text1中顯示該階乘值。請畫出上述控件并編寫程序。

　　Private Sub C1_Click()

　　Dim n As Integer, k As Integer

　　Dim fact As Long

　　For k = 0 To 2

　　If Form1.Op1(k).Value Then

　　n = Val(Left$(Form1.Op1(k).Caption, 2))

　　End If

　　Next k

　　fact = 1

　　k = 1

　　Do While k < n

　　fact = fact * k

　　k = k + 1

　　Loop

　　Text1.Text = fact

　　End Sub

　　Private Sub Form_Unload(Cancel As Integer)

　　unload_sub

　　End Sub

　　Private Sub unload_sub()

　　Dim fn As String

　　fn = App.Path & "\dataout.txt"

　　Open fn For Output As #1

　　Print #1, Text1.Text

　　Close #1

　　End Sub

　　3.綜合應(yīng)用(1小題,計(jì)30分)

　　在考生文件夾下有一個(gè)工程文件sjt31.vbp，其窗體上有一個(gè)文本框，名稱為Text1,可以多行顯示;有一個(gè)名稱為CD1的通用對話框;還有三個(gè)命令按鈕，名稱分別為C1、C2、C3，標(biāo)題分別為“打開文件”、“轉(zhuǎn)換”、“存盤”，如圖所示。

　　命令按鈕的功能是：“打開文件”——彈出打開文件對話框，默認(rèn)打開文件的類型為“文本文件”。選擇考生文件夾下的in5.txt文件后，該文件中的內(nèi)容顯示在Text1中;“轉(zhuǎn)換”——把Text1中的所有小寫英文字母轉(zhuǎn)換成大寫;“存盤”——把Text1中的內(nèi)容存入考生文件夾下的out5.dat文件中。在窗體中已經(jīng)給出了部分程序，要求：

　　1) 請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，但不能修改程序中的其他部分，也不能修改控件的屬性。

　　2) 編寫“轉(zhuǎn)換”按鈕的Click事件過程。最后把修改后的文件按原文件名存盤。

　　Private Sub C1_Click()

　　Dim a As String

　　CD1.Filter = "所有文件?*.*?文本文件?*.txt?Word文件?*.doc"

　　CD1.FilterIndex = 2

　　CD1.Action = 1

　　Open CD1.FileName For Input As #1

　　Input #1, a

　　Close #1

　　Text1.Text = a

　　End Sub