全部题库 / VB / 试题详情

单选题 VB

2018-02-07

下面程序的执行结果是( )。
Private Sub Commandl—Click( )a=0
k=1Do While k<4
X=k+kk=k+1
Prim X；
LoopEnd Sub

A．1 4 27

A．1 4 27

B．1 1 1

B．1 1 1

C．1 4 9

C．1 4 9

D．0 0 0

D．0 0 0

查看答案及解析进入在线模考

参考答案

B

答案解析

本题主要考查算术运算符中的幂运算，在程序中x的值为k的k次方的a次方，k的值每次循环都加1，但a的值不变总为0，除0以外的任何数的0次方都是l，因此，在k的值变为4之前会输出三个l。

你可能感兴趣的试题

1 窗体上有名称分别为Textl、Text2的文本框，名称为Commandl的命令按钮。运行程序，在Textl中输入“FormList”，然后单击命令按钮，执行如下程序：Private Sub Commandl—Click( )Text2．Text=UCase(Mid(Textl．Text，5，4)End Sub在Text2中显示的是( )。

A．form

B．list

C．FORM

D．LIST

查看解析在线模考

2 窗体上有名称为Commandl的命令按钮，名称分别为Listl、List2的列表框，其中Listl的MultiSelect属性
设置为1(Simple)，并有如下事件过程：Private Sub Commandl—Click( )
For i=0 To Listl．ListCount一1
If Listl．Selected(i)=True Then
List2．AddItem Text
EndIf
NextEnd Sub上述事件过程的功能是将Listl中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是( )。

A．将For循环的终值改为Listl．ListCount

B．将Listl．Selected(i)=True改为Listl．List(i)．Selected=True

C．将List2．Addltem Text改为List2．AddItem Listl．List(i)

D．将List2ddItem Text改为List2．Addhem Listl．ListIndex

查看解析在线模考

3 设有如下Commandl的单击事件过程及fun过程：
Private Sub Commandl_Click( )
Dim X As Integer
x=Val(InputBox(”请输入一个整数”))fun(X)
End Sub
Private Sub fun(x As Integer)
If X Mod 2=0 Then fun(X／2）Print X；
End Sub
执行上述程序，输入6，结果是( )。

A．3 6

B．6 3

C．6

D．程序死循环

查看解析在线模考