VB题库-上机练习题.pdf

《VB题库-上机练习题.pdf》由会员分享，可在线阅读，更多相关《VB题库-上机练习题.pdf（102页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、R第 1题 X r程 序 填 空（1分）（题 号：532）Private Sub Command l_Click()【程 序 填 空】”题 目：输 入 n 个 数，n 由 用 户 输 入。Dim xx(6)As Integer程 序 的 功 能 是 将 输 入 的 n 个 数 反 向 输 出？Dim k%请 在【】处 填 入 正 确 的 Open App.Path&al.dat For Output As#1Private Sub Form_Load()F ori=1 lb 6Dim n As Integer，*SpyCE*Dim k As Integer j=?Dim m As Intege

2、r Print#1,jDim h As Integer Next IDim t As Integer Close#1Show Open App.Path&al.dat For Input As#2Dim a(l 00)As S ingle k=0n=ValQnputBox(输 入 个 数 n*)Do While Not EOF(2)P rint”处 理 前 数 据:,*SPACE*，*SPACE*k=?For k=1 lb n Input#2,xx(k)a(k)=Val(InputBox(请 输 入 第“&k&“个 数”)LoopPrint a(k);Close#2Next k，*SpCE*P

3、rint ForI=k lb k/2 S te p?*SPACE*Form 1.Print xx(I)in=Int(n/2)Next IFor k=1 lb m End Subh=n-k+1 答 案：，*SPACE*1).1*1t=a(h):?:a(k)=t 2).k+1 或 1+kNext k 3).-1P rint”处 理 的 结 果:K第 3题 程 序 填 空（1分）（题 号:501）For k=1 lb n，【程 序 填 空】Print a(k);”题 目：本 程 序 执 行 后，最 终 在 窗 体 上 打 印 数 字 7。Next k 请 在【】处 填 入 正 确 的 内 容 End

4、 Sub Private Sub Command 1 _Click()答 案：1）.n Dim a As String2).n/2*SPACE*3).a(h)=a(k)Open App.Path&abc.bat For?As#1K第 2 题 1 r程 序 填 空（1分）（题 号：498）n=8U 程 序 填 空】For I=1 lb n”题 目：本 程 序 执 行 功 能 为，命 令 按 钮 单 击 次 后，窗 体 上 输 出 结 P rin t#l,I+1果 为：Next I36 Close#125 悻*SPACE*16 Open App.Path&abc.batn For?As#1,9 F

5、or I=1 lb n请 在【】处 填 入 正 确 的 内 容 Input#1,aIfIM o d 5=0Then*SPACE*Print Clnt(a)4-?End IfNext IClose#1，*SpCE*?.ClearEnd Sub答 案：1).Output2).Input3).1K第 5 题 程 序 填 空(I 分)(题 号:503)【程 序 填 空】”题 目：用 户 界 面 如 图 所 示，用 实 现 左 右 两 个 组 合 框 中 数 据 的 左 移 和 右 移 功 能。,程 序 开 始 运 行 时，在 左 边 组 合 框 中 生 成 10个 由 小 到 大 排 列 的 随 机

6、三 位 正 整 数(假 设 在 设 计 阶 段 该 组 合 框 的 S o rte d属 性 值 已 设 置 为 T ru e),现 要 求 完 成：,(1)单 击”钮，左 边 组 合 框 中 的 1 0个 数 全 部 移 动 到 右 边 组 合 框，并 由 大 到,小 排 列，同 时 使“V V”钮 能 响 应，”钮 不 能 响 应。,(2)单 击“V V”钮，右 边 组 合 框 中 的 1 0个 数 全 部 移 到 左 边 的 组 合 框，并 由 小 到 大 排 列，同 时 使”钮 能 响 应，“V V”钮 不 能 响 应;(3)单 击“结 束 按 钮，结 束 程 序 运 行。清 在【】处

7、 填 入 正 确 的 内 容 Private Sub cmdLcft_Click()Dim i As IntegerFor i=0 lb comboRight.ListCount-1comboLeft.Additem comboRight.List(i)Next icomboRight.Clear*SPACE*?=False，*SPACE*?=TrueEnd SubPrivate Sub cmdRight_Click()Dim i As Integer*SPACE*For i=0 Tb?-1comboRight.Addltem comboLeft.List(i)Next icmdRight.E

8、nabled=FalsecmdLeft.Enab led=TrueEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Fonn_Load()Dim i As IntegerLabell.Caption=组 合 框 1Label2.Caption=组 合 框 2cmdRight.Caption=*cmdRight.Enabled=TruecmdLeft.Caption=ncmdLcft.Enablcd=FalsecmdExit.Caption=结 束 comboLeft.Iext=,HFori=1 Tb 10comboLeft.Add

9、item Int(Rnd*900)+1(X)Next icomboRight.lext=End Sub答 案：1).cmdLeft.Enabled2).cmdRight.Enabled3).comboLeft.ListCount4).comboLeftR第 6 题 程 序 填 空 J(1分)(题 号:511)【程 序 填 空】”题 目：程 序 输 出 结 果 为：n=3 x=42 y=9请 在 处 填 入 正 确 的 内 容 Private Sub Command l_Click()Dim n,x,y As Integer*SPACE*n=0:x=?:y=0Do While x 2 0n=n?

10、y=x+yx=x*(x+1)*SPACE*?Form 1.Print n=&Str(n)Form 1.Print&Str(x)，*SP A C E*Form 1.Print,y=&Str(y)Case(?)End Sub n2=n2+1答 案：Case 0n lb 9r1).1 n3=n3+12).+1 End Select3).Loop ch=InputBox（请 输 入 一 个 字 符）第 8 题 程 序 填 空（1分）（题 号:507），*SP A C E*【程 序 填 空】?题 目：本 程 序 实 现 功 能：将 顺 序 文 本 文 件“M Y H L E.T X T”的 Print

11、nl,n2,n3,内 容 一 个 字 符 一 个 字 符 地 读 入 文 本 框 t俄 xtlest中 End Sub请 在【】处 填 入 正 确 的 内 容 答 案：Private Sub Form_Click()1).ch Dim InputData As String*1 2).nA lb Ztxtlest.Text=3).Wend*SP A C E*R第 10题 2 程 序 填 空（1分）（题 号：62）Open App.Path&MYFILE.TXT For?As#l U 程 序 填 空】*SP A C E*”题 目：输 入 任 何 一 个 英 文 字 母 X,若 X 的 值 为 七

12、 丫，,“1-,则 Do While?EOF(l)显 示 x 的 大 写 字 母；若 X 的 值 为“1,“0”,”此 小 则 显 示 X 的 Input#1,InputData,小 写 字 母；若 为 其 它 的 值，则 显 示 xa（如 输 入 的 X 的 值 是*SP A C E*g,则 显 示 ga）。txtlest.Text=txtTest.lext+?Private Sub Commandl_Click()Loop x=Text 1.TextClose#1*SP A C E*End Sub?答 案：Case a,cH,nd lb T1).Input Label 1.Caption=

13、UCase(x)2),Not*SP A C E*3).InputDataCase?R第 9 题 D 1程 序 填 空（1分）（题 号:50）Labe 11.Caplion=LCase(x)U 程 序 填 空】*SP A C E*题 目：从 键 盘 上 输 入 一 串 字 符，以?”结 束，统 计 输 入 字 符 中 的?,大、小 写 字 母 和 数 字 的 个 数。Labe 11.Caption=Trim(x)+aPrivate Sub Form_Click()End SelectDim ch$,nl%,n2%,n3%End Subnl=0 答 案：n2=0 1).Select Case xn

14、3=0 2).m,”o,”p lb nzch=InputBox（请 输 入 一 个 字 符”）3).Case Else*SP A C E*R第 11题 程 序 填 空（1分）（题 号:65）While?,【程 序 填 空】Select Case ch 题 目：根 据 输 入 的 学 习 成 绩，分 别 显 示 优 秀（90分 以 上），良 好（75Case an lb”z,分 以 上），及 格（6 0分 以 上），不 及 格 几 个 等 级。nl=nl+1 Private Sub Commandl_Click()x=Val(lextl.Text)Ifx=90 ThenPrint”优 秀”*SP

15、 A C E*?Print 良 好”Elself x=60 Then*SP A C E*SP A C E*?Print”优 秀”End IfEnd Sub答 案：1）.Elself x=75 Then 或 Elself 75 F，.程 序 段 如 下：请 在【】处 填 起 正 确 的 内 容 Private Sub Form_Click()Dil strinput As String*70 输 入 字 符 串 Dim Code AS String*70Dim strTcmp As String*1Dim i As IntagerDim Length As IntegerDim iAsc As

16、In4 ege2，加 密 结 果 当 前 处 理 的 字 符 字 符 串 长 度 第 i 个 字 A scii码,*SP A C E*(*谖 字 符 串?9*SP A C E*?格，求 真 正 的 长 度 魂 字 符 串 去 掉 字 符 申 右 边 的 空 Do While(i=A And strlemp Asc(Z)Then iAsc=iAsc-26Code=Left$(Code,i-1)+ChrS(iAsc)Elself(strlemp=a And strlemp Asc(z)Then iAsc=iAsc-26Code=Left$(Code,i-1)+ChrS(iAsc)ElseCode=

17、Left$(Code,i-I)+strTempEnd Ifi=i+1Loop*SP A C E*?显 示 加 密 结 果 End Sub答 案：strinput=txtlnput.lextLength=Lcn(RTrim(strInput)(strlemp=Mid(strlnput,i,1)rtxtCode.lext=Code txtCode=Code答 案：m 和 n,求 其 最 大 1).strlnput=txtlnput 或 strlnputxtlnput.Text r=Sqr(d)/(2*a)2).Length=Len(RTrim(strInput)xl?p+r3).strlemp=M

18、id(strlnput,i,1)x2=p-r4).txtCode.lext=Code 或 txtCode=Code ElseK第 14题 X 程 序 填 空（1分）（题 号:531）xl=p，【程 序 填 空】x2=p”题 目：打 印 出 100-999之 间 的 所 有 水 仙 花 数*SP A C E*,如 果 个 数 的 百 位，十 位，个 位 数 的 立 方 和 等 于 这 个 数 本?身 Print xl=:xl,x2=;x2 则 这 个 数 为 水 仙 花 数*SPACE*)请 在【】处 填 入 正 确 的 内 容?Private Sub Command l_Click()q=Sq

19、r(-d)/(2*a)Dim i As Integer,a As Integer,b As Integer,c As Integer Print nxl=;p;”+；q;“i“，“x2二”；p;”“；q;i”*SP A C E*End IfF o ri=1001b?End Sub*SP A C E*答 案：a=Int(i/?)1).d 0 或 0=0T hen Print最 小 公 倍 数 为:u;numl*num 2/a，*SP A C E*End SubIf?Then 答 案：1).numl n u m I End If2).b 0 Next j3).b=temp Next iK第 17题

20、 程 序 填 空（1 分）（题 号:520）Fori=1 lb 10【程 序 填 空】Print a(i)题 目：完 成 程 序，使 程 序 输 出 值 为 15 Next请 在【】处 填 入 正 确 的 内 容 End SubPrivate Sub C o m m a n d I_Click()答 案：*SPACE*1).*Dim i,j,x,?As Integer2).i+1 或 1+iFor i=1 lb 4 3).a(j)x=4 K第 19题 程 序 填 空（1分）（题 号:537）Forj=1 Tb3【程 序 填 空】x=3 题 目：窗 体 中 有 Tbxtl-lbxt7共 7 个

21、文 本 框，单 击 按 钮 Commandl*SPACE*在 For?=1 Tb2,Text7中 显 示 前 6 个 文 本 框 中 的 数 值 的 最 大 数*SPACE*请 在【】处 填 入 正 确 的 内 容 x=x+?Private Sub C o m m a n d 1 _Click()Next k Dim a,b,c,d,e,f,m As IntegerNext j a=Val(lextl.Text):b=Val(lext2.1ext):c=Val(lext3.1ext)Next i d=Val(lext4.Text):e=Val(lext5.1ext):f=Val(Text6.1

22、ext)Print x Call max(a,b,c,m)End Sub Call max(m,d,e,m)答 案：Call max(m,f,f,m)1).k*SPACE*2).k Text7.1ext=【？】3).6 End SubK第 18题 程 序 填 空（1分）（题 号:539）*SPACE*【程 序 填 空】Sub max(x,y,z,?!)题 目：随 机 生 成 10个 数 存 入 数 组 中，并 将 数 组 排 序 后 输 出 If x y Then情 在【】处 填 入 正 确 的 内 容 m=xPrivate Sub C o m m a n d!_Click()ElseDim

23、a(10)As Integer m=yDim i,j,t As Integer End IfFor i=1 lb 10*SPACE*，*SpCE*If m?Then3).zt=a(i):a(i)=a(j):a(j)=t K第 2 0题 1 f程 序 填 空（1分）（题 号:56）“程 序 填 空】“题:代 码 功 能：输 入 数 字 1 7,显 示 其 对 应 的 星 期 几(例:输 入,1,显 示 星 期 日，如 果 输 入 其 它 内 容，一 律 显 示“输 入 错 误”Private Sub Command l_Click()dim x as integerdim y as string

24、x=val(text 1.text)，*SP A C E*?case 1y=”今 天 是 星 期 日”case 2y=星 期 一”case 3y=“星 期 二”case 4y=星 期 三”case 5y二“星 期 四”case 6*SP A C E*case 7y=星 期 六”，*SP A C E*?y=输 入 错 误”end selectText2.1ext=yEnd Sub答 案：1).select case x2).y=星 期 五”3).Case ElseK第 2 1题 1 程 序 填 空(1分)(题 号:64)【程 序 填 空】题 目：输 入 任 何 一 个 英 文 字 母 x,若 x

25、 的 值 为”，则,显 示 x 的 大 写 字 母；若 x 的 值 为 则 显 示 x 的,小 写 字 母；若 为 其 它 的 值，则 显 示 xa(如 输 入 的 X 的 值 是 g,则 显 示 g a)。Private Sub Command l_Click()x=Text 1.Text，*SP A C E*?Case?Label 1.Caption=UCase(x)Case m,o,p lb zLabel 1.Caption=LCase(x)Case ElseEnd SelectEnd Sub答 案：1).Select Case x2).”d“lb3).Label 1.Caption=T

26、rim(x)+aR第 2 2题 程 序 填 空(1分)(题 号:494)【程 序 填 空】题 目：本 程 序 用 辗 转 相 除 法 求 自 然 数 m、n 的 最 大 分 约 数 和 最 小 公 倍 数，求 最 大 公 约 数 的 算 法 如 下：(1)对 于 己 知 两 数 m、n,使 得 mn;2)m除 以 n 得 余 数 r;Q)若 r=0,则 n 为 求 得 的 最 大 公 约 数，算 法 结 束；否 则 执 行(4)(4)m-n,n-r 再 重 复 执 行(2)原 两 数 相 乘 除 以 最 大 公 约 数 即 为 最 小 公 倍 数，程 序 如 下：，请 在【】处 填 入 正 确

27、 的 内 容 Private Sub Form_Click()Dim m%,n%,mn%n=Val(InputBox(n=)m=Val(InputBox(n=)If n=0 Or m=0 ThenMsgBox”数 据 出 错”Exit SubEnd IfIf?Thent=mm=nEnd If*SDo While?，*S?有 序 数 组 中，插 入 后 的 数 组 仍 保 持 有 序。tempstr=tempstr+Mid（xstr,L 1）m=n 请 在【】处 填 入 正 确 的 内 容 n=r Private Sub Command 1 _Click()Loop Dim si As Stri

28、ng,s2 As StringForm 1.Print”最 大 公 约 数=”；m si=abcdefFormLPrint”最 小 公 倍 数 二;mn/m*SP A C E*End Sub Call Invert(?,s2)答 案：Print s21).mn=n*m 或 mn=m*n End Sub2).nm 或 mn Private Sub Invert(ByVal xstr As String,ystr As String)3).n 0 W e 0 n Dim tempstr As String4).r=m Mod n Dim i As IntegerK第 2 3题 f程 序 填 空（1

29、分）（题 号:53），*SpCE*【程 序 填 空】i=?1题 目：下 面 的 程 序 实 现：从 键 盘 输 入 个 数 字，将 其 插 入 个 Do While i=1Private Sub Form_Click()i=i-lDim a(10)As Integer,x As Integer*SP A C E*F o ri=1Tb 8?a(i)=2*i-1 ystr=tempstrPrint a(i);End SubNext i 答 案：Print 1).six=InputBox（”请 输 入 要 插 入 的 整 数”）2).Len(xstr)，*SP A C E*3).Loop7 K第 2

30、 5题 a f程 序 填 空（1分）（题 号:38）i=8【程 序 填 空】Do While a(i)x 题 目：下 面 的 程 序 段，用 于 实 现 在 一 个 nX m的 矩 阵 中，找 出 值 最,*SP A C E*,大 的 元 素 所 在 的 行 和 列，并 输 出 其 值 及 行 号 和 列 号。?Private Sub Fonn_Click()i=i-1 Dim mat()As IntegerLoop Dim n,m As Integer*SP A C E*n=Val（InputBox（请 输 入 矩 阵 的 行 数”）If i 0 Then?m=Val（InputBox（请

31、输 入 矩 阵 的 列 数）For i=1 lb 9*SP A C E*Print a(i);?Next i For i=1 Tb nEnd Sub Forj=1 lb m答 案：mat(i,j)=InputBox(请 输 入 数 组 元 素 值”)1).a(0)=x mat(i,j)=Val(mat(i,j)2).a(i+1)=a(i)Next j3).a(*i+1)=x Next i（第 24题 H 程 序 填 空（1分）（题 号:518）Print”所 建 立 的 矩 阵 为【程 序 填 空】For i=1 lb n”题 目:将 字 符 串 S 1反 向 输 出 Forj=1 lb mP

32、rint mat(i,j);Next jPrintNext iMax=mat(l,1)For i=1 Tb nForj=1 lb m*SPACE*If?ThenMax=mat(i,j)co l=j，*SPACE*?End IfNext jNext iPrintPrint”矩 阵 最 大 的 元 素 的 值 为:mat(row,col)Print”它 所 在 的 行 号 为：:row;列 号 为：;colEnd Sub答 案：1).ReDim mat(n,m)As Integer2).Max Max3).row=I K第 2 6题 H 程 序 填 空(1分)(题 号:529)【程 序 填 空】题

33、 目：窗 体 上 建 立 了 两 个 文 本 框 7bxtl(输 入 字 符 串)及,Text2(转 换 结 果)，一 个 命 令 按 钮 Command 1(”清 除)。,录 入 Tfextl内 容 时 将，将 录 入 内 容 大 写 字 母 转 为 小 写，,小 写 转 为 大 写 请 在【】处 填 入 正 确 的 内 容 Private Sub Command l_Click()lextl.7ext=,n,Text2.Text=Textl.SetFocusEnd SubPrivate Sub Tbxtl_KeyPress(KeyAscii As Integer)Dim s As Stri

34、ng*1*SPACE*s=?(KeyAscii)Select Case sCase A?“Zs=LCase(s)Case Tb zM,*SPACE*s=?Case Elses=End SelectText2.1ext=Tex t2.Text+sEnd Sub答 案：1).Chr2).lb3).UCase(s)K第 2 7题 程 序 填 空(1分)(题 号:5O8)【程 序 填 空】题 目：用 C irc le方 法 在 图 片 框 中 正 中 画 出 许 多 不 同 颜 色 的 同 心 圆，,且 不 能 画 出 图 片 框？请 在 处 填 入 正 确 的 内 容 Private Sub Pic

35、turel_Click()Dim CX,CY,Radius,LimitScalcMode=3,*SPACE*C X=?CY=Picture 1.ScaleHeight/2，*SPACE*If CX CY Then Limit=CY Else?*SPACE*For Radius=0 lb?Picture 1.Circle(CX,CY),Radius,RGB(Rnd*255,Rnd*255,Rnd*255)Next RadiusEnd Sub答 案：1).Picture l.ScaleW idth/22).Limit=CX 3).LimitR第 2 8题 程 序 填 空(1分)(题 号:52)【程

36、 序 填 空】题 目：下 面 的 程 序 段 用 于 打 印 出 以 下 图 形*,*，*，*Print s，*End Sub _答 案：Private Sub Form_Click()1).t=1Dim i%,j%,k%2).s=+tFor i=0 To 3 3).Next I 或 NextForj=0Ib2-i K第 30题 r程 序 填 空（1分）（题 号：515）Printn【程 序 填 空】Next j 题 目：由 输 入 对 话 框 输 入 n（n 必 须 为 大 于 零 且 小 于 30的 自 然 数），*SP A C E*,计 算 下 列 表 达 式 的 值，并 在 标 签 框

37、 Label 1上 显 示。For k=0 lb?sum=l/2+l/6+.+l/(k*(k=l)(k0 且 n30)Forj=0 Tb i 啾*SP A C E*SP A C E*Do While n=30?n=Val(InputBox(n=,请 重 输 入)Next j LoopFor k=0 lb 4-2*i sum=0Print k=0Next k Do，*SP A C E*，*SpcE*?k=?Next i sum=sum+1/(k*(k+1)End Sub*SP A C E*东*答 案：Loop Until k=?1).2*!+1 Label 1.Caption=Sum=+Str(

38、sum)2).Print 0;End Sub3).Print 答 案：K第 29题 程 序 填 空（1分）（题 号:57）1).Or【程 序 填 空】2).k+1 或 1+k题 目：代 码 功 能:求 1!+2!+10!的 值。3).=nPrivate Sub Form_Click()工 第 31题 X 程 序 填 空（1分）（题 号:51），*SP A C E*【程 序 填 空】题 目：下 面 的 程 序 段 用 于 建 立 文 件 并 输 出 文 件，文 件?内 容 如 F：Forl=21b 10，*t=t*Ir*SP A C E*?*，*SP A C E*，*【？】_ _Private

39、Sub Form_Click()End Sub*SPACE*Private Sub lextl_Change()Open cAl.txt For?As#1*SPACE*F o ri=1 Tb5?=5*(V a l(le x tl.le x t)-3 2)/9Print#l,Spc(i);*”End SubNext i Private Sub Text l_KeyPress(KeyAscii As Integer)，*SPACE*If KeyAscii o 8 Then?*SPACE*SPACE*If Chr(KeyAscii)?ThenOpen nc:l.txtn For?As#1*SPACE

40、*F o ri=1 Tb5 KeyAscii=?Line Input#1,x End IfPrint x End IfNext i End SubClose#1 答 案：End Sub 1).Text2.Text 或 Text2答 案：2).9n1).Output 3).02).Close#1 R第 3 4题 程 序 填 空（1分）（题 号:504）3).Input【程 序 填 空】K第 3 3题 程 序 填 空（1分）（题 号:510）题 目：写 出 程 序 运 行 后，单 击 窗 体，F o r m l上 显 示 的 内 容【程 序 填 空】s u m 函 数 的 功 能 为 求 阶 乘

41、和 题 目：在 窗 体 上 设 计 两 个 文 本 框 和 两 个 标 签，标 签 上 显 示“摄 氏 isum=1,温 度”和“华 氏 温 度”，文 本 框 一 个 用 于 输 入 摄 氏 温 度 数，isum=3,一 个 用 于 输 出 对 应 的 华 氏 温 度?摄 氏 温 度 与 华 氏 温 度 的 isum=6,转 换 公 式 为：c=(5/9)*(f-3 2)isum=10 要 求：对 输 入 的 摄 氏 温 度 数 有 检 查 功 能，以 拒 绝 接 收 非 isum=15,数 字 字 符?运 行 界 面 如 图 所 示：清 在【】处 填 入 正 确 的 内 容 请 在【】处 填

42、 入 正 确 的 内 容 Private Sub Form_Click(),Private Sub Command l_Click()Dim I As Integer,isum As IntegerTextl=,H，*SPACE*Text2=,M,For I=1 lb?Textl.Enab led=True isum=sum(I)Text2.Enablcd=True*SPACE*Textl.SetFocus Form 1.Print nisum=&?End Sub Next 1Private Sub Command2_Click()End SubEnd Private Function sum

43、(n As Integer)End Sub Static j As IntegerPrivate Sub Form_Load()悻*SPACE*Textl=M,?=j+nText2=M,sum=jText 1.Enabled=FalseText2.Enabled=FalseEnd Function答 案：1).52).&isum3).j=K第 3 5题 程 序 填 空(1分)(题 号:45)【程 序 填 空】题 目：卜 面 的 程 序 段 用 于 求 矩 阵 相 乘 C=A X B,设 A、B、C 分 别 为 m X p、pXn m X n 的 矩 阵。Private Sub Form_Cli

44、ck()Const m=4,p=3,n=2Dim a(l lb m,1 lb p)As IntegerDim b(l Tb p,1 lb n)As IntegerDim c(l lb m,1 lb n)As IntegerDim i As Integer,As Integer,k As Integer,sum As IntegerFor i=1 lb mFor k=1 lb p1).sum=02).a(i,k)b(k,j)3).sumK第 36题 程 序 填 空(1分)(题 号:499)【程 序 填 空】题 目：由 筛 选 法 求 m 以 内 的 所 以 素 数,(1)把 2-m以 内 的 所

45、 有 数 放 入 筛 中；,(2)找 筛 中 最 小 的 素 数，再 筛 中 去 掉 该 素 数 的 所 有 倍 数；,(3)重 复(2),直 到 要 找 的 筛 中 的 最 小 素 数 已 超 出 m 的 范 围;,(4)在 P ictu rl中 打 印 筛 中 的 素 数。请 在 处 填 入 正 确 的 内 容 Private Sub txtlnput_KeyPress(KeyAscii As Integer)Dim I As Integer,j As IntegerDim prime(1000)As IntegerDim ni As Integer,p As IntegerDim fla

46、g As Booleana(i,k)=iNext kIf KeyAscii=13 ThenPrintNext i m=Val(?)For i=1 lb p For I=2 To m-1 筛 子 充 满 数 For k=1 lb n primc(I)=1b(i,k)=i Next INext k P=2Next i flag=TrueFor i=1 Tb m DoForj=1 lb n Do While p m And prime(p)=0,找 筛 子 中 最 小 的 数*SPACE*SPACE*?p=?For k=1 lb p Loop*SPACE*，*SPACE*sum=sum+(?)If

47、p=m Then flag=?，筛 了 中 的 数 全 求 过 结 束 Next k For I=p+p lb m-1 Step p，在 筛 子 中 清 除 该 素 数 的 倍 数*SPACE*primc(I)=0c(i,j)=?Next INext j,i p=p+1Print”输 出 矩 阵 Loop While flag=TrueFor i=1 Tb m 1=0For k=1 lb n Forj=2 lb m-1，打 印 素 数 Print c(i,k),*SPACE*Next k If?TlienPicture 1.Print j;1=1+1If I Mod 5=0 Then Pict

48、ure I.Print 一 行 打 印 5 个 素 数 Next iEnd Sub答 案：*SPACE*k=k+I 或 k=l+k7 K第 3 8题 程 序 填 空（1分）（题 号:533）Next j【程 序 填 空】End If 题 目：完 成 程 序，使 程 序 输 出 如 图 示。End Sub 请 在【】处 填 入 正 确 的 内 容 答 案：-Private Sub Form_Load()1).Val(txtlnput.text)或 Val(txtlnput)Show2).p+1 或 1+p Dim a(6,6)As Integer3).False Dim i,j,k,t As I

49、nteger4).Prime(j)0*SPACE*5).End If For i=1 Tb?K第 3 7题 X r程 序 填 空（1分）（题 号:534）Forj=1 7 b 6，【程 序 填 空】，*SpCE*题 目：在 窗 体 上 有 两 个 列 表 框 Listl（处 理 前 数 据）和 List2（处 理 Select Case?,后 数 据），以 及 标 签 Labell。程 序 功 能 为：随 机 生 成 100个 Case Is j请 在【】处 填 入 正 确 的 内 容 a(i,j)=2 Private Sub Form_Load()Case Is=jDim n As Inte

50、ger，*SpcE*Dim i,x,k As Integer?Dim a(100)As Integer,b(100)As Integer End SelectRandomize Print a(i,j);n=100 Next j*SP A C E*PrintFor i=1 Tb?Next i*SP A C E*End Subx=Int(20*?)答 案：List 1.Additem x 1).6a(i)=x 2).iNext i 3).a(iJ)=0k=0 R第 39题 程 序 填 空（1分）（题 号 497）For i=1 lb n，删 除 零 元 素“程 序 填 空】Ifa(i)0 Tli