中国陶瓷史（吴仁敬）.pdf

一、写出程序运行结果 1) i = 0 For G = 10 To 19 Step 3 i = i + 1 Next G Debug. Print i ; G 2) N = 1 Do Debug. Print Tab(n); For K = N To 5 Debug. Print " * "; Next K Debug. Print N = N + 1 Loop Until N > 5 3) For i=1 to 5 Debug. print tab(11-i); for j=1 to 13-2 *i Debug. print “$”; next j Next i 一、写出程序运行结果 5) A = 0 B = 1 Do A = A + B B = B + 1 Loop While A < 5 Debug. Print A; B 6) X = 1 Y = 1 For i = 1 To 3 F = X + Y X = Y Y = F Debug. Print F; Next i写运行结果写出下列程序运行结果, 也可以写出结果对应的表达式。 Public Sub test5() y=2 do while y<4 x=3 do while x<=8 x+y; x=x+2 enddo y=y+1 enddo End Sub 写出下列程序运行结果,也可以写出结果对应的表达式。 Public Sub test6() x=0 For i=1 to 60 If i/3 = int(i/3) and i/5 = int(i/5) Then i; x=x+1 End If next ’x= ’;x End Sub 5 7 9 6 8 10 15 30 45 60 x = 4 写运行结果写出下列程序运行结果,也可以写出结果对应的表达式。 Private Sub Test() n = 0 x=0 Do While x<50 x=(x+2) *(x+3) n=n+1 Loop n; x End Sub 2 72 二、编程实现?1、打印斐波那契( i) 数列的前 20项。斐波那契数列如下: 1 ,1,2,3,5,8, 13,…?2、输入某正整数 n(n ≥ 3), 判断 n是否是素数?3、输入数字季度,显示汉语季度,如输入数字 3,显示三季度,如果输入错误,显示输入错误?4、输入一个字符串,将该字符串按逆向输出。如输入 asdfg ,输出 gfdsa ?5、计算表达式编程题?1、使用 InputBox 函数由用户输入一个整数,请使用 if语句编程判断该数是奇数还是偶数,并输出奇数或偶数的提示信息(可以使用 MsgBox 或 输出提示信息)。 X=val(inputbox( “ x= ”)) If x mod 2 = 0 then “偶数” Else “奇数” Endif ?2、编程求 600 到 800 之间能被 7整除的正整数的个数,将它们显示到立即窗体,并求这些数的和。 S= 0 N= 0 For I = 600 to 800 If i/7 = i\7 then N = n + 1 I; S = s+ i endif next “ s= ”;s ?3、编程求 S = 1+ ( 1+2 )+( 1+2+3 )+…+( 1+2+ …+99+100 )的和,并将结果输出到立即窗体中。 S1= 0 S= 0 For I = 1 to 100 S1 = s1 + i S =s + s1 Next “ s = ”;s ?4、编程完成下列图形的打印。其中第一行左侧第一个*所在列为第 26列。?*?***?****?*****?******