将力F分解成F1、F2两个分力，如已知F1的大小及F2与F之间的夹角θ（θ为锐角），则（）A、当F1＞Fsinθ时，有两个解B、当F＞F1＞Fsinθ时，有两个解C、当F1＝Fsinθ时，有唯一解D、当F1＜Fsinθ时，无解

题目

将力F分解成F1、F2两个分力，如已知F1的大小及F2与F之间的夹角θ（θ为锐角），则（）

  • A、当F1＞Fsinθ时，有两个解
  • B、当F＞F1＞Fsinθ时，有两个解
  • C、当F1＝Fsinθ时，有唯一解
  • D、当F1＜Fsinθ时，无解
相似考题

1.下面的子过程语句说明合法的是________。A.Sub fib(ByRef i%())B.Sub fib(j%) As IntegerC.Functionf%(f%)D.Function f1!(ByValn%)

2.在窗体上添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub f(ByVa1 x As Integer)x=x+4End SubPrivate Sub Command1_Click()i=3Call f(1)If i＞4 Then i=i*2MsgBox iEnd Sub打开窗体运行后，单击命令按钮，则消息框的输出结果为______。

3.下面子过程语句说明合法的是( )。A．Function f1(By Valn%)B．Sub f1(n%)As IntegerC．Function f1%(f1%)D．Sub f1(ByValn%())

4.（ 11 ）在窗体中有一个名为 command 的命令按钮， click 事件的代码如下：private sub command1_click()f=0for n=1 to 10 step 2f=f+nnext nme!lb1.caption=fend sub单击命令按钮后，标签显示的结果是 ___[11]___ 。

参考答案和解析
正确答案:B,C,D
更多“将力F分解成F<sub>1</sub>、F<sub>2</su”相关问题

  • 第1题：

    下列子过程语句中正确的是 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)


    正确答案：D
    【解析】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）中，省略了返回值类型，是正确的。

  • 第2题：

    在窗体上画一个命令按钮，命名为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


    正确答案：B
    【解析】本题综合考查了InputBox函数、块结构条件语句、Function函数过程等多个知识点。B项是正确选项，“Mod”表示取模，当b可以被2整除时，F1返回0，表示b为偶数时，F1返回0。这与题目要表达的意思一致。A、D项使用的Return关键字是错误的，它不能把相应的数值赋给F1。C项的功能与题目要实现的功能恰好相反，表示输入的数值为偶数时，F1返回1，故不正确。

  • 第3题：

    在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：

    Private Sub f(ByVal x As Integer)

    x=x+4

    End Sub

    Private Sub Command1_Click()

    i=3

    Call f(i)

    If i＞4 Then i=i*2

    End Sub

    窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。


    正确答案：3
    3 解析： 本题考查VBA中参数传递的知识。在VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVal声明，说明此参数为传值调用；若用ByRef声明，说明此参数为传址调用；没有说明传递类型，则默认为传址传递。本题中在定义子过程f的时候用ByVal声明了形参x，说明为传值调用，此时对x的任何更改不会影响调用它的实参i，所以执行完callf(i)这条语句后i的值不变仍为3，当然也不满足If语句的条件，故此最后输出结果为3。

  • 第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
    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题：

    已知数列的递推公式如下：

    f(n)＝1 当n＝0，1时

    f(n)＝f(n-1)+f(n-2) 当n＞1时

    则按照递推公式可以得到数列：1，1，2，3，5，8，13，21，34，55，……。现要求

    从键盘输入n值，输出对应项的值。例如当输入n为8时，应该输出34。程序如下，

    请补充完整。

    Private Sub runll_Click()

    f0=1

    f1=1

    num=Val(InputBox("请输入一个大于2的整数："))

    For n=2 To 【 】

    f2＝【 】

    f0=f1

    f1=f2

    Next n

    MsgBox f2

    End Sub


    正确答案：num f0+f1
    num f0+f1 解析：程序首先需要接受用户输入的值，根据程序代码可以判断，使用变量num来存放用户输入的值，使用循环实现递推，根据题面“要求从键盘输入n值，输出对应项的值”，可知循环从2开始，到用户输入的值结束，也就是“Forn=2 To num”。根据题面给出的公式“当n＞1时，f(n)＝f(n-1)+f(n-2)”，可知第n项的值总等于它前两项(即第n-2项与第n-1项)之和，在程序For循环中，总用f2表示第n项，f0表示第n-2项，f1表示第n-1项，所以f2=f0+f1。

  • 第6题：

    在窗体上画一个命令按钮，命名为CommandI。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。 能够正确实现上述功能的代码是

    A．Privme 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 Function

    B．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 Function

    C．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 Function

    D．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


    正确答案：B
    解析：本题综合考查了InputBox函数、块结构条件语句、Function函数过程等多个知识点。B项是正确选项，“Mod”表示取模，当b可以被2整除时，F1返回0，表示b为偶数时，F1返回0。这与题目要表达的意思一致。A、D项使用的Return关键字是错误的，它不能把相应的数值赋给 F1。C项的功能与题目要实现的功能恰好相反，表示输入的数值为偶数时，F1返回1，故不正确。

  • 第7题：

    下面子过程语句说明合法的是

    A．Sub f1(s1 As String*8)

    B．Sub f1(n()As Integer)As Integer

    C．Function f1(f1 As Integer)As Integer

    D．Function f1(By Val n As Integer)


    正确答案：D
    解析：选项A中，在定义Sub过程时，形参不能用定长字符串变量或定长字符串数组作为形式参数：选项B中，过程名不能被指定其数据类型：选项C中，函数名与形参名不能同名。只有选项D是正确的。

  • 第8题：

    有如下程序:

    Private Sub Form_Click()

    E=1:F=1

    For j=1 To 3

    E=E+F:F=F+E

    Next

    Print E;F

    End Sub

    该程序的输出结果是

    A．6 6

    B．5 8

    C．13 21

    D．34 55


    正确答案：C
    解析：阅读本题程序可以看出,E或F的值总是它前边E和F值的和,E和F的值顺序分别为1、1,2、3,5、8,13、21,可以很容易地用前两个数相加得到后一个数。第1次循环E和F的值分别为2和3,第2次循环E和F的值分别为5和8,第3次循环E和F的值分别为13和21,最后输出结果为13和21。

  • 第9题：

    在窗体中有一个名为run34的命令按钮，事件代码如下： Private Sub run34_Click（ ） f1=1 f2=1 For n=3 T0 7 F=f1+f2 f1=f2 f2= f Next n MsgBox f End Sub 打开窗体，单击命令按钮，消息框的输出结果是（ ）。

    A.8

    B.13

    C.21

    D.其他结果


    正确答案：B
    按代码逻辑依次代入得n=3，f=1+1=2，fl=1，f2=2；n=4，f=3，fl=2，f2=3；n=5；f=5，fl=3，f2=5；n=6，f=8，fl=5，f2=8，n=7，f=13，fl=8，f2=13。

  • 第10题：

    在窗体中有一个名为run34的命令按钮，事件代码如下：

    Private Sub run34_Click（ ）

    f1=1

    f2=1

    For n=3 T0 7

    F=f1+f2

    f1=f2

    f2= f

    Next n

    MsgBox f

    End Sub

    打开窗体，单击命令按钮，消息框的输出结果是（ ）。

    A.8

    B.13

    C.21

    D.其他结果


    正确答案：B
    按代码逻辑依次代入得n=3，f=1+1=2，fl=1，f2=2；n=4，f=3，fl=2，f2=3；n=5；f=5，fl=3，f2=5；n=6，f=8，fl=5，f2=8，n=7，f=13，fl=8，f2=13。

  • 第11题：

    下列子过程语句的说明正确的是( )。

    A．Sub f1(ByVal x()As Integer)

    B．Sub f1(x%())As Integer

    C．Function f1%(f1%)

    D．Function f1%(x As Integer)


    正确答案：D
    解析：选项A中，形式参数为数组，但数组不能作为值传递方式；选项B中，Sub过程不能有返回值：选项C中的参数和函数名相同是不允许的；选项D中对于过程的定义是正确的。

  • 第12题：

    下列程序运行后的输出结果是______。

    Private Sub f(k，s)

    s=1

    For j=1 To k

    s=s*j

    Next

    End Sub

    Private Sub Command1_Click()

    Sum=0

    For i=1 To 3

    Call f(i，s)

    Sum=Sum+s

    Next

    Print Sum

    End Sub


    正确答案：9
    9 解析：本题考查的重点是在子过程的调用过程中，虚实参数的传送问题，变量s按十传送。子过程f()求n!，sum的计算过程为1!+2!+3!=1+2+6=9

  • 第13题：

    （33）下列子过程语句的说明正确的是A.Sub f1(By Val x()As Integer) B.Sub f1(X%())As IntegerC.Function f1l%(f1%) D.Function f1%(x As Integer)


    正确答案：D
    【解析】选项A）中，形式参数为数组，但数组不能作为值传递方式；选项B）中，Sub过程不能有返回值；选项C）中的参数和函数名相同是不允许的；选项D）中对子过程的定义是正确的。

  • 第14题：

    有如下程序：

    Private Sub Form_C1ick()

    E=1:F=1

    For j=1 To 3

    E=E+F:F=F+E

    Next

    Print E;F

    End Sub

    该程序的输出结果是

    A．6 6

    B． 5 8

    C． 13 21

    D．34 55


    正确答案：C
    解析：阅读本题程序可以看出，E或F的值总是它前边E和F值的和，E和F的值顺序分别为1、1，2、3，5、8， 13、21，可以很容易地用前两个数相加得到后一个数。第1次循环E和F的值分别为2和3，第2次循环E和F的值分别为5和8，第3次循环E和F的值分别为13和21，最后输出结果为13和21。

  • 第15题：

    下面子过程说明合法的是( )。

    A、Sub f1(ByVal n%())

    B、 Sub f1(%)As integer

    C、 Function f1%(f1%)

    D、 Function f1(ByVal n%)


    参考答案D

  • 第16题：

    设有如下程序： Private Static Function Fac(n As Integer)As Integer Dim f As Integer f=f+n Fac=f End Function Private Sub Form_Click( ) Dim I As Integer For 1=2 To 3 Print"#"；I&“=”&Fac(1) Next I End Sub 程序运行后，单击窗体，在窗体上显示的是

    A．#2=2 #3=3

    B．#2=2 #3=5

    C．#；2=2 #；3=3

    D．#；2=2 #3；=5


    正确答案：B
    解析：由于Print方法中的分号表示前后字符之间的连接，并不显示在窗体中，同时由于Function过程以Static定义，在I=3时，Fac(1)的值为5。

  • 第17题：

    现有如下程序： 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


    正确答案：B
    解析：本题考查的考点是有关函数调用和If语句的。要注意在前4次循环中每次调用f函数时传递的参数分别为6、7、8、9，都是小于10的；最后一次循环传递参数10。所以最终结果应该为 8+9+10+11+11=49

  • 第18题：

    有如下程序： Private Sub Form_Click() E=1:F=1 For j=1 To 3 E=E+F:F=F+E Next Print E:F End Sub 该程序的输出结果是

    A． 6 6

    B． 5 8

    C．13 21

    D．34 55


    正确答案：C
    解析：阅读本题程序可以看出，E或F的值总是它前边E和F值的和，E和F的值顺序分别为1、1，2、3，5、8，13、21，可以很容易地用前两个数相加得到后一个数。第1次循环E和F的值分别为2和3，第2次循环E和F的值分别为5和8，第3次循环E和F的值分别为13和21，最后输出结果为13和21。

  • 第19题：

    下列子过程语句中正确的是( )。

    A．Sub f1(ByVal() As Integer)

    B．Sub f1(n() As Integer)As Integer

    C．Function f1(f1 As Integer)As Integer

    D．Function f1(ByVa1 f as Integer)


    正确答案：D
    解析：Sub过程定义的一般格式如下：[Private|Public|Friend][Sratic]Sub过程名[(参数表)]语句块[ExitSub][语句块]EndSub其中，Private|Public|Friend说明Sub过程的访问权限，如果没有Privge|Public|Friend显式指定，则Sub过程按缺省(公用的)访问权限定义。参数表含有在调用耐要传递给该Sub过程的参数的类型和个数，多个变量则用逗号隔开。参数的格式为：[ByVal|ByRef]变量名[()][As数据类型]格式中[]里的内容表示可选，变量可以是简单变量或者敷组。选项A中参数没有参数名，所以是错误的；因为Sub过程没有返回值，所以选项B是错误的。Function过程的定义的一般格式如下：[Public|private|Friend][Static]Function过程名[(参数表)][As类型][语句块](过程名=表达式)[ExitFunction][语句块]EndFunction“As类型”是Function过程返回的值的数据类型，如果省略，则默认为Variant。Function函数中参数名不能与函数名相同，因此选项C错误；选项D中省略了返回值类型，是正确的。

  • 第20题：

    下面程序的输出结果是。 Private Sub Commandl_Click ch$=“ABCDEF” proc ch：Print ch End Sub Private Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=s&Mid(ch，k，1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F


    正确答案：C

  • 第21题：

    若有如下程序： float sub(int a，int b) { return(a*b)； } main() {int i=1，j=2，k=3； printf("%4.0f\n"，sub((int)sub(k+j，j)，k+i))； } 则程序运行后的输出结果是( )。

    A．40

    B．32

    C．16

    D．编译出错


    正确答案：A
    解析：因为函数sub()只是简单地返回两个参数的乘积，所以表达式sub((int)sub(k+j，j)，k+i)展开后就是：(int)((k+j) *j)*(k+i)=((3+2)*2)*(3+1)=10*4=40。所以程序运行后的输出结果是40，应该选择A。

  • 第22题：

    在窗体上画一个命令按钮，其名称为Commandl，然后编写如下程序： Pfivate Sub Commandl_Click() Dima(10) As Integer Dimx As Integer Fori=1 To 10 a(i)=8+i NeXt X=2 Print a(f(x)+x) End Sub Function f(X As Integer) X=X+3 f=X End Fu

    A．12

    B．15

    C．17

    D．18


    正确答案：D

  • 第23题：

    在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Private Sub Command1_Click( ) Dim x As integer Static y As integer x=10 y=5 Call f1(x，y) Print x，y End Sub Private Sub f1(ByRef xl As Integer，y1 As Integer) x1=x1+2 y1=y1+2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是

    A．10 5

    B．12 5

    C．10 7

    D．12 7


    正确答案：D
    解析：传地址方式一般用ByRef表示，形参在默认情况下也是以传地址的方式传送参数。本题中F1子过程的x1与y1参数都是传地址的方式。这就意味着在调用该过程后，实参的数值会使着过程内的相关处理而发生变化。本题单击一次按钮后，实参x加2，变为12，实参y加2，变为7，当再次输出x与y时，x与y的值已不再是10与5，而是变为12与7。

  • 第24题：

    单选题
    以下是子过程或函数过程定义中的开始语句，错误的为（）。
    A

    Private Function f（ x As String ） As Single

    B

    Private Function f（ x As String ）

    C

    Private Sub f（ x As String ） As Single

    D

    Private Sub f（ x As String ）


    正确答案： B
    解析： 暂无解析

相关内容