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

下列子过程的功能是：当前数据库文件中的 “ 学生表 ” 的学生 “ 年龄 ” 都加 1 ，请在程序空白处填写适当的语句，使程序实现所需的功能

Private Sub SetAgePlus1_Click()

Dim a As DAO.Database

Dim rs As DAO.Recordset

Dim fd As DAO.Field

Set db = CurrentDb()

Set rs = db.OpenRecordset(" 学生表 ")

Set fd = rs.Fields(" 年龄 ")

Do While Not rs.EOF

rs.Edit

fd =____[14]____

rs.Update

___[15]___

Loop

rs.Close

db.Close

Set rs = Nothing

Set db = Nothing

End Sub

下列程序的功能是求算式：1+1／2!+1／3!+1／4!+……前10项的和(其中n!的含义是n的阶乘)。请在空白处填入适当的语句，使程序完成指定的功能。

Private Sub Commandl_Click ( )

Dim i as integer,s as single，a as single

a=1：s=0

For i=1 To 10

a=_____

s=s+a

Next i

Debug．Print“1+1／2!+1／3!+……=”；S

End Sub

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

下列程序功能为：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请在程序空白处填入适当内容使程序完整。

Sub PrintOut()

Dim a As Integer

a = MsgBox("输出结果?", vblnformation + vbYesNo, "提示：")

If a = ______ Then

Print "Myresult"

End If

End Sub

设有如下程序段，其功能是查找并输出该数组中的最小值。请在空白处填入适当的内容，将程序补充完整。

Option Base 1

Private Sub Command1_Click()

Dim arr1

Dim Min As Integer, i As Integer

arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)

Min = arr1(1)

For i=2 To 8

If arr1(i)＜Min Then

Next i

Print "最小值是:"; Min

End Sub

下面的程序是用do_while语句计算10的阶乘。请在程序的每条横线处填写一个语句，使程序的功能完整。

注意：请勿改动main()主方法和其他已有的语句内容，仅在横线处填入适当的语句。

源程序文件代码清单如下：

public class DoWhileLoop

{

public static void main(________)

{

int n=10;

long result=1;

do

{

_______________

}

______________

System.out.println("10的阶乘为: "+result);

}

}

子过程Test显示—个如下所示4×4的乘法表。

1*1=1 1*2=2 1*3=3 1*4=4

2*2=4 2*3=6 2*4=8

3*3=9 3*4=12

4*4=16

请在空白处填入适当的语句使子过程完成指定的功能。

Sub Text()

Dim i,j As Integer

For i=1 To 4

For j=1 To 4

If【 】Then

Debug.Print i& "*" &j&"="& i*j & Space(2),

End If

Next j

Debug.Print

Next i

End sub

在窗体中有一个名为Command12的命令按钮，Click事件功能是：接收从键盘输入的10个大于O的不同整数，找出其中的最大值和对应的输入位置。请在空白处填入适当语句，使程序可以完成指定的功能。

Private Sub Command12_C1ick( )

max=0

maxn=0

For i=1 To 10

Num=Val(InputBox(”请输入第”&i&”个大于O的整数：”))

If_____Then

max=num

maxn=_____

End if

Next i

Msgbox(“最大值为第”&maxn&“个输入的”&max)

End Sub

下列程序的功能是：输入10个整数，逆序后输出。请在程序空白处填入适当语句使程序完成指定的功能。

Private Sub Command2_Click()

Dim i, j, k,temp, arr(11) As lnteger

Dim result As String

For k=1 To 10

arr(k) =Val (InputBox( "请输入第" & k & "个数："，"数据输入窗口"))

Next k

i=1

j = 10

Do

temp=arr(i)

arr(i)=arr(j)

arr(j)=temp

i=i+1

j=【12】

Loop While【13】

result =""

For k=1 To 10

result=result & arr(k) & Chr(13)

NeXt k

MsgBox result

End Sub

下列程序段功能是求1到100的累加和。 Dim S AsInteger，m AsIntegerS=0 m=1 doWhiles=s+m m=m+1 Loop 横线处应填写的内容是（ ）。

A.m<=100

B.m≤100

C.m>=1

D.m≥1．

有如下一段程序： 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之间的奇数之和

有如下一段程序： 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之间的奇数之和

下面的程序是用do-while语句计算10的阶乘。请在程序的每条横线处填写1个语句，使程序的功能完整。

注意：请勿改动main()主方法和其他已有的语句内容；仅在横线处填入适当的语句。

源程序文件代码清单如下：

public class DoWhileLoop

{

public static void main(______)

{

int n=10；

long result=1；

do

{

_____；

}

_____；

System.out.println("10的阶乘为："+result)；

}

}

下面程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数。请在‘空白处填入适当语句将程序补充完整。

Private Sub Form_Click()

sum＝0

For i＝1 To 1000

If______Then

sum＝sum+i

End If

Next i

MsgBox sum

End 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;

else

return _________________

}

}

下面的程序的功能是求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);

}

}

设有如下代码：

x＝0

Do

x＝x+1

Loop While x＞＝______

运行程序，要求循环体执行4次后结束循环，请在空白处填入适当语句使程序完整。

下列程序的功能是求方程：x2+y2=1000的所有整数解。请在空白处填入适当的语句，使程序完成指定的功能。

Private Sub Command 1_Click()

Dim x as intege,y as integer

For x=-34 To 34

For y=-34 To 34

If______Then

Debug．print x，Y

End If

Next y

Next x

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之间的奇数之和

在窗体中添加一命令按钮，(其Name属性为Commmld1)，然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数，并统计其中5的倍数所占比例。

请在空白处填入适当的内容，将程序补充完整。

Private Sub Command1 Click()

Dim a(100)

For j=1 To 100

a(j)=Int(______)

If a(j)______5=0 Then______

Print a (j)；

Next i

Print

Print k/100

End 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);

}

}

试题11

下列程序的功能是求算式：1-1/2+1/3-1/4+……前30项之和。请在空白处填入适当的语句，使程序可以完成指定的功能。

Private Sub Command0_Click()

Dim i As Single ， s As Single，f As Single

s=0 ：f=1

For i= 1 To 30

s=s+f / i

f=___【11】__

Next i

Debug.Print “1-1/2+1/3-1/4+……=”；s

End Sub