DOC《习题》

习题

(一)选择题 1.

下面哪个程序段能够正确实现如果A

80 Then I=3 If a <

90 Then I=4 Print "I=";

I A. I=1?????B. I=2 C. I=3?????D. I=4 11. 在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a=0 For i=1 To

2 For j=1 To

4 If j Mod

20 Then a=a-1 End If a=a+1 Next j Next i Print a End Sub 程序运行后,单击命令按钮,输出结果是( ). A.

0 B.

2 C.

3 D.

4 12. 用InputBox函数设计的对话框,其功能是( ) A. 只能接收用户输入的数据,但不会返回任何信息 B. 能接收用户输入的数据,并能返回用户输入的信息 C. 既能用于接收用户输入的信息,又能用于输出信息 D. 专门用于输出信息 13. 以下程序段运行时从键盘上输入字符"-",则输出结果为( ) op$=InputBox("op=") If op$="+" Then a=a +

2 If op$="-" Then a=a C

2 Print a A. 2?B. -2 C) 0?D) +2 14. 下列程序段的执行结果为( ). N=0 For I=l To

3 For J=5 To l Step-1 N=N+l Next J Next I Print N;

J;

I A.

12 0

4 B.

15 0

4 C.

12 3 l D.

15 3

1 15. 下列程序段的结果为( ). A="ABBACDDCBA" For I=6 To

2 Step-2 X=Mid(A,I,I) Y=Left(A,I) Z=Right(A,I) Z=X & Y & Z Next I Print Z A. ABA B. AABAAB C. BBABBA D. ABBABA 16. 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Static y As Integer Cls For i=0 TO

2 x=x+y y=y+3 Next Print x,y End Sub 程序运行后,连续二次单击Command1按钮后,窗体上显示的是( ). A.

9 9 B.

36 18 C.

30 12 D.

63 27 17. 下列关于Select Case的叙述中,错误的是( ) A. Case

10 to

100 '表示判断Is是否介于10 与100之间 B. Case "abc","ABC" '表示判断Is是否和"abc"、 ,"ABC"两个字符串中的一个相同 C. Case "X" '表示判断Is是否为大写字母X D. Case -7,0,100 '表示判断Is是否等于字符串"-7,0,100"

(二)填空题 1. 下列程序的功能是:当x100时,没有意义.请补充完整下列程序段. Private Sub Command1_Click() ?Dim x As Single ?x=InputBox("请输入x的值!") ?___(1)____ Case Is <

50 ? y=0.8 * x ?Case

50 To

100 ? y=0.7 * x ?____(2)___ ? Print "输入的数据出界!" ?End Select ?Print x, y End Sub 2. 以下程序的功能是从键盘输入若干个学生的考试成绩,统计并输出最高分和最低分,当输入负数时结束输入,输出结果.请补充完整下列程序段. Dim x, amax, amin As Single x=InputBox("Enter a score") amax=x amin=x Do While ___(1)___ ?? If x > amax Then ???? amax=x ?? End If ?? If ___(2)___ Then ???? amin=x ?? End If ?? x=InputBox("enter a score") Loop Print "max=";

amax, "min=";

amin 3. 下面程序是用来打印九九乘法表的,请补充完整下列程序段. Dim i As Integer, j As Integer, Str1$ Str1="" For i=1 To

9 For j=1 To

9 ?????? If ____(1)_____ Then Str1=Str1 + Str$(j)Str$(i)Str$(Val(i j) ) ?????? Else Str1=Str1 & Chr(13) 2)____ ??????? End If ??????? Next j Next i Print Str1 4. 下面程序是求Sn=a+aa+aaa+……+aa...a(n个a),其中a为一个随机数产生的1~9(包括

1、9)中的一个正整数,n为一个随机数产生的5~10(包括

5、10)中的一个正整数.请补充完整下列程序段. Private Sub Command3_Click() Dim a, n As Integer, s, Sn As Double a = Fix(9 * Rnd) +

1 n = Fix(6 * Rnd) +

5 Print a, n Sn =

0 s =

0 For i =

1 To __(1)__ s = s + a *

10 ^ (i - 1) Sn = ____(2)____ Print Sn Next i End Sub 5. 下列程序的功能是计算s=l+1/2!1/3!+...+1/n!去的值.请将程序补充完整. Private Sub Command1_Click() n=5 f=1 s=0 For i=l TO n f= s=s+f Next Print s End Sub 6. 以下程序段的输出结果是 num=0? Do?While?num