高中物理
将一大小F＝10N的力分解成F1和F2，则F1和F2可能存在的情况是（）A、F1＝5N，F2＝25NB、F1＝1N，F2＝13NC、F1＝500N，F2＝505ND、F1＝10N，F2＝36N
题目
将一大小F＝10N的力分解成F1和F2，则F1和F2可能存在的情况是（）
- A、F1＝5N，F2＝25N
- B、F1＝1N，F2＝13N
- C、F1＝500N，F2＝505N
- D、F1＝10N，F2＝36N
相似问题和答案
第1题：
下面子过程语句说明合法的是( )。
A．Function f1(By Valn%)
B．Sub f1(n%)As Integer
C．Function f1%(f1%)
D．Sub f1(ByValn%())
第2题：
（33）下列子过程语句的说明正确的是A.Sub f1(By Val x()As Integer) B.Sub f1(X%())As IntegerC.Function f1l%(f1%) D.Function f1%(x As Integer)
【解析】选项A）中，形式参数为数组，但数组不能作为值传递方式；选项B）中，Sub过程不能有返回值；选项C）中的参数和函数名相同是不允许的；选项D）中对子过程的定义是正确的。
第3题：
布窗体上画一个名称为Command l的命令按钮，然后编写如下事件过程：
Private Sub Command l-Click ()
n=5
f=l
s=o
For I =l To n
f=f【 】
s= s +f
Next
Print s
End Sub
该事件过程的功能是计算s=1+1／2!+l+3!+…+l/ n!的值。请填空。
*(1/i)或 /i 解析：本程序首先置f为1，s为0；经过5次循环使f每次都乘以l/i实现了l/n的求法，每次循环后都加 f，把结果再赋给s，循环结束，s的值即为所求。
第4题：
设有如下程序： Private Sub Form. Click（ ） Dim s As Long，f As Long Dim n As Integer，i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub 程序运行后，单击窗体，输出结果是（ ）。
A.32
B.33
C.34
D.35
B。【解析】本题考查For循环，当f=1时，i=1，计算f=f*i=1*1=1；S=S十f=0十1=1，循环继续，当i=2时，f=f*i=1*2=2，S=s+f=1+2=3，循环继续，当i=3时，f=f*i=2*3=6，S=s+f=3+6=9，循环继凄，当i=4时，f=f*i=6*4=24，S=s+f=9+24=33，所以最后输出结果为33，答案选择B。
第5题：
A、Sub f1(ByVal n%())
B、 Sub f1(%)As integer
C、 Function f1%(f1%)
D、 Function f1(ByVal n%)
第6题：
下列子过程语句中正确的是 A.Sub f1(By Val()As Integer) B.Sub f1(n()As Integer)As Integer C.Function f1(f1 As Integer)As Integer D.Function f1(By Val f As Integer)
【解析】Sub过程定义的一般格式如下：
[PrivateIPublicIFriend][Static]Sub 过程名[(参数表)]
语句块
[Exit Sub]
[语句块]
End Sub
其中，Private|Public|Friend说明Sub过程的访问权限，如果没有Private|Public|Friend显式指定，则Sub过程按默认（公用的）访问权限定义。
参数表含有在调用时要传递给该Sub过程的参数的类型和个数，多个变量则用逗号隔开。参数的格式为：
[ByVal|ByRef]变量名[()][As数据类型]
格式中[]里的内容表示可选，变量可以是简单变量或者数组。选项A）中参数没有参数名，所以是错误的；
Sub过程没有返回值，所以选项B）是错误的。
Function过程的定义的一般格式如下：
[Public|Private|Friend][Static]Function过程名[(参数表)][As类型]
[语句块]
[过程名=表达式]
[Exit Function]
[语句块]
End Function
“As类型”是Function过程返回的值的数据类型，如果省略，则默认为Variant.Function函数中参数名不能与函数名相同，因此选项C）错误，选项D）中，省略了返回值类型，是正确的。
第7题：
在窗体上画一个命令按钮，命名为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则F1返回1，否则返回0。能够正确实现上述功能的代码是 。A．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 0 Else F1= 1 End If End FunctionC．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 1 Else F1= 0 End If End FunctionD．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
【解析】本题综合考查了InputBox函数、块结构条件语句、Function函数过程等多个知识点。B项是正确选项，“Mod”表示取模，当b可以被2整除时，F1返回0，表示b为偶数时，F1返回0。这与题目要表达的意思一致。A、D项使用的Return关键字是错误的，它不能把相应的数值赋给F1。C项的功能与题目要实现的功能恰好相反，表示输入的数值为偶数时，F1返回1，故不正确。
第8题：
设有如下程序：
Private Sub Form_C1ick()
Dim s As Long，f As Long
Dim n As Integer，i As Integer
f=1
n=4
For i=1 To n
f=f*i
s=s+f
Next i
Print s
End Sub
程序运行后，单击窗体，输出结果是
A．32
B．33
C．34 0)35
解析：i=1时，f=f*i=1*1=1，s=s+f=0+1=1．i=2时，f=f*i=1*2=2，s=s+f=1+2=3，i=3时，f=f*i=2*3=6，s=s+f=3+6=9，i=4时，f=f*i=6*4=24，s=s+f=9+24=33，因此本题答案为B)。
第9题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Privfite Sub Command1_Click()
n=5
f=1
s=0
For i=1 To n
f=f 【 】
s=s+f
Next
Ptint S
End Sub
该事件过程的功能是计算s=1+2!+1/3!+...+1/n!的值。请填空。
*(1/i) 或 /i 解析：本程序首先置f为1，s为0；经过5次循环使f每次都乘以1/i,实现了1/n!的求法，每次循环后都加 f，把结果再赋给s，循环结束，s的值即为所求。
第10题：
现有如下程序： 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
解析：本题考查的考点是有关函数调用和If语句的。要注意在前4次循环中每次调用f函数时传递的参数分别为6、7、8、9，都是小于10的；最后一次循环传递参数10。所以最终结果应该为 8+9+10+11+11=49