可视化编程VB 第8章第10章补充习题.docx
- 文档编号:14074098
- 上传时间:2023-06-20
- 格式:DOCX
- 页数:24
- 大小:26.61KB
可视化编程VB 第8章第10章补充习题.docx
《可视化编程VB 第8章第10章补充习题.docx》由会员分享,可在线阅读,更多相关《可视化编程VB 第8章第10章补充习题.docx(24页珍藏版)》请在冰点文库上搜索。
可视化编程VB第8章第10章补充习题
要求:
1.大作业文件夹的取名规范:
专业-班级-姓名。
例如:
计算机-1班-马杰
计算机-2班-常云博
信管-1班-赵桑子
信科-1班-阮荣磊
2.大作业文件夹中含有:
①已完成的本次“补充习题”作业的Word2003版文档电子版;
②本次“补充习题”作业中标有题序号的每道编程题的.vbp文件和.frm文件。
3.按上述取名规范,在主讲教师指定的时间内,将已完成的大作业文件夹压缩之后,发至:
4.将完成的大作业电子版打印出来,粘贴到自己的作业本上。
5.独立完成大作业,严禁抄袭。
可视化编程(VB) 补充作业
第8章循环结构
补充作业题
1.有如下程序:
PrivateSubForm_Click()
A=0
Forj=1To20Step2
A=A+j\5
Nextj
PrintA
EndSub
运行后,输出的结果是___B____。
A.12 B.16C.40 D.100
2.有一个分数序列:
2/1 ,3/2, 5/3, 8/5, 13/8,……;求这个序列前20项的和。
请将程序补充完整。
注意:
不得增行或删行,也不得更改程序的结构。
PrivateSubform_click()
DimsAsSingle
Dimt1AsInteger,t2AsInteger,tAsInteger
DimIAsInteger
s=0
t1=2
t2=1
I=0
DOwhile_I<20______
S=___t1/t2_______
t=t1+t2
____t2=t1_________
_____t1=t________
I=I+1
PrintI;t1;t2;s
Loop
Prints
EndSub
3.有如下程序:
PrivateSubForm_click()
A=0
Forj=1To10
A=A+j\2+jMod3
Nextj
PrintA
EndSub
运行后,输出的结果是___D____。
A.20 B.25C.30 D.35
4.有如下程序:
PrivateSubForm_clik()
Dims%,i%
s=0
i=100
DoWhilei<=120
If(i\3)*3=iThen
s=s+1
i=i+1
EndIf
i=i+1
Loop
Prints
EndSub
运行后输出的结果是___A____。
A.7 B.9C.11 D.13
5.有如下程序:
PrivateSubform_click()
s=0
i=1
DoWhilei<=100
IfiMod10<>0Then
s=s+i
i=i+1
Else
i=i+1
EndIf
Loop
Prints
EndSub运行后输出的结果是___C____。
A.4050 B.5050C.4000 D.4500
6.有如下程序:
PrivateSubform_click()
A$="54321"
b$="abcde"
Forj=1To5
PrintMid$(b$,j,1)+Mid$(A$,6-j,1);
Nextj
EndSub运行后输出的结果是___A____。
A.a1b2c3d4e5 B.a5b4c3d2e1
C.5a4b3c2d1e D.e1d2c3b4a5
7.有如下的程序:
PrivateSubform_click()
A=1
Do
Fori=1ToA
Print"@";
Nexti
A=A+2
IfA=7ThenExitDo
Loop
EndSub
运行后输出的结果是A。
A.@ B. @
@@@ @@@
@@@@@ @@@@@
C.@@@@@ D.@@@@@
@@@ @@@
@ @
8.窗体上画一个命令按钮,其名称为command1,然后编写如下事件过程:
PrivateSubcommand1_click()
ForI=1To4
IfI=1Thenx=I
IfI<=4Thenx=x+1
Printx;
NextI
EndSub
程序运行后,单击命令按钮,其输出结果为B。
A.1234 B.2345 C.2344 D.3456
9.给定程序的功能是求解数学灯谜。
有算式:
ABCD
-) CDC
____________
ABC
下面程序计算并输出A,B,C和D四位数据。
请将程序补充完整。
注意:
不得增行或删行,也不得更改程序的结构!
PrivateSubform_clik()
ForA=1To9
Forb=0To9
ForC=1To9
ForD=0To9
X=_____________
Y=_____________
Z=______________
IfX-Y=ZThen
PrintA;b;C;D
EndIf
NextD
NextC
Nextb
NextA
EndSub
10.给定程序的功能是建立并打印10*10蛇形方阵,蛇形方阵如图8.1所示。
给定的程序不完整,请在画线处填入适当的内容。
注意:
不得增行或删行,也不得更改程序的结构!
图8.1 蛇形方阵数列
OptionBase1
PrivateSubform_click()
DimA(10,10)
Fori=1To10
Forj=1To10
K=K+1
IfiMod2<>0Then
A(i,j)=10*(k-1)+j
Else
A(i,j)=10*(k+1)-j+1
EndIf
Nextj
Nexti
Fori=1To10
Forj=1To10
PrintTab(5*j);A(i,j);
Nextj
Nexti
EndSub
11.写出下列程序的计算机运行结果:
PrivateSubCommand1_Click()
s=0:
n=0
Fori=1To4
Forj=1Toi
n=n+j
Next
Print"n=";n
s=s+n
Print"s=";s
Next
Print”S=”;s
EndSub
n=1
s=1
n=4
s=5
n=10
s=15
n=20
s=35
12.编写VB程序,计算S=2+(2+4)+(2+4+6)+…+(2+4+6+8+…+50)之值。
PrivateSubForm_DblClick()
Dimn%,i%,s%
Fori=2To50Step2
s=s+i
n=n+s
Next
Printn
EndSub
13.用循环结构编写VB程序,输出下述五阶方阵:
12345
23451
34512
45123
51234
PrivateSubForm_DblClick()
Dimi,j,k,nAsInteger
n=InputBox("请输入有多少行")
Fori=1Ton
Forj=iTo5
j=Format(j,"@@")
Print"";j;"";
Nextj
Fork=1Toi-1
k=Format(k,"@@")
Print"";k;"";
Nextk
Nexti
EndSub
第9章数组
补充作业题
1.DimB120(10T020)所定义的数组元素个数是A。
A.11 B.20C.30 D.10
2.DimAbc(5)所定义的数组元素个数是__B_____。
A.5 B.6C.4 D.10
3.有如下程序:
OptionBase1
PrivateSubform_click()
Dima(3,3)
Forj=1To3
Fork=1To3
Ifj=kThena(j,k)=1
Ifj Ifj>kThena(j,k)=3 Nextk Nextj ForI=1To3 Forj=1To3 Printa(I,j); Nextj Print NextI EndSub 程序运行时输出的结果是___B____。 A.133 B.122 213 312 221 331 C.233 D.211 123 321 112 332 4.有如下程序: OptionExplicit OptionBase1 Dima()AsInteger PrivateSubform_click() DimIAsInteger,jAsInteger ReDima(3,2) ForI=1To3 Forj=1To2 a(I,j)=I*2+j Print"a(";I;",";j;")=";a(I,j); Nextj Print NextI EndSub 该程序的输出结果是__D_____。 A.a(0,0)=3a(0,1)=4 B.a(1,1)=2a(1,2)=3 a(1,0)=5a(1,1)=6 a(2,1)=3a(2,2)=4 a(2,0)=7a(2,1)=8 a(3,1)=4a(3,2)=5 C.a(1,1)=3a(1,2)=5 D.a(1,1)=3a(1,2)=4 a(2,1)=4a(2,2)=6 a(2,1)=5a(2,2)=6 a(3,1)=5a(3,2)=7 a(3,1)=7a(3,2)=8 5.有如下程序: OptionBase1 PrivateSubform_click() DimA(10) ForK=1To10 A(K)=K^2 NextK PrintA(K) EndSub 程序运行后输出的结果是__错误__。 6.在给定程序的功能是建立并输出除主、副对角线上的元素为0外,其余元素都为1的方阵,在画线处填入适当内容,将程序补充完整。 PrivateSubcommand1_click() Dima(10,10) ForI=1To10 Forj=_1To10____ If_I<>jor_I+j<>11___then a(I,j)=0 else a(I,j)=1 _Endif____ Nextj NextI ForI=1To10 Forj=1To10 Printa(I,j); Nextj Print NextI EndSub 7.下面程序的功能是分别计算给定的10个数中正数之各和负数之和,最后输出这两个和数的绝对值之商。 请在画线处填入适当的内容,将程序补充完整。 OptionBase1 PrivateSubcommand1_click() DimA A=Array(23,-5,17,38,-31,46,11,8,5,-4) S1=0 S2=0 Fork=1To10 If(A(k)>0)Then S1=__S1+A(k)__ Else S2=__S2+A(k)__ EndIf Nextk x=Abs(S1)/Abs(S2) Printx EndSub 8.下面的程序是用选择交换法将10个数排成升序,请在画线处填入适当内容,将程序补充完整。 OptionBase1 PrivateSubcommand1_click() Dimarr arr=Array(123,96,42,39,22,14,7,4,0,-7) Print“databeforesorting: ” ForI=1To10 Printarr(I); NextI Print ForI=1_To10_______ k=I Forj=_I+1To10__________ Ifarr(k)>arr(j)thena=arr(k)_arr(k)=arr(j)_arr(j)=a____ Nextj Ifk<>IThen w=arr(k) arr(k)=arr(I) arr(I)=w EndIf NextI Print“dataaftersorting;” ForI=1To10 Printarr(I); NextI Print EndSub 9.写出下列程序的计算机运行结果: PrivateSubCommand1_Click() Dima(5,5)AsInteger Fori=1To5 Forj=1To5 a(i,j)=i+j-1 Nextj Nexti Fori=1To5 PrintTab(8); Forj=5ToiStep-1 Print""; Nextj Fork=6-iTo5 Print"";a(i,k); Nextk Print Nexti EndSub 5 56 567 5678 56789 10.编写VB程序,计算五阶方阵的两条主对角线元素之和。 PrivateSubForm_DblClick() Dima(5,5),s% Fori=1To5 Forj=1To5 a(i,j)=InputBox("请输入元素值","a(i,j)") Printa(i,j)&""; Nextj Print Nexti Fori=1To5 Forj=1To5 Ifi=jOri+j=6Then s=s+a(i,j) EndIf Nextj Nexti Prints EndSub 11.编写VB程序,生成并输出除主对角线元素为1外,其他元素均为0的五阶方阵。 PrivateSubForm_DblClick() Dima(5,5)AsInteger Fori=1To5 Forj=1To5 Ifi=jOri+j=6Then a(i,j)=1 EndIf Nextj Nexti Fori=1To5 Forj=1To5 Printa(i,j)&""; Nextj Print Nexti EndSub 第10章过程 补充作业题 1.在标准模块中用Public关键字声明的变量和常量有效范围是__B___。 A.整个标准模块 B.整个工程 C.所有窗体 D.所有标准模块 2.通用过程中,要定义某一虚拟参数和它对应的实际参数是值传送,在虚拟参数前要加的关键字是___B__。 A.Optonal B.Byval C.Missing D.ParamArray 3.有如下程序: Dimb PrivateSubform_click() a=1: b=1 Print"A=";a;",B=";b Callmult(a) Print"A=";a;",B=";b EndSub PrivateSubmult(x) x=2*x b=3*b EndSub 运行后的输出结果是__C___。 A.A=1,B=1 B.A=1,B=1 A=1,B=1 A=2,B=3 C.A=1,B=1 D.A=1,B=1 A=1,B=3 A=2,B=1 4.有如下程序: OptionBase1 PrivateSubswap(abc()AsInteger) Fori=1To10\2 t=abc(i) abc(i)=abc(10-i+1) abc(10-i+1)=t Nexti EndSub PrivateSubform_click() Dimxyz(10)AsInteger Fori=1To10 xyz(i)=i*2 Nexti swapxyz() Fori=1To10 Printxyz(i); Nexti EndSub运行程序后,输出结果为___C__。 A.12345678910 B.2468101214161820 C.2018161412108642 D.显示出错信息 5.有如下程序 OptionBase1 PrivateSubform_click() Dima(3,3) Forj=1To3 Fork=1To3 Ifj=kThena(j,k)=1 Ifj<>kThena(j,k)=3 Nextk Nextj Callp1(a()) EndSub PrivateSubp1(a()) Forj=1To3 Fork=1To3 Printa(j,k); Nextk Nextj EndSub 行程序时,输出结果为___A__。 A.133313331 B.311131113 C.133 313 331 D.显示出错信息 6.下列程序的功能是计算由输入的分数确定结论,分数是百分制的,0到59分的结论是“不及格”,60到79分的结论是“及格”,80到89分的结论是“良好”,90到100分的结论是“优秀”,分数小于0或大于100是
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 可视化编程VB 第8章第10章补充习题 可视化 编程 VB 10 补充 习题