1.选择题- (共14题)
3.
有如下VB程序段
m=a(1)
For i=2 to 100
If a(i) > m then m=a(i)
Next i
该程序段执行后，变量m中存储的是( )
m=a(1)
For i=2 to 100
If a(i) > m then m=a(i)
Next i
该程序段执行后，变量m中存储的是( )
| A．累加值 | B．计数值 | C．a(1)至a(100)中的最大值 | D．最小值 |
、
、
，半周长
，该三角形面积计算公式为：
，计算S的VB语句是( )
）
）
6.
小李在设计VB程序时所使用复选框对象的属性窗口如上图（第6题图）所示，他想编写该复选框单击事件的处理过程，则该事件处理过程名是( )
| A．CheckBox_Click | B．加粗_Click |
| C．Check1_Click | D．复选框_Click |
9.
下列关于算法的叙述不正确的是( )
A算法是解决问题的方法和步骤
B．算法具有确定性、可行性、有限性等基本特征
C．一个问题的算法都只有一种
D．常见的算法描述方法有自然语言、流程图、计算机语言等
A算法是解决问题的方法和步骤
B．算法具有确定性、可行性、有限性等基本特征
C．一个问题的算法都只有一种
D．常见的算法描述方法有自然语言、流程图、计算机语言等
10.
关于程序中的变量，下面说法中错误的是( )
| A．一旦将数据存入某变量，读取变量中的值，不会改变变量的内容 |
| B．一旦将数据存入某变量，以后就不能将新的数据存入该变量 |
| C．一旦将数据存入某变量，以后可以将新的数据存入该变量 |
| D．一旦将数据存入某变量，只要不把新的数据存入，变量的内容不会改变 |
12.
小明编写了如下VB程序段：
Private Sub Command1_Click()
Dim x As Double
Dim y As Double
x = Val(Text1.Text)
y = Abs(x)
x = int(y)
Text2.Text = Str(x)
End Sub
此应用程序执行后，出现了如第15题图所示的错误信息，请问产生此错误的原因是( )
Private Sub Command1_Click()
Dim x As Double
Dim y As Double
x = Val(Text1.Text)
y = Abs(x)
x = int(y)
Text2.Text = Str(x)
End Sub
此应用程序执行后，出现了如第15题图所示的错误信息，请问产生此错误的原因是( )
| A．语句y = Abs(x)有误 |
| B．缺少对象‘424’ |
| C．语句x = int(y)有误 |
| D．缺少文本框Text1或文本框Text2 |
2.填空题- (共4题)
15.
在窗体上有一个命令按钮（Command1）和两个文本框（Text1和Text2），然后编写了如下事件过程，要求：在文本框Text1中输入一个数值x，根据下面的分段函数计算y的结果，并将y值显示在文本框Text2中。
请将实线以上功能的程序补充完整(（每空2分）：
Private Sub Command1_Click( )
x=" Val" (Text1.text)
If x>0 Then
1
ElseIf 2 Then
y = 0
ElseIf x < 0 Then[来源:学科网]
y = Abs(x)
End If
3
End Sub
请将实线以上功能的程序补充完整(（每空2分）：
Private Sub Command1_Click( )
x=" Val" (Text1.text)
If x>0 Then
1
ElseIf 2 Then
y = 0
ElseIf x < 0 Then[来源:学科网]
y = Abs(x)
End If
3
End Sub
16.
有如下Visual Basic程序段：
Dim i As Integer, s As Integer
i=1
s=0
Do While i <= 5
s ="s" + 2
i ="i" + 1
Loop
问：该程序段运行后，变量s的值为____ __，i的值为 。（每空2分）
Dim i As Integer, s As Integer
i=1
s=0
Do While i <= 5
s ="s" + 2
i ="i" + 1
Loop
问：该程序段运行后，变量s的值为____ __，i的值为 。（每空2分）
试卷分析
-
【1】题量占比
选择题:(14道)
填空题:(4道)
-
【2】：难度分析
1星难题：0
2星难题：0
3星难题：0
4星难题：0
5星难题：0
6星难题：0
7星难题：0
8星难题：0
9星难题：18