(加试题)有如下VB程序段：PrivateSubCommand1_Click()DimiAsInteger,sAsIntegers=0Fori=1To5Step_刷题宝

题干

(加试题)有如下VB程序段：
Private Sub Command1_Click()
Dim i As Integer, s As Integer
s = 0
For i = 1 To 5 Step 3
s = s + fun(i)
Next i
Text1.Text = Str(s)
End Sub
Function fun(n As Integer) As Integer
If n = 1 Then
fun = 2
Else
fun = fun(n - 1) + n
End If
End Function
执行完该程序后，S的值为( )

A．7

B．11

C．13

D．25

上一题下一题 0.99难度选择题更新时间:2019-05-06 09:18:31

答案(点此获取答案解析）

同类题1

下列没有PICTURE属性的是（）

C．OPTIONBUTTON

同类题2

在 VB 中，在文本框 Text6 中显示"云富高中"，应改变的属性是（）

同类题3

下列每个控件都具有的属性是（）。

同类题4

一个VB工程的部分设计界面如图所示。下列说法不正确的是(　　)

①工程文件名是“工程1.vbp” ②该工程只有1个窗体
③窗体文件名是“Form.frm” ④窗体名称是“寻找水仙花数”

同类题5

下列VB 程序用于求2个正整数(均小于10000)的最大公约数:
Private Sub Command1_Click()
Dim x As Integer,y As Integer,z As Integer
x=Val(Text1.Text) ‘第1 个正整数
y=Val(Text2.Text) ‘第2 个正整数

‘调用函数gcd
Text3.Text=Str(z)
End Sub
Function gcd(a As Integer,b As Integer) As Integer
Do While a <> b
If a>b Then a=a-b Else b=b-a
Loop
gcd=b
End Function
方框中的正确语句是( )

相关知识点