VB程序题Word格式.doc
《VB程序题Word格式.doc》由会员分享，可在线阅读，更多相关《VB程序题Word格式.doc（8页珍藏版）》请在冰点文库上搜索。
A=B
B=C
二、分支结构：
当条件满足时，执行语句组1
当条件不满足时，执行语句组2
执行完语句组1或语句组2后执行
Endif下面的语句。
IF<
条件>
Then
<
语句组1>
Else
<
语句组2>
Endif
当条件满足时，执行语句组，接着执行Endif下面的语句。
当条件不满足时，执行Endif下面的语句。
语句组>
2．下列程序运行后，变量Value的值是?
x=12
Ifx>
=10Then
Value=5*x
Value=4*x
EndIf
1、以下程序段的执行结果为？
A=5
B=6
IfA<
Bthen
T=A
A=B
B=T
Endif
Printa;
4、该程序段运行后，变量a和b的值分别为
a=9:
Ifa<
bthen
t=a
a=b
b=t
EndIf
3、该程序段运行后，变量a的值为？
Ifa<
6Then
a=a-2
a=a+2
5、该程序段运行后，变量a和b的值分别为?
Ifa>
答案：
1、a=6b=52、Value=603、a=9
4、a=9:
b=75、a=7b=9
Selectcase表达式
case表达式列表1
<
case表达式列表2
……
case表达式列表n-1
语句组n-1>
caseelse
语句组n>
EndSelect
当表达式的值为表达式列表达1时，执行语句组1；
当表达式的值为表达式列表达2时，执行语句组2；
……
当表达式的值为表达式列表达n-1时，执行语句组n-1；
当表达式的值不是上述值时，执行语句组n；
n=Text1.Text
SelectCasen
Case1To20
x=10
Case2,4,6
x=20
CaseIs<
10
x=30
Case10
x=40
Text2.Text=x
EndSub
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是
10
cj=VAL（Text1.Text）
SelectCasecj
Case0To59
dj=“E”
Case60To69
dj=“D”
Case70To79
dj=“C”
Case80To89
dj=“B”
Case90To100
dj=“A”
CaseElse
Label1.Caption=“你输入的成绩有问题！
”
Label1.Caption=“你的成绩等级为：
”+dj
程序运行后，如果在文本框Text1中输入87，然后单击命令按钮，则在Label1中显示的内容是
你的成绩等级为：
B
三、循环结构
For循环变量=初值To终值[Step步长值]
[循环体]
Next循环变量
在执行For语句时，把初值赋给循环变量，并且记录终值和步长。
如果步长为1，Step语句可省略。
执行循环体
当执行Next语句时，要做两件事：
第一是改变循环变量的值，循环变量（当前的值）+步长；
第二是检查循环变量的新值是否已超过初值和终值的范围，如果没有超过，就返回执行循环体；
若超过终值，就退出循环，执行Next的后续语句。
用以下程序段求100以内的偶数和，划线部分的语句应为？
S=0
fori=0to100step2
_________
Next
n=0
Fori=0To11
i=i+3
n=n+1
Nexti
Textl.Text=Str（n）
程序运行后，在文本框中显示的值是？
以下程序段的执行结果为？
a=5
Fork=15To0step-3
a=a+k
Nextk
Printk;
a
以下程序段的执行结果是？
S=1
ForI=0to4
S=S*I
NextI
prints
1、32、s=s+i
3、k=-3a=504、s=0
四、选择题
1、流程图如右图所示，其输出结果是（）
A.4B.3C.10D.5
答案=A
2、
该程序段运行后，变量y的值是（）
A.25B.20C.15D.0
答案=B
3、把二进制数10转换为十进制数，其值为（）
A.6B.4C.2D.8
答案=C
4、下列属于VisualBasic合法变量名的是（）
A.8abB.a?
2C.ifD.cengji
答案=D
5、流程图如右图所示，若输入x、y的值为1和-4，则输出结果是（）
A.-5B.-3C.3D.5
6、
要使循环体t=t*k执行5次，循环变量的初值应该是（）
A.2B.1C.0D.10
7、
2πa在VisualBasic中的表达式是（）
A.2?
3.1416?
aB.2*?
aC.2πaD.2*3.1416*a
8、
该程序段运行后，循环体执行的次数是（）
A.2B.1C.0D.出错
9、
该程序段运行后，变量a，b的值是（）
A.3，2B.2，1C.2，3D.5，2
答案=A
10、
“x小于30且y大于20”的逻辑表达式是（）
A.x<
30Noty>
20B.x<
30Ory>
20C.x<
30Andy>
20D.x<
30:
y>
20
11、表达式Int（3.141*100）/100的值是（）
A.314.1B.314C.3.14D.3
12、
该程序段运行后，变量s的值为（）
A.80B.60C.15D.3
13、
A.10B.50C.1D.5
14、下面程序段的循环步长是（）
Fori=1To1000
s=s+i
Nexti
A.不确定B.1000C.1D.0
答案=C
15、以下程序段的执行结果为（）
A=2:
B=3
T=A:
A=B:
B=T
Endif
A.33B.22C.32D.23
答案=C
16、王浩同学用VB设计了一个加法器，左图是它的主界面，右图是实现加法运算的关键代码。
右图中的代码应该写在（ ）按钮的“Click”事件中。
A.“清除”B.“计算”C.“窗体”D.“退出”
答案=B
17、在VB程序中，能表示Ｘ或Ｙ小于Ｚ的表达式是（）
A.X<
ZAndY<
ZB.X<
Y<
ZC.X<
Z<
Y D.X<
ZOrY<
Z
答案=D
18、如图，在这个用VB制作的“加法器中”，圈内部分需要使用右图中哪个控件？
A.③B.②C.①D.④
19、用以下程序段求100以内的偶数和，划线部分的语句应为（）
A.S=iB.S=S+2C.S=S+ID.i=i+2
20、
在VB中插入一个命令按钮，图中是这个命令按钮的属性窗口，那么这个命令按钮上显示的文字是：
A.FalseB.startC.Command1D.True
21、以下程序段的执行结果为（）
Fork=1To0
A.-16B.1121C.15D.-116
22、图中是一个按钮的“click”事件代码，这说明该按钮的作用是（）
A.改变字体颜色B.进行一个加法计算C.取当前的系统时间D.添加命令按钮
23、
如图，这个VB窗体中有（）个标签框和（）命令按钮。
A.3、2B.2、2C.3、3D.2、3
24、在VB程序中，用以表示10<
x<
15的表达式应该是（）
A.x>
10andx<
15B.10<
15C.10<
xorx<
15D.10<
xandx>
15
25、李刚要用VisualBasic设计一个程序，首先要做的是（）。
A.分析问题B.编写代码C.设计界面D.调试与运行程序
26、执行“A=5:
A=A+5”语句后，变量A的值为（）
A.10B.5C.0D.不一定
27、用VB设计一个程序，可以查询当前日期和时间并退出，运行界面如图所示，该窗体中用到了：
A.两个标签框和两个命令按钮B.一个标签框和四个命令按钮
C.五个标签框D.三个标签框和两个命令按钮
28、以下程序段的执行结果是（）
A=1:
b=2:
c=3
a=b:
b=c:
c
A.321B.231C.123D.232
29、下面程序段的划线部分应是（）
A=321:
b=654
t=a:
654321
A.b=tB.a=tC.t=bD.b=a
30、表达式16/4-2^8*5MOD5\2的值为（）
A.14B.2C.20D.4
31、执行以下程序段后，变量S的值为（）
S=0
S=S+I
A.4B.16C.12D.10
32、执行以下程序段后，变量y的值为（）
x=3
Ifx>
3Then
y=x*x
EndIf
y=2*x
A.6B.3 C.0D.9
33、以下程序段的执行结果是（）
prints
A.12B.10C.4D.24
34、在用VB设计程序时，图中（）工具用于插入标签框。
A.②B.①C.④D.③
35、有如下程序段:
s=0
Fori=1to3
s=s+i
36、该程序段运行后,变量s的值为（）
A.3B.4C.5 D.6
37、有如下程序段：
a=8:
b=6
38、该程序段运行后，变量a和b的值分别为（）
A.6，6B.8，6C.6，8D.8，8
39、有如下程序段：
t=1
t=t*i
该程序段运行后，变量t的值为（）
A.2B.8C.6D.4
40、下列说法中，不符合程序设计优化原则的是（）
A.变量命名在遵守命名原则的前提下，还要"
见名知意"
B.添加适当的注释以提高程序的可读性
C.程序流程越复杂越好D.程序的运行效率是程序优化的重要指标
41、有如下程序段：
a=6
42、该程序段运行后，变量b的值为（）
A.6B.5C.1D.11
43、有如下程序段：
r=3
s=r*r*r
p=2*r
r=5
s=2*r
该程序段运行后，变量s的值为（）
A.5B.6C.10D.27
44、有如下程序段：
45、该程序段运行后，变量a的值为（）
A.0B.8C.6D.4
有如下程序段：
a=3
该程序段运行后，变量a的值为（）
A.8B.5C.3 D.0
46、
对应的VB表达式是（）
A.B.C.D.
47、有如下程序段：
A.2B.24C.12D.6
48、Cos30°
对应的VB表达式是（）
A.Cos（30*3.14/180）B.Cos（30°
）C.Cos（30）D.Cos30
49、有如下程序段：
该程序段运行后，变量a的值为（）
A.30B.0C.10D.20
50、有如下程序段：
A.8B.4C.0D.16
51、下列有关算法的说法中错误的是（）
A.用流程图描述算法清晰、直观B.用自然语言也可以描述算法
C.算法设计原则是自上而下、先粗后细D.一般情况下应先编程序后设计算法
52、有如下程序段：
A.5B.12C.2D.3
53、如果用“画一个正方形的程序段”画100个正方形，则应采用的程序结构是（）
A.选择结构B.顺序结构C.树型结构D.循环结构
54、有如下程序段：
该程序段运行后，循环体的执行次数是（）
A.3B.2C.1D.4
55、“如果下雨在家学习，不下雨则去书店”。
用流程图描述此问题时，判断“是否下雨”的流程图符号是（）
A.B.C.D.
56、有如下程序段：
该程序段运行后，变量y的值为（）
A.-2B.0C.1D.-1
57、读流程图，判断运行结果是（）
A.-5B.-2C.-1D.5
1、text1中输入数值5，执行下列程序段后，Label2中的值为？
h=val（text1.text）
i=0
Do
h=h*2
i=i+1
LoopUntilh>
=88
Label2.caption=str（i）
13
2、执行下列程序段后，Label1中的值为？
DimsAsInteger,iAsInteger
s=5
i=1
DoWhileI<
9
i=i+2
s=s+i
Loop
Label1.caption=s
4
Do
<
循环体>
LOOPUnitl<
五、DO循环结构：
开始进入
遇到Loop当条件不成立时返回循体环继续执行
当条件成立时退出循环，继续执行Loop下面的语句。
当条件不成立时，
执行Loop下面的语句。
Dowhile<
LOOP
当条件成立时，
遇到Loop返回Do语句。
-8-
升级会员 