1.选择题- (共15题)
2.
有如下Visual Basic程序段：
m = a(1)
i =" 2"
Do While i <= 10
If m < a(i) Then m = a(i)
i =" i" + 1
Loop
该程序段执行后，变量m中存储的是（ ）
m = a(1)
i =" 2"
Do While i <= 10
If m < a(i) Then m = a(i)
i =" i" + 1
Loop
该程序段执行后，变量m中存储的是（ ）
| A．a(1)至a(10)中的最大值 |
| B．a(1)至a(10)中的最小值 |
| C．a(2)至a(10)中的最大值 |
| D．a(2)至a(10)中的最小值 |
4.
有如下的Visual Basic程序段：
s = 0
x = 1
Do While x <= 5
s =" s" + x
x =" x" + 2
Loop
该程序段运行后，语句s 的值是（ ）
s = 0
x = 1
Do While x <= 5
s =" s" + x
x =" x" + 2
Loop
该程序段运行后，语句s 的值是（ ）
| A．8 | B．9 | C．10 | D．11 |
5.
某VB的事件过程如下：
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
a =" 2" * a + 1
Text1.Text = StrA.
End Sub
程序运行时，在文本框Text1中输入2，连续三次单击命令按钮Command1后，Text1中显示的内容是（ ）
A. 47
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
a =" 2" * a + 1
Text1.Text = StrA.
End Sub
程序运行时，在文本框Text1中输入2，连续三次单击命令按钮Command1后，Text1中显示的内容是（ ）
A. 47
| A．5 | B．1 | C．23 |
7.
有如下的程序段：
Private Sub Command1_Click()
Dim m As String
Dim n As String
m = Text1.Text
n = Text2.Text
Label1.Caption=" m" + n
End Sub
运行程序，在对象Text1和Text2中分别输入12和34，则单击命令按钮Command1后，对象Text3中显示（ ）
Private Sub Command1_Click()
Dim m As String
Dim n As String
m = Text1.Text
n = Text2.Text
Label1.Caption=" m" + n
End Sub
运行程序，在对象Text1和Text2中分别输入12和34，则单击命令按钮Command1后，对象Text3中显示（ ）
| A．1234 | B．46 | C．语法错误 | D．3412 |
8.
下列能准确表达“如果明天不上学，那么我们骑车去野餐”的伪代码是（ ）
| A．If（明天上学）Then（我们骑车去野餐） |
| B．If（明天不上学）Then（我们骑车去野餐）Else（我们不去野餐） |
| C．If（明天上学）Then（我们不去野餐）Else（我们骑车去野餐） |
| D．If（明天不上学）Then（我们骑车去野餐） |
11.
求50以内所有能被3整除的自然数之和，算法如下：
①将1赋值给变量i
②判断i除以3的余数是否为0，若是，则将该数累加到变量Sum中
③将变量i加1，若i小于或等于50，转②
④输出变量Sum的值
⑤结束
该算法采用的描述方法属于
①将1赋值给变量i
②判断i除以3的余数是否为0，若是，则将该数累加到变量Sum中
③将变量i加1，若i小于或等于50，转②
④输出变量Sum的值
⑤结束
该算法采用的描述方法属于
| A．流程图 | B．伪代码 | C．自然语言 | D．计算机程序语言 |
12.
在Visual Basic中，某工程的代码窗口如下图所示：
当前正在编辑的是（ ）
当前正在编辑的是（ ）
| A．Label1的Click事件过程代码 |
| B．Command1的DblClick事件过程代码 |
| C．Label1的DblClick事件过程代码 |
| D．Command1的Click事件过程代码 |
14.
在Visual Basic中，鼠标单击窗体Form触发的事件处理过程名为（ ）
| A．Form_Click | B．Form_load |
| C．Text1_DblClick | D．Form_DblClick |
2.填空题- (共3题)
16.
下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是 ，文本框Text2中显示的内容是 。
Private Sub Command1_Click()
Const n = 4
Dim a(1 To n) As Integer, s As Integer
Dim i As Integer, t As Integer, k As Integer
a(1) =" 1:" a(2) =" 2:" a(3) =" a(1):" a(4) = 0
s =" 0:" k = 0
For i =" 1" To n
t = a(i)
a(i) =" k" + t
k = t
s =" s" + a(i)
Next i
Text1.Text = Str(a(2))
Text2.Text = Str(s)
End Sub
Private Sub Command1_Click()
Const n = 4
Dim a(1 To n) As Integer, s As Integer
Dim i As Integer, t As Integer, k As Integer
a(1) =" 1:" a(2) =" 2:" a(3) =" a(1):" a(4) = 0
s =" 0:" k = 0
For i =" 1" To n
t = a(i)
a(i) =" k" + t
k = t
s =" s" + a(i)
Next i
Text1.Text = Str(a(2))
Text2.Text = Str(s)
End Sub
17.
下面程序的功能是：计算表达式1+3+5+…+(2n-1)的值，在文本框Text1中输入n的值，结果在文本框Text2中输出。则程序中划线处的语句应填____________。
Private Sub Command1_Click()
Dim sum As Long,i As Integer,n As Integer
sum = 0
n = Val(Text1.Text)
For i =" 1" To 2 * n - 1 Step 2
Next i
Text2.Text=Str(sum)
End Sub
Private Sub Command1_Click()
Dim sum As Long,i As Integer,n As Integer
sum = 0
n = Val(Text1.Text)
For i =" 1" To 2 * n - 1 Step 2
Next i
Text2.Text=Str(sum)
End Sub
试卷分析
-
【1】题量占比
选择题:(15道)
填空题:(3道)
-
【2】：难度分析
1星难题：0
2星难题：0
3星难题：0
4星难题：0
5星难题：0
6星难题：0
7星难题：0
8星难题：0
9星难题：18