有如下程序;
Private SubForm_Click( )
Dim check As Boolean,n As Integer
check=False
n=0
Do
Do While n<10
n=n+1
If n=5 Then
check=True
Exit Do
End if
Print n;
Loop
Loop Until check = True
End Sub
程序运行后,输出的结果是 ______ 。

A:1 2 3 B:1 C:2 3 4 D:1 E:2 F:3 4 G:5 H:1 I:2 J:3 K:4 L:5 M:6

已知a=10,r=6,x=7,b=True,表达式"a>=2*3.14159*r And x<>5 Or Not b"的值为( )。

A:False B:True C:1

有如下程序;
Private SubForm_Click( )
Dim check As Boolean,n As Integer
check=False
n=0
Do
Do While n<10
n=n+1
If n=5 Then
check=True
Exit Do
End if
Print n;
Loop
Loop Until check = True
End Sub
程序运行后,输出的结果是 ______ 。

A:1 2 3 B:1 2 3 4 C:1 2 3 4 5 D:1 2 3 4 5 6

执行下面这段程序后,单击命令按钮,窗体中输出结果是 ______。
Private Sub Command1_Click( )
a=1 : b=4 : c = 9 : d = 5
If a < b Then
If c<d Then
x=True
Else
If a<c Then
x=False
Else
x=True
End If
End If
End If
Print Val(x)
End Sub

A:True B:False D:1

有如下程序; Private SubForm_Click( ) Dim check As Boolean,n As Integer check=False n=0 Do Do While n<10 n=n+1 If n=5 Then check=True Exit Do End if Print n; Loop Loop Until check = True End Sub 程序运行后,输出的结果是 ______ 。

A:1 2 3 B:1 2 3 4 C:1 2 3 4 5 D:1 2 3 4 5 6

执行下面这段程序后,单击命令按钮,窗体中输出结果是 ______。 Private Sub Command1_Click( ) a=1 : b=4 : c = 9 : d = 5 If a < b Then If c<d Then x=True Else If a<c Then x=False Else x=True End If End If End If Print Val(x) End Sub

A:True B:False D:1

当前数据库文件有10条记录,执行下列命令后的结果是( )。 GO 5 APPEND BLANK

A:11 B:6 C:5 D:10

已知“a=10,r=6,x=7,b=True”,表达式“a>=2*3.14159*r And x<>5 Or Not b”的值为______。

A:False B:True C:1

微信扫码获取答案解析
下载APP查看答案解析