vb控制结构综合练习

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 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(YNOT L C) NOT L OR (L=Y+X=Z)

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$

相关文档
最新文档