vb控制结构综合练习
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
控制结构
一、选择题
1.VB 的3种结构化程序设计的3种基本结构是________。
A) 选择结构、过程结构、顺序结构 B) 递归结构、选择结构、顺序结构 C) 过程结构、转向结构、递归结构 D) 选择结构、顺序结构、循环结构
2.用If 语句表示分段函数
33
11
()11
x x f x x x ⎧-≥=⎨+<⎩ ,以下________表示方法不正确。 A) f=x^3+1
If x>=1 Then f=s^3-1 B) If x>=1 Then f=x^3-1 If x<1 Then f=x^3+1 C) If x>=1 Then f=x^3-1 f=x^3+1
D) If x<1 Then f=x^3+1 Else F=x^3-1
3.执行下面的程序段后显示结果是________。
Private Sub Form_Click() Dim m
If m Then Print m Else Print m+1 End Sub
A) 0 B) 1 C) ”” D) False
4.设a=6,则执行x=IIf(a>5,-1,0)后,x 的值为________。
A) 5 B) 6 C) 0 D) –1
5.下面程序段的运行结果是________。 cj=85
If cj>90 Then dj="A" If cj>80 Then dj="B" If cj>70 Then dj="C" If cj>60 Then dj="D" If cj<60 Then dj="E" Print "dj=";dj
A) dj=B B) dj=C C) dj=D D) dj=E
6.下列语句正确的是________。 A) If K<3*N And k>N Then N=k^3 B) If K<3*N And k>N Then N=k3 C) If K<3*N : k>N Then N=k^3 D) If K<3*N And k>N Then N=k**3
7.设X=2.0,y=8.0,z=6.0,L=True ,则下列Visual Basic 表达式中值为True 的是________。
A) X+Z>Y AND L B) NOT(Y
D) Y+X>=Z+X AND (L AND FALSE)
8.要判断”月收入在2000元以上(含2000元)且5000元以下(不含5000元)”的职工,应使用的逻辑表达式是________。 A) M>=2000 AND M<=5000 B) M>=2000 OR M<=5000 C) M>=2000 AND M<5000 D) M>=2000 OR M<5000
9.下列程序段的执行结果为________。 x=Int((69-60)*Rnd+60) Select Case x Case Is>90
Print "优秀" Case 80 To 89 Print "良好" Case 60 To 79 Print "合格" Case Else
Print "不合格" End Select
A) 优秀 B) 良好 C) 合格 D) 不合格 10.在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:运行结果________。
Private Sub Command1_Click() For I=1 To 4 For J=0 To I
Print Chr(65+I); Next J Print Next I End Sub
单击命令按钮后,运行结果________。
A) BB B) A
CCC BB
DDDD CCC
EEEEE DDDD
C) B D) AA
CC BBB
DDD CCCC
EEEE DDDDD
11.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim i As Integer,n As Integer
For i=0 To 50
i=i+3
n=n+1
If i>10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是________。
A) 2 B) 3 C) 4 D) 5
12.在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
Print x
End Sub
程序运行后,单击命令按钮,输出结果是________。
A) 7 B) 15 C) 157 D) 538 13.阅读下面的程序段:
For i=1 To 3
For j=1 To i
For k=j To 3
a=a+1
Next k
Next j
Next i
执行上面的三重循环后,a的值为________。
A) 3 B) 9 C) 14 D) 21
14.在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:Private Sub Form_Load()
Text1.Text=""
Text1.SetFocus
For i=1 To 10
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是________ 。
A)在文本框Text1中输出55
B)在文本框Text1中输出0
C) 出错
D) 在文本框Text1中输出不定值
15.有如下程序:
a=10
b=4
For j=1 To 20 Step -2
a=a+5
b=b+4
Next j
Print a;b
运行后,输出的结果是________。
A) 10 4 B) 60 24 C) 110 44 D) 55
40
16.有如下程序:
d$=""
a$="abcde"
For i=Len(a) To 1 Step -1
d=d+Mid(a,i,1)
Next i
Print d$