2018-2019學年浙江省臺州市書生中學高二（下）第一次月考信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）
-
1．下列有關信息的說法，不正確的是（ ）
組卷：36引用：1難度：0.7 -
2．使用 Word 軟件編輯某文檔，部分界面如圖所示。
下列說法正確的是（ ）組卷：23引用：2難度：0.4 -
3．關于多媒體的一些說法中，下列說法正確的是（ ）
組卷：17引用：1難度：0.5 -
4．關于Access數據庫和數據表，下列說法正確的是（ ）
組卷：16引用：2難度：0.4 -
5．某算法的部分流程圖如圖所示，若輸入m的值是5，執行這部分流程后，變量s和i的值是（ ）
組卷：8引用：3難度：0.4
二、非選擇題：（本大題共5小題，其中第13題4分，第14題5分，第15題8分，第16題3分，第17題6分，共26分）
-
16．對學生數據排序，排序后男生在前，女生在后，（“M”表示男，“F”表示女），男生和女生分別按“姓名”升序排序。編寫一個 VB 程序，功能如下：在列表框 list1 中顯示排序前學生數據，單擊“排序”按鈕 Command1，在列表框 list2 中顯示排序后的結果。程序運行界面如圖所示。
實現上述功能的 VB 程序如下，但加框處代碼有錯，請改正。
Const n=10
Dim xm（1 To n）As String,xb（1 To n）As String
Function adj（sAs String,n As Integer） As String
'函數功能：在字符串 s 后添加若干個空格，使其長度變為 n,代碼略。
End Function
Private Sub Form1_Load （ ）
'讀取 10 個學生姓名和性別分別存數組 xm、xb,
并在列表框 list1 中顯示，代碼略。
End Sub
Private Sub Command1_Click （ ）
Dim i As Integer,jAs Integer
i=1
Do While i＜=n-1
'（1）
Do While j＞=i+1
If xb（j）=“M“And xb（j-1）=“F“Or
Then'（2）
temp=xm（j）：xm（j）=xm（j-1）：xm（j-1）=temp
temp=xb（j）：xb（j）=xb（j-1）：xb（j-1）=temp
End If
j=j-1
Loop
i=i+1
Loop
For i=1 To n
List2．AddItem adj（xm（i），12）+““+xb（i）
Next i
End Sub組卷：0引用：1難度：0.9 -
17．一個簡單的四則混合運算式子（算式中只包含整數、+、-、*、/、=）的運算規則是先進行“*”或“/”，再進行“+”或“-”，下列是用 VB 編寫的簡單四則混合運算的程序，運行程序時在文本框 Text1 中輸入四則運算式子，單擊命令按鈕 Command1，在標簽Label1 中輸出結果。程序界面及代碼如下。請回答以下問題。
（1）若在文本框 Text1 中輸入式子“12*5-32/4+20=”，則運行程序后在標簽 Label1 中顯示的內容是。
（2）請在劃線①②③處填入合適的代碼，讓程序能實現計算功能。
Private Sub Command1_Click （ ）
Dim a（1 To 100）As Single,b（0 To 100）As String
Dim s As String,c As String
Dim sz As Integer,i As Integer,k As Integer
s=Text1．Text：k=0
For i=1 To Len（s）
c=Mid（s,i,1）
If c＞=“0“And c＜=“9“Then
sz=0
Do While c＞=“0“And c＜=“9“
sz=①
i=i+1
c=Mid（s,i,1）
Loop
k=k+1：a（k）=sz：b（k）=c
End If
Do While k＞1 And ②
If b（k-1）=“+“Then a（k-1）=a（k-1）+a（k）
If b（k-1）=“-“Then a（k-1）=a（k-1）-a（k）
If b（k-1）=“*“Then a（k-1）=a（k-1）*a（k）
If b（k-1）=“/“Then a（k-1）=a（k-1）/a（k）
b（k-1）=b（k）
k=k-1
Loop
Next i
Label1．Caption=“運算的結果是：“+Str（a（1））
End Sub
Function yxj（x As String） As Integer
If x=“*“Or x=“/“Then
yxj=1
ElseIf x=“+“Or x=“-“Then
yxj=2
Else
③
End If
End Function組卷：10引用：1難度：0.4