1.选择题- (共35题)
Dim a As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
a = a + 1
Image1.Picture = LoadPicture(App.Path & "\" & a & ".jpg")
If a >= 8 Then a = 0
End Sub
单击命令按钮Command1，加框处语句执行的时间间隔为（ ）| A．0.1秒 | B．1秒 | C．10秒 | D．100秒 |
①输入变量n的值，将变量s赋初值为0，将变量i赋初值为1
②如果i的值大于n，则转到⑤，否则转到③
③如果i是3的倍数，则将s的值加上i的值，结果存放在s中
④将i的值增加1，并转到②
⑤输出s的值
如果输入变量n的值为10，那么最终输出s的值是（ ）
| A．9 | B．18 | C．27 | D．55 |
| A．① s = s + i ② i = i + 1 | B．① s = s + i ② i = i + 2 |
| C．① i = i + 1 ② s = s + i | D．① i = i + 2 ② s = s + i |
S = 0
For I = _____ to 3 step -1
S = S + iNext I
该程序段运行后，语句S = S + i共执行了4次，则下划线处应是（ ）| A．0 | B．1 | C．5 | D．6 |
Dim a(1 To 10) As Integer
a(10) = 1
a(9) = 2
For x = 8 To 1 Step -1
a(x) = a(x + 1) + a(x + 2)Next x
该程序段运行后，a(6)的值是（ ）| A．5 | B．8 | C．11 | D．13 |
| A．Int(Rnd() * 9) + 90 | B．Int(Rnd() * 90) + 10 |
| C．Int(Rnd() * 89) + 10 | D．Int(Rnd() * 99) + 1 |
s = 0 ：x = 2：y = 49
Do While x <= Sqr(y)
s = s + xx = x + 2
Loop
该程序段运行后，x的值是（ ）| A．2 | B．6 | C．8 | D．12 |
| A．x < 100 And y < 100 | B．x < 100 , y < 100 |
| C．x < 100 Or y < 100 | D．x < 100 ：y < 100 |
①输入变量n的值，将变量s赋初值为0，将变量i赋初值为1
②如果i的值大于n，则转到⑤，否则转到③
③如果i是3的倍数，则将s的值加上i的值，结果存放在s中
④将i的值增加1，并转到②
⑤输出s的值
算法描述中包含的控制模式有（ ）
| A．选择模式 | B．循环模式 |
| C．选择模式、循环模式 | D．顺序模式、选择模式、循环模式 |
| A．该程序代码中，某个过程名书写错误 | B．该程序窗体界面中，缺少一个文本框 |
| C．该程序代码中，某个变量或常量没有声明 | D．Visual Basic软件没有正确安装 |
| A．登录窗口_Click() |
| B．Text1_KeyPress() |
| C．Command1_Click() |
| D．Text1_Click() |
y = -100 ：x = 100
If x > 10 Then
y = -1
Elseif x > 50 Then
y = 1Else
y = 0End if
该程序段执行后，变量y的值是（ ）| A．-100 | B．-1 | C．1 | D．0 |
| A．对象包含相关的属性和对应的方法 |
| B．类是对相同性质的对象的一种抽象，是对象的一个“实例” |
| C．面向对象的程序设计方法的核心是对象功能的实现和表达 |
| D．“可视化”和“事件驱动”是VB应用程序的重要特征 |
| A．该对象属于文本框类 |
| B．该对象名为age |
| C．在程序运行时该对象不可见 |
| D．Text是属性名 |
| A．S mod 1000 | B．(S – 1000 * A) / 100 |
| C．S – 1000 * A – 10 * C - D | D．S \ 100 Mod 10 |
| A．单击A处的“视图”菜单 | B．双击B处的“Form1”窗体文件 |
| C．单击C处的“窗口”菜单 | D．关闭文件，重新打开 |
写成Visual Basic表达式，正确的是（ ）| A．-b+Sqr(b^2-4*a*c)/(2*a) | B．-b+Sqr(b^2-4*a*c)/2*a |
| C．(-b+Sqr(b^2-4*a*c))/2*a | D．(-b+Sqr(b^2-4*a*c))/(2*a) |
| A．设计算法/分析问题/编写程序/调试程序 |
| B．分析问题/设计算法/编写程序/调试程序 |
| C．编写程序/设计算法/调试程序/分析问题 |
| D．分析问题/编写程序/设计算法/调试程序 |
| A．n = text1 | B．n = Text1.text |
| C．n = Str(Text1.text) | D．n = Val(Text1.text) |
①输入变量n的值，将变量s赋初值为0，将变量i赋初值为1
②如果i的值大于n，则转到⑤，否则转到③
③如果i是3的倍数，则将s的值加上i的值，结果存放在s中
④将i的值增加1，并转到②
⑤输出s的值
该算法采用的表示方法是（ ）
| A．计算机语言 | B．流程图 | C．伪代码 | D．自然语言 |
Private Sub Command1_Click()
Dim a(-1 To 8) As Integer
Dim i As Integer
For i = -1 To 8
a(i) = i * iNext i
Print a(i)
End Sub
运行程序，单击命令按钮Command1后，出现的错误提示可能是（ ）| A．子程序或函数未定义 | B．下标越界 | C．溢出 | D．类型不匹配 |
| A．Dim Tel(1 To 45) As Integer | B．Dim Tel(1 To 45) As Long |
| C．Dim Tel(45) As Long | D．Dim Tel(44) As String |
2.填空题- (共4题)
Private Sub Command1_Click()
Dim i As Integer, c As String, s As String, t As String
s = Text1.text
t = ""
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "0" And c <= "9" Then t = t + c
Next i
Text2.text = t
End Sub
运行该程序，在文本框Text1中输入“2016_Student”（不包含引号），单击命令按钮Command1后，文本框Text2中显示的内容是_________。①密码是八位数字，前两位为19
②最后两位数字是91
③能被77和133整除
程序界面如图所示，单击“找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。
解决此问题的相应的程序如下：
Private Sub Command1_Click()
Dim i As Long, s As Long
For i = 0 To 9999
s = _____①______ 's表示该八位数密码
If ② Then '符合密码的条件，s能被77和133整除
List1.AddItem Str(s)
End If
Next i
End Sub
（1）在应用程序界面设计时，添加“List1”对象用于显示可能的密码，应使用如图所示的“控件工具箱”中的【小题1】（填写相应的编号）。
（2）将窗体Form1上显示的文本“Form1”改为“寻找密码”，可在其属性窗口中将属性【小题2】的属性值修改为“寻找密码”。
（3）解决此问题的算法是【小题3】。（填：枚举算法/解析算法/查找算法）
（4）在程序①和②下划线处，填入适当的语句或表达式，把程序补充完整：
程序中①下划线处应填入【小题4】
程序中②下划线处应填入【小题5】
Private Sub Command1_Click()
Dim i As Integer, s As Integer ①
s = 0 ②
i = 1
Do While i < 10 ③
i = i + 1s = s * i ④
Loop
Print sEnd Sub
运行该程序，小王单击命令按钮Command1后，出现如第38题图对话框，已知序号①划线处的代码有错误，正确的代码应该是___________________________。经过代码修改后，小王重新运行该程序，单击命令按钮Command1，出现的结果是“0”， 那么序号_____（填①/②/③/④）划线处的代码有错误，正确的代码应该是________________。
-
【1】题量占比
选择题:(35道)
填空题:(4道)
-
【2】：难度分析
1星难题：0
2星难题：0
3星难题：0
4星难题：0
5星难题：0
6星难题：0
7星难题：0
8星难题：0
9星难题：39