QBASIC语言

QBASIC语言 《QBASIC语言》 一、阅读程序 1、READ x, y, z DATA 8,6,4,2 RESTORE k2 READ a, b, c, d READ m, n DATA 1,3,5 k2: DATA 10,11,12,13,14,15,16 RESTORE READ a, b, c, t, x, y, z k1: DATA 7,8,9 RESTORE k2 READ m, n, b, t, d PRINT a; b; c; d; x; y; z PRINT n END 2、x = 1: y = 2: z = 3 SELECT CASE x + 2 * y + z ^ 2 CASE IS < 8 PRINT x CASE 8, 9 PRINT y CASE 10 TO 15 PRINT z END SELECT END 3、x = 0 20 x = x + 1 IF x > 8 THEN GOTO 70 y = x 50 y = y + 1 IF y < 2 * x + 1 THEN 50 ELSE 20 70 PRINT y END 4、CLS READ x, y DO WHILE x <> -1 IF x * y < x - y THEN PRINT y, x READ x, y LOOP DATA 6,-2,-6,7,-7,4,5,3,-1,0 END 5、x = 1: y = 2: z = 3 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 1 页 FOR j = 1 TO 3 IF j = 1 THEN x = 2 * x + 2 * y + 2 * z ELSEIF j = 2 THEN x = 3 * x + 3 * y + 3 * z ELSE x = 4 * x + 4 * y + 4 * z END IF NEXT j PRINT "x="; x END 6、s = 0 n = 1 WHILE n < 10 s = s + n n = n + 2 IF n = 7 THEN n = n - 1 WEND PRINT "s="; s, "n="; n END 7、DECLARE SUB mn (m, n AS INTEGER) CLS DIM SHARED n AS INTEGER, c AS INTEGER sum = 10 a = 1.6: b = 3.3: c = 1 FOR i = 1 TO 3 IF i > 1 THEN CALL mn(i, (b)) ELSEIF i > 2 THEN CALL mn(i, a + b) ELSE CALL mn(i, c) END IF sum% = sum% + a + b + c NEXT i PRINT "sum%="; sum% SUB mn (m, n AS INTEGER) FOR i = 1 TO 3 SELECT CASE i CASE IS > 1 m = m + a + c CASE 2 TO 3 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 2 页 n = n + b + c CASE ELSE m = m + a + b n = n + a + b c = c + 1 END SELECT NEXT i END SUB 8、S=0 FOR I=1 TO 1000 STEP 2 S=S+I NEXT I FOR I=1000 TO 1 STEP -2 S=S-I NEXT I PRINT "S=" ; S END 9、DATA 1,2,3,4,5,6,7,8,9,10,11,12 N=4 DIM A(N,N) READ S RESTORE FOR I=1 TO N READ A(I,I) FOR J=I+1 TO N READ A (I,J):A(J,I)=A(I,J) NEXT J NEXT I FOR I=1 TO N FOR J=1 TO N IF A(I,J)>S THEN S=A(I,J) PRINT A(I,J); NEXT J PRINT NEXT I REM PRINT "S=";S END 10、FOR X1 = 0 TO 1 FOR X2 = 0 TO 1 FOR X3 = 0 TO 1 FOR X4 = 0 TO 1 FOR X5 = 0 TO 1 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 3 页 IF X1 < X2 THEN 120 IF SGN(X4 + X5) <> 1 THEN 120 IF X2 + X3 <> 1 THEN 120 IF X5 * X4 + (1 - X3) * (1 - X4) <> 1 THEN 120 IF (1 - X5) + X1 * X4 <> 1 THEN 120 PRINT X1; " "; X2; " "; X3; " "; X4; " "; X5 120 NEXT X5, X4, X3, X2, X1 END 11、DIM A(3,3) S=100 FOR J=1 TO 2 FOR I=1 TO 3 READ A(I,J) S=S-A(I,J)*I*J NEXT I PRINT S NEXT J DATA 0,1,2,0,4,5,0,7,8 PRINT A(1,2),A(3,1) END 12、下面程序运行后输出的结果是 ______________ 。 DEFSTR x-z x=“*”:y=“#” FOR n=6 TO 8 z=STRING$(LEN(x)+n-5，y) PRINT z+“123”; NEXT n PRINT END 13、 M = 2 FOR M = 2 TO 3 ON M GOSUB A, B, C S = 0 FOR N = 3 TO 7 STEP 2 GOSUB B: S = S + P NEXT N NEXT M PRINT "S="; S END A: RETURN B: P = 1 FOR I = 1 TO N P = P * I NEXT I 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 4 页 RETURN C: RETURN 运行后的输出结果是:(可以写数学表达式)__________________ 14、OPEN “docu.dat”FOR INPUT AS #1 INPUT #1，temp min = temp : max = temp : sum = 0 n=0 DO WHILE NOT EOF(1) n=n+1 IF min > temp THEN min = temp IF max < temp THEN max = temp sum= sum + temp INPUT #1，temp LOOP CLOSE #1 aver = sum / n PRINT “min=”;min，“max=”;max PRINT “sum=”;sum，“aver=”;aver END docu.dat中读入的数据为0,1,2,3,4,5,6,7,8和9。运行后的min、max、sum和aver 的值分别是 、 、 、 。 15、DECLARE SUB ab(x%, y%) CALL ab(7.7, 3.3) END SUB ab(x%, y%) x%=x%*2: y%=y%*2 PRINT x%; y% END SUB 运行后的输出结果是:__________________ 16、s = 0: p = 1 FOR i = 1 TO 3 IF i >= 1 THEN p = p * i: s = s + p IF i >= 2 THEN p = p * i + 1: s = s + p IF i >= 3 THEN p = p * i + 2: s = s + p NEXT i PRINT "S="; s END 17、k = 1 20 s = 0: j = 1 FOR m = 1 TO k j = j * m NEXT m s = s + j k = k + 1 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 5 页 IF k <= 5 THEN 20 PRINT s * m + k END 18、FOR A=1 TO 6 Y=1 FOR B=1 TO A FOR C=B TO 0 STEP -1 Y=Y+2 NEXT C NEXT B NEXT A PRINT "Y=";Y END 19、a=1:b=10:c=2:i=a DO UNTIL i>b PRINT i;" "; a=0 b=5 c=1 i=i+c LOOP END 20、FOR A(6) DATA 10,15,20 FOR I=6 TO 0 STEP -1 READ A(I) IF I MOD 4 =0 THEN RESTORE NEXT I FOR I=1 TO 6 PRINT A(I); NEXT I PRINT DATA 25,30,35 END 21、DIM X(3,3) FOR N=1 TO 3 FOR M=1 TO 3 IF N=M THEN M=3-N+1 THEN X(N,M)=1 ELSE X(N,M)=0 END IF 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 6 页 NEXT M NEXT N FOR N=1 TO 3 FOR M=1 TO 3 PRINT X(N,M); NEXT M PRINT NEXT N END 22、FOR J=1 TO 3 FOR K=1 TO 3 A(J,K)=(J-1)*3+K NEXT K NEXT J FOR J=2 TO 3 FOR K=1 TO 2 PRINT A(K,J); NEXT K PRINT NEXT J END 23、DECLARE SUB p(k,s) sum=0 FOR j=1 TO 3 CALL P(j,s) sum=sum+5 NEXT j PRINT sum END SUB p(k,s) s=1 FOR m=1 TO k s=s*m NEXT m END SUB 运行后输出sum的值是 ____________________ 24、DIM A(3,3) FOR K=1 TO 3 FOR M=1 TO 3 READ A(K,M) NEXT M,K S=0 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 7 页 FOR K=1 TO 3 FOR M=1 TO 3 IF K<>M THEN IF K<>4-M THEN S=S+A(K,M) END IF END IF NEXT M NEXT K PRINT "S=";S DATA 1,2,3,4,5,6,7,8,9 END 25、DIM A(5,5) FOR I=1 TO 5 FOR J=1 TO 5 IF I=J THEN A(I,J)=1 IF I=X(I) THEN 100 M=X(I) GOTO 120 100 NEXT I PRINT "M=";M,"N=";N DATA 8,2,7,6,9,1,4,5 END 27、M=6 DIM S(M+1) S(1)=2 FOR I=1 TO M-1 FOR J=1 TO I+1 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 8 页 X=I+2-J S(X)=S(X)+S(X-1) IF I= 2 THEN t = t + 1 NEXT n RETURN b: FOR n = 1 TO 3 SELECT CASE n CASE IS > 1 t = t + 1 CASE IS > 2 t = t + 2 CASE IS > 3 t = t + 3 END SELECT NEXT n RETURN c: FOR n = 1 TO 3 IF n > 1 THEN t = t + 1 ELSEIF n > 2 THEN t = t + 2 ELSE t = t + 3 END IF NEXT n RETURN 29、DIM A(5) FOR I=0 TO 4 A(I)=I+1 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 9 页 T=I+1 IF T=3 THEN PRINT A(I); A(T-1)=A(I-2) ELSE A(T)=A(I) END IF IF I=3 THEN A(I+1)=A(T-4) A(4)=1:PRINT A(I); NEXT I END 30、DIM B(6) FOR I=1 TO 3 B(I)=I+1 P=I+1 IF P MOD 3 =0 THEN PRINT B(I) ELSE B(P)=B(I-1) END IF PRINT B(B(P)); NEXT I END 31、DIM A(3) FOR I=1 TO 3 A(I)=0 NEXT I 50 READ X IF X<0 THEN 190 Y=X IF Y=INT(Y) THEN 120 A(1)=A(1)+1 GOTO 50 120 Y=Y/2 IF Y=INT(Y) THEN 170 A(3)=A(3)+1 GOTO 50 170 A(2)=A(2)+1 : GOTO 50 190 FOR I=1 TO 3 PRINT A(I), NEXT I 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 10 页 DATA 11,2.2,33,44,-55 END 32、DIM X(5,5) FOR I=1 TO 5 READ X(I,5) K=6-I FOR J=5 TO 1 STEP -1 K=K-1 IF K=0 THEN K=5 X(J,K)=X(I,5) NEXT J NEXT I FOR I=1 TO 5 FOR J=5 TO I STEP -1 PRINT X(I,J); NEXT J PRINT NEXT I DATA 17,19,13,15,18 END 33、CLS k = 1: j = 1 20 s = 0: j = 1 FOR i = 1 TO k j = j * i NEXT i s = s + j k = k + 2 IF k <> 7 THEN 20 y = s + k + i PRINT "Y="; y END 34、a = 15: b = 8 IF a > b THEN IF b > 0 THEN a = a - 5 b = b + a ELSE b = 10 - b END IF ELSEIF b - a > 5 THEN 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 11 页 b = a - b END IF PRINT "a="; a, "b="; b END 35、CLS l = 1 FOR k = 1 TO 3 ON l GOSUB 200, 300, 300 l = l + 1 NEXT k FOR j = 1 TO 3 PRINT a(j), NEXT j PRINT DATA -24,96,-16,-23,85 END 200 FOR j = 1 TO 3 READ a(j) NEXT j RETURN 300 a(1) = SGN(a(1) * INT(ABS(a(1)))) a(2) = INT(SQR(a(2))) a(3) = ABS(INT(a(3))) RETURN 36、k = 1: p = 0: s = 0: q = 0 DIM x(25) FOR i = 1 TO 25 READ x(i) s = s + 1 / x(i) q = INT(10 * s) IF i MOD 3 <> 0 THEN 120 p = p + k * q k = -k s = 0: q = 0 RESTORE 120 NEXT i p = p + q PRINT "P="; p DATA 2,5,10 END 37、DECLARE FUNCTION isprime (a) CLS OPTION BASE 1 DIM SHARED a(10) 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 12 页 FOR i = 1 TO 10 READ a(i) IF isprime(a(i)) = 1 THEN PRINT a(i); NEXT i DATA 13,56,78,99,34,11,29,21,54,20 END FUNCTION isprime (a) FOR k = 2 TO a - 1 IF a MOD k = 0 THEN EXIT FUNCTION END IF NEXT k isprime = 1 END FUNCTION 程序运行结果:______________________ 38、以下程序是求[10，100]之间有的素数，在下划线处填入适当的内容，完成程序功能。 DECLARE SUB isprime (i) CLS DIM SHARED f AS INTEGER FOR i = 11 TO 100 STEP 2 f = 1 CALL isprime(i) IF ______________ THEN PRINT i; NEXT i END SUB isprime (i) FOR k = 2 TO INT(SQR(i)) IF i MOD k = 0 THEN f = 0 ________________ END IF NEXT k END SUB 39、用随机函数产生NUM个(1?NUM?100)9.17到917之间的实数(保留小数点后两位)，并 存放在X数组中，然后将前N个数颠倒排放。 DECLARE SUB INVERT (M!, A!()) CLS DIM X(100) INPUT N, NUM IF N <= NUM THEN A = 9.17 B = 917 PRINT "before sorting ......" FOR I = 1 TO NUM 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 13 页 X(I) = ________________________________________ PRINT USING "#####.##"; X(I) NEXT I PRINT PRINT "after sorting ......" CALL INVERT(N, X()) FOR I = 1 TO NUM PRINT USING "#####.##"; X(I); NEXT I ELSE PRINT "ERROR" END IF END SUB INVERT (M, A()) I = 1 DO WHILE I <= INT(M + 1) / 2 _______________________ _______________________ _______________________ I = I + 1 LOOP END SUB 二、完成程序(判断下列题目是否正确，如果正确请打“?”，错误请打“×”) 1、下列程序用来求除以3余2，除以5余3，除以7余4的最小整数，请完成程序。 X=11 20 IF ________________AND ________________AND ________________THEN PRINT X _______________________ END IF X=_____________________ GOTO 20 2、下列程序是从键盘输入三个0-9之间的整数并分别存放在变量a,b,c中，程序能打印出以其中最大数为字符图形的等边倒三角形，请完成程序。 INPUT "input three number(0-9)"; a, b, c IF a > b THEN d = a ELSE d = b IF c > d THEN ________________ FOR i = 3 TO 1 _______________ PRINT TAB(20 - i); FOR j = 1 TO _____________ PRINT ________________ NEXT j _____________ NEXT i END 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 14 页 3、下列程序运行后能打印出如图所示的图形。请在__________处填入适当的内容。 * * * * * * * ********* * * * * * * ***** PRINT _________________ FOR i = 1 TO 3 PRINT _____________; "*"; TAB(5 + i); "*" NEXT i PRINT _____________(9, "*") FOR j = 0 TO _________ PRINT TAB(5 - 2); "*"; TAB(5 + 2); "*" NEXT j PRINT _______________________ END 4、程序功能是对下面函数求值，请在相应的横线上填充，把程序补充完整。 0 x<0 10+x 0?x<20 y= 30 20?x<50 30-3(x-50) 50?x<60 0 x?60 DIM x AS INTEGER,y AS INTEGER INPUT x SELECT CASE x CASE _____________ y=10+x CASE _ y=30 CASE _ y=30-3*(x-50) CASE _ y=0 END SELECT PRINT “y=”;y END 5、从键盘输入三个0到9之间的整数并分别存放在变量a,b,c中程序能打印出以其中最大数为字符图形的等边倒三角形。 INPUT “a,b,c”;a ,b ,c IF a > b THEN d = a ELSE d = b 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 15 页 IF c > d THEN _ FOR I =3 TO 1 _ PRINT TAB(20-I); FOR J=1 TO _ PRINT _ NEXT J _ NEXT I END 6、下面程序的功能是产生100个1到10(含1和10)之间的整数,并把数k(1?k?10)的出现次数记入数组元 素a(k),请把程序补充完整。 DIM a(10) FOR j=1 TO 100 k=INT( *RND)+1 a(k)= _ NEXT j FOR j=1 TO 10 PRINT a(j); NEXT j END 7、 下面程序是冒泡排序减少交换次数的改进算法，请在相应的横线上填充，把程序补充完整。 DIM m AS INTEGER,i AS INTEGER DIM a(8) AS INTEGER FOR i=1 TO 8 READ a(i) NEXT i m=8 DO FOR i=1 TO 7 IF a(i)< a(i+1) THEN ________________ m=i ENDIF NEXT i LOOP UNTIL _______ or m=1 FOR i=1 TO 8 PRINT a(i); NEXT i DATA 5,2,7,4,1,3,8,6 END 8、 下面子程序的功能为:n个整数在a数组中的a(1)到a(n)中，已按从小到大的顺序排序，把x的值插入 到数组中，插入后a数组中的数仍然有序。请在相应的横线上填充，把程序补充完整。 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 16 页 SUB insert(x AS INTEGER,n AS INTEGER,a() AS INTEGER) DIM l AS INTEGER,r AS INTEGER,m AS INTEGER,i AS INTEGER FOR i=2 TO n l=1:r=n DO m=INT((l+r)/2) IF x>a(m) THEN l=m+1 ELSE r=m UNTIL __ FOR i=n TO l a(i+1)=a(i) ___ NEXT i END SUB 9、验证歌德巴赫猜想:任何一个偶数都可以表示为两个素数之和。如:6=3+3，8=3+5，......。下列程序是将6到100之间的偶数分解为两个素数之和，请完成程序。 FOR N=6 TO 100 STEP 2 FOR X=2 TO N/2 ________________ GOSUB 200 IF F=1 THEN _____________ GOSUB 200 IF F=1 THEN PRINT N;"=";X;"+;P:_________________ NEXT X 100 NEXT N END 200 F=1 FOR I=2 TO SQR(P) IF _________________ THEN F=0 :GOTO 240 NEXT I 240 ______________ 10、下列程序实现的功能为:若干个数，其和是55，最小值是5，这组数成等差数列。打印出这组数的个数及各数的值。阅读程序，并在程序的“__________"处填入所需的内容。 FOR D=1 TO 13 S=5:M=5:N=1 30 _________________ S=S+M:N=N+1 IF ________________ THEN GOTO 30 IF ________________ THEN GOTO 140 GOTO 200 140 PRINT N PRINT _______________ FOR I=1 TO N PRINT M; 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 17 页 ________________ NEXT I 200 NEXT D END 11、下列程序的功能是从键盘上输入一个数，将这个数插入到一个已经按从小到大排序的所有11个元素的数组中，并使这个数组仍为有序，请在程序“__________”处填入所需的内容。 OPTION BASE 1 ________________ FOR I=1 TO 11 READ A(I) NEXT I INPUT "N=";N FOR I=_______________ IF N>______________THEN A(I+1)=_______________ N=A(I) ELSE A(_____________)=A(I) END IF NEXT I A(I+1)=N FOR I=1 TO 12 PRINT A(I); NEXT I END DATA 1,4,5,7,8,10,14,18,22,28,35 12、下列程序的功能是打印出3×4矩阵，其中的元素为-100到100之间的随机整数，并找出每行中的最大数及其最大数所在的位置，请在程序“___________”处填入所需的内容。 OPTION BASE 1 ________________ FOR I=1 TO 3 FOR J=1 TO 4 X=RND(1) _________________ B(I,J)=Y*INT(RND(1)*101) PRINT B(I,J); NEXT J PRINT NEXT I FOR I=1 TO 3 ________________ FOR J=________________ IF B(I,J)>MAX THEN _______________ 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 18 页 NEXT J PRINT "MAX=";MAX,"I=";I,"J=";J1 NEXT I END 13、下列程序是利用随机函数产生N(N由键盘输入)个10--99(含10和99两数)之间的随机整数存放在数组X中，然后输入一个待查找的数K，若K存在，则输出它在数组中的位置;否则输出没找到信息。请在程序“__________”处填入所需的内容。 INPUT "Enter number n:";n _________________________ RANDOMIZE N FOR I=1 TO N _____________________ NEXT I PRINT INPUT "Enter a number for search:";k x(0)=k:i=n _________________________ i=_______________________ WEND IF i _____________ THEN PRINT "NOT FOUND" ELSE PRINT k;" in position ";i _____________________ END 14、下列程序是将一个正整数序列(K1，K2，K3......)重新排列成一个新的序列。在新序列中，比K1小的数都在K1的前面(左面)，比K1大的数都在K1的后面(右面)。例如当M=6时，序列(9，5，12，3，7，15)经过重新排列后成为(7，3，5，9，12，15)。请在程序“_______"处填入恰当的内容。 10 INPUT "M=";M IF M<2 THEN 10 ________________________ FOR I=1 TO M 50 INPUT A(I) IF ____________________ THEN 50 NEXT I FOR I=1 TO M PRINT A(I); NEXT I PRINT T=1 FOR I=2 TO M 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 19 页 IF _________________________ THEN 170 Y=A(I) FOR J=I TO 2 STEP -1 ___________________________ NEXT J A(1)=Y _______________________________ 170 NEXT I PRINT FOR I=1 TO M PRINT A(I); NEXT I END 15、下列程序的功能是输出如下图形，请在“__________”处填入所需的内容。 1 2 3 4 5 2 3 4 5 1 3 4 5 1 2 4 5 1 2 3 5 4 3 2 1 程序如下: DIM A(5,5) FOR I=1 TO 5 A(1,I)=_________________ NEXT I FOR I=2 TO 5 FOR J=1 TO 4 A(I,J)=____________________________ NEXT J A(I,J)=_________________________ ___________________ FOR I=1 TO 5 FOR J=1 TO 5 ________________________ NEXT J PRINT NEXT I END 16、随机产生11个互不相同的两位正整数，将最大数放在中间，两边的数逐步递减。如:随机产生11个数，96，18，86，60，28，91，17，22，89，85，66。期中输出的顺序为17、22、60、85、89、96、91、86、28、18。请在程序“__________”处填入所需的内容。 RANDOMIZE DIM A(11) 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 20 页 _______________________ FOR I=2 TO 11 50 X=INT(RND(1)*90)+10 FOR J=1 TO I-1 IF _________________ THEN 50 NEXT J _________________ NEXT I FOR I=1 TO 10 P=I FOR J=I+1 TO 11 IF A(P)>A(J) THEN ______________ NEXT J SWAP A(P),A(I) NEXT I FOR I=1 TO 11 IF I<=6 THEN PRINT A(2*I-1); : GOTO 210 ____________________________ 210 NEXT I PRINT END 17、下列程序的功能是:将任意一组数存入数组，从键盘接收一数据，将其插入到数组中，插入的位置也从键盘接收。阅读程序并在程序“__________”处填入所需内容。 input "number of data :";n n=n+1 _______________ for i=1 to n-1 print "data";i;"="; input x(i) next i 70 input "insert data and position is :";d,p if __________ then print "over position!":goto 70 for i=_________________ x(i+1)=_____________ next i x(p)=___________ for k=1 to n print x(k); next k end 18、下列程序的功能是:打印如下图形，要求顶部的字符从第15列开始输出，阅读程序，在程序05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 21 页 “_________”处填入所需的内容。 cls for i=0 to 10 print __________ if i>5 then ________________else ____________________ for j=1 to b print ________________________ next j ___________________________ next i print end 三、编程题(判断下列题目是否正确，如果正确请打“?”，错误请打“×”) 1、编写一个SUB过程，画出如下图形: * * * * * * * * * * * * * * * * 2、S=1!+(1!+3!)+(1!+3!+5!)+……+(1!+3!+5!+……+(2×N-1)!)，N为大于等于1 的整数，由键盘输入，编程计算S((注:(2*N-1)～用FUNCTION 定义的函数完成) 3、给出10个数:-3，10，7，-5，6，-11，9，1，-18，8。编程找出其中的正数，统计正数的个数并求出负数之和。 4、编程程序，求下列数列前20项之和。 3/2，8/5，21/13，55/34，144/89....... 5、一张10平方米的纸，将它对折，问至少对折多少次后，纸的面积为0.05平方米。 6、 编程打印下面图形 ********** 10 ************** 14 ****************** 18 ***** ***** 22-12 ****** ****** 26-14 ******* ******* 30-16 ******** ******** 34-18 7、保龄球记分规则如下: 每局10个瓶，每次击中几个瓶，则给几分; 若10个瓶全中，则根据下一局击中的瓶数记总分，例如:第一局全中，第二局击中5个，则第一 局记分为15分，第二局记分为5分。 若连续几局全中，则根据全中局数和下一次不全中的瓶数记分，例如:第一局全中，第二局全 中，第三局中5个，则第一局记分为25分，第二局记分为15分，第三局记分为5分。 局数 1 2 3 4 5 6 7 8 9 10 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 22 页 击中瓶数 3 10 4 10 10 5 2 4 10 6 得分 3 14 4 25 15 5 2 4 16 6 从键盘输入每局的击中瓶数，计算十局的总得分。 8、 对数据压缩，若有连续出现二个以上相同的数时，将这连续的数表示成-N，x的形式(N为出现的个数，x为该数)-1为结束标志 例:输入为 3，5，2，2，2，2，2，4，4，5，5，5，6，0，0，0，0，0，-1 输入出 3，5，-5，2，-2，4，-3，5，6，-5，0 9、随机产生20个10到99(含10和99)之间的不相重的整数，按个位数的升序进行排列，个位数相同的数则按十位数的降序排。 10、求下列公式直到最后一项小于0.0001，X由键盘输入，并画出程序流程图。 357 xxx ,s,x，,,,,,,, 3，1!5，2!7，3! 11、随机产生20个100-200(含两端)之间的整数存放于A数组中，并输出A数组;将此数组中的元素复制到另一个数组B中，相同的元素只复制一个;统计数组B中的元素的个数并将结果输出;将数组B从小到大排序，并输出排序后的B数组，要求用插入法排序。 12、求N个正整数的最小公倍数，N与各正整数由键盘输入。 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 23 页 计算机网络选择题: 1、IP地址10000001 00000101 00100101 00001111是()类地址。 A. A B. B C. C D. D 2、Telnet指的是()。 A.万维网 B.电子邮件 C.文件传输 D.远程登录 3、Ethernet局域网采用的媒体访问控制方式为()。 A.CSMA B.CSMA/CD C.CDMA D.CSMA/CA 4、A类IP地址中的主机地址为()位。 A.8 B.16 C.24 D.32 5、()是设置在被保护网络和外部网络之间的一道屏障，以防止破坏性侵入。 A.屏幕保护程序 B.防火墙 C.杀病毒软件 D.网关 6、IP

协议

离婚协议模板下载合伙人协议 下载渠道分销协议免费下载敬业协议下载授课协议下载

是()的。 A.面向连接 B.无连接 C.电路交换 D.连接距离不超过100米 7、室内局域网的布线最常用的媒体是() A.光纤 B.双绞线 C.同轴电缆 D.无线方式 8、下面哪个是合法的电子邮件地址,() A.abc@foshan.net B.abc$foshan.net C.abc#foshan.net D.abc&foshan.net 9、下面的操作系统中哪个是网络操作系统,() A.DOS B.Windows 3.2 C.Windows 95 D.Linux 10、在一个主机域名中，()表示主机名。 A.www B.zj C.edu D.cn 11、在下列网间连接中，()在网络层实现网络互连。 A.中继器 B.网桥 C.路由器 D.网关 12、下列传输介质中，哪种传输介质的典型传输速率最高,() A.双绞线 B.同轴电缆 C.光缆 D.无线介质 填空题: 1、假设您的计算机已接入Internet，用户为abcd，连接的服务商主机主机域名为public.tpttj.cn，则您的E-mail地址为————————。 2、数据的传输方式有两种:_____和_________。 3、TCP/IP根据网络规模的大小将IP地址分为5类，其中A类范围__________。 4、IEEE802.3是支持__________算法的局域网，它常用于局域网10BASE-2、10BASE-5、10BASE-T、10BASE-F四种结构。 5、OSI模型分为7个层次，提供OSI用户服务的是_______。 6、串行数据通信有三种方式:单工通信、________通信及_________。 7、计算机网络的主要功能是:数据通信、 、提高计算机的可靠性和可用性、 。 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 24 页 8、在数据通信中，数据的交换技术主要有 、报文交换、 、 帧中继等。 9、Internet上的某台计算机的IP地址为132.221.122.11，则该台计算机所在的网络类型为 类。 10、某位用户的E-mail地址为:jscz@czjn.edu.cn，则该电子信箱所在的主机名称是 。 11、计算机网络可以分成 和 两个子网。 12、网络协议一般由三个部分组成，它们是 、 和 。 13、构成网络的基本拓朴结构,主要有以下四种 、 、 和环型结构等。 14、通信方式有三种方式，分别是 、 和 。 15、计算机网络按通信距离划分为局域网与广域网,NOVELL网属于 。 16、有结构简单灵活、成本低、扩充性强、性能好以及可靠性高等特点，目前局域网广泛采用的网络结构是 。 17、从域名www(fosu(edu(cn可以看出，它是中国的一个 站点。 18、多媒体技术与超文本技术的结合，即形成了 技术。 19、从逻辑功能上分，一个计算机网络由 和 组成。 20、世界最早投入运行的计算机网络是 。 21、在细缆以太网中，如果实际需要的细缆长度超过185m，可以使用支持BNC接口的 。 22、局域网协议

标准

excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载

是 。 23、网络管理主要包括配置管理、故障管理、性能管理、计费管理、 。 24、Internet接入方式可以有 、专线上网和宽带网。 25、Internet中的IP层相当于OSI/RM中的 层。 26、计算机网络中，服务器提供的共享资源主要是硬件、软件和 资源。 27、计算机网络采用的拓扑结构有树形、网形、 、 和 。 28、假设你的计算机已接入INTERNET，用户为ABCD，连接的服务商主机域名为PUBLIC.TPT-TJ.CN，则您的E-MAIL地址为 。 29、计算机网络包括 子网和 子网。 30、以太网的通信协议是 ，INTERNET的通信协议是 。 31、计算机网络的主要功能有 、 、分布处理、提高可靠性。 32、局域网按拓扑结构可以分为 、 、 三种类型。 33、从数据传输的角度看，数据可以分为 和 两种。 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 25 页 35、IP地址有数值和域名两种表示形式，一个数值地址包含 和 两个部分。 36、计算机网络从功能上讲，可分为 、 两大部分。 37、网络中通常使用的三种交换技术有 、 、 。 38、TCP,IP是 缩写，TCP相当于OSI模型中的 层。 39、一个计算机网络主要分成 、 、 三大部分。 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 26 页 05单招预科班(信息)《QBASIC语言》、《计算机网络》寒假作业 第 27 页