网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
有数列 1/5 + 1/9 + 1/13 + 1 / （1 + k * 4) （k＜=100) 求前 100 项之和.请在_________处填上适当的内容，完善程序。 Dim s As Double Dim k As Integer s = _________ For k = 1 To 100 s = s + 1 / （1 +k*4) Next k Print s
参考答案和解析
298
更多 “有数列 1/5 + 1/9 + 1/13 + 1 / （1 + k * 4) （k＜=100) 求前 100 项之和.请在_________处填上适当的内容，完善程序。 Dim s As Double Dim k As Integer s = _________ For k = 1 To 100 s = s + 1 / （1 +k*4) Next k Print s” 相关考题
考题
窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是。Private Sub Command1_Click()Dim aa = Array(1,2,3,4,5)For K = 1 To 4 S = S + a(K)Next K Print SEnd SubA. 10 B. 14 C. 15 D. 120
考题
在窗体上添加一个命令按钮控件，名为Command1，事件过程如下，则执行结果是 Option Base 1 Private Sub Command1_Click() Dim a(5)As Integer Dim k As Integer Dim total As Integer a(1) = 2 a(2) = 5 a(3) = 4 a(4) = 10 a(5) = 6 For k = 1 To 5 Total = total + a(k) Next k Print total End SubA. 10 B.15 C. 27 D. 35
考题
下列程序段的输出结果为______。Dim S1(5)As Integer,S2(5)As Integer,S3(5)As IntegerN=4ForI=1 To NS1(I)=IL=N+i-IS2(I)=LNextIS3(5)=0ForK=1 To NS3(K)=S1(K)*S2(K)S3(5)=S3(5)+S3(K)NextKPrintS1(3)=S1(5)；S1(2)PrintS2(4)=S3(
考题
以下程序的输出结果是D)9 12 Option Base 1 Private Sub Command1_Click() Dim s(10)，p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next I For i=1 To 3 k=k+ p(i)*2 Next i Print k End subA．33B．28C．35D．37
考题
窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4,5) Fork=1 To 4 s=s+a(k) Next k Print s End Sub A.10 B.14 C.15 D.120
考题
（35）有下列程序段，单击命令按钮执行程序后，输出结果是 。Option Base 1Private Sub Commandl_Click() Dim x x=Array(23,-5,17,38,-31.46,11,8,5,-4) s1=0 s2=0 For k=1 To 10 If(x(k)0)Then s1=sl+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End SubA.148 B.40 C.-40 D.3.7
考题
（19）窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是 。 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 S=S+a(k) Next k Print S End SubA.10 B.14 C.15 D.120
考题
下列程序用来计算1+2+…n,当和大于100时停止计算,请填空。Private Sub Form_Click()Dim n as integer,s as integer,I as integer,k as integers=0k=0n=inputbox(″请输入n的值)For i=1 to 100k=k+1s=s+I【 】Next iPrint sEnd Sub
考题
以下程序是计算1 - 1/2 + 1/3 - 1/4 + … + 1/9 - 1/10 的值并输出，请补充完整。S=0K=1T=1DO WHINE K＜【 】S=S+T/KK=K+1T= -TLOOPMSGBOX S
考题
设执行以下程序段时依次输入2，4，6执行结果为 Dim a(4) As Integer,b(4) As Integer For k =0 To 2 a(k + 1) = Val(InputBox( "Enter data:" ) ) b(3 - k) =a(k + 1) Next Print b(k)A．2B．4C．6D．0
考题
当Form1_Click事件发生时，窗体上显示的第三行是( )。 Option Base 1 Private Sub Form_Click() Dim i As Integer，j As Integer Dim k As Integer，a(5，5)As Integer For i=1 To 5 k=1 For j=1 To 5 If i＜=j Then a(i，j)=k k=k+1 Else a(i，j)=1 End If Next j Next i For i=1 To 5 For j=1 To 5 Print a(i，j)； Next j Print Next i End SubA．1 2 3 4 5B．1 1 2 3 4C．1 1 1 2 3D．1 1 1 1 2
考题
在一个窗体上添加命令按钮控件，名为Command1，事件过程如下，则该过程的执行结果为______。Option Base 1Private Sub Command1_ Click() Dim a(5)As Integer Dim k As Integer Dim Total As Integer a (1)= 2 a (2)= 5 a (3)= 4 a (4)= 10 a (5)= 6 for k =1 To 5 Total = Total +a(k) Next k Print TotalEnd SubA．10B．15C．27D．35
考题
窗体上有一个命令按钮，命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 s=s+a(k) Next Print S End Sub 运行程序后，单击命令按钮，输出结果是A．10B．14C．15D．120
考题
下列程序是用来计算1+2+3……+10的程序段，请补充该程序。Dim i, s, k As Integers =0: k = 0For【 】To 1k=k+1s=s+ kNext iPrint s
考题
有以下程序段s=1.0;for(k =1;k=n；k++) s=s+1.0／(k*(k=1))；printf("%f\n",s);请填空，使以下程序段的功能与上面的程序段完全相同。s=1.0; k=1；while( 【 9 】)．{ s=s+1.0/(k*(k+1))； k=k+1;}printf( "%f\n",s)；
考题
23 有如下程序段，该程序段循环的次数是______。 Dim i As Integer Dim j As Integer Dim k As Integer k=0 For i = 0 To 10 Step 3 For j = 1 To 5 If j ＞ 3 Then k = k + 4: Exit For k=k+1 Print k Next j If i ＞ 8 Then Exit For Next iA．9B．10C．11D．12
考题
窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是 Private Sub Command1_Click( ) Dim a a = Array(1,2,3,4,5) For k = 1 To4 s=s+a(k) Next Print S End SubA．10B．14C．15D．120
考题
执行下面的程序，消息框里显示的结果是( )。Private Sub Form_Click()Dim Str As String,S As String,k As IntegerS=StrFor k=Len(Str) To 1 Step -1S=S (Mid(Str,k,1)Next kEnd Sub
考题
有下列程序段，单击命令按钮执行程序后，输出结果是( )。Option Base 1Private Sub Command1 Click()Dim xx=Array(23,-5,17,38,-31,46,11,8,5,-4)31=0s2=0For k=1 To 10If(x(k)0)ThenS1=S1+x(k)Elses2=s2+x(k)End IfNext kY=s1/Abs(s2)Print YEnd SubA．148B．40C．40D．3.7
考题
下列程序的输出结果是( )。 Dim a a=Array(1，2，3，4，5，6，7，8) i=0 For k=100 To 90 Step-2 s=a(i)^2 If a(i)＞3 Then Exit For i=i+1 Next k Print k；i；sA．88 6 36B．88 1 2C．90 2 4D．94 3 16
考题
有下列程序段，单击命令按钮执行程序后，输出结果为( )。 Option Base 1 Private Sub Command1_Cliek() Dim x x=Array(23, -5, 17, 38, -31, 46, 11, 8, 5, -4) s1=0 s2=0 Fork=1 To 10 If (x(k)＞0) Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End SubA．148B．40C．-40D．3.7
考题
在窗体上添加一个命令按纽，名为command1，其事件过程如下，程序运行后，其输出的结果为______ 。 Private sub_command1_ click () Dim a a=array(1，2，3，4，5) For k=1 to 4 S=s+ a(k) Next k Print s End subA．10B．14C．15D．120
考题
设执行以下程序段时依次输入1、3、5，执行结果为______ 。 Dim a(4)As Integer Dim b(4) As Integer For K=0 To 2 a(K+1)=Val(1nputBox(“请输入数据：”)) b(3-K)=a(K+1) Next K Print b(K)A．1B．3C．5D．0
考题
当Form_Click;事件发生时,窗体上显示的第三行是 ______。 Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Dim x(5, 5) As Integer For i = 1 To 5 k = 1 For j = 1 To 5 If i ＜= j Then x(i, j) = k + 1 k=k+2 Else x(i, j) = k + 1 End If Next j Next i For i = 1 To 5 For j = 1 To 5 Print x(i, j) Next j Print Next i End SubA．22135B．21357C．22213D．13579
考题
下面程序运行后的结果是( )。 Private Sub Form_Click() Dim s As Integer，k As Integer,i As Integer，n As Integer s=1 fori=1 to 3 forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End SubA．6B．72C．144D．432
考题
当发生Form_Click事件时，窗体上显示的第三行是( )。 Option Base 1 Private Sub Form_Click() Dim i As Integer，j As Integer，k As Integer Dim a(5，5)As Integer For i=1 To 5 k=1 For i=1 To 5 If(i＜=j)Then a(i,j)=k k=k+2 Else a(i,j)=k+1 End If Next j Next i For i=1 To 5 For j=1 To 5 Print a(i,j)； Next j Print Next i End SubA．1 3 5 7 9B．2 1 3 5 7C．2 2 2 1 3D．2 2 1 3 5
考题
有下列程序段，单击命令按钮执行程序后，输出结果为( )。 Option Base 1 Private Sub Command1_Click() Dim x x=Array(23，-5，17，38，-31，46，11，8，5，-4) s1=0 s2=0 For k=1 To 10 If(x(k)＞0)Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End SubA．148B．40C．-40D．3.7
考题
已知数组A(4,4)，各个元素在运行程序时被赋值并打印，形成四除非方阵。请在______和______处填写所需的内容，使其产生一个转置矩阵(即行列互换)，仍放在数组A中，并打印出来。例如：1 1 1 12 2 2 23 3 3 34 4 4 4Private Sub Command1_Click()Dim s(4,4)For k=1 To 4For j=1 To 4a(k,j) =jPrint a(k,j)；NextPrintNextFor k=2 To 4For j=1 To [ ]t=a(j,k)a(j,k)= [ ]a(k,j)=tNextNextFor k=1 To 4Print a(k,1);a(k,2);a(k,3);a(k,4)NextEnd Sub
热门标签
最新试卷