Question

帮忙做一下VB题，救急，多谢了！

1、 有如下程序
for j=10 to 6 step -1
k=j
next j
print k;j
end
运行时输出的结果是
A) 5 5 B) 5 6 C) 6 5 D) 6 6
请选择-> A B C D

2、 有如下程序
a$="12345":b="abcde"
for j=1 to 5
c$=c$+left(a$,1)+right(b$,1)
next j
print c$
end
运行时输出的结果为
A) alb2c3d4e5 B) la2b3c4dse
C) eld2c3d4as D) 1e1e1e1e1e
请选择-> A B C D

3、 有如下程序
a=3
if a<=3 then
print 3
end if
if a<=4 then
print 4
end if
if a<=5 then
print 5
end if
if a<=6 then
print 6
end if
print
end
运行时输出的结果是
A) 3 B) 3 4 C) 3 4 5 D) 3 4 5 6
请选择-> A B C D

4、 有如下程序
a$="54321";b$="abcde"
for j=1 to 5
print mid$(a$,6-j,1)+mid$(b$,j,1);
next j
print
end
运行后输出的结果是
A) a1b2c3d4e5 B) a5b4c3d2e1
C) 1a2b3c4d5e D) e1d2c3b4a5
请选择-> A B C D

5、 下面程序段（）能够实现条件：如果x<y,则a=16.否则a=-16
A) ifx<y then a=16 B) ifx<y then a=16:print a
a=-16 a=-16:print a
print a
C) if x<y then D) if x<y then a=16
a=16:print a else
else a=-16
a=-16:print a print a
end if end if
请选择-> A B C D

6、 能够实现以下分段函数的程序段是（）
2x+1 (x≥0)
f(x)=｛
2x-1 (＜0)
A) if x>=0 then y=2x+1 B) if x>=0 then y=2*x+1
y=2x-1 else
y=y=2*x-1
C) if x≥0 then D) if x>=0 then
y=2*x+1 y=2*x+1
else else
y=2*x-1 y=2*x-1
end if end if

请选择-> A B C D

7、 下列程序段的执行结果是（）
x=50
y=60
if x<y then print y;:print x;
print y-x>0
A) 50 60 B) 60 50 True C) 60 50 D) 50
请选择-> A B C D

8、 下列程序段的执行结果是（）。
for j=1 to 10 step 2
next j
print j
A) 10 B) 11 C) 9 D) 8
请选择-> A B C D

9、 给出下面程序段，假设运行时依次输入数据1，-1，该程序段的输出结果是（）。
x=0
do while x<>-1
x=val(inputbox("请输入数据x"))
y=val(inputbox("请输入数据y"))
if x*y<x+y then print x,y
loop
A) 1 -1 B)0 1 C) -1 1 D) 1 1
请选择-> A B C D

10、 下面程序段的输出结果是（）。
a=0:b=0
for i=-1 to -2 step -1
for j=1 to 2
b=b+1
next j
a=a+1
nexti
print a;b
A) 2 4 B) -2 2 C) 4 2 D) 2 3
请选择-> A B C D

Answer 1

1、 有如下程序
for j=10 to 6 step -1
k=j
next j
print k;j
end
运行时输出的结果是C) 6 5
2、 有如下程序
a$="12345":b="abcde"
for j=1 to 5
c$=c$+left(a$,1)+right(b$,1)
next j
print c$
end
运行时输出的结果为 D) 1e1e1e1e1e
3、 有如下程序
a=3
if a<=3 then
print 3
end if
if a<=4 then
print 4
end if
if a<=5 then
print 5
end if
if a<=6 then
print 6
end if
print
end
运行时输出的结果是 D) 3 4 5 6
4、 有如下程序
a$="54321";b$="abcde"
for j=1 to 5
print mid$(a$,6-j,1)+mid$(b$,j,1);
next j
print
end
运行后输出的结果是 C) 1a2b3c4d5e
5、 下面程序段（ C）能够实现条件：如果x<y,则a=16.否则a=-16
6、 能够实现以下分段函数的程序段是（D)）
7、 下列程序段的执行结果是（B) 60 50 True ）
x=50
y=60
if x<y then print y;:print x;
print y-x>0
8、 下列程序段的执行结果是（B) 11 ）。
9、 给出下面程序段，假设运行时依次输入数据1，-1，该程序段的输出结果是（A) 1 -1）。
x=0
do while x<>-1
x=val(inputbox("请输入数据x"))
y=val(inputbox("请输入数据y"))
if x*y<x+y then print x,y
loop

10、 下面程序段的输出结果是（A) 2 4）。
a=0:b=0
for i=-1 to -2 step -1
for j=1 to 2
b=b+1
next j
a=a+1
nexti
print a;b

Answer 2

1、 有如下程序
for j=10 to 6 step -1
k=j
next j
print k;j
end
运行时输出的结果是C) 6 5
2、 有如下程序
a$="12345":b="abcde"
for j=1 to 5
c$=c$+left(a$,1)+right(b$,1)
next j
print c$
end
运行时输出的结果为 D) 1e1e1e1e1e
3、 有如下程序
a=3
if a<=3 then
print 3
end if
if a<=4 then
print 4
end if
if a<=5 then
print 5
end if
if a<=6 then
print 6
end if
print
end
运行时输出的结果是 D) 3 4 5 6
4、 有如下程序
a$="54321";b$="abcde"
for j=1 to 5
print mid$(a$,6-j,1)+mid$(b$,j,1);
next j
print
end
运行后输出的结果是 C) 1a2b3c4d5e
5、 下面程序段（ C）能够实现条件：如果x<y,则a=16.否则a=-16
6、 能够实现以下分段函数的程序段是（D)）
7、 下列程序段的执行结果是（B) 60 50 True ）
x=50
y=60
if x<y then print y;:print x;
print y-x>0
8、 下列程序段的执行结果是（B) 11 ）。
9、 给出下面程序段，假设运行时依次输入数据1，-1，该程序段的输出结果是（A) 1 -1）。
x=0
do while x<>-1
x=val(inputbox("请输入数据x"))
y=val(inputbox("请输入数据y"))
if x*y<x+y then print x,y
loop

10、 下面程序段的输出结果是（A) 2 4）。
a=0:b=0
for i=-1 to -2 step -1
for j=1 to 2
b=b+1
next j
a=a+1
nexti
print a;b
希望能帮到你,楼主

Answer 3

1、
常用控件的style属性值是
C)
数值常量
2、
要向图片框p1中加载“c:\window\clouds.bmp”图象文件，应使用语句
D)
p1.picture=loadpicture("c:\windows\clouds.bmp")
3、
要在命令按钮控件上显示图象应
C)
先将style设置为1，然后再设置picture属性
4、
要使文本框可输入多行文字，要更改的默认选项是
A)
scrollboars和multiline
5、
以下不具有picture属性的对象是
D)
文本框
6、
能够改变窗体边框线类型的属性是
B)
borderstyle
7、
在程序代码中将图片文件mypic.jpg装入图片框picturel的语句是
C)
picture1.picture=loadpicture("mypic.jpg")
8、
想要改变一个窗体的标题内容，则应设置以下哪个属性的值？
C)
caption
9、
任何控件都具有（）属性。
C)
name
10、
标准工具箱中的控件（）。
D)
在窗体建立对象时不一定被使用

Answer 4

1C
2D
3D
4C
5比较乱，貌似C
6比较乱，貌似B
7B
8B
9A
10A