题目
设有如下程序:
Private Sub Form_C1ick()
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 0)35
第1题
设有如下程序:
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
第2题
设有Function过程:
Private Function f(a As Integer, b As Integer) As Integer
a = a * a:
b = b * b
f = CInt(Sqr(a - b))
End Function
则如下程序段的运行结果是()。
Private Sub Command1_Click()
Dim X As Integer, Y As Integer
X = 5: Y = 4
a = f(X, Y)
Print a
End Sub
A. 5
B. 4
C. 3
D. 9
第3题
设有一个命令按钮Command1的事件过程以及一个函数过程,程序如下:
Private Sub Command1_Click()
Static x as integer
X=f(x+5)
Cls
Print x
End Sub
Private function f(x as integer)as integer
F=x+x
End function
连续单击命令按钮3次,第3次单击命令按钮后,窗体上显示的计算结果是
A)10
B)30
C)60
D)70
第4题
设有一个命令按钮Command1的事件过程以及一个函数过程。程序如下:
Private Sub Command1 Click()
Static x A S Integer
x=f(x+5)
Cls
Print X
End Sub
Private Function f(x As Integer)As Integer
f=x+x
End Function
连续单击命令按钮3次,第3次单击命令按钮后,窗体显示的计算结果是()。
A.10
B.30
C.60
D.70
第5题
设有如下程序: Private Static Function Fac(n As Integer)As Integer Dim f As Integer f=f+n Fac=f End Function Private Sub Form_Click() Dim I As Integer For 1=2 To 3 Print"#";I&“=”&Fac(1) Next I End Sub 程序运行后,单击窗体,在窗体上显示的是
A.#2=2 #3=3
B.#2=2 #3=5
C.#;2=2 #;3=3
D.#;2=2 #3;=5
第6题
A.32
B.33
C.34
D.35
第7题
设有如下程序: Option Base 1 Private Sub Form. Click() Dim a(5)As String,i As Integer For i=1 To 5 a(i)=Chr(Asc("A")+i) Call f(a,i) Next i End Sub Sub f(ta()As String,n As.Integer) Dim i As Integer For i=1 To n Print ta(i); Next i Print End Sub 对上述程序.以下叙述中正确的是()。
A.程序有错,因为在过程f的定义中数组参数格式不正确
B.程序可正常运行,输出内容的第一行是一个字母“A”
C.程序可正常运行,输出内容的第一行是一个字母“B”
D.程序可正常运行,输出内容的第一行是数字65
第8题
A.10
B.30
C.60
D.70
第9题
设有如下通用过程: Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Commandl Click() Static x As Integer x = 10 y = 5 y = f(x) Print x;y End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是
A.10 5
B.20 5
C.20 40
D.10 40
第10题
设有如下通用过程: Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x*y End Function 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程; Private Sub Command1_Click() Static x As Integer x=10 y=5 y=f(x) Print x;y End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是()。
A.10 5
B.20 5
C.20 40
D.10 40
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!