单项选择题

现有如下程序:
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
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上有如图1所示的控件,各控件的名称与其标题相同,并有如下程序: Private Sub Form_Load() Command2.Enabled=False Check1.Valne=1 End Sub 刚运行程序时,看到的窗体外观是
单项选择题
有如下程序: Sub subP(b() As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1)=5:a(2)=6:a(3)=7:a(4)=8 subP a() For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序,单击命令按钮,输出结果为
A.2
4
6
8
B.5
6
7
8
C.10
12
14
16
D.出错
相关试题
  • 下面程序的功能是把文件file11.txt中重...
  • 在窗体上画一个通用对话框,其名称为Common...
  • 设有如下程序: Private Sub Form_Clic...
  • 在窗体上画一个名称为Command1的命令按钮...
  • 在窗体上有一个名称为Command1的命令按钮...