精品亚洲成AV人片在线观看,午夜国产精品电影在线观看

相關(guān)推薦

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

　　2016年下半年計(jì)算機(jī)等級(jí)考試備考已經(jīng)拉開(kāi)大幕了，下面yjbys小編為大家分享最新計(jì)算機(jī)二級(jí)vb試題及解題指導(dǎo)，希望對(duì)同學(xué)們備考計(jì)算機(jī)等級(jí)考試有幫助!

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

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

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)Visual Basic應(yīng)用程序(包括界面和代碼)。

　　(1)在名稱為Form1，標(biāo)題為“框架”的窗體上畫(huà)一個(gè)名稱為Frame1，且沒(méi)有標(biāo)題的框架�？蚣軆�(nèi)含有二個(gè)單選按鈕，名稱分別為Opt1 和Opt2、標(biāo)題分別為“字體”、“大小”。

　　注意：

　　存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。

　　解題思路：

　　啟動(dòng)Visual Basic系統(tǒng)，創(chuàng)建一個(gè)Form1窗體。

　　在該窗體上畫(huà)一個(gè)框架控件，通過(guò)其屬性窗口將名稱設(shè)為Frame1。在框架內(nèi)畫(huà)二個(gè)單選按鈕控件，通過(guò)其屬性窗口將名稱分別為Opt1和Opt2、標(biāo)題(Caption屬性)分別設(shè)為“字體”和“大小”。激活Form1窗體，通過(guò)其屬性窗口將標(biāo)題(Caption屬性)設(shè)為“框架”。

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt1.vbp、sjt1.frm、sjt1.vbw

　　請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中，然后打開(kāi)sjt1.vbp文件并運(yùn)行。

　　(2)考生文件夾下的工程文件sjt2.vbp中有一個(gè)由直線Line1、Line2和Line3組成的三角形，直線Line1、Line2和Line3的坐標(biāo)值如下所示：

　　名稱 X1 Y1 X2 Y2

　　Line1 600 1200 1600 300

　　Line2 600 1200 2600 1200

　　Line3 1600 300 2600 1200

　　要求畫(huà)一條直線Line4以構(gòu)成三角形的高，且該直線的初始狀態(tài)為不可見(jiàn)。再畫(huà)二個(gè)命令按鈕，名稱分別是Cmd1、Cmd2，標(biāo)題分別為“顯示高”、“隱藏高”，如圖所示。

　　請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程使得在運(yùn)行時(shí)，單擊“顯示高”按鈕，則顯示三角形的高;單擊“隱藏高”按鈕，則隱藏三角形的高。

　　注意：

　　要求程序中不得使用變量，每個(gè)事件過(guò)程只能寫(xiě)一條語(yǔ)句。不得修改已經(jīng)存在的控件，最后將修改后的文件按原文件名存盤(pán)。

　　解題思路：

　　啟動(dòng)Visual Basic系統(tǒng)，打開(kāi)考生文件夾下需編輯的工程文件sjt2.vbp，相應(yīng)的窗體文件名為sjt2.frm。

　　由于所提供的窗體控件不完整，需在該窗體上畫(huà)一根直線控件，通過(guò)其屬性窗口將名稱設(shè)為L(zhǎng)ine4，點(diǎn)X1屬性設(shè)為1600，點(diǎn)X2屬性分別設(shè)為1600，點(diǎn)Y1屬性設(shè)為300，點(diǎn)Y2屬性設(shè)為1200，Visible屬性設(shè)為False。畫(huà)二個(gè)命令按鈕控件，通過(guò)其屬性窗口將名稱分別設(shè)為Cmd1和Cmd2，標(biāo)題(Caption屬性)分別設(shè)為“顯示高”和“隱藏高”。

　　單擊“顯示高”按鈕(即運(yùn)行Click事件過(guò)程)，在該P(yáng)rivate Sub Cmd1_Click()事件過(guò)程中加入語(yǔ)句：

　　Private Sub Cmd1_Click()

　　Line4.Visible = True

　　End Sub

　　單擊“隱藏高”按鈕(即運(yùn)行Click事件過(guò)程)，在該P(yáng)rivate Sub Cmd2_Click()事件過(guò)程中加入語(yǔ)句：

　　Private Sub Cmd2_Click()

　　Line4.Visible = False

　　End Sub

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt2.vbp、sjt2.frm、sjt2.vbw

　　請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中，然后打開(kāi)sjt2.vbp文件并運(yùn)行。

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

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp，在Form1的窗體中有一個(gè)文本框，二個(gè)命令按鈕和一個(gè)計(jì)時(shí)器。程序的功能是在運(yùn)行時(shí)，單擊“開(kāi)始計(jì)數(shù)”按鈕，就開(kāi)始計(jì)數(shù)，每隔1秒，文本框中的數(shù)加1;單擊“停止計(jì)數(shù)”按鈕，則停止計(jì)數(shù)(如圖所示)。要求：修改適當(dāng)?shù)目丶膶傩�，并去掉程序中的注釋符，把程序中�?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件以原來(lái)的文件名存盤(pán)。

　　解題思路：

　　啟動(dòng)Visual Basic系統(tǒng)，打開(kāi)考生文件夾下需編輯的工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt3.frm。

　　由于所提供的窗體控件屬性不完整，通過(guò)屬性窗口將計(jì)時(shí)器的Enabled屬性設(shè)為False，Interval屬性設(shè)為1000。

　　由于所提供的窗體程序不完整，在命令按鈕的Private Sub C1_Click(Index As Integer)事件過(guò)程中，有二處地方需要修改。

　　1) 將語(yǔ)句

　　'Select Case ?

　　改為

　　Select Case Index

　　2) 將語(yǔ)句

　　'Case ?

　　改為

　　Case 0

　　由于所提供的窗體程序不完整，在計(jì)時(shí)器的Private Sub Timer1_Timer()事件過(guò)程中，有一處地方需要修改。

　　1) 將語(yǔ)句

　　'Text1.Text = Text1.Text ?

　　改為

　　Text1.Text = Text1.Text + 1

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt3.vbp、sjt3.frm、sjt3.vbw

　　請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中，然后打開(kāi)sjt3.vbp文件并運(yùn)行。

　　(2)已知出租車行駛不超過(guò)4公里時(shí)一律收費(fèi)10元。超過(guò)4公里時(shí)分段處理，具體處理方式為：15公里以內(nèi)每公里加收 1.2元，15公里以上每公里收 1.8元。

　　在考生文件夾下有一個(gè)工程文件sjt4.vbp。程序的功能是：?jiǎn)螕?ldquo;輸入”按鈕，將彈出一個(gè)輸入對(duì)話框，接收出租車行駛的里程數(shù);單擊“計(jì)算”按鈕，則可根據(jù)輸入的里程數(shù)計(jì)算應(yīng)付的出租車費(fèi)，并將計(jì)算結(jié)果顯示在名稱為T(mén)ext1的文本框內(nèi)。

　　在窗體文件中已經(jīng)給出了全部控件(如圖所示)，但程序不完整，要求去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容。

　　注意：

　　不得修改已經(jīng)存在的內(nèi)容和控件屬性，最后將修改后的文件按原文件名存盤(pán)。

　　解題思路：

　　啟動(dòng)Visual Basic系統(tǒng)，打開(kāi)考生文件夾下需編輯的工程文件sjt4.vbp，相應(yīng)的窗體文件名為sjt4.frm。

　　由于所提供的窗體程序不完整，在Private Sub Command2_Click()事件過(guò)程中，有五處地方需要修改。

　　1) 將語(yǔ)句

　　'Select Case ?

　　改為

　　Select Case s

　　2) 將語(yǔ)句

　　改為

　　f = 10

　　3) 將語(yǔ)句

　　'f = 10 + ?

　　改為

　　f = 10 + (s - 4) * 1.2

　　4) 將語(yǔ)句

　　改為

　　Case Else

　　5) 將語(yǔ)句

　　'f = 10 + ? + (s - 15) * 1.8

　　改為

　　f = 10 + (15 - 4) * 1.2 + (s - 15) * 1.8

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt4.vbp、sjt4.frm、sjt4.vbw

　　請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中，然后打開(kāi)sjt4.vbp文件并運(yùn)行。

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

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　在考生文件夾下有一個(gè)工程文件sjt5.vbp，窗體上有二個(gè)標(biāo)題分別是“讀數(shù)據(jù)”和“統(tǒng)計(jì)”的命令按鈕。請(qǐng)畫(huà)二個(gè)標(biāo)簽，名稱分別為L(zhǎng)abel1和Label2，標(biāo)題分別為“出現(xiàn)次數(shù)最多的字母是”和“它出現(xiàn)的次數(shù)為”;再畫(huà)二個(gè)名稱分別為T(mén)ext1和Text2，初始值為空的文本框，如圖所示。

　　程序功能如下：

　　1)單擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下in5.dat文件的內(nèi)容讀到變量s中(此過(guò)程已給出);

　　2)單擊“統(tǒng)計(jì)”按鈕，則自動(dòng)統(tǒng)計(jì)in5.dat文件中所含各字母(不區(qū)分大小寫(xiě))出現(xiàn)的次數(shù)，并將出現(xiàn)次數(shù)最多的字母顯示在Text1文本框內(nèi)，它所出現(xiàn)的次數(shù)顯示在Text2文本框內(nèi)。

　　“讀數(shù)據(jù)”按鈕的Click 事件過(guò)程已經(jīng)給出，請(qǐng)為“統(tǒng)計(jì)”按鈕編寫(xiě)適當(dāng)?shù)氖录^(guò)程實(shí)現(xiàn)上述功能。

　　注意：

　　考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運(yùn)行之前，必須進(jìn)行統(tǒng)計(jì)，且必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無(wú)成績(jī)。最后，程序按原文件名存盤(pán)。

　　解題思路：

　　啟動(dòng)Visual Basic系統(tǒng)，打開(kāi)考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。

　　由于所提供的窗體控件不完整，需畫(huà)二個(gè)標(biāo)簽控件，通過(guò)其屬性窗口將名稱分別設(shè)為L(zhǎng)abel1和Label2，標(biāo)題(Caption屬性)分別設(shè)為“出現(xiàn)次數(shù)最多的字母是”和“它出現(xiàn)的次數(shù)為”。畫(huà)二個(gè)文本框控件，通過(guò)其屬性窗口將名稱分別設(shè)為T(mén)ext1和Text2，初始內(nèi)容(Text屬性)均設(shè)為空。

　　由于所提供的窗體程序不完整，需在“統(tǒng)計(jì)”命令按鈕的Click事件過(guò)程中加入語(yǔ)句：

　　Private Sub Command2_Click()

　　' 考生編寫(xiě)

　　Dim a(26) As Integer

　　n = Len(s)

　　For i = 1 To n

　　c = UCase(Mid(s, i, 1))

　　If c >= "A" And c <= "Z" Then

　　j = Asc(c) - Asc("A") + 1

　　a(j) = a(j) + 1

　　End If

　　Next i