试题10下列程序段的功能是求1到100的累加和。请在空白处填入适当的语句,使程序完成指定的功能。Dim s As Single , m As Singles=0m=1do while ____【10】___s=s+mm=m+1Loop

试题10

下列程序段的功能是求1到100的累加和。请在空白处填入适当的语句,使程序完成指定的功能。

Dim s As Single , m As Single

s=0

m=1

do while ____【10】___

s=s+m

m=m+1

Loop


相关考题:

( 10 )子过程 Test 显示一个如下所示 9X4 的乘法表。1*1=1 1*2=2 1*3=3 1*4=42*2=4 2*3=6 2*4=83*3=9 3*4=124*4=16请在空白处填入适当的语句使子过程完成指定的功能。Sub Text ()Dim i,j As IntegerFor i=1 To 4For j=1 To 4If 【 10 】 ThenDebug.Prrint I “ * ” j “ = ” i * j Space ( 2 )End IfNext jDebug .PrintNext iEnd Sub

( 12 )窗体中有两个命令按钮: “ 显示 ” (控件名为 cmdDisplay )和 “ 测试 ” (控件名为 cmdTest ) 。 当单击 “ 测试 ” 按钮时 , 执行的事件功能是 : 首先弹出消息框 , 若单击其中的 “ 确定 ” 按钮 , 则隐藏窗体上的 “ 显示 ” 按钮:否则直接返回到窗体中。请在空白处填入适当的语句,使程序可以完成指定的功能。Private Sub cmdTest Click ( )Answer= 【 12 】( “ 隐藏按钮? ” , vbOKCancel+vbQuestion, “ Msg ” )If Answer=vbOK ThenMe{cmdDisplay.Visible= 【 13 】End IfEnd Sub

( 11 )下列程序的功能是找出被 5 、 7 除,余数为 1 的最小的 5 个正整数。请在程序空白处填入适当的语句,使程序可以完成指定的功能。Private Sub Form_Click()Dim Ncount %, n%n = n + 1If 【 11 】 ThenDebug.Print nNcount =Ncount + 1End IfLoop Until Ncont = 5End Sub

(12 )以下程序的功能是在立即窗口中输出 100 到 200 之间所有的素数,并统计输出素数的个数。请在程序空白处填入适当的语句,使程序可以完成指定的功能。Private Sub Command2_Click()Dim i%, j%, k%, t % ‘ t 为统计素数的个数D im b As BooleanFor i = 100 To 200b = Truek = 2j = Int(Sqr(i))Do While k = j And bIf I Mod k = 0 Thenb = 【 12 】End Ifk = 【 13 】LoopIf b = True Thent = t + 1Debug.Print iEnd IfNext iDebug.Print " t= " ; tEnd Sub

下列子过程的功能是:当前数据库文件中的 “ 学生表 ” 的学生 “ 年龄 ” 都加 1 ,请在程序空白处填写适当的语句,使程序实现所需的功能Private Sub SetAgePlus1_Click()Dim a As DAO.DatabaseDim rs As DAO.RecordsetDim fd As DAO.FieldSet db = CurrentDb()Set rs = db.OpenRecordset(" 学生表 ")Set fd = rs.Fields(" 年龄 ")Do While Not rs.EOFrs.Editfd =____[14]____rs.Update___[15]___Looprs.Closedb.CloseSet rs = NothingSet db = NothingEnd Sub

有如下一段程序: SET TALK OFF A=1 B=0 DO WHILE A<=100 IF.NOT.A/2=INT(A/2) B=B+A ENDIF A=A+1 ENDDO ? B SET TALK ON RETURN 该程序的功能是______。A.求1~100之间的累加和B.求1~100之间的累加和除以2的商C.求1~100之间的偶数之和D.求1~100之间的奇数之和

下列程序的功能是求算式:1+1/2!+1/3!+1/4!+……前10项的和(其中n!的含义是n的阶乘)。请在空白处填入适当的语句,使程序完成指定的功能。Private Sub Commandl_Click ( )Dim i as integer,s as single,a as singlea=1:s=0For i=1 To 10a=_____s=s+aNext iDebug.Print“1+1/2!+1/3!+……=”;SEnd Sub

下面的程序是用do-while语句计算10的阶乘。请在程序的每条横线处填写1个语句,使程序的功能完整。注意:请勿改动main()主方法和其他已有的语句内容;仅在横线处填入适当的语句。源程序文件代码清单如下:public class DoWhileLoop{public static void main(______){int n=10;long result=1;do{_____;}_____;System.out.println("10的阶乘为:"+result);}}

以下程序的功能是统计字符串A中出现字符串B的次数,然后输出,请在填空[9]处填入适当的程序完成功能。

下面程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数。请在‘空白处填入适当语句将程序补充完整。Private Sub Form_Click()sum=0For i=1 To 1000If______Thensum=sum+iEnd IfNext iMsgBox sumEnd Sub

下列程序功能为:弹出一个对话框询问用户是否输出,如果是,则输出;否则结束。请在程序空白处填入适当内容使程序完整。Sub PrintOut()Dim a As Integera = MsgBox("输出结果?", vblnformation + vbYesNo, "提示:")If a = ______ ThenPrint "Myresult"End IfEnd Sub

下面的程序是求菲波那契(Fibonacci)数列的前10项。已知该数列的前两项都为1,即F(1)=1,F(2)=1;而后面各项满足: F(n)=F(n-1)+F(n-2)。请在程序的每条横线处填写一条语句,使程序的功能完整。注意:请勿改动main()主方法和其他已有的语句内容,仅在横线处填入适当的语句。public class Fibonacci{public static void main(String args[]){System.out.printtn("Fibonacci is"+" "+"_______________________);}static long fib(int n){if(______________)return 1;elsereturn _________________}}

设有如下程序段,其功能是查找并输出该数组中的最小值。请在空白处填入适当的内容,将程序补充完整。Option Base 1Private Sub Command1_Click()Dim arr1Dim Min As Integer, i As Integerarr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)Min = arr1(1)For i=2 To 8If arr1(i)<Min ThenNext iPrint "最小值是:"; MinEnd Sub

下面的程序的功能是求1~100的奇数的和及该和的平均值。请在程序的每条横线处填写一个语句,程序的功能完整。注意:请勿改动main()主方法和其他已有的语句内容,仅在横线处填入适当的语句。public class SumAndAve{public static void main(String args[ ]){int count=0,sum=0,ave=0;for(int i=1;i<=100;____________________)if(_____________________)continue;else{___________________sum=sum+i;}ave=sum/count;System.out.println("sum="+sum);System.out.println("ave="+ave);}}

下面的程序是用do_while语句计算10的阶乘。请在程序的每条横线处填写一个语句,使程序的功能完整。注意:请勿改动main()主方法和其他已有的语句内容,仅在横线处填入适当的语句。源程序文件代码清单如下:public class DoWhileLoop{public static void main(________){int n=10;long result=1;do{_______________}______________System.out.println("10的阶乘为: "+result);}}

设有如下代码:x=0Dox=x+1Loop While x>=______运行程序,要求循环体执行4次后结束循环,请在空白处填入适当语句使程序完整。

子过程Test显示—个如下所示4×4的乘法表。1*1=1 1*2=2 1*3=3 1*4=42*2=4 2*3=6 2*4=83*3=9 3*4=124*4=16请在空白处填入适当的语句使子过程完成指定的功能。Sub Text()Dim i,j As IntegerFor i=1 To 4For j=1 To 4If【 】ThenDebug.Print i "*" j"=" i*j Space(2),End IfNext jDebug.PrintNext iEnd sub

下列程序的功能是求方程:x2+y2=1000的所有整数解。请在空白处填入适当的语句,使程序完成指定的功能。Private Sub Command 1_Click()Dim x as intege,y as integerFor x=-34 To 34For y=-34 To 34If______ThenDebug.print x,YEnd IfNext yNext xEnd Sub

在窗体中有一个名为Command12的命令按钮,Click事件功能是:接收从键盘输入的10个大于O的不同整数,找出其中的最大值和对应的输入位置。请在空白处填入适当语句,使程序可以完成指定的功能。Private Sub Command12_C1ick( )max=0maxn=0For i=1 To 10Num=Val(InputBox(”请输入第”i”个大于O的整数:”))If_____Thenmax=nummaxn=_____End ifNext iMsgbox(“最大值为第”maxn“个输入的”max)End Sub

有如下一段程序: SET TALK OFF A=1 B=0 DO WHILE A:100 IF.NOT.A/2=INT(A/2)B=B+A ENDIF A=A+1 ENDD0 ? 8 SET TALK ON RETURN 该程序的功能是( )。A. 求1到100之间的累加和B. 求1到100之间的累加和除以2的商C. 求1到100之间的偶数之和D. 求1到100之间的奇数之和

下列程序的功能是:输入10个整数,逆序后输出。请在程序空白处填入适当语句使程序完成指定的功能。Private Sub Command2_Click()Dim i, j, k,temp, arr(11) As lntegerDim result As StringFor k=1 To 10arr(k) =Val (InputBox( "请输入第" k "个数:","数据输入窗口"))Next ki=1j = 10Dotemp=arr(i)arr(i)=arr(j)arr(j)=tempi=i+1j=【12】Loop While【13】result =""For k=1 To 10result=result arr(k) Chr(13)NeXt kMsgBox resultEnd Sub

在窗体中添加一命令按钮,(其Name属性为Commmld1),然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数,并统计其中5的倍数所占比例。请在空白处填入适当的内容,将程序补充完整。Private Sub Command1 Click()Dim a(100)For j=1 To 100a(j)=Int(______)If a(j)______5=0 Then______Print a (j);Next iPrintPrint k/100End Sub

下列程序段功能是求1到100的累加和。 Dim S AsInteger,m AsIntegerS=0 m=1 doWhiles=s+m m=m+1 Loop 横线处应填写的内容是( )。A.m=100B.m≤100C.m=1D.m≥1.

下面的程序的功能是求1~100的奇数的和及该和的平均值。请在程序的每条横线处填写一个语句,使程序的功能完整。注意:请勿改动main()主方法和其他已有的语句内容,仅在横线处填入适当的语句。public class SumAndAve{public static void main(String args[]){int count = 0, sum = 0, ave= 0;for (int i = 1; i<= 100; ______)if(______)continue;else{______sum=sum+i;}ave= sum/count;System.out.println( "sum="+sum);System.out.println( "ave="+ave);}}

有如下一段程序: SET TALK OFF A=1 B=0 DO WHILE A<=100 IF.NOT.A/2=INT(A/2) B=B+A ENDIF A=A+1 ENDDO ?B SET TALK ON RETURN 该程序的功能是A.求1到100之间的累加和B.求1到100之间的累加和除以2的商C.求1到100之间的偶数之和D.求1到100之间的奇数之和

试题11下列程序的功能是求算式:1-1/2+1/3-1/4+……前30项之和。请在空白处填入适当的语句,使程序可以完成指定的功能。Private Sub Command0_Click()Dim i As Single , s As Single,f As Singles=0 :f=1For i= 1 To 30s=s+f / if=___【11】__Next iDebug.Print “1-1/2+1/3-1/4+……=”;sEnd Sub

程序中有一空白处,需要填入一条语句使程序完成其功能。下列选项中错误的语句是()。A、flag=FalseB、flag=NotflagC、flag=TrueD、ExitDo