程序设计作业1

循环作业

一、选择题

1：下列语句中循环体的执行次数是（ 0）

a=3 : b=1

For I=a to b

Print I

Next I

A．0 B．1 C．2 D．3

2：执行以下程序段后，文本框中值是( 3 )

N=0

For K=0 to 50

K=K+3 3 6 9 12

N=N+1 1 2 3 4

If K>10 then Exit For

Next

Text1.text=N

A.2

B.4

C.3

D.5

3：以下程序段执行的结果是( )

a=0 : b=1

Do

a=a+b 1 3 6 10 15

b=b+1 2 3 4 5 6

Loop While a<10

Print a;b

A.10 5

B.a b

C.0 1

D.10 30

4：以下程序段执行的结果是( )

j=0

Do While j<30

j=(j+1)*(j+2)

k=k+1

Loop

Print k;j

A.0 1

B.3 182

C.30 30

D.4 30

5：以下程序段执行时输入数据5、4、3、2、1、-1时的结果是( ) X=0

Do Until X=-1

A=val(inputbox(“A=”))

B=val(inputbox(“B=”))

X=val(inputbox(“X=”))

A=A+B+X

Loop

Print A

A.2

B.3

C.14

D.15

6：以下程序段执行的结果是( )

For k=1 to 4

If k=1 then x=k

If k<=4 then x=x+1

Print x;

Next

A.1 2 3 4

B.2 3 4 5

C.2 3 4 4

D.3 4 5 6

7：执行以下程序段：输出结果为( )

a="abbacddcba"

For i=6 To 2 Step -2

x=Mid(a,i,i)

y=Left(a,i)

z=Right(a,i)

z=UCase(x & y & z)

Next i

Print z

A. ABBABA

B. BBABBA

C. BAB

D. AABAAB

8：下列关于do while …loop 和do…loop until循环执行循环体次数的描述正确的是（）A．do while …loop循环和do…loop until循环至少都执行一次

B．do while …loop循环和do…loop until循环可能都不执行

C．do while …loop循环至少执行一次，do…loop until循环可能不执行

D．do while …loop循环可能不执行，do…loop until循环至少执行一次

二、填空题

1. 输入二个正整数N、N ，求它们的最大公约数P。

Sub command1_click()

Dim M%,N%

M=val(inputbox(“M=”))

N=val(inputbox(“N=”))

Do

P= MMod N

M= N

N= P

Loop While P<>0

P=M

Print P

End sub

2. 输入一个正整数N，判断它是否是素数。

Sub command1_click()

Dim N%

N=val(inputbox(“N=”))

For k=2 to sqr(N)

If N mod k=0 then

Exit For

End if

Next

If k>N-1 then

Print N;”是素数”

Else

Print N;”不是素数”

End if

End sub

3. 下面程序的作用是利用随机函数产生10个100~200之间（包含100、200）的随机数，打印其中为5的倍数的数，并求出它们的总和。请将下列程序补充完整。

Private Sub Command1_Click()

For m = 1 To 10

x = Int(Rnd * _101+100_________)

If ______X mod 5=0______________ Then

Print x;

k1 = k1 + x

End If

Next m

Print "k1="; k1

End Sub

数组作业

一、选择题

1、语句Dim A&(10),B#(10,5)定义了两个数组，其类型分别为

A．一维实型数组和二维双精度型数组

B．一维整型数组和二维实型数组

C．一维实型数组和二维整型数组

D．一维长整型数组和二维双精度型数组

2、下面程序的运行结果是

Private Sub Form_Click()

Dim a, au%, al%, s%, n%

a = Array(1, 5, 8, 4, 7, 9, 3)

al = LBound(a)

au = UBound(a)

s = 0: n = 0

For Each x In a

s = s + x

n = n + 1

Next x

Print "al,au,n,s="; al, au, n, s

End Sub

A．al,au,n,s= 0 6 7 37 Ｂ．"al,au,n,s=” 1 9 6 37

Ｃ．al,au,n,s= 1 6 6 37 Ｄ．al,au,n,s= 1 3 7 37

3、以下程序运行后的输出结果是______。