单项选择题

现有如下程序：
Private Sub Command1_Click()
s=0
For i = 1 To 5
s = s + f(5+i)
Next
Print s
End Sub
Public Function f(x As Integer)
If x ＞ = 10 Then
t=x+1
Else
t=x+2
End If
f=t
End Function
运行程序，则窗体上显示的是( )。

A) 38
B) 49
C) 61
D) 70

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名为Command1的命令按钮，然后编写以下程序： Private Sub Command1_Click() Dim M(10) As Integer For k = 1 To 10 M(k) = 12 - k Next k x=8 Print M(2 + M(x)) End Sub 运行程序，单击命令按钮，在窗体上显示的是( )。

A) 6
B) 5
C) 7 D) 8

单项选择题

在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private X As Integer Private Sub Command1_Click() X=5 : Y=3 Call proc(X, Y) Label1. Caption = X Label2. Caption = Y End Sub Private Sub proc(a As Integer, ByVal b As Integer) X=a*a Y=b+b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是( )。

A) 25和3
B) 5和3
C) 25和6
D) 5和6

相关试题