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

2019-2020學年浙江省普通高校招生選考科目考試信息技術試題(一)

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

2019-2020學年浙江省普通高校招生選考科目考試信息技術試題(一)

資源簡介

浙江省普通高校招生選考科目考試
信息技術試題(一)
一、選擇題(本大題共12小題,每小題2分,共24分。在每小題給出的四個選項中,只有一個符合題目要求)
1.下列有關信息的說法,不正確的是(  )
A.Python程序設計語言也是一種信息
B.給微信朋友圏點贊也是一種信息評價方式
C.信息在傳輸過程中,必須遵循一定的規則
D.對相關數據進行加工處理,使數據之間建立相互聯系,從而形成信息
解析 信息是一種具體的含義,語言是信息的載體。
答案 A
2.下列有關網頁與瀏覽器的說法,不正確的是 (  )
A.網頁的三種基本元素是文字、圖形圖像和超鏈接
B.網頁內容是用HTML(超文本標記語言)進行描述的
C.瀏覽器中收藏的網頁,在沒有接入網絡的狀態下也能進行瀏覽
D.瀏覽器中以“*.txt”格式另存網頁,網頁中的超鏈接不能被保存
解析 本題主要考查網上信息獲取的相關知識。瀏覽器中收藏網頁只是保存了網頁的URL,在未聯網的狀態下不能進行瀏覽。
答案 C
3.使用Access軟件編輯數據表,部分界面如圖所示。 下列說法正確的是(  )
A.“ID”字段名不能進行修改
B.第1條記錄被刪除后不能撤銷
C.在當前視圖下,“票價”字段被刪除后可用撤銷來恢復
D.將數據導出到Excel電子表格后,“3D”列的內容將顯示為“是”或“否”
解析 本題主要考查Access數據庫相關知識。“ID”字段名能進行修改,字段類型不能進行修改。當前為數據表視圖,數據表視圖下刪除字段不能撤銷。字段類型”是否”導出到Excel電子表格后,將顯示為”True”或”False”。
答案 B
4.使用UltraEdit軟件查看字符“如果 A<>0 then b=b/A”內碼,部分界面如圖所示。
下列說法正確的是 (  )
A.存儲上述字符需要20個Byte
B.“a-z”字符內碼值都比“A-Z”字符的內碼值小
C.字符“D”的內碼用二進制表示為“01100100”
D.使用UltraEdit軟件查看字符,字符個數超過15個的時候會自動換行
解析 本題主要考查內碼與進制轉化相關知識。“a-z”字符內碼值都比“A-Z”字符的內碼值大。字符“D”的內碼用二進制表示為“01000100”。 使用UltraEdit軟件查看字符,占用字節數超過16個的時候會自動換行。
答案 A
5.下列關于多媒體技術的說法,正確的是(  )
A.多媒體技術中的媒體是指承載信息的載體.如文字、聲音、圖形和圖像等
B.多媒體數據壓縮標準中,MPEG是靜態圖像壓縮標準
C.某軟件能根據文本內容自動朗讀,該功能主要應用了多媒體技術中的語音識別技術
D.智能手機的指紋識別功能,主要應用了多媒體技術中的OCR技術
解析 本題考點多媒體技術等知識點。多媒體技術中的媒體是指數字、文字、聲音、困形和耳是靜態圖像壓縮標準,MPEG是動態圖像壓縮標準,語音識別技術屬于人工智能技術。
答案 A
6.使用GoldWave軟件編輯某音頻文件,選擇其中一段音頻后的部分界面如圖所示。
下列說法錯誤的是(  )
A.從當前位置開始播放5秒,只能聽到一個聲道的聲音
B.選中部分在中間的位置,不能作淡入處理
C.復制其他文件的聲音,執行“粘貼”命令,會替換當前部分聲音
D.在當前狀態下,執行刪除或剪裁命令,兩次分別保存后的文件容量是相同的
解析 該聲音的左聲道沒有聲波圖形,因而沒有聲音。淡入只是把音量從小到大處理,不管聲音在哪個位置。粘貼命令會替換選中部分聲音。
答案 B
7.某算法流程圖如下圖所示。
執行該算法,下列說法正確的是(  )
A.變量i的值是21 B.語句i=i+1執行了5次
C.變量s的值為10 D.語句i<=20被執行了5次
解析 當i=5時,退出循環,因此共循環5次,i的值為5,s的值為1+2+3+4+5。
答案 B
8.產生一個在[10,99]中隨機奇數的VB表達式是(  )
A.11 + Int(Rnd * 99) B.11 + Int(Rnd * 45)*2
C.11 + Int(Rnd * 89) D.10 + Int( Rnd * 90)
解析 本題主要考查VB的函數。在[10,99]中隨機奇數范圍應為[11,99],可以轉換為[0,88]+11,且[0,88]只能為偶數。而[0,88]可以表達為[0,44]*2,即[0,45) *2。綜合可得選項B正確。
答案 B
9.有如下VB程序段:
a(1) = 1
For i = 2 To 6
a(i)=a(i-1)+Int(Rnd*5+1)
If a(i) Mod 2 = 1 Then
a(i) = a(i) 2 + 1
Else
a(i) = a(i) / 2
End If
Next i
執行程序后,a數組各元素可能是(  )
A.1 3 4 6 7 9 B.1 2 0 3 5 6
C.1 2 3 4 5 4 D.1 3 4 5 1 1
解析 Int(Rnd*5+1)的范圍在[1,5]之間,a(2)范圍在[2,6]之間,進行運算后,a(2)范圍在[1,3];當a(2)=2時,a(3)范圍在[3,7]之間,進行運算后,a(3)范圍在[2,4],排除選項B,再加[1,5],屬于[3,9],進行運算后,a(4)范圍在[2,5],再加[1,5],屬于[3,10],進行運算后,a(5)范圍在[2,5]。
答案 C
10.有如下 VB 程序段:
For i = 4 To 3 Step -1
If a(i) < a(i - 1) Then
 tmp = a(i)
 For j = i - 1 To 1 Step -1
If tmp > a(j) Then Exit For
a(j + 1) = a(j)
 Next j
  a(j + 1) = tmp
End If
Next i
數組元素 a(1)到 a(6)的值依次為“19,8,96,92,85,88”,經過該程序段“加工”后,數組元素 a(1)到 a(6)的值依次為(  )
A.8,19,92,96,85,88 B.8,19,85,88,92,96
C.19,8,92,96,85,88 D.19,8,85,92,96,88
解析 該題分i=4和i=3兩種情況,i=4時,進行插入排序,將92移動96前。I=3時,不滿足a(i) < a(i - 1)。
答案 C
11.某同學編寫了一個VB程序,功能為在文本框Text1中輸入英文字符串,單擊“轉換”按鈕Command1,文本框Text1中的大寫英文字母轉換為小寫,結果顯示在文本框Text2中。部分程序段如下:
s1 = Text1.Text
s2=” ”
For i=1 To Len(s1)
 ch=Mid(s1, i, 1)
 If ch>=”A” And ch<=”Z” Then
′提示:“A”的ASCII碼值為65,“a”的ASCII碼值為97
  
 End If
 s2=s2 & ch
Next i
Text2.Text = s2
要使程序實現上述功能,則方框中的代碼是(  )
A.ch = Chr(Asc(ch) + 32)
B.ch = Asc(Chr(ch) + 32)
C.ch = Chr(Asc(ch) - 32)
D.ch = Str(Val(ch) - 32)
解析 根據程序注釋語句中的提示,可知同一個字母小寫ASCII碼值比大寫ASCII碼值大32,排除C、D選項。函數Chr(X)的功能為查看十進制ASCII碼值對應的字符,函數Asc(X)的功能為查看字符的十進制ASCII碼值。因此A正確。
答案 A
12.已知直角三角形的斜邊長度,利用對分査找算法計算其他兩條整數邊長的VB程序段如下:
flag = True : p = 0
Key = 5
For i = 1 To Key - 1
L = i
____①____
Do While____②____
M = (L + R) 2
p = p + 1
If i * i + M * M < Key * Key Then
     L = M + 1
ElseIf i * i + M * M > Key * Key Then
     R = M - 1
Else
    Text2.Text = Str(i) + ” ” + Str(M) + ” ” + Str(key)
    flag = False
    i = Key
End If
Loop
Next i
If flag Then Text2.Text = ”沒有符合條件的整數勾股數對!”
上述程序段 2 個劃線處的代碼分別為(  )
A.①R=Key-1 ②L<=R And flag
B.①R=Key ②L<=R And flag
C.①R=Key – 1 ②L<=R Or flag
D.①R=Key – 1 ②L<=R And flag=False
解析 L 和R表示兩條直角邊長,R只能比較斜邊短。Flag表示是否找到的標志。
答案 A
二、非選擇題(本大題共4小題,其中第13小題4分,第14小題8分,第15小題7分,第16小題7分,共26分)
13.學校對各班級的文藝匯演成績做了評分,并利用Excel 軟件進行數據處理,部分界面如圖a所示。
圖a
(1)用公式計算出各班級得分,可在I3 單元格輸入公式,再利用自動填充得到其他班級得分,則I6 單元格上的公式為__________。
(2)將各年級最后得分最高的班級設為該年級的一等獎,下列方法可得到高二年級一等獎班級的是__________(多選,填字母)。
A.選擇區域B8:I12,再按“列I”為關鍵詞進行降序排序后,該區域的第1 條記錄為高二年級一等獎班級
B.先篩選出“班級”開頭是“高二”的記錄,再篩選出“最后得分”為最大1 項的記錄,篩選結果即為高二年級一等獎班級
C.先篩選出“最后得分”為最大1 項的記錄,再篩選出“班級”包含“高二”的記錄,篩選結果為高二年級一等獎班級
D.先按“最后得分”升序排序,再篩選出“班級”包含“高二”的紀錄,最后一條記錄為高二年級一等獎班級
(注:全部選對的得2 分,選對但不全的得1 分,不選或有選錯的得0 分)
圖b
(3)根據數據表中的數據制作的圖表如圖b所示,創建該圖表的數據區域為__________。
答案 (1)=(SUM(C6:H6)-MAX(C6:h6)-MIN(C6:H6) (2)AD (3)B2,B8:B12,I2:I8:I12
14.小林創作多媒體作品,請回答下列問題。
(1)使用Photoshop軟件制作一張背景圖片,如下圖所示。
若要使圖a“湖.psd”中“gz”圖層中鴿子出現在夏日.psd中,下列操作可行的是________。
圖a
(多選,填字母:A.使用“復制圖層”命令將“gz”圖層復制到夏日.psd中 /B.將 “gz”圖層直接通過鼠標拖到夏日.psd中 /C.使用魔棒工具(容差為5)選中“gz”圖層中的圖像并進行拷貝后復制粘貼到夏日.psd中 /D.選中 “gz”圖層后,執行“全部”選擇操作,進行拷貝,在夏日.psd中粘貼。)
(2)使用Flash軟件制作動畫,時間軸如圖b所示。
圖b
小林在“鴿子”圖層第50幀設置了動作腳本“stop()”若要使“聲效”圖層中的聲音在動畫播放到第50幀后,仍能持續播放完畢,可設置該聲音的同步為________(選填:事件/數據流)。
(3)在“鴿子”圖層制作鴿子文字漸變成一只鴿子的補間動畫,該動畫屬于________(選填字母:A.逐幀/ B.動畫補間/ C.形狀補間)動畫。
(4)如圖b所示,當前在“按鈕”圖層第50幀應用了“靜音”按鈕,若要使該按鈕始終在當前場景呈現,可進行的操作是__________________________________。
(5)若單擊“靜音”按鈕,停止所有聲音的播放,則在該按鈕上需添加的動作腳本是__________________________________________________________________。
答案 (1)BD (2)事件 (3)C (4)將按鈕圖層第50幀拖曳到第1幀、清除按鈕圖層第1幀的空白關鍵幀(或等效操作) (5)on (release) {stopAllSounds();}
15.如果兩個質數的差為2,則這兩個質數稱為孿生質數對;編寫VB程序,實現如下功能:單擊“顯示孿生質數對”按鈕Command1,在列表框List1中顯示100以內的所有孿生質數對(運行效果如圖所示)。
實現上述功能的VB代碼如下。
Dim a(1 To 50) As Integer
Private Sub Command1_Click()
Dim i As Integer
k = 0:i = 3
Do While i <= 100
 If  Not prime(i) Then   
k = k + 1

 End If 
  i = i + 2
Loop
For i = 2 To k
  If ____①____  Then
 List1.AddItem Str(a(i-1)) +”和” + Str(a(i))
 End If
Next i
End Sub
Function prime(x As Integer) As Boolean
prime = False
For i = 2 To Int(Sqr(x))
 If x Mod i = 0 Then
prime = True
Exit For
 End If
Next i
End Function
(1)語句“List1.AddItem Str(a(i-1))+”和”+Str(a(i))”中的AddItem是________(單選,填字母:A.對象名/B.屬性名/C.事件名/D.方法名)。
(2)程序代碼中,加框處有錯,請改正。
(3)程序代碼中,將①處語句補充完整。
(4)在自定義函數中,函數返回值prime=Flase表示的含義是______。
答案 (1)D (2)a(k)=i (3)a(i) = a(i -1)+2
(4)數x是質數
16.給出只包含加、減、乘、除中一個運算符的算術等式,求該算術等式中的最小進制。如等式6*9=42,該等式中的數字均屬于13進制。推算的算法是:
1)找出等式中單個數字的最大值;
2)從最大值加1的數制開始,按該數制的運算規則,把等式中所有數字轉換成十進制數;
3)如果等式兩邊的結論是成立的,那么該數制就是符合上述等式的最小數制,否則從下一個數制重新計算,直到十六進制為止。
小明為此編寫了一個VB程序,程序運行時,在文本框Text1中輸入一個等式,單擊“計算”按鈕Command1,在文本框Text2中顯示該等式中數字所屬的數制。程序運行界面如下圖所示。
(1)根據上述算法,則等式“5+7=13”成立,則該等式中的數屬于________進制數。
(2)實現上述功能的VB程序如下,請在劃線處填入合適的代碼。
Private Sub Command1_Click()
Dim s1 As String, ysf As String, t1 As String, t2 As String, t3 As String
Dim ch As String, t As String, max As Integer, jz As Integer, i As Integer
s1=Text1.Text
t1=0: max=0
For i=1 To Len(s1)
ch=Mid(s1, i, 1)
If ch=”+” Or ch=”-” Or ch=”*” Or ch=”\” Then
    ysf=ch: t1=t: t=” ”
ElseIf ch=”=” Then
    t2=t: t=” ”
ElseIf ch >= ”A” And ch <= ”F” Then
    t=t+ch
    temp=____①____
    If max < temp Then max=temp
Else
    t=t+ch
    If max < Val(ch) Then max=Val(ch)
End If
Next i
t3=t: jz=0
_____②____
Do While i <= 16
If ysf=”+” Then
    If XtoD(i, t1)+XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
ElseIf ysf=”-” Then
    If XtoD(i, t1) - XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
ElseIf ysf=”*” Then
    If XtoD(i, t1) * XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
Else
    If XtoD(i, t1) / XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
End If
i=i+1
Loop
If jz <> 0 Then
Text2.Text=”該數屬于” +Str(jz)+”進制”
Else
Text2.Text=”沒有找到合適的進制”
End If
End Sub
Function XtoD(x As Integer, s As String) As Integer
Dim j As Integer
j=0
For i=Len(s) To 1 Step -1
XtoD=XtoD+Val(Mid(s, i, 1)) * x ^ j
  ____③____
Next i
End Function
答案 (1)9或九 (2)①Asc(ch) - Asc(”A”)+10 ②i=max+1 ③j=j+1
浙江省普通高校招生選考科目考試
信息技術試題(一)
一、選擇題(本大題共12小題,每小題2分,共24分。在每小題給出的四個選項中,只有一個符合題目要求)
1.下列有關信息的說法,不正確的是(  )
A.Python程序設計語言也是一種信息
B.給微信朋友圏點贊也是一種信息評價方式
C.信息在傳輸過程中,必須遵循一定的規則
D.對相關數據進行加工處理,使數據之間建立相互聯系,從而形成信息
2.下列有關網頁與瀏覽器的說法,不正確的是 (  )
A.網頁的三種基本元素是文字、圖形圖像和超鏈接
B.網頁內容是用HTML(超文本標記語言)進行描述的
C.瀏覽器中收藏的網頁,在沒有接入網絡的狀態下也能進行瀏覽
D.瀏覽器中以“*.txt”格式另存網頁,網頁中的超鏈接不能被保存
3.使用Access軟件編輯數據表,部分界面如圖所示。 下列說法正確的是(  )
A.“ID”字段名不能進行修改
B.第1條記錄被刪除后不能撤銷
C.在當前視圖下,“票價”字段被刪除后可用撤銷來恢復
D.將數據導出到Excel電子表格后,“3D”列的內容將顯示為“是”或“否”
4.使用UltraEdit軟件查看字符“如果 A<>0 then b=b/A”內碼,部分界面如圖所示。
下列說法正確的是 (  )
A.存儲上述字符需要20個Byte
B.“a-z”字符內碼值都比“A-Z”字符的內碼值小
C.字符“D”的內碼用二進制表示為“01100100”
D.使用UltraEdit軟件查看字符,字符個數超過15個的時候會自動換行
5.下列關于多媒體技術的說法,正確的是(  )
A.多媒體技術中的媒體是指承載信息的載體.如文字、聲音、圖形和圖像等
B.多媒體數據壓縮標準中,MPEG是靜態圖像壓縮標準
C.某軟件能根據文本內容自動朗讀,該功能主要應用了多媒體技術中的語音識別技術
D.智能手機的指紋識別功能,主要應用了多媒體技術中的OCR技術
6.使用GoldWave軟件編輯某音頻文件,選擇其中一段音頻后的部分界面如圖所示。
下列說法錯誤的是(  )
A.從當前位置開始播放5秒,只能聽到一個聲道的聲音
B.選中部分在中間的位置,不能作淡入處理
C.復制其他文件的聲音,執行“粘貼”命令,會替換當前部分聲音
D.在當前狀態下,執行刪除或剪裁命令,兩次分別保存后的文件容量是相同的
7.某算法流程圖如下圖所示。
執行該算法,下列說法正確的是(  )
A.變量i的值是21 B.語句i=i+1執行了5次
C.變量s的值為10 D.語句i<=20被執行了5次
8.產生一個在[10,99]中隨機奇數的VB表達式是(  )
A.11 + Int(Rnd * 99) B.11 + Int(Rnd * 45)*2
C.11 + Int(Rnd * 89) D.10 + Int( Rnd * 90)
9.有如下VB程序段:
a(1) = 1
For i = 2 To 6
a(i)=a(i-1)+Int(Rnd*5+1)
If a(i) Mod 2 = 1 Then
a(i) = a(i) 2 + 1
Else
a(i) = a(i) / 2
End If
Next i
執行程序后,a數組各元素可能是(  )
A.1 3 4 6 7 9 B.1 2 0 3 5 6
C.1 2 3 4 5 4 D.1 3 4 5 1 1
10.有如下 VB 程序段:
For i = 4 To 3 Step -1
If a(i) < a(i - 1) Then
 tmp = a(i)
 For j = i - 1 To 1 Step -1
If tmp > a(j) Then Exit For
a(j + 1) = a(j)
 Next j
  a(j + 1) = tmp
End If
Next i
數組元素 a(1)到 a(6)的值依次為“19,8,96,92,85,88”,經過該程序段“加工”后,數組元素 a(1)到 a(6)的值依次為(  )
A.8,19,92,96,85,88 B.8,19,85,88,92,96
C.19,8,92,96,85,88 D.19,8,85,92,96,88
11.某同學編寫了一個VB程序,功能為在文本框Text1中輸入英文字符串,單擊“轉換”按鈕Command1,文本框Text1中的大寫英文字母轉換為小寫,結果顯示在文本框Text2中。部分程序段如下:
s1 = Text1.Text
s2=” ”
For i=1 To Len(s1)
 ch=Mid(s1, i, 1)
 If ch>=”A” And ch<=”Z” Then
′提示:“A”的ASCII碼值為65,“a”的ASCII碼值為97
  
 End If
 s2=s2 & ch
Next i
Text2.Text = s2
要使程序實現上述功能,則方框中的代碼是(  )
A.ch = Chr(Asc(ch) + 32)
B.ch = Asc(Chr(ch) + 32)
C.ch = Chr(Asc(ch) - 32)
D.ch = Str(Val(ch) - 32)
12.已知直角三角形的斜邊長度,利用對分査找算法計算其他兩條整數邊長的VB程序段如下:
flag = True : p = 0
Key = 5
For i = 1 To Key - 1
L = i
____①____
Do While____②____
M = (L + R) 2
p = p + 1
If i * i + M * M < Key * Key Then
     L = M + 1
ElseIf i * i + M * M > Key * Key Then
     R = M - 1
Else
    Text2.Text = Str(i) + ” ” + Str(M) + ” ” + Str(key)
    flag = False
    i = Key
End If
Loop
Next i
If flag Then Text2.Text = ”沒有符合條件的整數勾股數對!”
上述程序段 2 個劃線處的代碼分別為(  )
A.①R=Key-1 ②L<=R And flag
B.①R=Key ②L<=R And flag
C.①R=Key – 1 ②L<=R Or flag
D.①R=Key – 1 ②L<=R And flag=False
二、非選擇題(本大題共4小題,其中第13小題4分,第14小題8分,第15小題7分,第16小題7分,共26分)
13.學校對各班級的文藝匯演成績做了評分,并利用Excel 軟件進行數據處理,部分界面如圖a所示。
圖a
(1)用公式計算出各班級得分,可在I3 單元格輸入公式,再利用自動填充得到其他班級得分,則I6 單元格上的公式為__________。
(2)將各年級最后得分最高的班級設為該年級的一等獎,下列方法可得到高二年級一等獎班級的是__________(多選,填字母)。
A.選擇區域B8:I12,再按“列I”為關鍵詞進行降序排序后,該區域的第1 條記錄為高二年級一等獎班級
B.先篩選出“班級”開頭是“高二”的記錄,再篩選出“最后得分”為最大1 項的記錄,篩選結果即為高二年級一等獎班級
C.先篩選出“最后得分”為最大1 項的記錄,再篩選出“班級”包含“高二”的記錄,篩選結果為高二年級一等獎班級
D.先按“最后得分”升序排序,再篩選出“班級”包含“高二”的紀錄,最后一條記錄為高二年級一等獎班級
(注:全部選對的得2 分,選對但不全的得1 分,不選或有選錯的得0 分)
圖b
(3)根據數據表中的數據制作的圖表如圖b所示,創建該圖表的數據區域為__________。
14.小林創作多媒體作品,請回答下列問題。
(1)使用Photoshop軟件制作一張背景圖片,如下圖所示。
若要使圖a“湖.psd”中“gz”圖層中鴿子出現在夏日.psd中,下列操作可行的是________。
圖a
(多選,填字母:A.使用“復制圖層”命令將“gz”圖層復制到夏日.psd中 /B.將 “gz”圖層直接通過鼠標拖到夏日.psd中 /C.使用魔棒工具(容差為5)選中“gz”圖層中的圖像并進行拷貝后復制粘貼到夏日.psd中 /D.選中 “gz”圖層后,執行“全部”選擇操作,進行拷貝,在夏日.psd中粘貼。)
(2)使用Flash軟件制作動畫,時間軸如圖b所示。
圖b
小林在“鴿子”圖層第50幀設置了動作腳本“stop()”若要使“聲效”圖層中的聲音在動畫播放到第50幀后,仍能持續播放完畢,可設置該聲音的同步為________(選填:事件/數據流)。
(3)在“鴿子”圖層制作鴿子文字漸變成一只鴿子的補間動畫,該動畫屬于________(選填字母:A.逐幀/ B.動畫補間/ C.形狀補間)動畫。
(4)如圖b所示,當前在“按鈕”圖層第50幀應用了“靜音”按鈕,若要使該按鈕始終在當前場景呈現,可進行的操作是__________________________________。
(5)若單擊“靜音”按鈕,停止所有聲音的播放,則在該按鈕上需添加的動作腳本是__________________________________________________________________。
15.如果兩個質數的差為2,則這兩個質數稱為孿生質數對;編寫VB程序,實現如下功能:單擊“顯示孿生質數對”按鈕Command1,在列表框List1中顯示100以內的所有孿生質數對(運行效果如圖所示)。
實現上述功能的VB代碼如下。
Dim a(1 To 50) As Integer
Private Sub Command1_Click()
Dim i As Integer
k = 0:i = 3
Do While i <= 100
 If  Not prime(i) Then   
k = k + 1

 End If 
  i = i + 2
Loop
For i = 2 To k
  If ____①____  Then
 List1.AddItem Str(a(i-1)) +”和” + Str(a(i))
 End If
Next i
End Sub
Function prime(x As Integer) As Boolean
prime = False
For i = 2 To Int(Sqr(x))
 If x Mod i = 0 Then
prime = True
Exit For
 End If
Next i
End Function
(1)語句“List1.AddItem Str(a(i-1))+”和”+Str(a(i))”中的AddItem是________(單選,填字母:A.對象名/B.屬性名/C.事件名/D.方法名)。
(2)程序代碼中,加框處有錯,請改正。
(3)程序代碼中,將①處語句補充完整。
(4)在自定義函數中,函數返回值prime=Flase表示的含義是______。
16.給出只包含加、減、乘、除中一個運算符的算術等式,求該算術等式中的最小進制。如等式6*9=42,該等式中的數字均屬于13進制。推算的算法是:
1)找出等式中單個數字的最大值;
2)從最大值加1的數制開始,按該數制的運算規則,把等式中所有數字轉換成十進制數;
3)如果等式兩邊的結論是成立的,那么該數制就是符合上述等式的最小數制,否則從下一個數制重新計算,直到十六進制為止。
小明為此編寫了一個VB程序,程序運行時,在文本框Text1中輸入一個等式,單擊“計算”按鈕Command1,在文本框Text2中顯示該等式中數字所屬的數制。程序運行界面如下圖所示。
(1)根據上述算法,則等式“5+7=13”成立,則該等式中的數屬于________進制數。
(2)實現上述功能的VB程序如下,請在劃線處填入合適的代碼。
Private Sub Command1_Click()
Dim s1 As String, ysf As String, t1 As String, t2 As String, t3 As String
Dim ch As String, t As String, max As Integer, jz As Integer, i As Integer
s1=Text1.Text
t1=0: max=0
For i=1 To Len(s1)
ch=Mid(s1, i, 1)
If ch=”+” Or ch=”-” Or ch=”*” Or ch=”\” Then
    ysf=ch: t1=t: t=” ”
ElseIf ch=”=” Then
    t2=t: t=” ”
ElseIf ch >= ”A” And ch <= ”F” Then
    t=t+ch
    temp=____①____
    If max < temp Then max=temp
Else
    t=t+ch
    If max < Val(ch) Then max=Val(ch)
End If
Next i
t3=t: jz=0
_____②____
Do While i <= 16
If ysf=”+” Then
    If XtoD(i, t1)+XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
ElseIf ysf=”-” Then
    If XtoD(i, t1) - XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
ElseIf ysf=”*” Then
    If XtoD(i, t1) * XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
Else
    If XtoD(i, t1) / XtoD(i, t2)=XtoD(i, t3) Then jz=i: Exit Do
End If
i=i+1
Loop
If jz <> 0 Then
Text2.Text=”該數屬于” +Str(jz)+”進制”
Else
Text2.Text=”沒有找到合適的進制”
End If
End Sub
Function XtoD(x As Integer, s As String) As Integer
Dim j As Integer
j=0
For i=Len(s) To 1 Step -1
XtoD=XtoD+Val(Mid(s, i, 1)) * x ^ j
  ____③____
Next i
End Function

展開更多......

收起↑

資源列表

<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. 主站蜘蛛池模板: 桦川县| 商水县| 湘潭市| 宁陵县| 东港市| 洪湖市| 济宁市| 米泉市| 莱西市| 如东县| 张北县| 绿春县| 堆龙德庆县| 革吉县| 凭祥市| 巴彦淖尔市| 漾濞| 建德市| 长葛市| 黄平县| 陕西省| 体育| 竹山县| 龙岩市| 华容县| 旌德县| 林甸县| 温宿县| 固始县| 石林| 恩平市| 古田县| 西充县| 星座| 新密市| 涪陵区| 中西区| 乌兰浩特市| 章丘市| 城市| 曲松县|