VB选择判断题题库&答案

A、若“条件”是一个为0 的常数，则一次也不执行循环体 B、“条件”可以是关系表达式、逻辑表达式或常数 C、循环体中可以使用Exit Do 语句

D、如果“条件”总是为True，则不停地执行循环体 7、设有如下程序：

Private Sub Command1_Click()

Dim sum AS Double,X AS Double sum=0 n=0

For i=1 to 5 x=n/i n=n+1

sum=sum+x Next End Sub

该程序通过For 循环计算一个表达式的值，这个表达式是（ C ）。 A、1+1/2+2/3+3/4+4/5 B、1+1/2+2/3+3/4 C、1/2+2/3+3/4+4/5 D、1+1/2+1/3+1/4+1/5

8、在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n=1 To 20

If n Mod 3<>0 Then m=m+n\\3 Next n Print n End Sub

程序运行后，如果单击命令按钮，则窗体上显示的内容是（ C ）。 A、15 B、18 C、21 D、24 9、在窗体上画一个名称为Command1 的命令按钮和两个名称分别为Text1、Text2 的文本框，然后编写如下事件过程：

Private Sub Command1_Click() n=Text1.Text Select Case n

Case 1 To 20 x=10 Case2,4,6 x=20 Case Is<10 x=30 Case 10 x=40 End Select Text2.Text=X End Sub

程序运行后，如果在文本框Text1 中输入10，然后单击命令按钮，则在Text2 中

显示的内容是（ A ）。

A、10 B、20 C、30 D、40

10、在窗体上画一个名称为Command1 的命令按钮和一个名称为Text1 的文本框，然后编写如下事件过程：

Private Sub Command1_Click() n=Val(Text1.Text) For i=2 To n For j=2 To Sqr(i)

If i Mod j=0 Then Exit For Next j

If j>Sqr(i) Then Print i Next i End Sub

该事件过程的功能是（ C ）。

A、输出n 以内的奇数 B、输出n 以内的偶数 C、输出n 以内的素数 D、输出n 以内被j 整除的数 11、在窗体上画一个命令按钮(其Name 属性为Command1)，然后编写如下代码： Option Base 1

Private Sub Command1_Click() Dim a s=O

a=Array(1,2,3,4) i=1

For j=4 To 1 Step -1 s=s+a(i)*i

i=i*10 Next i Print S End Sub

运行上面的程序，单击命令按钮，其输出结果是（ B ）。 A、4321 B、1234 C、34 D、12

12、以下Case 语句中错误的是（ C ）。

A、Case 0 To 10 B、Case Is>10 C、Case Is>10 And Is<50 D、Case 3,5,Is>10 13、设有如下程序段： x=2

For i=1 To 10 Step 2 x=x+i Next

运行以上程序后，x 的值是（ B ）。

A、26 B、27 C、38 D、57 14、在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static X AS Integer Cls

For i=1 To 2 y=y+x x=x+2 Next Print x,y End Sub

程序运行后，连续三次单击 Command1 按钮后，窗体上显示的是（ B ）。

A、4 2 B、12 18 C、12 30 D、4 6 15、[多选题]下列程序段的执行结果可以为（ BD ）。 X=Int(Rnd+4+0.5) Select Case x Case 5

Print \优秀\ Case 4

Print \良好\ Case 3

Print \中\ Case 2

Print \及格\ Case Else

Print \不及格\ End Select

A、中 B、优秀 C、不及格 D、良好 E、及格 16、设有如下程序：

Private Sub Command1_Click() Dim c As Integer,d As Integer c=4

d=InputBox(\请输入一个整数\ Do While d>0 If d>c Then c=c+1

End If

d=InputBox(\请输入一个整数\ Loop Print c+d End Sub

程序运行后，单击命令按钮，如果在输入对话框中依次输入 1、2、3、4、5、6、7、8、9、0， 则输出结果是（ D ）。

A、12 B、11 C、10 D、9 17、在窗体上画一个名称为Command1 的命令按钮，然后编写如下程序： Option Base 1

Private Sub Command1_Click() Dim c As Integer,d As Integer

d=0 C=6

x=array(2,4,6,8,10,12) For i=1 To 6 If x(i)>c Then

d=d+x(i) c=x(i) Else

d=d-c End If Next i Print d End Sub

程序运行后，如果单击命令按钮，则在窗体上输出的内容为（ C ）。

A、10 B、16 C、12 D、20 18、在窗体上画一个命令按钮和一个文本框，名称分别为Command1 和Text1，然后编写如下程序：

Private Sub Command1_Click()

a=InputBox(\请输入日期(1～31)\ t=\旅游景点：\

&IIf(a>10 And a<=10,\长城\ &IIf(a>10 And a<=20,\故宫\ &IIf(a>20 And a<=31,\颐和园\ Text1.Text=t End Sub

程序运行后，如果从键盘上输入 16，则在文本框中显示的内容是（ D ）。 A、旅游景点：长城故宫 B、旅游景点：长城颐和园 C、旅游景点：颐和园 D、旅游景点：故宫 19、下述程序段中，与其他3 个程序段作用不同的是（ A ）。 A、s=0 i=0

While i>100 s=s+i Wend B、s=0 i=0

While i<100 i=i+1 Wend C、s=0 i=1

Do While i<100 s=s+1 Loop