如果观测值Xi近似相等，也不会影响回归系数的估计量。

题目

如果观测值X_i近似相等，也不会影响回归系数的估计量。

如果没有搜索结果或未解决您的问题，请直接联系老师获取答案。

相似问题和答案

第1题：

下面程序的功能是统计字符串中"i"的个数，请填空。

Sub COU（）

a$="Beijing University of Technology"

Dim n As Integer

n=Len（a$）

For i=1 To n

b$= 【12】

If 【13】 Then x=x + 1

Next i

Print "x="; x

End Sub

正确答案：
正确答案: 1.(Mid＄(a＄, i, 1) ) 2.(b＄ = "i")

第2题：

程序执行结果s的值是【】.

Private Sub Command l-Click ()

I =0

S= I +S

I = I + l

Loop Until I ＞=4

End Sub

正确答案：6
6 解析：第一次循环结束的时候：s=0，I =l
第二次循环结束的时候：s=l，I =2
第三次循环结束的时候：s=3，I =3
第四次循环结束的时候：s=6，I =4
第四次循环结束后整个循环也就结束了，所以s的最终值为6。

第3题：

下面程序段的运行结果是【】。

Option Base 1

Private Sub swap(a()As InteSer)

For I=1 to 10\2

t=a(i)

a(i)=a(10-1+1)

a(10-1+1)=t

Next1

End Sub

Private Sub Form_Click()

Dim x(10)As Integer

For I=1 to 10

x(i)=I*2

Next1

Swap x()

For1=1 to 10

Print x (i)

Next I

End Sub

正确答案：20 18 16 14 12 10 8 6 4 2
20 18 16 14 12 10 8 6 4 2 解析：在该事件过程中，定义并生成了x数组，该数组共10个元素，分别是2 4 6 8 10 12 14 16 18 20，接着使用了不带Call的调用语句，实际参数和虚拟参数都是数组，是地址传送，在过程中访问的数组就是事件过程中的x数组。在该过程中，将数组的第一个元素和最后一个元素交换位置，依此类推，返同事件过程后输出交换后的数组全部元素。

第4题：

以下能够正确计算n!的程序是

A．Private Sub Command1_Chck( ) n=5：x=1 Do x=x*i i=i+1 Loop While i＜n Print x End Sub

B．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜n Print x End Sub

C．Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i＜=n Print x End Sub

D．Private Sub Command1_Click( ) n=5：x=1：i=l Dox=x*i i=i+1 Loop While i＞n Print x End Sub

正确答案：C
解析：A中i一开始末被赋值，默认为0；B项中由于“in”的条件使得Do循环比应有循环次数少循环一次；选项D由于“i＞n”这一条件，使得控制语句只能循环一次。

第5题：

在窗体中添加一个名称为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。

第6题：

以下能够正确计算n!的程序是（）。

A．Private Sub Command1_Click（）

n=5: x=1

x=x * I

I=I + 1

Loop While I < n

Print x

End Sub

B．Private Sub Command1_Click（）

n=5: x=1: I=1

x=x * I

I=I + 1

Loop While I < n

Print x

End Sub

C．Private Sub Command1_Click（）

n=5: x=1: I=1

x=x * I

I=I + 1

Loop While I <=n

Print x

End Sub

D．Private Sub Command1_Click（）

n=5: x=1: I=1

x=x * I

I=I + 1

Loop While I > n

Print x

End Sub

正确答案：C

第7题：

下面程序的功能是统计字符串中"i"的个数,请填空。

Sub COU( )

Dim n As Integer

a$=" Beijing University of Technology"

n=Len(a$)

For i=1 To n

b$=【】

If b$="i" Then x=x+1

Print"x=" ; x

End Sub

正确答案：Mid$(a$I1)
Mid$(a$,I,1) 解析：从字符串中依次截取每一个字母看是不是i,来统计i的个数,用Mid$(字符串,p,n)函数是从第p个字符开始,向后截取n个字符。

第8题：

执行下面的程序段，x的值为【】。

Private Sub Command1_Click()

For i=1 To 9

a=a+i

x=Val(i)

MsgBox x

End Sub

正确答案：10
10 解析：在程序中For…Next语句之后并没有对i的值改变，此时i为10，故运行后结果为10。

第9题：

下面程序段的运行结果是【】。

Option Base 1

Private Sub Swap (a() As Integ

For I=1 to 10\2

t=a(I)

a(I)=a(10-I+1)

a(10-I+1)=t

Next I

End Sub

Private Sub Form_Click()

Dim x(10) As Integer

For I=1 to 10

x(I)=I*2

Next I

Swap x()

For I=1 to 10

Print x(I)

Next I

End Sub

正确答案：20 18 16 14 12 10 8 6 4 2
20 18 16 14 12 10 8 6 4 2 解析：本题考查考生数组虚实结合的问题，在该事件过程中，定义并生成了x数组，该数组共10个元素，分别是 2 4 6 8 10 12 14 16 18 20，接着使用了不带Call的调用语句，实际参数和虚拟参数都是数组，是地址传送，在过程中访问的数组就是事件过程中的x数组。在该过程中，将数组的第一个元素和最后一个元素交换位置，依此类推，返回事件过程后输出交换后的数组全部元素。

第10题：

有如下程序： Private Sub Commandl_Click( ) Dim i As Integer For i=1 To 2 DS Next i End Sub Sub DS( ) Dim x As Integer，m As String Static y，n X=X + 1 y=y + 1 m=m &"*”：n=n&"#" Print x，y，m，n End Sub 程序运行后，输出的结果是

A．1 1 * #

B．1 1 * #

C．1 1 * # 1 1 * # 1 2 * #

D．1 1 * # 1 1 * ## 1 2 * ##

正确答案：D
解析：当i=1时，调用函数过程DS，由于y，n为静态变量值保存，执行x=x+1；y=y+1后x=1，y=1执行m=m&"*"：n=n&"#"后，m="*"，n="#"；当I=2时同上，只是y=2，n="##"。输出结果如选项D)所示。

如果观测值X<sub>i</sub>近似相等，也不会影响回归系数

题目

相似问题和答案

更多相关问题

相关内容