20xx年4月浙江省高中技術(shù)選考試題及答案(編輯修改稿)
2024-07-21 18:20 本頁面
【文章內(nèi)容簡介】 于同一目錄下“”文件的內(nèi)容，則“象棋簡介”按鈕的動(dòng)作腳本為 。16.【加試題】小王編寫了一個(gè)實(shí)現(xiàn)文字查找替換功能的VB程序，運(yùn)行界面如圖所示。文本框Text1顯示原文內(nèi)容，Text2中輸入查找內(nèi)容，Text3中輸入替換內(nèi)容，單擊“全部替換”按鈕Command1后，Text4顯示查找替換的結(jié)果，Text5中顯示替換的次數(shù)，Text6顯示“查找內(nèi)容”在原文中的起始位置。實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)，請改正。Private Sub Command1_Click() Dim s As String, resule As String, pos As String Dim count As Integer, i As Integer i = 1: count = 0 result = : pos = Do While i = Len() s = Mid(, i, Len()) If s = Then result = result + count = count + 1 pos = pos + Str(count) i = i + Len() Else result = result + i = i + 1 End If Loop = result = Str(count) = posEnd Sub17.【加試題】小王編寫了一個(gè)依據(jù)成績計(jì)算名次的VB程序，成績?yōu)?到100之間的整數(shù)。算法的基本思想：先統(tǒng)計(jì)每個(gè)分?jǐn)?shù)的個(gè)數(shù)，然后按照分?jǐn)?shù)從高到低依次計(jì)算每個(gè)有效分?jǐn)?shù)（該分?jǐn)?shù)的個(gè)數(shù)不為0）對應(yīng)的名次，分?jǐn)?shù)相同時(shí)名次并列。最高分為第1名，該分?jǐn)?shù)的名次與個(gè)數(shù)之和為下一個(gè)有效分?jǐn)?shù)的名次，以此類推。程序用數(shù)組A存放每個(gè)分?jǐn)?shù)對應(yīng)的個(gè)數(shù)，數(shù)組B存放每個(gè)分?jǐn)?shù)對應(yīng)的名次。例如，下表中最高分100有2個(gè)，并列第1名，則分?jǐn)?shù)96的名次為分?jǐn)?shù)100的名次加上分?jǐn)?shù)100的個(gè)數(shù)，即第3名。分?jǐn)?shù)100999897969594…0個(gè)數(shù)（A數(shù)組）2000103…0名次（B數(shù)組）134…程序運(yùn)行時(shí)，學(xué)生數(shù)據(jù)顯示在列表框List1中，單擊“計(jì)算”按鈕Command1，計(jì)算結(jié)果顯示在列表框List2中，程序運(yùn)行界面如圖所示。實(shí)現(xiàn)上述功能的VB程序如下，請回答下列問題：（1）如表所示，若分?jǐn)?shù)93的個(gè)數(shù)為2，則該分?jǐn)?shù)對應(yīng)的名次為_____________。（2）請?jiān)趧澗€處填入合適的代碼。Dim sName(1 To 50) As String 39。存放學(xué)生姓名Dim sScore(1 To 50) As Integer 39。存放學(xué)生分?jǐn)?shù)Dim recCount As Integer 39。存放學(xué)生人數(shù)Private Sub Form_Load() 39。本過程從數(shù)據(jù)庫中讀取學(xué)生數(shù)據(jù)，存儲(chǔ)在相應(yīng)的變量中，并在List1中顯示 39。代碼略End Sub39。整數(shù)轉(zhuǎn)換成長度固定的字符串Function ads(x As Integer, n As Integer) As String Dim sx As String, nx As Integer, i As Integer sx = Str(x): nx = Len(sx) For i = 1 To n nx sx = + sx Next i ① End FunctionPrivate Sub Command1_Click() Dim A(0 To 100) As Integer 39。存放每個(gè)分?jǐn)?shù)的個(gè)數(shù) Dim B(0 To 100) As Integer 39。存放每個(gè)分?jǐn)?shù)的名次 Dim mc As Integer, score As Integer, i As Integer For i = 0 To 100 A(i) = 0 Next i For i = 1 To recCount 39。計(jì)算每個(gè)分?jǐn)?shù)的個(gè)數(shù) ② Next i mc = 1 For i = 100 To 0 Step 1 39。計(jì)算每個(gè)分?jǐn)?shù)的名次 If A(i) 0 Then B(i) = mc ③ End If Next i 姓名 分?jǐn)?shù) 名次
外語相關(guān)推薦
鄂ICP備17016276號(hào)-1