单项选择题

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

单项选择题
在窗体上画一个命令按钮,然后编写如下事件过程:Sub BTC(old Copy( ) As Integer,new Copy( ) As Integer)Dim i AS IntegerFor i=LBound(oldCopy( ))To UBound(oldCopy( ))newCopy(i)=oldCopy(i)Next iEnd SubPrivate Sub Command1 _ Click( )Dimm(10) As Integer,n(10)As IntegerFor i=1 To 10m(i) =i*i Next iCall BTC(m,n)Print n(5)End Sub程序运行后,单击命令按钮输出结果为( )。
A.0
B.2
C.10
D.25
单项选择题
以下程序运行后,单击按钮输出结果是( )。Private Sub Commandl_Click( )Dim x As Integer,y As Integer,z As IntegerX=4:y=2: Z=3Call Gopd(x,x,z)Print x;X;ZCall Gopd(x,y,y)Print x;y;yEnd SubPrivate Sub Gopd(x As Integer,y As Integer,z As Integer)X=3 * Z + 1y=2 * zz=x + yEnd Sub
A.6 6 12 7 11 11
B.8 5 105 11 11
C.9 6 129 10 15
D.8 10 105 9 10
相关试题
  • 改变驱动器列表框的Drive属性值将引发【 ...
  • 下列程序的输出结果为【 】。num=2While...
  • 每一个窗体或者控件都有一个名字,为提高程...
  • 数据结构分为逻辑结构和存储结构,循环队列...
  • 在窗体上加上一个文本框控件TextBox,画一...