資源簡介

(
…………○…………外…………○…………裝…………○…………訂…………○…………線…………○…………
) (
※※請※※不※※要※※在※※裝※※訂※※線※※內※※答※※題※※
) (
…………○…………內…………○…………裝…………○…………訂…………○…………線…………○…………
)
登陸二一教育在線組卷平臺 助您教考全無憂
內蒙古自治區巴彥淖爾市臨河區第三高級中學2022屆高三上學期信息技術第一次月考（計算機班）VB試卷
一、選擇題：本題共20小題，每小題2分，共40分。
1.（2021高三上·臨河月考）以下敘述中錯誤的是（ ）
A. 打開一個工程文件時，系統自動裝入與該工程有關的窗體文件
B. 保存VB程序時，應分別保存窗體文件、工程文件和模塊文件
C. 由于VB屬于高級語言，所以其程序不能以解釋方式執行
D. 一個工程可以添加多個模塊文件
2.（2021高三上·臨河月考）將數據和程序（ ）起來的一個邏輯實體稱為“對象”
A. 連接 B. 封裝 C. 串接 D. 調試
3.（2021高三上·臨河月考）如果一個變量N未經定義就直接賦值即N＝3.1415，則該變量的類型為（ ）
A. Variant B. Single C. Double D. Integer
4.（2021高三上·臨河月考）事件的名稱必須是（ ）
A. 窗體所能識別的 B. 能夠被用戶觸發的
C. 對象所能識別的 D. 該事件有對應的方法可執行
5.（2021高三上·臨河月考）以下不符合VB語法的常量是（ ）
A. 20－10 B. ”電腦” C. true D. 2.6E+01
6.（2021高三上·臨河月考）在VB中，數據100&的類型是（ ）
A. 單精度型 B. 雙精度型 C. 整型 D. 長整型
7.（2021高三上·臨河月考）設有語句：x=InputBox("輸入數值"，"0"，"示例") 程序運行后，如果從鍵盤上輸入數值10，并按回車鍵，則下列敘述中正確的是（ ）
A. 變量X的值是數值“示例” B. 在InputBox對話框標題欄中顯示的是"示例"
C. 0是默認值 D. 變量X的值是字符串"10"
8.（2021高三上·臨河月考）下列屬性中屬于邏輯型的是（ ）
A. Caption B. BorderStyle C. Visible D. Name
9.（2021高三上·臨河月考）窗體上有一個名為Label1的標簽，為了使該標簽透明并且沒有邊框，正確的屬性設置為（ ）
A. Label1.BackStyle=0： Label1.BorderStyle=0
B. Label1.BackStyle=1： Label1.BorderStyle=1
C. Label1.BackStyle=true： Label1.BorderStyle=true
D. Label1.BackStyle=False： Label1.BorderStyle=False
10.（2021高三上·臨河月考）設窗體上有一個文本框，名稱為Text1，程序運行后，要求該文本框只能顯示信息，不能接收輸入的信息，以下能實現該操作的語句是（ ）
A. Text1.MaxLength=0 B. Text1.Enabled=False
C. Text1.Visible=False D. Text1.Width=0
11.（2021高三上·臨河月考）命令按鈕不支持的事件是（ ）
A. Click B. DblClick C. GotFocus D. LostFocus
12.（2021高三上·臨河月考）命令按鈕command1的事件過程如下：
Private sub command1_click( )
X=inputbox(“輸入：”,“輸入整數”)
Msgbox “輸入的數據是：”,, “輸入數據：”+X
End sub
程序運行后，單擊command1，從鍵盤上輸入數據10，則以下敘述中錯誤的是（ ）
A. X的值是數值型數據10 B. 輸入對話框的標題是“輸入整數”
C. 信息框的標題是“輸入數據：10” D. 信息框中的顯示是“輸入的數據是：”
13.（2021高三上·臨河月考）運行以下程序段后，輸出結果為（ ）
X%=1/4
Y%=11/4
Print x%;y%
A. 0.25 0.75 B. 1 3 C. 0 2 D. 0 3
14.（2021高三上·臨河月考）若變量X＝1，則執行語句if x then x=0 else x=1后，X的值是（ ）
A. 0 B. 1 C. 實時錯誤 D. 編譯錯誤
15.（2021高三上·臨河月考）設a=2,b=3,c=4,d=5,下列表達式的值是 3>2*b OR a=c AND b<>c OR c>d （ ）
A. 1 B. True C. False D. -1
16.（2021高三上·臨河月考）運行下面程序段時，若從鍵盤輸入－5，則變量Y的值是（ ）
X=-5
A=val(inputbox(“請輸入A的值：”))
Select case a
Case is>0
Y=x+1
Case is =0
Y=x+2
Case else
Y=x+3
End select
A. －5 B. －2 C. －4 D. －3
17.（2021高三上·臨河月考）有如下程序段
X=2
For i = 1 to 10 step 2
x=x+i
Next i
運行程序后，X的值是（ ）
A. 26 B. 27 C. 38 D. 57
18.（2021高三上·臨河月考）已知X和Y是字符型變量，運行下面程序段后，變量Y的值是（ ）
X=“ABCDEFG”
For i =4 to 1 setp -1
y=y+mid(x, i, 1)
Next i
A. ABCD B. DCBA C. DEFG D. GFED
19.（2021高三上·臨河月考）以下程序段的輸出結果是（ ）
x=1
y=4
Do Until y>4
x=x*y
y=y+1
Loop
Print x
A. 1 B. 4 C. 8 D. 20
20.（2021高三上·臨河月考）執行下面的程序段后，i的值為( )
X=5
For i = 1 TO 20 STEP 2
x=x+i^2
Next i
A. 21 B. 22 C. 1335 D. 50
二、填空題(每空1分，共10分)
21.（2021高三上·臨河月考）可以在中斷狀態下查詢對象值的窗口是 。
22.（2021高三上·臨河月考）在VB中，發生在對象上且能被對象識別的動作稱為 。
23.（2021高三上·臨河月考）當Rem放在某語句后，必須用“ ”分隔，否則會出錯。
24.（2021高三上·臨河月考）表達式7 + 33 \ 6 * 7 / 8 Mod 2的值是 。
25.（2021高三上·臨河月考）同時具有列表框與文本框功能的控件是 。
26.（2021高三上·臨河月考）設有如下程序段：a$= " beijingshanghai ":b$=mid(a$,instr(a$, "g")+6)執行上面的程序段后，變量b$的值為 。
27.（2021高三上·臨河月考）循環結構for I = 5.5 to 0 step -2的循環次數是
28.（2021高三上·臨河月考）若要設置文本框的滾動條生效，必須先把 屬性設置為True。
29.（2021高三上·臨河月考）在窗體上畫兩個文本框Text1和Text2和一個命令按鈕Command1然后在命令按鈕的代碼窗口中編寫如下事件過程:
Private Sub Command1_Click( )
Text1.Text="Vb Programming"
Text2.Text=Text1.Text
Text1.Text="ABCD"
End Sub
程序運行后，單擊命令按鈕，文本框Text1中顯示的內容為 ；文本框Text2中顯示的內容為
三、程序填空題（每空2分，共50分）
30.（2021高三上·臨河月考）以下程序執行后將輸出100到200之間所有的素數，并統計素數的個數
Private Sub Form_Click( )
Dim i%, j%, k%, t% 't為統計素數的個數
Dim b As Boolean
For i = 100 To 200
b = True
k=
j = Int(Sqr(i))
Do While k <= j And b
If i Mod k = 0 Then

End If

Loop
if b=true then
t = t + 1
Form1.Print i
End If
Next i
Print "t="; t
End Sub
31.（2021高三上·臨河月考）下面這段程序是從3個數中找出最小值
Dim x%,y%,z%,min%
X=val(inputbox(“請輸入X的值”))
Y=val(inputbox(“請輸入Y的值”))
Z=val(inputbox(“請輸入Z的值”))
If then
Min=y
Else
Min=x
End if
If zPrint “最小值是：”;min
32.（2021高三上·臨河月考）下列程序的功能是找出被5、7除，余數為1的最小5個正整數。
Private Sub Form_Click()
Dim Ncount%, n%
Ncount =
n = 1
Do
If Then
Print n
Ncount = Ncount + 1
End If
n = n + 1
Loop Until =5
End Sub
33.（2021高三上·臨河月考）完善程序，使其能輸出1-2+3-4+5-6+……+99-100的值。程序如下：
Private Sub Command1_Click()
S=
For i = 1 To
S = S+((-1)^( )) *i
Next i
Print s
End Sub
34.（2021高三上·臨河月考）以下程序運行時，用戶可以在文本框Text1中輸入文本，單擊command1“添加”按鈕后將文本中輸入的內容加到列表框的末尾，用戶選某列表框的某一個列表項后，單擊command2“刪除”按鈕，將刪除該列表項；如果沒有任何一項選中，將有出錯提示"先選擇，再刪除！"。
Private Sub Command1_Click() '添加按鈕
If Len(Text1.Text) <> 0 Then

Text1.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click() '刪除按鈕
If Then
MsgBox "先選擇，再刪除！"
Else

End If
End Sub
35.（2021高三上·臨河月考）下面的程序是求100以內奇數和s的值，請將程序補充完整。
Private Sub Command1_Click( )
Dim s As Single
Dim i As Single
s = _
For i = 1 To 100 Step

Next
Print
End Sub
36.（2021高三上·臨河月考）在窗體上添加1個列表框、1個命令按鈕和1個標簽，其名稱分別為List1，Command1和Label1,通過屬性窗口把列表框中的項目設置為“第一個項目”，“第二個項目”，“第三個項目”，“第四個項目”。程序運行后，在列表框中選擇一個項目，然后單擊命令按鈕 ，將所選擇的項目刪除，并在標簽中顯示列表框當前的項目數。將程序補充完整。
Private Sub Command1_Click()
If List1.ListIndex >= Then
List1.RemoveItem
Label1.Caption =
Else
MsgBox "請選擇要刪除的項目"

End Sub
37.（2021高三上·臨河月考）在窗體上畫一個標簽（名稱為label1）和一個計時器（名稱為timer1），然后編寫如下幾個事件過程：。程序運行后，單擊窗體，將在標簽中顯示當前時間，每隔1秒鐘變換1次。
Private sub form_load( )
Timer1.enabled=false
Timer1.interval=
End sub
Private sub form_click( )
Timer1.enabled=
End sub
Private sub timer1_timer( )
Label1.caption=time
End sub
答案解析部分
一、選擇題：本題共20小題，每小題2分，共40分。
1.【答案】 C
【考點】程序的保存與發布，程序的創建
【解析】
2.【答案】 B
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用
【解析】
3.【答案】 A
【考點】常量、變量及變量的賦值
【解析】
4.【答案】 C
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用
【解析】
5.【答案】 A
【考點】常量、變量及變量的賦值
【解析】
6.【答案】 D
【考點】常見數據類型、數組
【解析】
7.【答案】 D
【考點】基本語句
【解析】
8.【答案】 C
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用
【解析】
9.【答案】 A
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用
【解析】
10.【答案】 B
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用
【解析】
11.【答案】 B
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用
【解析】
12.【答案】 A
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用，基本語句
【解析】
13.【答案】 D
【考點】運算符、基本運算與表達式
【解析】
14.【答案】 A
【考點】分支結構語句及程序實現
【解析】
15.【答案】 C
【考點】運算符、基本運算與表達式
【解析】
16.【答案】 B
【考點】分支結構語句及程序實現
【解析】
17.【答案】 B
【考點】循環結構語句及程序實現
【解析】
18.【答案】 B
【考點】循環結構語句及程序實現
【解析】
19.【答案】 B
【考點】循環結構語句及程序實現
【解析】
20.【答案】 B
【考點】循環結構語句及程序實現
【解析】
二、填空題(每空1分，共10分)
21.【答案】 立即窗口
【考點】程序設計工具及編程環境
【解析】
22.【答案】 事件
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用
【解析】
23.【答案】 冒號 或 :
【考點】語句注釋及縮進
【解析】
24.【答案】 7
【考點】運算符、基本運算與表達式
【解析】
25.【答案】 組合框
【考點】程序設計工具及編程環境
【解析】
26.【答案】 “hai”
【考點】常量、變量及變量的賦值
【解析】
27.【答案】 3
【考點】循環結構語句及程序實現
【解析】
28.【答案】 multiline
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用
【解析】
29.【答案】 “ABCD”；“Vb Programming”
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用，順序結構及程序實現
【解析】
三、程序填空題（每空2分，共50分）
30.【答案】 2；b = False；k = k + 1
【考點】分支結構語句及程序實現，循環結構語句及程序實現，常用標準函數
【解析】
31.【答案】 0；n Mod 5 = 1 And n Mod 7 = 1
【考點】分支結構語句及程序實現
【解析】
32.【答案】 0；n Mod 5 = 1 And n Mod 7 = 1；Ncount
【考點】分支結構語句及程序實現，循環結構語句及程序實現
【解析】
33.【答案】 0；100；]i+1
【考點】循環結構語句及程序實現
【解析】
34.【答案】 List1.AddItem Text1.Text；List1.ListIndex = -1；List1.RemoveItem List1.ListIndex
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用，分支結構語句及程序實現
【解析】
35.【答案】 0；2；s=s+i；i；s
【考點】循環結構語句及程序實現
【解析】
36.【答案】 0；List1.ListIndex；List1.ListCount；end if
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用，分支結構語句及程序實現
【解析】
37.【答案】 1000；True
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用，順序結構及程序實現
【解析】
1 / 1(
…………○…………外…………○…………裝…………○…………訂…………○…………線…………○…………
) (
※※請※※不※※要※※在※※裝※※訂※※線※※內※※答※※題※※
) (
…………○…………內…………○…………裝…………○…………訂…………○…………線…………○…………
)
登陸二一教育在線組卷平臺 助您教考全無憂
內蒙古自治區巴彥淖爾市臨河區第三高級中學2022屆高三上學期信息技術第一次月考（計算機班）VB試卷
一、選擇題：本題共20小題，每小題2分，共40分。
1.（2021高三上·臨河月考）以下敘述中錯誤的是（ ）
A. 打開一個工程文件時，系統自動裝入與該工程有關的窗體文件
B. 保存VB程序時，應分別保存窗體文件、工程文件和模塊文件
C. 由于VB屬于高級語言，所以其程序不能以解釋方式執行
D. 一個工程可以添加多個模塊文件
【答案】 C
【考點】程序的保存與發布，程序的創建
【解析】
2.（2021高三上·臨河月考）將數據和程序（ ）起來的一個邏輯實體稱為“對象”
A. 連接 B. 封裝 C. 串接 D. 調試
【答案】 B
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用
【解析】
3.（2021高三上·臨河月考）如果一個變量N未經定義就直接賦值即N＝3.1415，則該變量的類型為（ ）
A. Variant B. Single C. Double D. Integer
【答案】 A
【考點】常量、變量及變量的賦值
【解析】
4.（2021高三上·臨河月考）事件的名稱必須是（ ）
A. 窗體所能識別的 B. 能夠被用戶觸發的
C. 對象所能識別的 D. 該事件有對應的方法可執行
【答案】 C
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用
【解析】
5.（2021高三上·臨河月考）以下不符合VB語法的常量是（ ）
A. 20－10 B. ”電腦” C. true D. 2.6E+01
【答案】 A
【考點】常量、變量及變量的賦值
【解析】
6.（2021高三上·臨河月考）在VB中，數據100&的類型是（ ）
A. 單精度型 B. 雙精度型 C. 整型 D. 長整型
【答案】 D
【考點】常見數據類型、數組
【解析】
7.（2021高三上·臨河月考）設有語句：x=InputBox("輸入數值"，"0"，"示例") 程序運行后，如果從鍵盤上輸入數值10，并按回車鍵，則下列敘述中正確的是（ ）
A. 變量X的值是數值“示例” B. 在InputBox對話框標題欄中顯示的是"示例"
C. 0是默認值 D. 變量X的值是字符串"10"
【答案】 D
【考點】基本語句
【解析】
8.（2021高三上·臨河月考）下列屬性中屬于邏輯型的是（ ）
A. Caption B. BorderStyle C. Visible D. Name
【答案】 C
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用
【解析】
9.（2021高三上·臨河月考）窗體上有一個名為Label1的標簽，為了使該標簽透明并且沒有邊框，正確的屬性設置為（ ）
A. Label1.BackStyle=0： Label1.BorderStyle=0
B. Label1.BackStyle=1： Label1.BorderStyle=1
C. Label1.BackStyle=true： Label1.BorderStyle=true
D. Label1.BackStyle=False： Label1.BorderStyle=False
【答案】 A
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用
【解析】
10.（2021高三上·臨河月考）設窗體上有一個文本框，名稱為Text1，程序運行后，要求該文本框只能顯示信息，不能接收輸入的信息，以下能實現該操作的語句是（ ）
A. Text1.MaxLength=0 B. Text1.Enabled=False
C. Text1.Visible=False D. Text1.Width=0
【答案】 B
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用
【解析】
11.（2021高三上·臨河月考）命令按鈕不支持的事件是（ ）
A. Click B. DblClick C. GotFocus D. LostFocus
【答案】 B
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用
【解析】
12.（2021高三上·臨河月考）命令按鈕command1的事件過程如下：
Private sub command1_click( )
X=inputbox(“輸入：”,“輸入整數”)
Msgbox “輸入的數據是：”,, “輸入數據：”+X
End sub
程序運行后，單擊command1，從鍵盤上輸入數據10，則以下敘述中錯誤的是（ ）
A. X的值是數值型數據10 B. 輸入對話框的標題是“輸入整數”
C. 信息框的標題是“輸入數據：10” D. 信息框中的顯示是“輸入的數據是：”
【答案】 A
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用，基本語句
【解析】
13.（2021高三上·臨河月考）運行以下程序段后，輸出結果為（ ）
X%=1/4
Y%=11/4
Print x%;y%
A. 0.25 0.75 B. 1 3 C. 0 2 D. 0 3
【答案】 D
【考點】運算符、基本運算與表達式
【解析】
14.（2021高三上·臨河月考）若變量X＝1，則執行語句if x then x=0 else x=1后，X的值是（ ）
A. 0 B. 1 C. 實時錯誤 D. 編譯錯誤
【答案】 A
【考點】分支結構語句及程序實現
【解析】
15.（2021高三上·臨河月考）設a=2,b=3,c=4,d=5,下列表達式的值是 3>2*b OR a=c AND b<>c OR c>d （ ）
A. 1 B. True C. False D. -1
【答案】 C
【考點】運算符、基本運算與表達式
【解析】
16.（2021高三上·臨河月考）運行下面程序段時，若從鍵盤輸入－5，則變量Y的值是（ ）
X=-5
A=val(inputbox(“請輸入A的值：”))
Select case a
Case is>0
Y=x+1
Case is =0
Y=x+2
Case else
Y=x+3
End select
A. －5 B. －2 C. －4 D. －3
【答案】 B
【考點】分支結構語句及程序實現
【解析】
17.（2021高三上·臨河月考）有如下程序段
X=2
For i = 1 to 10 step 2
x=x+i
Next i
運行程序后，X的值是（ ）
A. 26 B. 27 C. 38 D. 57
【答案】 B
【考點】循環結構語句及程序實現
【解析】
18.（2021高三上·臨河月考）已知X和Y是字符型變量，運行下面程序段后，變量Y的值是（ ）
X=“ABCDEFG”
For i =4 to 1 setp -1
y=y+mid(x, i, 1)
Next i
A. ABCD B. DCBA C. DEFG D. GFED
【答案】 B
【考點】循環結構語句及程序實現
【解析】
19.（2021高三上·臨河月考）以下程序段的輸出結果是（ ）
x=1
y=4
Do Until y>4
x=x*y
y=y+1
Loop
Print x
A. 1 B. 4 C. 8 D. 20
【答案】 B
【考點】循環結構語句及程序實現
【解析】
20.（2021高三上·臨河月考）執行下面的程序段后，i的值為( )
X=5
For i = 1 TO 20 STEP 2
x=x+i^2
Next i
A. 21 B. 22 C. 1335 D. 50
【答案】 B
【考點】循環結構語句及程序實現
【解析】
二、填空題(每空1分，共10分)
21.（2021高三上·臨河月考）可以在中斷狀態下查詢對象值的窗口是 。
【答案】 立即窗口
【考點】程序設計工具及編程環境
【解析】
22.（2021高三上·臨河月考）在VB中，發生在對象上且能被對象識別的動作稱為 。
【答案】 事件
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用
【解析】
23.（2021高三上·臨河月考）當Rem放在某語句后，必須用“ ”分隔，否則會出錯。
【答案】 冒號 或 :
【考點】語句注釋及縮進
【解析】
24.（2021高三上·臨河月考）表達式7 + 33 \ 6 * 7 / 8 Mod 2的值是 。
【答案】 7
【考點】運算符、基本運算與表達式
【解析】
25.（2021高三上·臨河月考）同時具有列表框與文本框功能的控件是 。
【答案】 組合框
【考點】程序設計工具及編程環境
【解析】
26.（2021高三上·臨河月考）設有如下程序段：a$= " beijingshanghai ":b$=mid(a$,instr(a$, "g")+6)執行上面的程序段后，變量b$的值為 。
【答案】 “hai”
【考點】常量、變量及變量的賦值
【解析】
27.（2021高三上·臨河月考）循環結構for I = 5.5 to 0 step -2的循環次數是
【答案】 3
【考點】循環結構語句及程序實現
【解析】
28.（2021高三上·臨河月考）若要設置文本框的滾動條生效，必須先把 屬性設置為True。
【答案】 multiline
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用
【解析】
29.（2021高三上·臨河月考）在窗體上畫兩個文本框Text1和Text2和一個命令按鈕Command1然后在命令按鈕的代碼窗口中編寫如下事件過程:
Private Sub Command1_Click( )
Text1.Text="Vb Programming"
Text2.Text=Text1.Text
Text1.Text="ABCD"
End Sub
程序運行后，單擊命令按鈕，文本框Text1中顯示的內容為 ；文本框Text2中顯示的內容為
【答案】 “ABCD”；“Vb Programming”
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用，順序結構及程序實現
【解析】
三、程序填空題（每空2分，共50分）
30.（2021高三上·臨河月考）以下程序執行后將輸出100到200之間所有的素數，并統計素數的個數
Private Sub Form_Click( )
Dim i%, j%, k%, t% 't為統計素數的個數
Dim b As Boolean
For i = 100 To 200
b = True
k=
j = Int(Sqr(i))
Do While k <= j And b
If i Mod k = 0 Then

End If

Loop
if b=true then
t = t + 1
Form1.Print i
End If
Next i
Print "t="; t
End Sub
【答案】 2；b = False；k = k + 1
【考點】分支結構語句及程序實現，循環結構語句及程序實現，常用標準函數
【解析】
31.（2021高三上·臨河月考）下面這段程序是從3個數中找出最小值
Dim x%,y%,z%,min%
X=val(inputbox(“請輸入X的值”))
Y=val(inputbox(“請輸入Y的值”))
Z=val(inputbox(“請輸入Z的值”))
If then
Min=y
Else
Min=x
End if
If zPrint “最小值是：”;min
【答案】 0；n Mod 5 = 1 And n Mod 7 = 1
【考點】分支結構語句及程序實現
【解析】
32.（2021高三上·臨河月考）下列程序的功能是找出被5、7除，余數為1的最小5個正整數。
Private Sub Form_Click()
Dim Ncount%, n%
Ncount =
n = 1
Do
If Then
Print n
Ncount = Ncount + 1
End If
n = n + 1
Loop Until =5
End Sub
【答案】 0；n Mod 5 = 1 And n Mod 7 = 1；Ncount
【考點】分支結構語句及程序實現，循環結構語句及程序實現
【解析】
33.（2021高三上·臨河月考）完善程序，使其能輸出1-2+3-4+5-6+……+99-100的值。程序如下：
Private Sub Command1_Click()
S=
For i = 1 To
S = S+((-1)^( )) *i
Next i
Print s
End Sub
【答案】 0；100；]i+1
【考點】循環結構語句及程序實現
【解析】
34.（2021高三上·臨河月考）以下程序運行時，用戶可以在文本框Text1中輸入文本，單擊command1“添加”按鈕后將文本中輸入的內容加到列表框的末尾，用戶選某列表框的某一個列表項后，單擊command2“刪除”按鈕，將刪除該列表項；如果沒有任何一項選中，將有出錯提示"先選擇，再刪除！"。
Private Sub Command1_Click() '添加按鈕
If Len(Text1.Text) <> 0 Then

Text1.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click() '刪除按鈕
If Then
MsgBox "先選擇，再刪除！"
Else

End If
End Sub
【答案】 List1.AddItem Text1.Text；List1.ListIndex = -1；List1.RemoveItem List1.ListIndex
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用，分支結構語句及程序實現
【解析】
35.（2021高三上·臨河月考）下面的程序是求100以內奇數和s的值，請將程序補充完整。
Private Sub Command1_Click( )
Dim s As Single
Dim i As Single
s = _
For i = 1 To 100 Step

Next
Print
End Sub
【答案】 0；2；s=s+i；i；s
【考點】循環結構語句及程序實現
【解析】
36.（2021高三上·臨河月考）在窗體上添加1個列表框、1個命令按鈕和1個標簽，其名稱分別為List1，Command1和Label1,通過屬性窗口把列表框中的項目設置為“第一個項目”，“第二個項目”，“第三個項目”，“第四個項目”。程序運行后，在列表框中選擇一個項目，然后單擊命令按鈕 ，將所選擇的項目刪除，并在標簽中顯示列表框當前的項目數。將程序補充完整。
Private Sub Command1_Click()
If List1.ListIndex >= Then
List1.RemoveItem
Label1.Caption =
Else
MsgBox "請選擇要刪除的項目"

End Sub
【答案】 0；List1.ListIndex；List1.ListCount；end if
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用，分支結構語句及程序實現
【解析】
37.（2021高三上·臨河月考）在窗體上畫一個標簽（名稱為label1）和一個計時器（名稱為timer1），然后編寫如下幾個事件過程：。程序運行后，單擊窗體，將在標簽中顯示當前時間，每隔1秒鐘變換1次。
Private sub form_load( )
Timer1.enabled=false
Timer1.interval=
End sub
Private sub form_click( )
Timer1.enabled=
End sub
Private sub timer1_timer( )
Label1.caption=time
End sub
【答案】 1000；True
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用，順序結構及程序實現
【解析】
1 / 1

展開更多......

收起↑