1、【
单选题
】
人们利用计算机解决问题的基本过程一般有如下五个步骤(①~⑤),请按各步骤的先后顺序在下列选项(A~D)中选择正确的答案( )
①调试程序
②分析问题
③设计算法
④构建数学模型
⑤编写程序
[2分]
、
①②③④⑤
、
②④③⑤①
、
④②③⑤①
、
②③④①⑤
答案:
2、【
单选题
】
下列各种基本数据类型说明符中表示整数型的是( )
[2分]
、
Integer
、
Boolean
、
Single
、
String
答案:
3、【
单选题
】
下列各项中,合法的变量名是( )
[2分]
、
&90
、
abc=9
、
hello
、
888.f
答案:
4、【
单选题
】
有两个条件P 、Q,只要有一个条件为真时,结果一定为真的是( )。
[2分]
、
Not P
、
P And Q
、
P OR Q
、
NOT P AND NOT Q
答案:
5、【
单选题
】
下列代数式的Visual Basic表达式是( )
[2分]
、
(x^5-cos(29*3.14/180))/(sqr(exp(x)+log(y) +5))
、
(x^5-cos(29))/(sqr(exp(x)+ln(y))+5)
、
(x^5-cos(29*3.14/180))/(sqr(exp(x)+ln(y))+5)
、
(x^5-cos(0.506))/(sqr(exp(x)+log(y))+5)
答案:
6、【
单选题
】
在VB中,表达式(18+25/3)Mod 5 的值是( )。
[2分]
答案:
7、【
单选题
】
VB函数InStr()检查是否包含另一子串:含有子串则返回值为子串在父串中第一次出现的位置,不包含子串则返回值为0。InStr("CATbCACBC", "BC")的值为( )
[2分]
答案:
8、【
单选题
】
VB函数Right()从字串右端取部分字串:将某一字串从结尾开始取固定长度的字串。Right(“Visual Basic 6.0”,6)的值为( )
[2分]
、
sic 6.0
、
asic 6.0
、
Visual
、
ic 6.0
答案:
9、【
单选题
】
程序如下:
k=-20
do while (k=0)
k=k+1
loop
以下说法正确的是( )
[2分]
、
do while 语句执行了20次;
、
While 循环是无限循环
、
循环体语句一次也不执行
、
循环体语句执行一次
答案:
10、【
单选题
】
VB中将两个字符串连接起来的运算符有:+和&,那么 ”123”+45结果是( )
[2分]
、
168
、
12345
、
“123”
、
45
答案:
11、【
单选题
】
已知A,B,C,D是简单变量,且都已有互不相同的值,执行语句B=8:A=C:D=A:D=B后,其值相等的变量是( )
[2分]
答案:
12、【
单选题
】
要交换变量A和B之值,应使用的语句组是( )
[2分]
、
A=B:B=C:C=A
、
C=A:A=B:B=C
、
A=B:B=A
、
C=A:B=A:B=C
答案:
13、【
单选题
】
模块化程序设计方法主要通过( )来实现。
[2分]
、
递归算法和递归程序
、
过程和函数的定义和调用
、
程序的循环结构
、
对象
答案:
14、【
单选题
】
在窗体上画一个命令按钮,然后编写如下方所示事件过程。程序运行后,单击命令按钮,程序打印的结果为( )
Private Sub Command1_Click()
Dim I As Integer, j As Integer, x As Integer
x = 4
For I = 1 To 4
For j = 1 To 3
x = x + 6
Next j
Next I
Print x
End Sub
[2分]
答案:
15、【
单选题
】
在窗体上画一个命令按钮,然后编写如下方所示事件过程。程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1,则输出结果为( )
Prevate Sub Command1_Click()
Dim a as integer,b as integer, x as integer
x=0
Do Until x=-1
a = InputBox(“请输入A的值”)
a = Val(a)
b = InputBox(“请输入B的值”)
b = Val(b)
x = InputBox(“请输入x的值”)
x = cint(x)
a = a+b+x
Loop
Print a
End Sub
[2分]
答案:
16、【
单选题
】
在窗体上画一个文本框(其中Name属性为Text1),然后编写如右方所示事件过程。运行程序的结果是( )
Private Sub Form_Load()
Dim i As Integer, sum As Integer
Text1.Text = "aaa"
For i = 1 To 10
sum = sum + i
Next i
Text1.Text = sum
End Sub
[2分]
、
在文本框Text1中输出aaa
、
在文本框Text1中输出55
、
编译错误
、
在文本框Text1中没有输出
答案:
17、【
单选题
】
①( )
[2分]
、
M=M*2
、
M=M*2+1
、
M=2*(M+1)
、
M=2M+1
答案:
21、【
判断题
】
一个算法至少有一个输入。( )
[1分]
答案:
错误
22、【
判断题
】
任何一个算法所包含的计算步骤都是有限的。( )
[1分]
答案:
正确
23、【
判断题
】
算法可以不输出任何结果。( )
[1分]
答案:
错误
24、【
判断题
】
机器语言是能够被计算机直接接受和执行的计算机语言。( )
[1分]
答案:
正确
25、【
判断题
】
如果用某种高级语言编写的程序中只有第N行的一个语句有语法错误,用编译程序翻译时,计算机会先翻译前面的N-1行程序并由计算机执行前N-1行程序,直到第N行有语法错误的语句才停止执行并等待用户修改。( )
[1分]
答案:
错误
26、【
判断题
】
解释程序将某个高级语言编写的程序全部解释为机器语言程序后才由计算机执行该程序。( )
[1分]
答案:
错误
27、【
判断题
】
从本套试题的第一大题(选择题)的第3小题中的流程图我们可以看出,它既包含了程序的顺序结构、循环结构,也包含了分支结构。( )
[1分]
答案:
错误
28、【
判断题
】
当a=5,b=7,c=-2,d=1时,逻辑表达式:A+b>c+d AND a>=5 OR NOT c>0 OR D<0的运算结果为True。( )
[1分]
答案:
正确
29、【
判断题
】
模块化程序设计方法反映了结构化程序设计的“自顶而下、逐步求精”的基本思想。也就是说,将一个大而复杂的问题,由总体到局部,逐步分解为若干个小的可解的基本问题,再通过求解这些基本问题最终求得原问题的解。( )
[1分]
答案:
正确
30、【
判断题
】
递归算法就是一种直接或间接地调用自身的算法。( )
[1分]
答案:
正确
31、【
判断题
】
结构化程序设计方法是一种面向过程的设计思想,它把程序定义为“数据结构+算法” 。( )
[1分]
答案:
正确
32、【
判断题
】
在面向对象程序设计中,一个程序对象的属性用变量来表示;而对象的行为用对象中的代码段来实现。( )
[1分]
答案:
正确
33、【
判断题
】
在面向对象程序设计中,类表达的是一种抽象的概念,它描述了该类对象的共同特征;而对象是具体事物,以类为模板来生成,它具有自己的属性。( )
[1分]
答案:
正确
34、【
判断题
】
通过分析问题中各要素之间的关系,用最简练的语言或形式化的符号来表达它们的关系,得出解决问题所需的表达式,然后设计程序求解问题的方法称为穷举法。
[1分]
答案:
错误
35、【
判断题
】
著名的“百鸡问题”求解,一般采用穷举法将所有可能列出来并判断其是否符合条件,如果符合就将其打印出来,否则继续判断下一组数据。( )
[1分]
答案:
正确
36、【
简答题】
Private Sub Command1_Click( )
For i = 2 To 9
a = (i * i) Mod 10
If a = i Then Print i * i
Next i
End Sub
当运行程序点击按钮Command1时,将出现结果为:
[5分]
解析:
25
36
37、【
简答题】
运行时,单击窗体然后在输入框中依次输入10、37、50、55、64、20、28、-19、0,写出运行结果。
Private Sub Form_Click()
Dim x As Integer
Do
x = Val(InputBox("x="))
If (x Mod 10) + Int(x / 10) = 10 Then Print x;
Loop Until x = 0
End Sub
[5分]
解析:
37 55 64 28
38、【
简答题】
公元6世纪,中国的《张丘建算经》有一道著名的百鸡问题:公鸡5钱1只,母鸡3钱1只,小鸡3只1钱,有人用100钱买了100只鸡。请编写一段代码求其中公鸡,母鸡,小鸡各多少只?
[15分]
解析:
Private Sub Command1_Click()
For i = 0 To 20
For j = 0 To 33
k = 100 - i - j
If 5 * i + 3 * j + k / 3 = 100 Then Print i, j, k
Next j
Next i
End Sub
39、【
简答题】
把11~20这10个自然数的平方的最后两位截出后用插入排序方法找出前五个最小的数(按从小到大排列)。注意:一维数组下标最大只能定义到5。
[20分]
解析:
Private Sub Form_Click()
Dim x(0 To 5) As Integer
For i = 1 To 5
x(i) = 100
Next i
For i = 11 To 20
a = (i * i) Mod 100
k = 5
Do While k > 1 And x(k - 1) > a
x(k) = x(k - 1)
k = k - 1
Loop
x(k) = a
Next i
For i = 1 To 5
Print x(i);
Next i
End Sub