更多"设有变量声明为“Dim aDate As Date”，则为变量aDat"的相关试题:
[单项选择]设有变量声明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")
[单项选择]设有如下变量声明：
Dim TestDate As Date
为变量TestDate正确赋值的表达式是( )。
[单项选择]设有如下通用过程：
Public Function f(x As Integer)
Dim y As Integer
x = 10： y = 5
f = x * y
End Function
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Static x As Integer
x = 2：y = 6
y = f(x)
Print x； y
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A. 2 6
B. 10 5
C. 10 50
D. 6 10
[填空题]设有如下程序
Private Sub Fom1_Click( )
Dim s As Integer，b As Integer
a=20：b=50
p1 a，b
p2 a，b
p3 a，b
Print"a="；a，"b=";b
End Sub
Sub pl(x As Integer，ByValy As Integer)
x=x+10
y=y+20
End Sub
Sub p2(ByVal x As Integer，y As Integer)
x=x+10
y=y+20
End Sub
Sub p3(ByVal x As Integer，ByValy As Integer)
x=x+10
y=y+20
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a= 【9】 和b= 【10】 。
[单项选择]设有如下程序：
Private Sub Cimmand1_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+l/4+1/5
[单项选择]设有如下程序：
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循环计算—个表达式的值，这个表达式是 ______。
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
[单项选择]设有如下变量声明：
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")
[单项选择]设有如下变量声明
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 Form_Click（ ）
Dim a As Integer， s As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n＞0
Print s
End Sub
以上程序的功能是______。程序运行后，单击窗体，输出结果为______。
[填空题]设有如下程序：
Prirate Sub Form_Click（ ）
Dim a As Integer,b AS Integer
a=20:b=50
p1 a,b
p2 a,b
p3 a,b
Print"a="；a,"b=";b
End Sub
Sub p1(x As Integeh By Val y As Integer)
x=x+10
y=y+20
End Sub
Sub p2(ByVal x As Integer,y As Integer)
x=x+10
y=y+20
End Sub
Sub p3 (ByVal x As Integer,ByVal y As Integer)
x=x+10
y=y+20
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a= 和b= 。
[单项选择]设有如下程序：
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，则输出结果是
A. 12
B. 11
C. 10
D. 9
[填空题]设有如下程序：
Private Sub Form_Click（ ）
Dim n As Integer, s As Integer n = 8
s = 0
Do
s = s + n n = n - 1
Loop While n > 0
Print s
End Sub
以上程序的功能是 _________。程序运行后，单击窗体，输出结果为 _________。
[填空题]
设有如下程序：
Private Sub Form_Click（ ）
Dim n As Integer，s As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n＞0
Print s
End Sub
以上程序的功能是（）。程序运行后，单击窗体，输出结果为（）。
[填空题]
设有以下函数过程：
Function fun(m As Integer)As Integer
Dim k As Integer,sum As Integer
sum=0
For k=m To 1 Step -2
sum=sum+k
Next k
fun=sum
End Function
若在程序中用语句s=fim(10)调用此函数，则s的值为 【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
[单项选择]设有如下程序：
Private Sub Commandl_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，则输出结果是
A) 12 B) 11 C) 10 D) 9
[单项选择]设有如下程序：
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，则输出结果是______。
A. 12
B. 11
C. 10
D. 9
[单项选择]设有如下程序：
Private Sub Form_Click（ ）
Dim s As Long, f As Long
Dim n As Integer, i As Integer
f=1
n=4
For i=1 To n
f=f*i
s=s+f
Next i
Print s
End Sub
程序运行后，单击窗体，输出结果是( )。
A. 32
B. 33
C. 34
D. 35
