2018-2019學年浙江省溫州市九校聯(lián)考高三(上)第一次聯(lián)考信息技術試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分.在每小題給出的四個選項中,只有一個符合題目要求)
-
1.下列說法正確的是( ?。?/h2>
組卷:9引用:1難度:0.5 -
2.小明通過訪問“https:∥mail.qq.jye.ai”,登錄自己的郵箱并成功發(fā)送了一封郵件給老師,此過程 中未涉及的協(xié)議是( ?。?/h2>
組卷:7引用:3難度:0.8 -
3.使用 word 軟件編輯某文檔,部分界面如圖所示:
下列說法正確的是( ?。?/h2>組卷:7引用:1難度:0.4 -
4.使用Access軟件打開數(shù)據(jù)庫,部分界面如圖所示,下列說法正確的是( ?。?img alt="菁優(yōu)網" src="https://img.jyeoo.net/quiz/images/201810/206/aa7a0311.png" style="vertical-align:middle" />
組卷:5引用:1難度:0.4 -
5.使用 UltraEdit 軟件觀察字符的內碼界面如圖所示,下列說法正確的是( ?。?br />
組卷:11引用:1難度:0.5
二、非選擇題(本大題共5小題,第13小題4分,第14小題5分,第15小題8分,第16小題3分,第17小題6分,共26分)
-
16.對 n 個互不相同的整數(shù)(整數(shù)的最大值不超過 m)進行排序,排序要求如下:①奇 數(shù)在前,偶數(shù)在后;②奇數(shù)升序排序;③偶數(shù)降序排序。小劉用 VB 編寫了實現(xiàn)上述功能的程序。 程序運行時,自動產生 n 個不同的隨機數(shù)存儲在數(shù)組 a 中,并在列表框 List1 中顯示。單擊按鈕 Command1 后,按要求在列表框 List2 中輸出排序后的結果。
實現(xiàn)上述功能的 VB 程序如下,但加框處代碼有錯,請改正。
Const n=15
Const m=100'整數(shù)的最大值
Dim a(1 To n) As Integer
Private Sub Form_Load( ?。?br />'本過程產生 n 個不同隨機數(shù)存儲在數(shù)組 a 中,并在列表框 List1 中顯示
End Sub
Private Sub Command1_Click( ?。?br />Dim i As Integer
Dim flag(1 To m) As Boolean'flag(i)=True 代表數(shù)組 a 中存在值為 i 的元素
For i=1 To m flag(i)=False
Next i
For i=1 To n
①
Next i
For i=1 To m-1 Step 2
If flag(i) Then List2.AddItem Str(i) Next i
For ②
If flag(i) Then List2.AddItem Str(i) Next i
End Sub組卷:2引用:1難度:0.5 -
17.小明編寫了一個求真分數(shù)精確值的 VB 程序。程序運行時,在文本框 Text1 中輸入被 除數(shù),在文本 Text2 中輸入除數(shù),并保證被除數(shù)小于除數(shù),單擊“計算”按鈕 Command1,在 標簽 Label3 中顯示結果。如果無限小數(shù)的小數(shù)點后,從某一位起向右進行到某一位止的一節(jié)數(shù) 字循環(huán)出現(xiàn),首尾銜接,稱這種小數(shù)為循環(huán)小數(shù),這一節(jié)數(shù)字稱為循環(huán)節(jié)。如果商為循環(huán)小數(shù) 保留一個循環(huán)節(jié),否則最多計算到第 20 位。程序運行界面如下圖所示。
(1)運行程序,在文本框 Text1 中輸入被除數(shù) 13,在文本框 Text2 中輸入除數(shù) 99,單擊“計算”按鈕 Command1,在標簽 Label3 中顯示的結果是
(2)實現(xiàn)上述功能的 VB 程序如下,請在橫線處填入合適的代碼。
Dim a(1 To 20)As Integer,b(1 To 20)As Integer
Private Sub Command1_Click( ?。?br />Dim m As Integer,n As Integer,pa As Integer,pb As Integer
Dim flag As Boolean,s As String m=Val(Text1.Text)
n=Val(Text2.Text)
s=Str(m)+“/“+Str(n)+“=“s=s+“0.“
pa=1:pb=1:flag=True b(1)=m
m=m*10
Do While pa<=20 And fla g=True a(pa)=m\n
If a(pa)>0 Then pb=pb+1
①
m=b(pb)*10
Else
m=m*10
End If
flag=Jud(pb)
If b(pb)=0 Then flag=False s= ②
pa=pa+1
Loop
Label3.Caption=s
End Sub
Function Jud(x As Integer) As Boolean
Dim i As Integer
For i=1 To x-1
If ③Then
Jud=False
Exit Function'退出自定義函數(shù)
End If
Next i
Jud=True
End Function組卷:0引用:1難度:0.9