VB章节练习题

Largechange属性值分别为25和100。编写适当事件过程，程序运行后，可以使图像框闪烁，其闪烁程度可以通过滚动条调节。

设计界面 运行界面

第七章 Visual Basic控制结构

一、选择题

1.VB的3中结构化程序设计的3种基本结构是________。

A) 选择结构、过程结构、顺序结构 B) 递归结构、选择结构、顺序结构 C) 过程结构、转向结构、递归结构 D) 选择结构、顺序结构、循环结构

?x3?1x?12．用If语句表示分段函数 f(x)??3 ，以下________表示方法不正确。

?x?1x?1A) 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=\If cj>80 Then dj=\If cj>70 Then dj=\

If cj>60 Then dj=\If cj<60 Then dj=\Print \

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 CCC DDDD EEEEE B) A

BB CCC

DDDD C) B CC DDD EEEE D) AA BBB CCCC 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$=\ For i=Len(a$) To 1 Step -1 d$=d$+Mid(a$,i,1) Next i Print d$ 运行后，输出的结果是________。 A) abcde B) edcba C) acebd D) ecadb

17．在Command1_Click事件程序的功能是：按顺序读入10名学生4门课程的成绩。计算出每位学生的平均分并输出，程序如下： Dim n As Integer,k As Integer

Dim score As Single,sun As Single,ave As Single sum=0#

For n=1 To 10 For k=1 To 4 score=InputBox(\请输入一门课的成绩\