1、【
单选题
】
计算机解决问题的三个步骤中不包括下面哪一步骤……………………………………（ ）
[2分]
、
需求分析
、
问题反思
、
算法分析
、
用计算机编写程序
答案：
2、【
单选题
】
对于一个完整的算法的流程图，下列说法不正确的是…………………………………（ ）
[2分]
、
有而且只有一对
框
、
不一定有
框
、
不一定有
框
、
分支结构中一定有
框
答案：
3、【
单选题
】
下列算法展示了一台自动售货机一次售货的工作流程：
步骤1：提示“请投币”
步骤2：若硬币面值不是0.1元、0.5元、1元，退回硬币，并跳回步骤1
步骤3：若投入货款达1.5元或以上，执行步骤4，否则执行步骤1
步骤4：售出一个口香糖
步骤5：从接收货款中减去1.5元
步骤6：退回余额
下列关于这个算法说法正确的是……………………………………………………………（ ）
[2分]
、
上述算法采用伪代码表示
、
这台自动售货机在任何情况下也不会售出口香糖
、
上述算法包含有顺序结构
、
这台自动售货机只会在接受硬币达2元时才放出口香糖
答案：
4、【
单选题
】
下列关于类、对象、属性、事件的描述中，错误的是……………………………………（ ）
[2分]
、
同一类对象具有同一类属性，但同一个属性可以有不同的属性值
、
“Private Sub Command_Click()”中的“Click”属于事件
、
VB编程界面中，双击窗体中某对象，出现的是代码窗口
、
对象的属性值在程序运行过程中不可修改
答案：
5、【
单选题
】
VB语句Text1.Text="Text"用于在文本框中显示字符串，该语句中的“Text1”是……（ ）
[2分]
答案：
6、【
单选题
】
小张用VB做了一个小游戏，他想把自己做的程序放在因特网上供他人下载使用，他应该将自己做的程序保存为什么格式供他人下载………………………………………………（ ）
[2分]
答案：
7、【
单选题
】
下列变量命名正确的是
[2分]
、
IsTrue
、
Next
、
A-3
、
3Str
答案：
8、【
单选题
】
一个摸球游戏的流程图如右图所示(红球总数和绿球总数均大于0)。游戏结束时，S位所代表的是………………………………………………………………………………………（ ）
[2分]
、
摸到的绿球数
、
摸到的红球数
、
未摸到的绿球数
、
未摸到的红球数
答案：
9、【
单选题
】
有如下一段VB程序段，当该程序结束后，程序中的代码“S = S * K”共被执行了多少次（ ）
[2分]
答案：
10、【
单选题
】
以下变量定义错误的是
[2分]
、
定义一个变量存放客户姓名：Dim Name as String
、
定义一个变量存放客户性别：Dim Addr as Boolean
、
定义一个变量存放客户电话：Dim Tel as String
、
定义一个变量存放QQ号码：Dim QQ as Integer
答案：
11、【
单选题
】
Dim arr(1 to 10 , 11 to 20) as integer 该指令定义了多少个数组元素
[2分]
答案：
12、【
单选题
】
如果x=4，那么以下运算结果为True的表达式是………………………………………（ ）
[2分]
、
x<=4 and x>=6
、
x>4 Or x>=6
、
x<4 or x>6
、
not x<>4
答案：
13、【
单选题
】
已知整型变量X的值为-3，则VB表达式Int(x/2)的值是………………………………（ ）
[2分]
答案：
14、【
单选题
】
下列VB函数中，与Val函数作用相反的是……………………………………………（ ）
[2分]
答案：
15、【
单选题
】
在VB中，设X=7146，能得到其十位上数字 4 的正确表达式是………………………（ ）
[2分]
、
x\10 mod 100
、
x\10 mod 10
、
x\100 mod 10
、
x mod 10\10
答案：
16、【
单选题
】
VB标准函数Rnd函数的作用是返回一个大于等于0且小于1的随机实数，只产生大于等于10且小于100随机整数的VB表达式是…………………………………………………（ ）
[2分]
、
Int(Rnd*100)
、
Int(Rnd *90 +10)
、
Int (Rnd *99 +1)
、
Int ( Rnd *99+10 )
答案：
17、【
单选题
】
观察如下VB程序设计界面，选出下面说法错误的一项………………………………（ ）
[2分]
、
该界面中共有3个标签对象，属于标签类。
、
该界面中的命令按钮的Caption属性被设置为了“计算”。
、
该VB程序保存时，有关窗口界面的信息被保存在“.Frm”文件中。
、
该界面中共有4个文本框对象，它们的Text属性值在当前状态下一样。
答案：
18、【
单选题
】
读右边程序，程序中一共标明了8条语句，下列说法错误的是……………………（ ）
[2分]
、
①⑤赋值语句，②④不是赋值语句
、
③是注释语句，对程序运行不产生影响
、
⑥描述的是累加器，⑦描述的是计数器
、
程序中包含了赋值语句、选择语句、循环语句和注释语句
答案：
19、【
单选题
】
右边程序中，最后输出s和c的值分别是：………………………………………………（ ）
[2分]
、
6 , 4
、
6 , 3
、
9 , 4
、
9 , 3
答案：
20、【
单选题
】
以下是一个事件处理过程，这个过程的名称为……………………………………（ ）
Sub C1_DblClick()
Print "*"
End Sub
[2分]
、
C1
、
C1_ DblClick
、
print
、
DblClick
答案：
21、【
单选题
】
下列问题适合用参考答案:算法求解的是……………………………………………………（ ）
[2分]
、
寻找一堆彩球中所有的红球
、
计算一个球从100米高的楼顶掉下来的落地速度
、
将全班同学按身高从低到高排队
、
从电子词库中找到Infomation 这个单词
答案：
22、【
单选题
】
如果一个自然数恰好等于它的因子之和，称这个数为“完数”，如：6=1+2+3。某算法能找出1000以内所有的完数，那么这个算法主要用到的方法是
[2分]
答案：
23、【
单选题
】
VB中常常需要用户自己来定义函数，下列属于定义函数的语句是…………………（ ）
[2分]
、
Dim 函数名 as 类型名
、
Function函数名 as 类型名
、
Const 函数名 = 数值
、
Dim 函数名（a1 to a2）as 数据类型
答案：
24、【
单选题
】
小明买了6个苹果，这6个苹果的重量（单位：两）分别为8.1、3.4、9.5、2.2、1.2、5.6，若采用选择排序算法对其进行从小到大排序，则需要进行数据互换的次数是…（ ）
[2分]
答案：
25、【
单选题
】
五位评委给歌手打分的成绩依次为93，85，92，84，90，
| 原始数据 |
93 |
85 |
92 |
84 |
90 |
| 第一趟 |
84 |
93 |
85 |
92 |
90 |
| 第二趟 |
|
|
|
|
|
| 第三趟 |
84 |
85 |
90 |
93 |
92 |
| 第四趟 |
84 |
85 |
90 |
92 |
93 |
若采用冒泡排序算法对其进行从小到大排序，则第二趟的排序结果是
[2分]
、
84 90 85 93 92
、
84 93 85 90 92
、
84 85 93 90 92
、
84 90 92 85 93
答案：
26、【
简答题】
sqr(25)+ len(“abc”)的返回值是__________________________。
[2分]
解析：
__________8__________
27、【
简答题】
Mid(“2009乌镇欢迎你!”, 5 ,2 )的返回值是__________________。
[2分]
解析：
____ "乌镇"_________ 没加冒号不给分
28、【
简答题】
把数学中的式子，
转化为VB中的表达式__________________________。
[2分]
解析：
__(a-b^2)/(Abs(32-c)+2*a)_
29、【
简答题】
写出数学表达式a≥b≥ c 并且a≠ 0 的VB表达式_____________________________。
[2分]
解析：
_a>=b and b>=c and a<>0___
30、【
简答题】
求下列VB表达式9\2+1 Mod 2+Int（-11/3）的值____________________。
[2分]
解析：
_______1_______________
31、【
简答题】
有如下Visual Basic程序段：
Private Sub Command1_Click()
Dim m As string, t As integer
m = "Love"
t = 1314
Label1.Caption = m + str(t)
End sub
该程序段运行后，在标签Label1上显示的是____________。
[2分]
解析：
_____ Love1314___ ______
32、【
简答题】
有如下Visual Basic程序段：
Private Sub Command1_Click()
Dim a As string, b As string
Dim c As Long
a ="123"
b ="456"
If a <> b Then
c=val(a+b)
Else
c = val(a)+val(b)
End If
Print c
End sub
该程序段运行后，c的值是____________。
[2分]
解析：
________123456___________
33、【
简答题】
有如下Visual Basic程序段：
x = 1
For i = 5 To 12 Step 2
x = x + i
Next i
该程序段运行后，x的值是____________。
[2分]
解析：
_____ _33________________
34、【
简答题】
有如下Visual Basic程序段：
s = 0: i = 1
Do While s < 10
s = s + i
i = i + 2
Loop
该程序段运行后，s的值是____________。
[2分]
解析：
________16________________
35、【
简答题】
有如下Visual Basic程序段：
x = 3
For i = 3 To 6
If x < 15 Then
x = x * i
Else
x = x + i
End If
Next i
该程序段运行后，x的值是____________。
[2分]
解析：
_______47____________ ___
36、【
简答题】
如下程序运行后输出的结果为： ___________________。
Private sub test36( )
Dim i as integer, j as integer
Dim s as integer
For i=1 to 20
For j=15 to 2 step -2
S=i*j
Next j
Next i
Print s
End sub
[2分]
解析：
________60_________________
37、【
简答题】
如下程序运行后，输出结果为_________。
Private sub test( )
Dim i as Integer
Dim Arr(1 to 10) as integer
For i =1 to 10
Arr( i )= i * i
Next i
Print Arr( 8 )
End Sub
[2分]
解析：
_______64_________________
38、【
简答题】
有如下程序，缺少一变量定义语句，请补充完整：（注：输出的结果为 250000）
Private Sub Test
Dim a as Integer
______________定义变量sum
Sum=0
For a =1 to 1000 step 2
Sum=Sum+a
Next a
Print Sum
End Sub
[2分]
解析：
__ Dim sum as Long ______ 把sum写成s也给分
39、【
简答题】
一个酵母细胞每一分钟分裂为2个，在下一分钟，就有4个细胞，然后，8个、16个、……以此类推。一个酵母细胞，经过多少分钟后数目超过250个。解决此问题的部分程序如下：
Dim n as long ,x as long
n = 1 : x = 2
Do while x <= 100
n = n + 1
Loop
问：
（1）为了实现这一目标，程序划线处的表达式应更正为____________。
（2）运行更正后的程序，在经过________________分钟后细胞数目超过250个。
[4分]
解析：
（1）_____ x = 2*x _________ （2）______8____________
40、【
简答题】
如下是计算圆面积的VB界面和所有程序代码：
（1）由VB界面和程序代码可知，用于输入圆半径的文本框对象名为：________________。
（2）为实现圆面积的计算，用户除了点击计算按钮，还可以执行的操作有:______________。
[4分]
解析：
（1）_____ TextR______________（2）_____按回车键______________
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00