《vb 对口高考 程序填空题》由会员分享，可在线阅读，更多相关《vb 对口高考 程序填空题（5页珍藏版）》请在金锄头文库上搜索。
1、 第一页 VB程序填空题程序填空题一、程序填空题 1、在当前目录下的顺序文件“XJ.DAT”中，存有 100 个大于 3 的正整数，找 出其中的素数存入数组 A，并按由小到大的顺序输出。 Dim A(100) Open “XJ.DAT” for input as#1 For i=1 to 100Flag=0 For j=2 to x-1 If x mod j=0 then flag=1 :exit for Next j If falg=0 then n=n+1Next i Colose #1 For i=1 to n-1 For j=i+1 to n If then t=a(i):a(i)=a
2、(j):a(j)=t Next j Print a(I); Next i2、随机产生 10 个 10-100（含两端值）的整数，先按从小到大排序，然后输入 一个数 x, 插入已排序好的数列中，保持数列仍然有序并输出新数列。Dim A(10) For i=0 to 9 A(i)=int(Rnd*91+10) Next i For i=8 to 0 step -1 L=1For j=0 to i If then t=a(j):a(j)=a(j+1):a(j+1)=t:L=0 Next j If L=1 then exit for Next i X=val(inputbox(“x=”) For i=
3、0 to 9 If then exit for Next i For j=9 to I step -1Next j A(i)=x For i=0 to 10 Print a(i); Next i 3、找出 100-1000（不包含 100 和 1000）中的所有质数，按由大到小排序后将 其写入顺序文件 zhishu.txt 中。 N=0: Dim a(500) For i=101 to 999 step 2 F=0 For j=2 to i-1 Then f=i Next jIf f=0 then n=n+1 :a(n)=i Next i For i=1 to n-1 For j=i+1 to
4、 nNext j,i Open “zhishu.txt” for output as#1第二页 For i=1 to n Write #1,a(i) Next i Close #1 4、唱歌比赛，有 10 个评委给出了 10 个选手的成绩，每个选手的成绩已经出来， 下面程序是把成绩读入数组，经过排序得出每个选手的名次，请填空（数组 a 表示 的是选手的号码，数组 b 表示的是选手的成绩，数组 c 表示选手名次） 。 Dim a(10),b(10),c(10) FOR I=1 TO 10 A(i)=val(inutbox(“请输入选手的号码： ) b(i)=val(inutbox(“请输入选手的
5、成绩： ) next i for i=1 to 9 for j=I to 10 if b(i)I then Next iFor i=1 to 10 Write #1,a(i) Next i Close #1 9、下面程序是求 4 行 4 列矩阵中各列中的最大值之和的程序，数据如下，请填空 补充完整。1、2、3、4、5、6、7、8、1、2、3、4、5、6、7、8 Sum=0 Dim a(4,4) For i=1 to 4 For j=1 to 4A(I,J)= VAL（INPUTBOX（“请输入数据：” ） ） Next j,i For i=1 to 4Max= For j=2 to 4 If
6、then max=a(j,i) Next j Sum=sum+max Next i Print “sum=”;sum10、计算 直到最后一项小于 0.001，求出 N 值，最后一项值及 S 的值。 s=0:k=1:n=0 while k n= s= k= wend print n,k,s 11、输入任一字符串，并判断其中 A 的个数。 n=0 a$=inputbox(“请输入一个字符串：”) c=len(A$) for i=1 to c if then next i print n 12、计算 1-10 的平方和并输出结果。 sum= for j=2 to 10 sum= next j pri
7、nt 13、显示杨辉三角，显示 10 行。 111 12 1 13 3 1 19 36 84 126 126 84 36 9 1 dim A(10,10) for x=1 to 第四页 print tab(26); for y=1 to x if y=1 or y= thenA(x,y)=1 else A(x,y)=A(x-1,y)+ print A(x,y); next ynext x 14、编程输出如下图形： * * for x= to 3 print tab(35- ); for y=1 to print “*”; next y print next x15、下面程序的功能是产生 100
8、 个 1-10（含 1 和 10）之间的整数，并把数 K(1=k=10)的出现次数记入数组元素 A（K） 。 dim A(10) for j=1 to 100 k=int( )+1 A(k)= next jfor j=1 to 10 print ; next j 16、一个数组 y 有 10 个元素，已按升序排列，现又输入一个元素到该数组中，且 其插入后该数组中的元素仍然按升序排列。试补充以下程序。Private sub Command1_Click()Dim yy=Array(3,23,34,56,66,67,78,85,89,90)ReDim Preserve y(1 to 11)n=va
9、l(inputbox(“请输入一个数：”)For i=10 to 1 Step -1if then y(i+1)=n:exit fory( ) =y(i)next i y( ) =n for i= 1 to 11print y(i);space(1); next i end sub 17、以下程序用于判断向文本框 Text1 中输入的数据。如果该数据能被 3 或 7 整除， 则输出；否则将焦点定位在文本框 Text1 中，选中其中的文本，等待重新输入。试 补充以下程序。Private sub Command1_Click()x=val(text1.text)if thenprint xelse
10、text1.SelStart=0text1.SelLength= endifend sub第五页 二、分析程序的运行结果。1、k=1 for j=1 to 5k=k*jnext jprint k*j2、dim a(3，3)for j=1 to 3for k=1 to 3a(j,k)=(j-1)*3+knext k,jfor j=1 to 3for k=j to 3print tab(k*3);a(j,k);next knext j 3、 dim A（10） ，b（10）for j=1 to 10a(j)=3*j b(j)=a(j)*3 next j print b(a(1) 4、dim a()
11、 as integer redim a (1 to 5)for i=1 to 5a(i)=inext i redim a(1 to 10) for i= 6 to 10a(i)=2*i next i for i=1 to 10print a(i); next i 5、option explicit private sub form_click() dim I as integer,j as integer i=1:j=2 call test(I,j) print I,j call test(I,j) print I,j end sub private sub test (m as intege
12、r,n as integer) static sta as integer m=m+n n=n+m+sta sta=sta+m end sub 6、private sub form_click() dim x(20) as integer open “test.dat” for output as #1 for i=2 to 6for j=1 to I for i=2 to m/3print #1,j print x(i)next j next I next I end sub close #1 open “test.dat” for input as#2m=0do until eof(2)m=m+1input #2,x(m)loop
