下列不是分支结构的语句是

单项选择题

用来测试当前读写位置是否达到文件末尾的函数是

A．EOF
B．FileLen
C．Len
D．LOF

单项选择题

卞列表达式中，能够保留变量x整数部分并进行四舍五入的是

A．Fix(x)
B．Rnd(x)
C．Round(x)
D．Int(x)

单项选择题

在窗口中有一个标签Label0和一个命令按钮Command1，Command1的事件代码如下：
Private Sub Command1_Click()
Label0.Left=Label0.Left+100
End Sub
打开窗口，单击命令按钮，结果是

A．标签向左加宽
B．标签向右加宽
C．标签向左移动
D．标签向右移动

单项选择题

假定有以下程序段
n=0
for i=1 to 3
for j=-4 to -1
n=n+1
next j
next i
运行完毕后，n的值是

A．0
B．3
C．4
D．12

单项选择题

假定有以下循环结构
Do Until 条件
循环体
Loop
则正确的叙述是

A．如果“条件”值为0，则一次循环体也不执行
B．如果“条件”值为0，则至少执行一次循环体
C．如果“条件”值不为0，则至少执行一次循环体
D．不论“条件”是否为“真”，至少要执行一次循环体

单项选择题

在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：
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
MsgBox x
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是

A．7
B．15
C．157
D．528

单项选择题

VBA程序中，可以实现代码注释功能的是

A．方括号([])
B．冒号(:)
C．双引号(")
D．单引号(")

单项选择题

在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click()
A=75
If A＞60 Then I=1
If A＞70 Then I=2
If A＞80 Then I=3
If A＞90 Then I=4
MsgBox I
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是

A．1
B．2
C．3
D．4

单项选择题

以下程序段运行结束后，变量X的值为
x=2
y=4
Do
x=x*y
y=y+1
Loop While y＜4

A．2
B．4
C．8
D．20

单项选择题

在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click()
s="ABBACDDCBA"
For I=6 To 2.Step -2
x=Mid(s,I,I)
y=Left(s,I)
z=Right(s,I)
z=x & y & z
Next I
MsgBox z
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是

A．AABAAB
B．ABBABA
C．BABBA
D．BBABBA

单项选择题

在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click()
a=75
If a＞60 Then
k=1
Elself a＞70 Then
k=2
Elself a＞80 Then
k=3
Elself a＞90 Then
k=4
Endlf
MsgBoxk
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是

A．1
B．2
C．3
D．4

单项选择题

设有如下窗体单击事件过程：
Private Sub Form_Click()
a=1
For i=1 To 3
Select Case i
Case 1,3
a=a+1
Case 2,4
a=a+2
End Select
Next i
MsgBox a
End Sub
打开窗体运行后，单击窗体，则消息框的输出的结果是

A．3
B．4
C．5
D．6

单项选择题

设有如下程序：
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 I
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式是

A．1+1/2+2/3+3/4+4/5
B．1+1/2+1/3+1/4+1/5
C．1/2+2/3+3/4+4/5
D．1/2+1/3+1/4+1/5

单项选择题

下列Case语句中错误的是

A．Case 0 To 10
B．Case Is＞10
C．Case Is＞10 And Is＜50
D．Case 3,5 Is＞10

单项选择题

下列不是分支结构的语句是

A．If...Then...EndIF
B．While...Wend
C．If...Then...Else...EndIf
D．Select...Case...End Select

单项选择题

在窗体中使用一个文本框(名为n)接受输入的值，有一个命令按钮run，事件代码如下：
Private Sub run_Click()
result=""
For i=1 To Me! n
For j=1 To Me! n
result=result+"*"
Next j
result=result+Chr(13)+Chr(10)
Next i
MesgBox result
End Sub
打开窗体后，如果通过文本框输入的的值为4，单击命令按钮后输出的图型是

A．****************
B．****************
C．****************************
D．****************

单项选择题

VBA程序流程控制的方式是

A．顺序控制和分支控制
B．顺序控制和循环控制
C．循环控制和分支控制
D．顺序、分支和循环控制

单项选择题

下列四种形式的循环设计中，循环次数最少的是

A．a=5:b=8DoA=a+1Loop While a＜b
B．a=5:b=8Doa=a+1Loop Until a＜b
C．a=5:b=8Do Until a＜bb=b+1Loop
D．a=5:b=8Do Until a＞ba=a+1Loop

单项选择题

在窗体中有一个命令按钮run35，对应的事件代码如下：
Private Sub run35_Enter()
Dim num As Integer
Dim a As Integer
Dim b As Integer
Dim i As Integer
For i=1 To 10
num=InputBox("请输入数据:","输入",1)
If Int(num/2)=num/2 Then
a=a+1
Else
B=b+1
End If
Next i
MsgBox("运行结果:a="&Str(a)&:",b="&Str(b))
End Sub
运行以上事件所完成的功能是

A．对输入的10个数据求累加和
B．对输入的10个数据求各自的余数，然后再进行累加
C．对输入的10个数据分别统计有几个是整数，有几个是非整数
D．对输入的10个数据分别统计有几个是奇数，有几个是偶数

单项选择题

在VBA中，错误的循环结构是

A．Do while条件式循环体Loop
B．Do Until条件式循环体Loop
C．Do Until循环体Loop 条件式
D．Do循环体Loop While条件式

单项选择题

在窗体中有一个命令按钮(名称为run34)，对应的事件代码如下：
Private Sub run34_Click()
sum=0
For i=10 To 1 Step -2
sum=sum+i
Next i
MsgBox sum
End Sub
运行以上事件，程序的输出结果是

A．10
B．30
C．55
D．其他结果

单项选择题

在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在0到100分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。run35命令按钮的Click的事件代码如下：
Private Sub run35_Click()
Dim flag As Boolcan
result=0
flag=True
Do Whileflag
result=Val(InputBox("请输入学生成绩:","输入"))
If result＞=0 And result＜=100 Then
______
Else
MsgBox "成绩输入错误，请重新输入"
End If
Loop
Rem 成绩输入正确后的程序代码略
End Sub
程序中有一空白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是

A．flag=False
B．flag=Not flag
C．flag=True
D．Exit Do

单项选择题

下列四个选项中，不是VBA的条件函数的是

A．Choose
B．If
C．IIf
D．Switch

单项选择题

设有如下过程：
x=1
Do
x=x+2
Loop Until ______
运行程序，要求循环体执行3次后结束循环，空白处应填入的语句是

A．x＜=7
B．x＜7
C．x＞=7
D．x＞7

单项选择题

在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click()
MsgBox f(24,18)
End Sub
Public Function f(m As Integer,n As Integer)As Integer
Do While m＜＞n
Do While m＞n
m=m-n
Loop
Do While m＜n
n=n-m
Loop
Loop
f=m
End Function
窗体打开运行后，单击命令按钮，则消息框的输出结果是

A．2
B．4
C．6
D．8

单项选择题

在窗体中有一个文本框Text1，编写事件代码如下：
Private Sub Form_Click()
X=val(Inputbox("输入x的值"))
Y=1
If X＜＞0 Then Y=2
Text1.Value=Y
End Sub
打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是

A．1
B．2
C．3
D．4

单项选择题

在窗体中有一个命令按钮Command1，编写事件代码如下：
Private Sub Command1_Click()
Dim s As Integer
S=P(1)+P(2)+P(3)+P(4)
debug.Print S
End Sub
Public Function P(N AS Integer)
Dim Sum As Integer
Sum=0
For i=1 To N
Sum=Sum+i
Next i
P=Sum
End Function
打开窗体运行后，单击命令按钮，输出结果是

A．15
B．20
C．25
D．35

单项选择题

在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：
Private Sub Command1_Click()
For I=1 To 4
x=3
For j=1 To 3
For k=1 To 2
x=x+3
Next k
Next j
Next I
Text1.value=Str(x)
End Sub
打开窗体运行后，单击命令按钮，文本框Text1输出的结果是

A．6
B．12
C．18
D．21

单项选择题

由“For i=1 To 9 Step -3”决定的循环结构，其循环体将被执行

A．0次
B．1次
C．4次
D．5次

单项选择题

在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下
PrivNe Sub Command1_Click()
Dim i,j,x
For i=1 To 20 sep 2
x=0
For j=i To 20 step 3
x=x+1
Next j
Next i
Text1.Value=Str(x)
End Sub
打开窗体运行后，单击命令按钮，文本框中显示的结果是

A．1
B．7
C．17
D．400

单项选择题

在窗体上有一个命令按钮Command1，编写事件代码如下：
Private Sub Command1_Click()
Dim y As Integer
y=0
Do
y=InPutBox{"y"}
If(y Mod 10)+Int(y/10)=10 Then Debug.Print y;
Loop Until y=0
End Sub
打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是

A．37 55 64 28 19 19
B．10 50 20
C．10 50 20 0
D．37 55 64 28 19

单项选择题

窗体中有命令按钮commandd1和文本框Text1，事件过程如下：
Function result(ByVal x As Integer)As Boolean
If x Mod 2=0 Then
result=True
Else
result=False
End If
End Function
Private Sub Command1_Click()
x=Val(InputBox("请输入一个整数"))
If______Then
Text1=str(x) &"是偶数."
Else
Text1=str(x) &"是奇数."
End If
End Sub
运行程序，单击命令按钮，输入19，在Text1中会显示“19是奇数”。那么在程序的空白处应填写

A．result(x)=“偶数”
B．result(x)
C．result(x)=“奇数”
D．NOT result(x)

单项选择题

窗体有命令按钮Command1和文本框Text1，对应的事件代码如下：
Private Sub Command1_Click()
For i=1 To 4
x=3
For j=1 To 3
For k=1 To 2
x=x+3
Next k
Next j
Next i
Text1.Value=Str(x)
End Sub
运行以上事件过程，文本框中的输出是

A．6
B．12
C．18
D．21

单项选择题

窗体中有命令按钮run34，对应的事件代码如下：
Private Sub run34_Enter()
Dim num As Integer, a As Integer, b As Integer, i As Integer
For i=1 To 10
num=InputBox("请输入数据:","输入")
If Int(num/2)=num/2 Then
a=a+1
Else
b=b+1
End If
Next i
MsgBox("运行结果:a="&Str(a) &",b="&Str(b))
End Sub
运行以上事件过程，所完成的功能是

A．对输入的10个数据求累加和
B．对输入的10个数据求各自的余数，然后再进行累加
C．对输入的10个数据分别统计奇数和偶数的个数
D．对输入的10个数据分别统计整数和非整数的个数

单项选择题

运行下列程序，输入数据8、9、3、0后，窗体中显示结果是
Private Sub Form_click()
Dim sum As Integer, m As Integer
sum=0
Do
m=InputBox("输入m")
sum=sum+m
Loop Until m=0
MsgBox sum
End Sub

A．0
B．17
C．20
D．21

单项选择题

运行下列程序段，结果是
For m=10 to 1 step 0
k=k+3
Next m

A．形成死循环
B．循环体不执行即结束循环
C．出现语法错误
D．循环体执行一次后结束循环

单项选择题

在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click()
Dim a(10,10)
For m=2 To 4
For n=4 To 5
a(m,n)=m*n
Next n
Next m
MsgBox a(2,5)+a(3,4)+a(4,5)
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是

A．22
B．32
C．42
D．52

下列不是分支结构的语句是

你可能感兴趣的试题

用来测试当前读写位置是否达到文件末尾的函数是

卞列表达式中，能够保留变量x整数部分并进行四舍五入的是

在窗口中有一个标签Label0和一个命令按钮Command1，Command1的事件代码如下： Private Sub Command1_Click() Label0.Left=Label0.Left+100 End Sub 打开窗口，单击命令按钮，结果是

假定有以下程序段 n=0 for i=1 to 3 for j=-4 to -1 n=n+1 next j next i 运行完毕后，n的值是

假定有以下循环结构 Do Until 条件 循环体 Loop 则正确的叙述是

在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程： 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 MsgBox x End Sub 打开窗体后，单击命令按钮，消息框的输出结果是

VBA程序中，可以实现代码注释功能的是

在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() A=75 If A＞60 Then I=1 If A＞70 Then I=2 If A＞80 Then I=3 If A＞90 Then I=4 MsgBox I End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是

以下程序段运行结束后，变量X的值为 x=2 y=4 Do x=x*y y=y+1 Loop While y＜4

设有如下窗体单击事件过程： Private Sub Form_Click() a=1 For i=1 To 3 Select Case i Case 1,3 a=a+1 Case 2,4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出的结果是

设有如下程序： 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 I End Sub 该程序通过For循环来计算一个表达式的值，这个表达式是

下列Case语句中错误的是

下列不是分支结构的语句是

VBA程序流程控制的方式是

下列四种形式的循环设计中，循环次数最少的是

在VBA中，错误的循环结构是

在窗体中有一个命令按钮(名称为run34)，对应的事件代码如下： Private Sub run34_Click() sum=0 For i=10 To 1 Step -2 sum=sum+i Next i MsgBox sum End Sub 运行以上事件，程序的输出结果是

下列四个选项中，不是VBA的条件函数的是

设有如下过程： x=1 Do x=x+2 Loop Until ______ 运行程序，要求循环体执行3次后结束循环，空白处应填入的语句是

在窗体中有一个文本框Text1，编写事件代码如下： Private Sub Form_Click() X=val(Inputbox("输入x的值")) Y=1 If X＜＞0 Then Y=2 Text1.Value=Y End Sub 打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是

在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click() For I=1 To 4 x=3 For j=1 To 3 For k=1 To 2 x=x+3 Next k Next j Next I Text1.value=Str(x) End Sub 打开窗体运行后，单击命令按钮，文本框Text1输出的结果是

由“For i=1 To 9 Step -3”决定的循环结构，其循环体将被执行

在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下 PrivNe Sub Command1_Click() Dim i,j,x For i=1 To 20 sep 2 x=0 For j=i To 20 step 3 x=x+1 Next j Next i Text1.Value=Str(x) End Sub 打开窗体运行后，单击命令按钮，文本框中显示的结果是

若变量i的初值为8，则下列循环语句中循环体的执行次数为 Do While i＜=17 i=i+2 Loop

InputBox函数的返回值类型是

下列能够交换变量X和Y值的程序段是

窗体有命令按钮Command1和文本框Text1，对应的事件代码如下： Private Sub Command1_Click() For i=1 To 4 x=3 For j=1 To 3 For k=1 To 2 x=x+3 Next k Next j Next i Text1.Value=Str(x) End Sub 运行以上事件过程，文本框中的输出是

运行下列程序，输入数据8、9、3、0后，窗体中显示结果是 Private Sub Form_click() Dim sum As Integer, m As Integer sum=0 Do m=InputBox("输入m") sum=sum+m Loop Until m=0 MsgBox sum End Sub

运行下列程序段，结果是 For m=10 to 1 step 0 k=k+3 Next m

在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() Dim a(10,10) For m=2 To 4 For n=4 To 5 a(m,n)=m*n Next n Next m MsgBox a(2,5)+a(3,4)+a(4,5) End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是

在窗口中有一个标签Label0和一个命令按钮Command1，Command1的事件代码如下：
Private Sub Command1_Click()
Label0.Left=Label0.Left+100
End Sub
打开窗口，单击命令按钮，结果是

假定有以下程序段
n=0
for i=1 to 3
for j=-4 to -1
n=n+1
next j
next i
运行完毕后，n的值是

假定有以下循环结构
Do Until 条件
循环体
Loop
则正确的叙述是

在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：
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
MsgBox x
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是

在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click()
A=75
If A＞60 Then I=1
If A＞70 Then I=2
If A＞80 Then I=3
If A＞90 Then I=4
MsgBox I
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是

以下程序段运行结束后，变量X的值为
x=2
y=4
Do
x=x*y
y=y+1
Loop While y＜4

设有如下窗体单击事件过程：
Private Sub Form_Click()
a=1
For i=1 To 3
Select Case i
Case 1,3
a=a+1
Case 2,4
a=a+2
End Select
Next i
MsgBox a
End Sub
打开窗体运行后，单击窗体，则消息框的输出的结果是

设有如下程序：
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 I
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式是

在窗体中有一个命令按钮(名称为run34)，对应的事件代码如下：
Private Sub run34_Click()
sum=0
For i=10 To 1 Step -2
sum=sum+i
Next i
MsgBox sum
End Sub
运行以上事件，程序的输出结果是

设有如下过程：
x=1
Do
x=x+2
Loop Until ______
运行程序，要求循环体执行3次后结束循环，空白处应填入的语句是

在窗体中有一个文本框Text1，编写事件代码如下：
Private Sub Form_Click()
X=val(Inputbox("输入x的值"))
Y=1
If X＜＞0 Then Y=2
Text1.Value=Y
End Sub
打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是

在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：
Private Sub Command1_Click()
For I=1 To 4
x=3
For j=1 To 3
For k=1 To 2
x=x+3
Next k
Next j
Next I
Text1.value=Str(x)
End Sub
打开窗体运行后，单击命令按钮，文本框Text1输出的结果是

在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下
PrivNe Sub Command1_Click()
Dim i,j,x
For i=1 To 20 sep 2
x=0
For j=i To 20 step 3
x=x+1
Next j
Next i
Text1.Value=Str(x)
End Sub
打开窗体运行后，单击命令按钮，文本框中显示的结果是

若变量i的初值为8，则下列循环语句中循环体的执行次数为
Do While i＜=17
i=i+2
Loop

窗体有命令按钮Command1和文本框Text1，对应的事件代码如下：
Private Sub Command1_Click()
For i=1 To 4
x=3
For j=1 To 3
For k=1 To 2
x=x+3
Next k
Next j
Next i
Text1.Value=Str(x)
End Sub
运行以上事件过程，文本框中的输出是

运行下列程序，输入数据8、9、3、0后，窗体中显示结果是
Private Sub Form_click()
Dim sum As Integer, m As Integer
sum=0
Do
m=InputBox("输入m")
sum=sum+m
Loop Until m=0
MsgBox sum
End Sub

运行下列程序段，结果是
For m=10 to 1 step 0
k=k+3
Next m

在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click()
Dim a(10,10)
For m=2 To 4
For n=4 To 5
a(m,n)=m*n
Next n
Next m
MsgBox a(2,5)+a(3,4)+a(4,5)
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是