1MΩ=（）Ω，1Ω=（）KΩ

阅读以下程序： Private Sub Form_click（)Dim k, n, m As integern = 20m = 1k = 1 Do While k ＜= n m=m+2 k = k + 1 LoopPrint m End Sub 单击窗体程序的执行结果是 【4】 。 以下程序段的输出结果是______ int k,n,m; n=10; m=1; k=1; while(k<=n--) m*=2; printf("%d",m); 已知m个向量α(→)1，α(→)2，…，α(→)m线性相关，但其中任意m－1个都线性无关，证明：　　（1）如果存在等式k1α(→)1＋…＋kmα(→)m＝0(→)，则这些系数k1，…，km或者全为零，或者全不为零。　　（2）如果存在两个等式k1α(→)1＋…＋kmα(→)m＝0(→)，l1α(→)1＋…＋lmα(→)m＝0(→)，其中l1≠0，则k1/l1＝k2/l2＝…＝km/lm。 阅读以下程序： Private Sub Form_click（)Dim k,n,m As integern=10m=1k=1Do While k＜=n m=m+2 k=k+1LoopPrint m End Sub 单击窗体程序的执行结果是 【10】 。 阅读以下程序： Prlvate Sub Form_Click（) Dim k，n，m As Integer n=10 m=1 k=1 Do While k＜=nm=m*2k＝k+1 Loop Print m End Sub程序运行后，单击窗体，输出结果为 【8】 。 设函数Z＝K1X1?K2X2??.KnXn,其中K为常数,X是独立观测值,它们的中误差分别为m1、m2、?..mn，Z的中误差mz等于mz2＝k1m1 k2m2 ??.knmn。 下列代码的运行结果为( )。 Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5 Print m(2 + m(x)) End Sub 下列程序的运行结果是( )。 PriVate Sub Form_CUCk()Dimk As Integ＜ern=5m=1k=1Do m=m+2 k=k+1Loop Until k＞nPrintm End Sub 电阻单位：欧姆，用“Ω”，还有千欧（KΩ）和兆欧（MΩ）关系：1KΩ=1000MΩ、1KΩ=1000Ω。 电阻单位：欧姆，用Ω，还有千欧（KΩ）和兆欧（MΩ）。关系：1KΩ=1000MΩ、1KΩ=1000Ω（） 1J=k/f·ｍ（） 运行下列语句后，输出的结果是( )。 Option Base 1 Dim a i=1 a=Array(l, -2, 9, 0, -1, 9) Do k=a(i) For m = 10 To k Step -2 n=k+m Next m Print n+m i=i+1 Loop While Abs(m+n) ＜＞ 27 有以下程序段： x=reshape(1:12,3,4); m=0; n=0; for k=1:4 if x(:,k)<=6 m=m+1; else n=n+1; end end 则m和n的值分别是 下列程序段的执行结果为 Dim M(10) For k=1 To 10 M(K)=11-k Ncxt k x=6 Print M(2+M(x)) 已知反应：A(s)= B(s)+C (g) 在500K时K?= 0.047, 在1000K时K?= 2.56，下列选项正确的是: 1000K时的ΔrG?m=-7815kJ·mol-1 1500K时的K?=9.7 298.15K时的ΔrH?m=2.56 kJ·mol-1 298.15K时的ΔrH?m=33.24 kJ·mol-1 500K时的ΔrG?m=12.71kJ·mol-1 1、设n阶图G中有m条边，每个结点的度数不是k的是k+1，若G中有Nk个k度顶点，Nk+1个k+1度顶点，则N k = 有如下的程序： Private Sub Command1_Click（) Dim k As Integer，m As Integer Dim P As Integer k=4：m=1 P=Pid（k，m) ：Print P； P=Pid（k，m) ：Print P End Sub Private Function Pid（a As Integer，b As Integer) Static m A 有如下的程序： Private Sub Command1_Click（) Dim k As Integer，m AB Integer Dim P As Integer k=4:m=1 P=Fun（k，m) =Print P； P=Fun（k，m) :Print P End Sub Private Function Fun（a As Integer，b As Integer) Static m As 有如下程序： Private Sub Command1_Click（) Dim k As Integer，m As Integer Dim p As Integer k=4：m=1 p=PC（k，m)：Print p； p=PC（k，m)：Print p End Sub Private Function PC（a As Integer，b As Integer) Static m As Integ 有以下程序： x=reshape(1:12,3,4); m=0; n=0; for k=1:4 if x(:,k)