设有如下声明:Dim X As Integer如果Sgn(X)的值为-1,则X的值是()。A.整数B.大于0的整数C.等于0的整
设有如下声明: Dim X As Integer 如果Sgn(X)的值为-1,则X的值是()。
A.整数
B.大于0的整数
C.等于0的整数
D.小于0的数
设有如下声明: Dim X As Integer 如果Sgn(X)的值为-1,则X的值是()。
A.整数
B.大于0的整数
C.等于0的整数
D.小于0的数
在窗体上添加一个名为Command1的命令按钮,然后编写如下程序:
Function m(x As Integer, y As Integer) As Integer
m=IIf(x>y,x,y)
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=1
b=2
MsgBox m(a,b)
End Sub
打开窗体运行后,单击命令按钮,消息框中输出结果为【 】。
设有如下变量声明: Dim TestDate As Date为变量TestDate正确赋值的表达方式是 ______。
A.TestDate=#1/1/2002#
B.TestDate=#"1/1/2002"#
C.TestDate=date("1/1/2002")
D.TestDate=Format("m/d/ yy", "1/1/2002")
在窗体上画一个按钮,然后编写如下的事件代码。在按钮上单击,输出为()。 Private Sub fun3(x As Integer) Static a As Integer Dim b As Integer a=a+3:b=b+3 a=a+x:b=b+x Printa;b End Sub Private Sub Command1_Click() Dim k As Integer,m As Integer,n As Integer k=2:m=1 Call fun3(k) Call fun3(m) End Sub
A.5 5 9 9
B.5 5 9 4
C.5 5 4 4
D.5 5 4 9
设有如下变量声明:Dim TestDate As Date,为变量TestDate正确赋值的表达式是()。
A.TestDate=#1/1/2007#
B.TestDate#"1/1/2007"#
C.TestDate=date("1/1/2002")
D.TestDate=Format("m/d/yy"."1/1/2002")
设有如下变量声明: Dim Test Date AS Date 为变量Test Date正确赋值的表达式是()。
A.Test Date=#1/1/2002#
B.TestDate#"1/1/2002"#
C.Test Date=date("1/1/2002")
D.Test Date=Format("m/d/yy","1/1/2002")
A.a和b都是布尔型变量
B.a是变体型变量,b是布尔型变量
C.a是整型变量,b是布尔型变量
D.a和b都是变体型变量
A.a和b都是布尔型变量
B.a是变体型变量,b是布尔型变量
C.a是整型变量,b是布尔型变量
D.a和b都是变体型变量
设有如下程序:
Private Sub Form_Click()
Dim i As Integer,x As String,Y As String
x=”ABCDEFG”
For i=4 To 1 Step-1
y=Mid(x,i,i)+y
Next i
Print y
End Sub
程序运行后,单击窗体,输出结果为
A.ABCCDEDEFG
B.AABBCDEFG
C.ABCDEFG
D.AABBCCDDEEFFGG
设有以下函数过程
Private Function Fun(a()As Integer,b As String)As Integer
Ehd Function
若已有变量声明:
Dim x(5)As Integer,n As Integer,ch As String
则下面正确的过程凋用语句是
A.x(0)=Fun(x,“ch”)
B.n=Fun(n,ch)
C.Call Fun x,“ch”
D.n=Fun(x(5),ch)
(22)设有如下程序段:
Dim a(10)
...
For Each x In a
Print x;
Next x
在上面的程序段中,变量x必须是
A)整型变量
B)变体型变量
C)动态数组
D)静态数组