算法会考模拟单选题.docx
《算法会考模拟单选题.docx》由会员分享,可在线阅读,更多相关《算法会考模拟单选题.docx(34页珍藏版)》请在冰豆网上搜索。
![算法会考模拟单选题.docx](https://file1.bdocx.com/fileroot1/2023-2/1/5c078767-af89-436f-a680-8a3e5e0ddfcd/5c078767-af89-436f-a680-8a3e5e0ddfcd1.gif)
算法会考模拟单选题
在Visual Basic中,同一行上可以书写多个语句,语句间用( )符号分隔。
∙A) 撇号(’)B) 冒号(:
)C) 感叹号(!
)D) 大于号(>)
答案:
B
Print "20+5=";20+5输出的结果是( )
∙A) 20+5=20+5B) 25=20+5C) "20+5"=25D) 20+5=25
答案:
D
语句Print "5*20" 输出结果是 ( )
∙A) "5*20"B) 出错C) 5*20D) 100
答案:
C
下面四个选项中,不是窗体事件的是( )
∙A) LoadB) UnloadC) DblClickD) Enable
答案:
D
若要设置文本框中所显示的文本颜色,使用的属性是( )
∙A) FillColorB) BackColorC) ForeColorD) BackStyle
答案:
C
设置命令按钮标题文字的字体、字号要使用( )属性。
∙A) TextB) CaptionC) NameD) Font
答案:
D
只能用来显示字符信息的控件是( )
∙A) 标签B) 图像框C) 图片框D) 文本框
答案:
A
下面四个控件中,属于文本框控件的是( )
∙A)
B)
C)
D)
答案:
B
下述选项中,属于VB程序设计方法的是( )
A) 面向对象,事件驱动B) 面向对象,顺序驱动
C) 面向过程,问题驱动D) 面向过程,对象驱动
答案:
A
执行以下语句后,a的值是( )
Dim a As Integer
a = 1
Do While a <> 100
a = a + 2
Loop
∙A) 99B) 100C) 溢出D) 101
答案:
C
在VB中,以下程序段:
t=1:
x=0
Do While t<10
x=x+t
t=t+1
Loop
运行后的x的值为( )
∙A) 9B) 45C) 10D) 55
答案:
B
当VB执行下面语句后,A的值为( )
A=1
IF A>0 THEN A=A+1
IF A>1 THEN A=0
∙A) 2B) 1C) 0D) 3
答案:
C
下列程序段输出的结果为( )
x = 5:
y = 10:
z = 20
If x + y > z Then Print 3 * z Else Print 4 * z
∙A) 60B) 80C) 15D) 20
答案:
B
有如下Visual Basic程序段,该程序段运行后,变量y的值是( )。
x=8
if x>l then
y=x-4
else
y=x+3
end if
∙A) 4B) 8C) 11D) 15
答案:
A
定义a,b,c为整型变量,执行语句 a = 9:
b = 8:
c = 10:
c = a:
a = b:
b = c后,其a,b的值是( )
∙A) 8,9B) 8,10C) 10,8D.9,8D) 9,8
答案:
A
模块:
算法与程序设计
表达式Abs(-32.6)*Sqr(100)的值是( )
∙A) -320B) -326C) 326D) 320
答案:
C
执行下列语句后,S的值是( )
B$="456789"
S=Val(Mid$(B$,3,2))
∙A) 67B) 78C) 45D) 567
答案:
A
在VB中执行“A=80\9 MOD 6”语句后,A的值为( )
∙A) 3B) 2C) 1D) 7
答案:
B
针对语句 If I=1 then J=1,下列说法正确的是 ( )
∙A) I=1和J=1均为赋值语句B) 均为关系表达式
∙C) I=1为关系表达式,J=1为赋值语句D) I=1为赋值语句,J=1为关系表达式
答案:
C
下列能正确表示a≥7或a≤-5的关系表达式是( )
∙A) a>=7Ora<=-5B) a>=7Anda<=-5
∙C) a>=7Xora<=-5D) a>=7Eqva<=-5
答案:
A
表示“X>Y>Z”,正确的VB逻辑表达式是 ( )
∙A) X>YAndY>ZB) X>Y>ZC) X>YorY>ZD) X>YAnd>Z
答案:
A
VB程序设计问题。
在窗体上画一个文本框,然后编写如下事件过程:
Private Sub Form_Click()
x = InputBox("请输入一个整数")
Print x + Text1.Text
End Sub
程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击“确定”按钮后,在窗体上显示的内容是( )。
∙A) 123B) 456C) 579D) 123456
答案:
D
在文本框Text1中输入数字12,Text2中输入数字34,执行以下语句,只有( )可使文本框Text3中显示46。
∙A) Text3.Text=Text1.Text&Text2.Text
∙B) Text3.Text=val(Text1.Text)+val(Text2.Text)
∙C) Text3.Text=Text1.Text+Text2.Text
∙D) Text3.Text=val(Text1.Text)&val(Text2.Text)
答案:
B
模块:
算法与程序设计
窗体上有一个文本框控件Text1,假设已存在三整型变量a,b和c,且变量a值为5,变量b的值为7,变量c的值为12,则以下的( )语句可以使文本框内显示的内容为:
5+7=12
∙A) Text1.Text=a+b=cB) Text1.Text="a+b=c"
∙C) Text1.text=a&"+"&b&"="&cD) Text1.text="a"&"+"&"b"&"="&"c"
答案:
C
表达式 5<8 and 7>4 or 3=2的结果是 ( )
∙A) FalseB) TrueC) 1D) 0
答案:
B
在VB6.0中,下面四个数中,作为常量有语法错误的是( )
∙A) 123.456B) 1.23E2.1C) 1.23E-2D) 123.4E4
答案:
B
下面所列四组数据中,全部是VB常量的是 ( )
∙A) 2768&,1.34#,“ABCDE”,TrueB) 276,123.56,1.2E-2,#True#
∙C) HABCE,02-03-2004,False,0-3D) ABCE,#02-03-2004#,E-2
答案:
A
由Const m=“123”,可以判断m为( )。
∙A) 整型常量B) 实型常量C) 字符串型常量D) 布尔型常量
答案:
C
在Visual Basic 6.0程序语言系统中,下列不合法的变量名是( )
∙A) mynameB) a5cC) 4cD) class_1
答案:
C
下列各种基本数据类型说明符中表示单精度实型数的是( )。
∙A) IntegerB) BooleanC) SingleD) String
答案:
C
在程序中将变量Inta、Bl、st和D定义为Integer型、Boolean型、String型和Date型,下列语句中,正确的是( )
∙A) Inta="333"+"22"B) D=#10/05/01#C) 5+"abc"D) #True#
答案:
B
执行语句x = -1:
y = 2:
x = x + y:
y = x + y 变量x,y分别是( )。
∙A) 13B) 11C) -12D) x+yx+y
答案:
A
下列Visual Basic程序段运行后,变量x的值为( )。
x=3:
y=77
Do
x=x+2
Loop Until x>Sqr(y)
∙A) 7B) 8C) 9D) 10
答案:
C
在过程中有语句For I=N1 to N2 step N3,在该循环体内有下列四条语句,其中( )会影响循环执行次数
①、N1=N1+1 ②、N2=N2+N3 ③、I=I+N3 ④、N3=2*N3
∙A) ①②B) ①②③C) ③D) ①②③④
答案:
C
下列选项中不能输出信息的是( )
∙A) Printa+b,cB) ?
a,b,cC) Printa;b,cD) Dimxassingle
答案:
D
有如下VB程序,运行后S的值是( )。
s=3
n=5
s=s+n
n=s-n
s=s-n
∙A) 3B) 8C) 5D) 15
答案:
C
在VB中,某同学要计算1+3+5+……+9的值,他应用循环结构语句如下:
“ s=0
FOR i=1 TO 9 STEP ?
s=s+i ”
请问语句中的“?
”代表的值是( )
∙A) 1B) -1C) 2D) -2
答案:
C
下列Visual Basic程序段运行后,变量max的值为( )。
a=11
b=15
max=a
IF b>max Then max =b
∙A) 11B) 15C) 15或11都有可能D) 以上都不是
答案:
B
下面程序段是用函数实现的二分查找,将程序中带下划线的部分补充完整。
funtion search(byval key as integer) as integer
dim i as integer
dim j as integer
dim m as integer
dim nc as integer
i=1
j=60
nc=0
do while i<=j
nc=nc+1
m=(i+j) \2
if _______ then
search=m
exit function
endif
if key j=m-1
else
i=m+1
endif
loop
search=0
end function
∙A) d(m)=keyB) d(m)<>keyC) key>d(m)D) d(m)
答案:
A
下面程序段是用递归函数实现的求n!
,将程序中带下划线的部分补充完整。
function f(byval as integer) as integer
if n=1 then
f=1
else
f=_________
endif
end function
∙A) f(n)B) n*f(n-1)C) f(n-1)D) n+f(n-1)
答案:
B
阅读下列程序,程序运行后在文本框中显示的内容是()。
Private Sub Form_Click()
Dim s As Integer
Dim i As Integer
s = 0
For i = 1 To 50
s = s + (2 * i - 1) - 2 * i
Next i
text1.text = s
End Sub
∙A) 0B) 50C) -50D) 5050
答案:
C
阅读下列程序,程序运行后在文本框中显示的内容是()。
Private Sub Form_Click()
Dim s1 As Integer
Dim s2 As Integer
Dim i As Integer
s2 = 0
s1 = 0
For i = 1 To 50
s1 = s1 + (2 * i - 1)
s2 = s2 + 2 * i
Next i
text1.text = s1 - s2
End Sub
∙A) 5050B) -50C) 0D) 50
答案:
B
阅读下列程序,程序运行后在文本框中显示的内容是()。
Private Sub Form_Click()
Dim s As Integer
Dim t As Integer
Dim i As Integer
s = 0
t = 1
For i = 1 To 100
s = s + i * t
t = -t
Next i
text1.text = s
End Sub
∙A) 5050B) -50C) 2525D) 50
答案:
B
阅读下列程序,程序运行后在文本框中显示的内容是()。
Private Sub Form_Click()
Dim s As Integer
Dim i As Integer
s = 1
i = 1
Do While i <= 6
s = s * i
i = i + 1
Loop
text1.text = s
End Sub
∙A) 120B) 720C) 360D) 21
答案:
B
阅读下列程序,程序运行后在文本框中显示的内容是()。
Private Sub Form_Click()
Dim s As Integer
Dim i As Integer
s = 0
i = 1
Do While i <= 100
s = s + i
i = i + 1
Loop
text1.text = s
End Sub
∙A) 5050B) 5051C) 10100D) 10101
答案:
A
阅读下列程序,程序运行后在文本框中显示的内容是()。
Private Sub Form_Click()
Dim s As Integer
Dim i As Integer
s = 0
For i = 1 To 100
s = s + i
Next i
text1.text= s
End Sub
∙A) 5051B) 10100C) 5050D) 10101
答案:
C
阅读下列程序,程序运行后在文本框中显示的内容是()。
Private Sub Form_Click()
Dim f1 As Integer
Dim f2 As Integer
Dim f As Integer
Dim i As Integer
f1 = 1
f2 = 1
For i = 3 To 8
f = f1 + f2
f1 = f2
f2 = f
Next i
text1.text = f
End Sub
∙A) 13B) 21C) 34D) 3
答案:
B
阅读下列程序,程序运行后在文本框中显示的内容是()。
Private Sub Form_Click()
Dim n As Integer
Dim s As Integer
n = 10
s = 0
For k = n \ 3 To 4
s = s + k - (n - k + 1) \ 2 + 1
Next k
text1.text = s
End Sub
∙A) 3B) 2C) 1D) 4
答案:
B
阅读下列程序,程序运行后在文本框中显示的内容是( )。
Private Sub Form_Click()
Dim n As Integer
Dim s As Integer
n = 456
s = 0
Do While n > 1
s = s + n \ 5
n = n \ 5
Loop
text1.text = s
End Sub
∙A) 112B) 110C) 91D) 109
答案:
A
在VB中进行程序界面制作时,要设置某个对象属性时,应进入()。
∙A) 任意模式B) 运行模式C) 中断模式D) 设计模式
答案:
D
阅读下列程序段,程序运行后在文本框中显示的内容是()。
Private Sub Form_Click()
Dim a(1 To 10) As Integer
Dim b(1 To 10) As Integer
Dim j As Integer
For j = 1 To 5
a(j) = 2 * j
b(j) = a(j) * 3
Next j
Text1.Text = b(j \ 2)
End Sub
∙A) 30B) 无解C) 18D) 0
答案:
C
阅读下列程序段,程序运行后正确结果是()。
Private Function tran(ByVal n As Long)
Dim k As Long
k = n Mod 8
n = n \ 8
If n <> 0 Then
tran (n)
End If
Print k;
End Function
Private Sub Form_Click()
Dim m As Long
m = 2010
tran (m)
End Sub
∙A) 2010B) 3732C) 2373D) 0102
答案:
B
阅读下列程序段,程序运行后在文本框中显示的结果是()。
Private Function gcd(ByVal m As Long, ByVal n As Long) As Long
Dim r As Long
r = m Mod n
If r = 0 Then
gcd = n
Else
gcd = gcd(n, r)
End If
End Function
Private Sub Form_Click()
Dim x As Long
Dim y As Long
x = 524
y = 36
Text1.Text = gcd(x, y)
End Sub
∙A) 8B) 4C) 2D) 1
答案:
B
下面程序段是实现二分查找,执行程序后,先输入由小到大的一组数据,后输入要查询的数。
将程序中带下划线的部分补充完整。
Dim a(1 To 10) As Integer
Private Function search(ByVal key As Integer) As Integer
Dim i As Integer
Dim j As Integer
Dim m As Integer
j = 5
i = 1
Do While _____________
m = (i + j) \ 2
If a(m) = key Then
search = m
Exit Function '退出定义函数
Else
If key > a(m) Then
i = m + 1
Else
j = m - 1
End If
End If
Loop
search = -1
End Function
Private Sub Form_Click()
Dim i As Integer
Dim x As Integer
For i = 1 To 5
a(i) = InputBox("请输入第" + Str(i) + "的值:
")
Next i
x = InputBox("输入要查找的数值")
Print search(x)
End Sub
∙A) i<=jB) i>=jC) i<>jD) i=j
答案:
A
下列程序段是将数组a中元素值从小到大排序,请将程序中带下划线部分补充完整。
Private Sub Form_Click()
Dim a(1 To 10) As Integer
Dim i As Integer
Dim j As Integer
Dim t As Integer
n = 10
Randomize
For i = 1 To n
a(i) = Int(Rnd() * 100)
Print a(i);
Next i
Print Chr(10)
For i = 1 To n - 1
For j = i + 1 To n
If ____________ Then
t = a(j)
a(j) = a(i)
a(i) = t