中文字幕精品无码一区二区,成全视频在线播放观看方法,大伊人青草狠狠久久,亚洲一区影音先锋色资源

浙江省麗水市普通高中2019-2020學年高二下學期信息技術教學質量監控試卷

資源下載
  1. 二一教育資源

浙江省麗水市普通高中2019-2020學年高二下學期信息技術教學質量監控試卷

資源簡介

浙江省麗水市普通高中2019-2020學年高二下學期信息技術教學質量監控試卷
一、選擇題(本大題共12小題,每小題2分,共24分。每小題列出的四個備選項中只有一個是符合題目要求的。)
1.(2019高二下·浙江月考)下列關于信息獲取的描述,正確的是(  )
A.只有通過搜索引擎才能獲取信息
B.可對獲取的信息進行加工和處理
C.通過網絡獲取的信息都是可信的
D.只有獲取最新的信息才具有價值
2.(2019高二下·浙江月考)下列應用中,體現了人工智能技術的是(  )
A.通過語音指令調節空調溫度
B.通過掃描二維碼添加好友
C.用額溫槍測體溫,體溫異常自動報警
D.在Word中輸入“百步川楊”時自動變成“百步穿楊”
3.(2019高二下·浙江月考)使用Access軟件打開數據庫,部分界面如圖所示
下列說法正確的是(  )
A.當前正在編輯的數據表是“一日三檢.accdb”
B.“一日三檢”表有“檢測序號”字段值相同的記錄
C.“學生信息”表中可能包含“學生姓名”字段
D.“一日三檢”表中“是否異常”字段的有效輸入值可以為“是”
4.(2019高二下·浙江月考)網絡中每臺設備都有一個唯一的網絡標識,叫MAC地址,用十六進制數表示。某設備的MAC地址為“74-27-EA-F0-A7-6F”。下列說法正確的是(  )
A.該地址的長度為12個字節
B.該地址中“6F”轉換為二進制數是1101110
C.該地址在計算機中是以二進制代碼形式存儲的
D.將“F0”中的末位去掉后,再轉換為十進制,所得的值是原來的1/10
5.(2019高二下·浙江月考)使用GoldWave軟件編輯某音頻文件,部分界面如圖所示
下列說法正確的是(  )
A.執行“刪除”命令后直接保存,音頻的時長變為10秒
B.執行“選定部分另存為”命令生成一個新的音頻文件,其時長為5秒
C.執行“剪裁”命令后直接保存,音頻文件存儲容量是原來的1/3
D.執行“插入靜音”命令,設置時間為5秒后直接保存,音頻文件存儲容量不變
6.(2019高二下·浙江月考)如圖所示是一幅未經壓縮的1024*768像素、256色的BMP圖像。
下列說法正確的是(  )
A.該圖像的存儲容量約為6MB
B.BMP是靜態圖像的壓縮標準
C.該圖像每個像素色彩編碼的位數為8
D.該圖像中存在時間冗余
7.(2019高二下·浙江月考)某算法的部分流程圖如右圖所示。執行這部分流程,變量a的值是
A.4 B.5 C.1 D.0
8.(2019高二下·浙江月考)下列VB表達式的值為奇數的是(  )
A.Int(17/4) B.Asc("A")+1
C.Abs (-1) +2 D.Val(Mid("123456", 4, 1))
9.(2019高二下·浙江月考)對N個數進行冒泡排序,下列描述正確的是(  )
A.比較次數為N-1次
B.最多需交換N次
C.交換數據的次數一定比選擇排序多
D.元素的交換次數小于或等于元素的比較次數
10.(2019高二下·浙江月考)生成n個不重復2位隨機奇數的VB程序段如下:
For i = 1 To n
a(i) =
For j = 1 To i-1
If a(i)=a(j) Then
Exit For
End If
Next j
Next i
上述程序段2個方框處的表達式分別為
A.① Int(Rnd*50)*2+11 ② j = j - 1
B.① Int(Rnd*99)+1 ② i = i - 1
C.① Int(Rnd*89)+11 ② j = j + 1
D.① Int(Rnd*45)*2+11 ② i = i - 1
11.(2019高二下·浙江月考)某對分查找算法的VB程序段如下:
i = 1: j = 6: k = 0
key = Val(Text1.Text)
Do While i<= j
k = k + 1
m = Int((i + j)/2 + 0.5)
If key = a(m) Then Exit Do
If key < a(m) Then j = m - 1 Else i = m + 1
Loop
文本框Text1中輸入27,執行該程序段后,k的值為2,則a(1)到a(6)各元素可能的值是(  )
A.12,45,27,31,78,95 B.15,27,56,61,73,89
C.89,73,61,56,35,27 D.13,31,47,56,73,80
12.(2019高二下·浙江月考)某VB程序段如下:
For i = 1 To 7
b(i) = 1
Next i
For i = 1 To 7
For j = 1 To i - 1
If a(i)>a(j) and b(i)<=b(j) Then
b(i) = b(j) + 1
End If
Next j
If b(i) > max Then max = b(i)
Next i
數組元素a(1)到a(7)的值依次“50,10,14,64,47,70,82”,執行該程序段后,變量max的值是(  )
A.5 B.4 C.3 D.2
二、非選擇題(本大題共4小題,4+8+7+7,共26分。)
13.(2019高二下·浙江月考)小林收集了某地第二季度的天氣數據,并用Excel軟件進行數據處理,如圖所示。
圖1
請回答下列問題:
(1)在G3單元格輸入公式并用自動填充功能完成區域G4:G84的計算,計算時應用了IF函數,則G78單元格中的公式是   。
(提示:If函數用于判斷是否滿足某個條件,如果滿足返回一個值,如果不滿足返回另一個值。例如:“=IF(E2<60,"不合格",IF(E2>=80,"優秀","合格"))”)。
(2)根據圖1中的數據制作如圖2所示的圖表,則創建該圖表的數據區域是   。
圖2
(3)將數據區域A2:G84復制到新的數據表,若要從表中找出“溫差”最大的記錄。下列方法可行的是 。(多選,填字母)。
A.以“溫差”為“最大1項”進行篩選,可篩選出符合要求的數據
B.用Max函數計算出D列中最大的一項即為所需數據
C.以“溫差”為主要關鍵字進行降序排序,選取與第1條溫差值相同的數據
D.以“最低溫度”為“最小1項”、“最高溫度”為“最大1項”進行篩選,可篩選出符合要求的日期
14.(2019高二下·浙江月考)用Flash軟件打開“風荷舉.fla”文件,編輯界面如圖所示。
(1)在創作作品前,要進行相應的分析。下列不屬于應用需求分析的是   。(多選,填字母:A .根據腳本大綱,編寫文字腳本 /B .確定作品的主題思想為“風荷舉” /C .該作品面向小學生演示播放 /D .設計作品的主交互界面 /E .確定該作品的經濟效益)
(2)要使當前場景動畫播放結束,“音樂”圖層中的聲音同時停止,可將“音樂”圖層中聲音的“同步”屬性設置為   (選填:數據流/事件)。
(3)在“鵝”圖層中創建了“鵝”實例從舞臺左側游到舞臺右側的動畫,則該動畫的類型是   (選填:動畫補間/形狀補間)。
(4)為使“荷花”圖層中的 “荷花”實例在動畫開始2秒后出現,可行的操作是   。
(5)影片發布后,單擊“鏈接”按鈕, 實現在瀏覽器中打開網站“http://www..cn”,同時關閉動畫。則“鏈接”按鈕的動作腳本為on(press){   }。
15.(2019高二下·浙江月考)某加密算法對大寫字母加密,其加密規則如下:密文的ASCII碼值=明文的ASCII碼值+密鑰,加密后生成的密文仍為大寫字母。其密鑰是在3*3矩陣中獲得,獲得密鑰的方式為:如字母“A”的ASCII碼值為65,將65反復除3,其轉換過程如圖1所示,得到商為2,密鑰在矩陣中所在行;得到余數2,密鑰在矩陣中所在列;商或余數為0,密鑰在矩陣中最后一行或最后一列。其程序運行界面如圖2所示。
(1)下列對象中沒有Caption屬性的是   (單選,填字母:mand1 /B .Form1 /C .Text1和Text2)。
(2)實現上述功能的VB程序如下,請在劃線處填入合適的代碼。
Dim a(1 To 9) As Integer
Private Sub Command1_Click()
Dim column As Integer, row As Integer, t As Integer, tmp As Integer
Dim s As String, ch As String, result As String
s = Text1.Text: result = ""
For i = 1 To Len(s)
ch = Mid(s, i, 1): t =   .
column = (t - 1) Mod 3 + 1
Do While t >= 3
t = t \ 3
Loop
row =
tmp = (Asc(ch) +     - 65) Mod 26 + 65
result = result + Chr(tmp)
Next i
Text2.Text = result
End Sub
Private Sub Form_Load() '用來生成3*3矩陣
For i = 1 To 9
a(i) = Int(Rnd * 9) + 1
s = s + Str(a(i))
If i Mod 3 = 0 Then
List1.AddItem s
s = ""
End If
Next i
End Sub
(3)程序中加框處代碼有錯,請改正。
(4)根據程序的功能并結合圖2,字母C加密后的密文為   。
16.(2019高二下·浙江月考)某校跳高比賽計分規則如下:每個高度每位選手最多試跳三次,成功記為1,失敗或輪空記為0。如選手第一次試跳成功記為100,第二次試跳成功記為010,第三試跳成功記為001,三次失敗則終止比賽。編寫VB程序統計選手積分,在文本框Text1中輸入姓名和成績,在列表框List1中輸出結果,其算法如下:1.將每個選手的跳高記錄三位一組轉換成十進制數存儲到數組a (該數組元素的值都不相同)。2.先比較數組a中各數組元素的長度,長度長的排名在前;若長度相同的情況下從后往前依次比較字符大小,當前數值大的排名在前。程序運行界面如圖所示:
請在劃線處填入合適的代碼。
Dim a(1 To 9) As String '存儲跳高成績
Dim b(1 To 9) As String '存儲學生姓名
Dim c(1 To 9) As Integer
Private Sub Command1_Click()
Dim ch As String, tmp As Integer, t As Integer
Dim p As Integer, k As Integer, i As Integer, j As Integer
Dim s As String
s = Text1.Text: t = 0
For i = 1 To    .
If Mid(s, i, 1) <> "/" Then
ch = ch + Mid(s, i, 1)
Else
t = t + 1
If t Mod 2 = 0 Then
a(t \ 2) = zh(ch)
Else
   
End If
ch = ""
End If
Next i
For i = 1 To t\2
c(i) = i
Next i
For i = 1 To t \ 2 - 1
p = i
For j = i + 1 To t \ 2
If Len(a(c(p))) < Len(a(c(j))) Then
p = j
ElseIf Len(a(c(j))) = Len(a(c(p))) Then
k = Len(a(j)): flag = True
Do While k >= 1 And flag
If Val(Mid(a(c(j)), k, 1)) > Val(Mid(a(c(p)), k, 1)) Then
p = j
flag=false
ElseIf val(Mid(a(c(j)), k, 1)) = val(Mid(a(c(p)), k, 1)) Then
k = k - 1
Else
flag = False
End If
Loop
End If
Next j
If p <> i Then
tmp = c(i): c(i) = c(p): c(p) = tmp
End If
Next i
For i = 1 To t \ 2
   
Next i
End Sub
Function zh(cm As String) As String
Dim temp As String
Dim i As Integer, j As Integer
For i = 1 To    
For j = 1 To 3
temp =temp * 2 + Val(Mid(cm, (i - 1) * 3 + j, 1)) .
Next j
zh = zh + CStr(temp) 'CStr函數可把表達式轉換為字符串類型
temp = 0
Next i
End Function
答案解析部分
1.【答案】B
【知識點】信息獲取的環節與方法;信息來源的選擇與判斷
2.【答案】A
【知識點】人工智能的應用
3.【答案】C
【知識點】數據表、字段、記錄的概念;數據表、字段、記錄的編輯
4.【答案】C
【知識點】進制及數制轉換
5.【答案】B
【知識點】聲音素材的基本處理;聲音、圖像、視頻編碼
6.【答案】C
【知識點】圖形與圖像、位圖與矢量圖的概念;聲音、圖像、視頻編碼
7.【答案】D
【知識點】常量、變量及變量的賦值;流程圖識讀
8.【答案】C
【知識點】運算符、基本運算與表達式
9.【答案】D
【知識點】排序算法及程序實現
10.【答案】D
【知識點】運算符、基本運算與表達式;常量、變量及變量的賦值
11.【答案】B
【知識點】常量、變量及變量的賦值;查找算法及程序實現
12.【答案】A
【知識點】常量、變量及變量的賦值;排序算法及程序實現
13.【答案】(1)=IF(F78<=50,“優”, IF(F78<=100,“良”, “差”))
(2)A2:A7,D2:D7,F2:F7
(3)A;C
【知識點】表格數據的基本操作;表格數據的處理與計算
14.【答案】(1)ABD
(2)數據流
(3)動畫補間
(4)將荷花圖層第10幀移至第21幀(19-21幀都正確,或其他等價答案)
(5)Geturl(“http:// www..cn”) ;fscommand(“quit”)
【知識點】多媒體作品的規劃和設計;動畫的類型;時間軸、幀、圖層、庫的概念及基本操作;常用影片控制函數的應用
15.【答案】(1)C
(2)Asc(ch);a((row - 1) * 3 + column)
(3)(t-1)Mod 3 + 1 或(t+2)Mod 3 + 1 或(t-1+3)Mod 3 + 1
(4)F
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用;分支結構語句及程序實現;循環結構語句及程序實現;加密與解密算法
16.【答案】Len(s)/len(text1.text);b((t + 1) \ 2) = ch;List1.AddItem Str(i) + " " + b(c(i)) + " " + a(c(i));len(cm)\3
【知識點】運算符、基本運算與表達式;過程與自定義函數;分支結構語句及程序實現;循環結構語句及程序實現
1 / 1浙江省麗水市普通高中2019-2020學年高二下學期信息技術教學質量監控試卷
一、選擇題(本大題共12小題,每小題2分,共24分。每小題列出的四個備選項中只有一個是符合題目要求的。)
1.(2019高二下·浙江月考)下列關于信息獲取的描述,正確的是(  )
A.只有通過搜索引擎才能獲取信息
B.可對獲取的信息進行加工和處理
C.通過網絡獲取的信息都是可信的
D.只有獲取最新的信息才具有價值
【答案】B
【知識點】信息獲取的環節與方法;信息來源的選擇與判斷
2.(2019高二下·浙江月考)下列應用中,體現了人工智能技術的是(  )
A.通過語音指令調節空調溫度
B.通過掃描二維碼添加好友
C.用額溫槍測體溫,體溫異常自動報警
D.在Word中輸入“百步川楊”時自動變成“百步穿楊”
【答案】A
【知識點】人工智能的應用
3.(2019高二下·浙江月考)使用Access軟件打開數據庫,部分界面如圖所示
下列說法正確的是(  )
A.當前正在編輯的數據表是“一日三檢.accdb”
B.“一日三檢”表有“檢測序號”字段值相同的記錄
C.“學生信息”表中可能包含“學生姓名”字段
D.“一日三檢”表中“是否異常”字段的有效輸入值可以為“是”
【答案】C
【知識點】數據表、字段、記錄的概念;數據表、字段、記錄的編輯
4.(2019高二下·浙江月考)網絡中每臺設備都有一個唯一的網絡標識,叫MAC地址,用十六進制數表示。某設備的MAC地址為“74-27-EA-F0-A7-6F”。下列說法正確的是(  )
A.該地址的長度為12個字節
B.該地址中“6F”轉換為二進制數是1101110
C.該地址在計算機中是以二進制代碼形式存儲的
D.將“F0”中的末位去掉后,再轉換為十進制,所得的值是原來的1/10
【答案】C
【知識點】進制及數制轉換
5.(2019高二下·浙江月考)使用GoldWave軟件編輯某音頻文件,部分界面如圖所示
下列說法正確的是(  )
A.執行“刪除”命令后直接保存,音頻的時長變為10秒
B.執行“選定部分另存為”命令生成一個新的音頻文件,其時長為5秒
C.執行“剪裁”命令后直接保存,音頻文件存儲容量是原來的1/3
D.執行“插入靜音”命令,設置時間為5秒后直接保存,音頻文件存儲容量不變
【答案】B
【知識點】聲音素材的基本處理;聲音、圖像、視頻編碼
6.(2019高二下·浙江月考)如圖所示是一幅未經壓縮的1024*768像素、256色的BMP圖像。
下列說法正確的是(  )
A.該圖像的存儲容量約為6MB
B.BMP是靜態圖像的壓縮標準
C.該圖像每個像素色彩編碼的位數為8
D.該圖像中存在時間冗余
【答案】C
【知識點】圖形與圖像、位圖與矢量圖的概念;聲音、圖像、視頻編碼
7.(2019高二下·浙江月考)某算法的部分流程圖如右圖所示。執行這部分流程,變量a的值是
A.4 B.5 C.1 D.0
【答案】D
【知識點】常量、變量及變量的賦值;流程圖識讀
8.(2019高二下·浙江月考)下列VB表達式的值為奇數的是(  )
A.Int(17/4) B.Asc("A")+1
C.Abs (-1) +2 D.Val(Mid("123456", 4, 1))
【答案】C
【知識點】運算符、基本運算與表達式
9.(2019高二下·浙江月考)對N個數進行冒泡排序,下列描述正確的是(  )
A.比較次數為N-1次
B.最多需交換N次
C.交換數據的次數一定比選擇排序多
D.元素的交換次數小于或等于元素的比較次數
【答案】D
【知識點】排序算法及程序實現
10.(2019高二下·浙江月考)生成n個不重復2位隨機奇數的VB程序段如下:
For i = 1 To n
a(i) =
For j = 1 To i-1
If a(i)=a(j) Then
Exit For
End If
Next j
Next i
上述程序段2個方框處的表達式分別為
A.① Int(Rnd*50)*2+11 ② j = j - 1
B.① Int(Rnd*99)+1 ② i = i - 1
C.① Int(Rnd*89)+11 ② j = j + 1
D.① Int(Rnd*45)*2+11 ② i = i - 1
【答案】D
【知識點】運算符、基本運算與表達式;常量、變量及變量的賦值
11.(2019高二下·浙江月考)某對分查找算法的VB程序段如下:
i = 1: j = 6: k = 0
key = Val(Text1.Text)
Do While i<= j
k = k + 1
m = Int((i + j)/2 + 0.5)
If key = a(m) Then Exit Do
If key < a(m) Then j = m - 1 Else i = m + 1
Loop
文本框Text1中輸入27,執行該程序段后,k的值為2,則a(1)到a(6)各元素可能的值是(  )
A.12,45,27,31,78,95 B.15,27,56,61,73,89
C.89,73,61,56,35,27 D.13,31,47,56,73,80
【答案】B
【知識點】常量、變量及變量的賦值;查找算法及程序實現
12.(2019高二下·浙江月考)某VB程序段如下:
For i = 1 To 7
b(i) = 1
Next i
For i = 1 To 7
For j = 1 To i - 1
If a(i)>a(j) and b(i)<=b(j) Then
b(i) = b(j) + 1
End If
Next j
If b(i) > max Then max = b(i)
Next i
數組元素a(1)到a(7)的值依次“50,10,14,64,47,70,82”,執行該程序段后,變量max的值是(  )
A.5 B.4 C.3 D.2
【答案】A
【知識點】常量、變量及變量的賦值;排序算法及程序實現
二、非選擇題(本大題共4小題,4+8+7+7,共26分。)
13.(2019高二下·浙江月考)小林收集了某地第二季度的天氣數據,并用Excel軟件進行數據處理,如圖所示。
圖1
請回答下列問題:
(1)在G3單元格輸入公式并用自動填充功能完成區域G4:G84的計算,計算時應用了IF函數,則G78單元格中的公式是   。
(提示:If函數用于判斷是否滿足某個條件,如果滿足返回一個值,如果不滿足返回另一個值。例如:“=IF(E2<60,"不合格",IF(E2>=80,"優秀","合格"))”)。
(2)根據圖1中的數據制作如圖2所示的圖表,則創建該圖表的數據區域是   。
圖2
(3)將數據區域A2:G84復制到新的數據表,若要從表中找出“溫差”最大的記錄。下列方法可行的是 。(多選,填字母)。
A.以“溫差”為“最大1項”進行篩選,可篩選出符合要求的數據
B.用Max函數計算出D列中最大的一項即為所需數據
C.以“溫差”為主要關鍵字進行降序排序,選取與第1條溫差值相同的數據
D.以“最低溫度”為“最小1項”、“最高溫度”為“最大1項”進行篩選,可篩選出符合要求的日期
【答案】(1)=IF(F78<=50,“優”, IF(F78<=100,“良”, “差”))
(2)A2:A7,D2:D7,F2:F7
(3)A;C
【知識點】表格數據的基本操作;表格數據的處理與計算
14.(2019高二下·浙江月考)用Flash軟件打開“風荷舉.fla”文件,編輯界面如圖所示。
(1)在創作作品前,要進行相應的分析。下列不屬于應用需求分析的是   。(多選,填字母:A .根據腳本大綱,編寫文字腳本 /B .確定作品的主題思想為“風荷舉” /C .該作品面向小學生演示播放 /D .設計作品的主交互界面 /E .確定該作品的經濟效益)
(2)要使當前場景動畫播放結束,“音樂”圖層中的聲音同時停止,可將“音樂”圖層中聲音的“同步”屬性設置為   (選填:數據流/事件)。
(3)在“鵝”圖層中創建了“鵝”實例從舞臺左側游到舞臺右側的動畫,則該動畫的類型是   (選填:動畫補間/形狀補間)。
(4)為使“荷花”圖層中的 “荷花”實例在動畫開始2秒后出現,可行的操作是   。
(5)影片發布后,單擊“鏈接”按鈕, 實現在瀏覽器中打開網站“http://www..cn”,同時關閉動畫。則“鏈接”按鈕的動作腳本為on(press){   }。
【答案】(1)ABD
(2)數據流
(3)動畫補間
(4)將荷花圖層第10幀移至第21幀(19-21幀都正確,或其他等價答案)
(5)Geturl(“http:// www..cn”) ;fscommand(“quit”)
【知識點】多媒體作品的規劃和設計;動畫的類型;時間軸、幀、圖層、庫的概念及基本操作;常用影片控制函數的應用
15.(2019高二下·浙江月考)某加密算法對大寫字母加密,其加密規則如下:密文的ASCII碼值=明文的ASCII碼值+密鑰,加密后生成的密文仍為大寫字母。其密鑰是在3*3矩陣中獲得,獲得密鑰的方式為:如字母“A”的ASCII碼值為65,將65反復除3,其轉換過程如圖1所示,得到商為2,密鑰在矩陣中所在行;得到余數2,密鑰在矩陣中所在列;商或余數為0,密鑰在矩陣中最后一行或最后一列。其程序運行界面如圖2所示。
(1)下列對象中沒有Caption屬性的是   (單選,填字母:mand1 /B .Form1 /C .Text1和Text2)。
(2)實現上述功能的VB程序如下,請在劃線處填入合適的代碼。
Dim a(1 To 9) As Integer
Private Sub Command1_Click()
Dim column As Integer, row As Integer, t As Integer, tmp As Integer
Dim s As String, ch As String, result As String
s = Text1.Text: result = ""
For i = 1 To Len(s)
ch = Mid(s, i, 1): t =   .
column = (t - 1) Mod 3 + 1
Do While t >= 3
t = t \ 3
Loop
row =
tmp = (Asc(ch) +     - 65) Mod 26 + 65
result = result + Chr(tmp)
Next i
Text2.Text = result
End Sub
Private Sub Form_Load() '用來生成3*3矩陣
For i = 1 To 9
a(i) = Int(Rnd * 9) + 1
s = s + Str(a(i))
If i Mod 3 = 0 Then
List1.AddItem s
s = ""
End If
Next i
End Sub
(3)程序中加框處代碼有錯,請改正。
(4)根據程序的功能并結合圖2,字母C加密后的密文為   。
【答案】(1)C
(2)Asc(ch);a((row - 1) * 3 + column)
(3)(t-1)Mod 3 + 1 或(t+2)Mod 3 + 1 或(t-1+3)Mod 3 + 1
(4)F
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用;分支結構語句及程序實現;循環結構語句及程序實現;加密與解密算法
16.(2019高二下·浙江月考)某校跳高比賽計分規則如下:每個高度每位選手最多試跳三次,成功記為1,失敗或輪空記為0。如選手第一次試跳成功記為100,第二次試跳成功記為010,第三試跳成功記為001,三次失敗則終止比賽。編寫VB程序統計選手積分,在文本框Text1中輸入姓名和成績,在列表框List1中輸出結果,其算法如下:1.將每個選手的跳高記錄三位一組轉換成十進制數存儲到數組a (該數組元素的值都不相同)。2.先比較數組a中各數組元素的長度,長度長的排名在前;若長度相同的情況下從后往前依次比較字符大小,當前數值大的排名在前。程序運行界面如圖所示:
請在劃線處填入合適的代碼。
Dim a(1 To 9) As String '存儲跳高成績
Dim b(1 To 9) As String '存儲學生姓名
Dim c(1 To 9) As Integer
Private Sub Command1_Click()
Dim ch As String, tmp As Integer, t As Integer
Dim p As Integer, k As Integer, i As Integer, j As Integer
Dim s As String
s = Text1.Text: t = 0
For i = 1 To    .
If Mid(s, i, 1) <> "/" Then
ch = ch + Mid(s, i, 1)
Else
t = t + 1
If t Mod 2 = 0 Then
a(t \ 2) = zh(ch)
Else
   
End If
ch = ""
End If
Next i
For i = 1 To t\2
c(i) = i
Next i
For i = 1 To t \ 2 - 1
p = i
For j = i + 1 To t \ 2
If Len(a(c(p))) < Len(a(c(j))) Then
p = j
ElseIf Len(a(c(j))) = Len(a(c(p))) Then
k = Len(a(j)): flag = True
Do While k >= 1 And flag
If Val(Mid(a(c(j)), k, 1)) > Val(Mid(a(c(p)), k, 1)) Then
p = j
flag=false
ElseIf val(Mid(a(c(j)), k, 1)) = val(Mid(a(c(p)), k, 1)) Then
k = k - 1
Else
flag = False
End If
Loop
End If
Next j
If p <> i Then
tmp = c(i): c(i) = c(p): c(p) = tmp
End If
Next i
For i = 1 To t \ 2
   
Next i
End Sub
Function zh(cm As String) As String
Dim temp As String
Dim i As Integer, j As Integer
For i = 1 To    
For j = 1 To 3
temp =temp * 2 + Val(Mid(cm, (i - 1) * 3 + j, 1)) .
Next j
zh = zh + CStr(temp) 'CStr函數可把表達式轉換為字符串類型
temp = 0
Next i
End Function
【答案】Len(s)/len(text1.text);b((t + 1) \ 2) = ch;List1.AddItem Str(i) + " " + b(c(i)) + " " + a(c(i));len(cm)\3
【知識點】運算符、基本運算與表達式;過程與自定義函數;分支結構語句及程序實現;循環結構語句及程序實現
1 / 1

展開更多......

收起↑

資源列表

<pre id="tfb94"><li id="tfb94"></li></pre>

<bdo id="tfb94"><rt id="tfb94"></rt></bdo>
  • <menu id="tfb94"><dl id="tfb94"></dl></menu><i id="tfb94"><acronym id="tfb94"><sub id="tfb94"></sub></acronym></i>

    1. 主站蜘蛛池模板: 兰考县| 定结县| 泸溪县| 黄山市| 宽城| 贡觉县| 甘洛县| 肃北| 双流县| 靖州| 和硕县| 田阳县| 建宁县| 巴里| 马关县| 长泰县| 临泽县| 清苑县| 醴陵市| 马山县| 老河口市| 临潭县| 湾仔区| 明星| 泸定县| 师宗县| 红安县| 璧山县| 溆浦县| 安溪县| 乌拉特前旗| 平南县| 桦甸市| 寿宁县| 营山县| 平罗县| 油尖旺区| 门头沟区| 花莲市| 丹巴县| 河源市|