（加试题）王老师在使用VB程序要实现n!的功能。PrivateSubCommand1_Click()DimpAsIntegerDimsumAsLong　p=Va_刷题宝

题干

（加试题）王老师在使用 VB 程序要实现 n! 的功能。
Private Sub Command1_Click()
Dim p As Integer
Dim sum As Long
　p = Val(Text1.Text)
　sum = fx(p)
　Text2.Text = CStr(sum)
End Sub
Function fx(x As Integer) As Long
　If x = 1 Then
　　 fx = 1
　Else
　　 fx =____________________
　End If
End Function
要该程序实现此功能，横线处的代码为（　　）

A．x(x)*(x-1)

B．fx(x)*x

C．fx(x-1)*x

D．fx(x-1)*(x-1)

上一题下一题 0.99难度选择题更新时间:2020-02-26 10:37:02

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

同类题1

下列程序所计算的数学式子是( ）
PRIVATE SUB FORM__CLICK( ）
S=0
FOR A= 1 TO 5
S=S+（10^A-1）/3
NEXT A
PRINT S
END SUB

A．10+100+1000+10000+100000

B．1+11+111+1111+11111

C．3+33+333+3333+33333

D．9+99+999+9999+99999

同类题2

有如下的 Visual Basic 程序段：
s = 0 : x = 1
Do While x <= 5 s = s + x

x = x + 2

Loop
该程序段运行后，语句 s = s + x 执行的次数是

同类题3

有如下 Visual Basic 程序段：
x = 10
For i=1 to 10 step 3

x=x+i

Next i 该程序段运行后, 变量 x 的值为（）。

同类题4

对称字符串从左读到右和从右读到左完全一样，如“1221”“12321”。编写VB程序，判断输入字符串是否对称，程序运行界面如图a所示，在文本框Text1中输入字符串，单击Command1按钮，在标签Label2上显示判断结果。

图b
（1）实现上述功能的VB程序如下，请在画线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, c1 As String, c2 As Integer
Dim n As Integer, i As Integer
Dim f As Boolean
s = Text1.Text
n = Len(s)
f = True
For i = 1 To n \ 2
c1 = _______①______
c2 = Mid(s, n - i + 1, 1)
If c1 <> c2 Then
f = False
Exit For
End If
Next i
If ② Then
Label2.Caption = "对称"
Else
Label2.Caption = "不对称"
End If
End Sub
划线处代码应为
①________________
②________________
（2）运行该程序，在文本框中输入aba，单击“判断”按钮后，出现图b所示错误提示，引起该错误的原因是________________（单选，填字母：

A．变量s的数据类型错误；

B．变量c2的数据类型错误；

C．变量f的数据类型错误）。

同类题5

下列流程图符号中，属于处理框的是（）。

相关知识点