大学vb复习资料2.docx
- 文档编号:13181866
- 上传时间:2023-06-11
- 格式:DOCX
- 页数:45
- 大小:55.49KB
大学vb复习资料2.docx
《大学vb复习资料2.docx》由会员分享,可在线阅读,更多相关《大学vb复习资料2.docx(45页珍藏版)》请在冰点文库上搜索。
大学vb复习资料2
四、阅读程序写结果
1、下列程序的输入值为15时,其运行结果为()。
Dimaasinteger
A=InputBox("请输入a的值")
SelectcaseA
Case1to4
Print"D"
Case5to10
Print"C"
CaseIS=15
Print"B"
Caseelse
Print"A"
Endselect
2、下列程序段的执行结果是()。
A=0:
b=0
ForI=-1To-2Step-1
Forj=1To2
b=b+1
Nextj
a=a+1
NextI
Printa;b
3、有如下一个函数过程:
Functionf(aAsInteger)
b=0
Staticc
b=b+1
c=c+1
f=a+b+c
EndFunction
在窗体上添加一个命令按纽,事件过程如下:
PrivateSubCommand1_Click()
DimaAsInteger
a=2
ForI=1To3
Printf(a);
NextI
EndSub
运行该程序,单击命令按纽,输出结果是()。
4、在窗体上添加一命令按纽,名为Command1,然后为该命令按纽编写如下事件过程,该过程执行结果为()。
Optionbase1
PrivateSubCommand2_Click()
DimaAsVariant
DimsAsinteger
a=Array(1,2,3,4)
j=1
ForI=1To4Step1
s=s+a(I)*j
j=j*10
NextI
Prints
EndSub
5、下列程序的执行结果是()。
PrivateFunctionP(NAsInteger)
ForI=1ToN
SUM=SUM+1
NextI
P=SUM
EndFunction
PrivateSubCommand1_Click()
S=P
(1)+P
(2)+P(3)+P(4)
PrintS;
EndSub
6、下列程序段的执行结果为()。
有如下SUB过程:
Subs(xAsSingle,yAsSingle)
t=x
x=t/y
y=tMody
EndSub
在窗体上添加一个命令按纽,然后编写如下事件过程:
PrivateSubForm_Click()
DimaAsSingle
DimbAsSingle
a=5
b=4
sa,b
Printa,b
EndSub
则程序运行后,单击命令按纽,输出的结果为()
7、在窗体上添加一命令按纽,名为Command1,然后为该命令按纽编写如下事件过程,该过程执行结果为()。
Optionbase1
PrivateSubCommand2_Click()
DimaAsVariant
a=Array(1,2,3,4)
j=1
ForI=4To1Step-1
s=s+a(I)*j
j=j*10
NextI
Prints
EndSub
8、下列命令按纽事件过程执行后,输出结果是:
Form=1To1000Step2
a=10
Forn=1To20Step2
a=a+2
Nextn
Nextm
Printa
9、在窗体上添加一个命令按钮,名为command1,一文本框,名为text1,则执行如下事件过程后,文本框中的输出为()。
ForI=1To4
Forj=1To3
x=3
Fork=1To2
x=x+3
Nextk
Nextj
NextI
Text1.Text=str(x)
10、在窗体上建立三个文本框,名称分别为Text1、Text2和Text3,一个命令按纽,名称为command1,如果在TEXT1中输入数200,在TEXT2中输入数150,则执行下列程序后,TEXT3的值为()。
PrivateSubCommand1_Click()
Dimm,nAsInteger
m=Val(Text1.Text):
n=Val(Text2.Text)
Ifn*m=0Then
ExitSub
EndIf
Ifm t=m: m=n: n=t EndIf Do r=mModn m=n n=r LoopWhiler<>0 Text3.Text=m EndSub 11、下列程序段的执行结果是()。 K=0 Forj=1To2 ForI=1To3 k=I+1 NextI ForI=1To7 k=k+1 NextI Nextj Printk 12.函数如下: FunctionTotal(xAsInteger)AsLong DimssAsLong,IAsInteger ss=0 ForI=1Tox ss=ss+1 NextI Total=ss EndFunction 调用它的事件过程如下: PrivateSubForm_Load() Show DimIAsInteger,sumAsLong ForI=1to10 sum=sum+total(I) nextI print"和数为: ";sum endsub 则该程序的运行结果为()。 13、下列的程序段执行后,X的值为()。 X=0 ForI=1To10 Forj=ITo10 x=x+1 Nextj NextI Printx 14、单击命令按钮之后,下列程序代码的执行结果为()。 PrivateFunctionP(NAsInteger) Staticsum ForI=IToN sum=sum+1 NextI P=sum EndFunction PrivateSubCommand1_Click() S=P (1)+P (2)+P(3)+P(4) PrintS; EndSub 15、下列程序段的执行结果为()。 DimM(10),N(10) I=3 ForT=1To5 M(T)=T N(I)=2*I+T NextT PrintN(I);M(I) 16、在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1),然后编写如下事件过程: PrivateSubCommand1_Click() x=0 DoWhilex<50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) EndSub 程序运行后,单击命令按钮,在两个文本框中显示的值分别为 17、有如下一个函数过程: Functionmax(xAsSingle,yAsSingle) Ifx>yThen max=x Else max=y EndIf EndFunction 调用它的事件过程如下: PrivateSubCommand1_Click() DimIAsInteger DimjAsInteger DimaAsInteger I=Val(InputBox("请输入第一个数据")) j=Val(InputBox("请输入第二个数据")) a=max((I),(j)) Printa EndSub 则该程序执行后,输入数据50,100,结果为()。 18、下列程序段的执行结果为()。 X=5: y=-20 IfNotx>0Then x=y-3 Else y=x+3 Printx-y;y-x EndIf 19、有如下函数过程: Functiongys(ByValxAsInteger,ByValyAsInteger)AsInteger DoWhiley<>0 reminder=xMody x=y y=reminder Loop gys=x EndFunction 以下是调用该函数的事件过程,该程序的运行结果是()。 PrivateSubCommand7_Click() DimaAsInteger DimbAsInteger a=100: b=25: x=gys(a,b) Printx EndSub 20、以下程序段中Do…Loop循环执行的次数为()。 N=5 do ifnmod2=0then n=n\2 else n=n*3+1 endif Loopuntiln=1 21、在窗体上添加一个命令按纽,名为COMMAND1,事件过程如下: PrivateSubCommand1_Click() x=0 DoUntilc=-1 a=InputBox("请输入a的值") a=Val(a) b=InputBox("请输入b的值") b=Val(b) c=InputBox("请输入c的值") c=Val(c) a=a+b+c Loop Printa EndSub 程序运行后,单击命令按纽,依次在输入对话框中输入5,4,3,2,1,-1后,输出的结果是()。 22、以下程序输出的结果为()。 X=1: y=4 DoUntily>4 x=x*y y=y+1 Loop Printx 23、假定有如下的Sub过程: SubS(xAsSingle,yAsSingle) t=x x=t/y y=tMody EndSub 在窗体上画一命令按钮,然后编写如下事件过程 PrivateSubCommandl_Click() DimaAsSingle DimbAsSingle a=5: b=4 Sa,b Printa,b EndSub 程序运行后,单击命令按钮,输出结果为。 24、阅读下面的程序段: Fori=1To3 Forj=1Toi Fork=jTo3 a=a+1 Nextk Nextj Nexti 执行上面的三重循环后,a的值为。 25、执行下面的程序段后,x的值为。 x=5 Fori=1To20Step2 x=x+i\5 Nexti 26、下列程序段运行后,输出结果是()。 B=1 DoWhileb<7 b=b*(b+1) Loop Printb 27、以下程序的运行结果是()。 PrivateSubCommand1_Click() DimxAsInteger ForI=1To10 IfIMod3=0Then x=x+I EndIf NextI Printx EndSub 28、对窗体编写如下代码: OptionBase1 PrivateSubForm_KeyPress(KeyAsciiAsInteger) a=Array(237,126,87,48,498) m1=a (1) m2=1 IfKeyAscii=13Then ForI=2To5 Ifa(I)>mlThen m1=a(I): m2=I EndIf NextI EndIf Printm1 Printm2 EndSub 程序运行后,按回车键,输出结果为()。 29、函数和调用它的事件过程如下,则该程序运行结果为()。 Functionfunc(aAsInteger,bAsInteger)AsInteger StaticmAsInteger StaticIAsInteger m=0: I=2 I=I+m+1: m=I+a+b func=m EndFunction PrivateSubCommand1_Click() DimkAsInteger DimmAsInteger DimpAsInteger k=4: m=1 p=func(k,m) Printp; p=func(k,m) Printp EndSub 30、在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: PrivateSubCommand1_Click() Dimn()AsInteger Dima,bAsInteger a=InputBox("Enterthefirstnumber") b=InputBox("Enterthesecondnumber") ReDimn(aTob) Fork=Lbound(n,1)ToUbound(n,1) n(k)=k Print"n(";k;")=";n(k) Nextk EndSub 程序运行后,单击命令按钮,在输入对话框中分别输入2和3,输出结果为()。 31、下列程序段的执行结果为()。 DimA(10,10) ForI=2To4 ForJ=4To5 A(I,J)=I*J NextJ NextI PrintA(2,5)+A(3,4)+A(4,5) 32、下列是一个计算1到100的奇数的和的程序,请补充完该程序。 PrivateSubCommand1_Click() DimsAsLong DimxAsInteger s=0 Forx=()Step-2 s=s+x Nextx Prints EndSub 33、有如下过程: SubSS(ByValX,ByRefY,Z) X=X+1 Y=Y+1 Z=Z+1 EndSub 执行该过程的事件过程如下: PrivateSubCommand1_Click() A=1: B=2: C=3 CallSS(A,B,C) PrintA;B;C EndSub 该程序的执行结果是()。 34、有如下一个Sub过程: Subpb(b()AsInteger) ForI=1To4 b(I)=2*I NextI EndSub 在窗体上添加一个命令按纽,名为Command1,事件过程如下,则运行结果是()。 PrivateSubCommand1_Click() Dima(1To4)AsInteger a (1)=5: a (2)=6: a(3)=7: a(4)=8 pba() ForI=1To4 Printa(I); NextI EndSub 35、单击窗体时,下列程序代码的执行结果为()。 PrivateSubValue(ByValmAsInteger,ByValnAsInteger) m=m*2 n=n-5 Printm;n EndSub PrivateSubForm_Click() DimxAsInteger DimYAsInteger x=10 Y=15 CallValue(x,Y) Printx;Y EndSub 36、阅读程序: FunctionF(aAsInteger) b=0 Staticc b=b+1 c=c+1 f=a+b+c EndFunction PrivateSubCommand1_Click() DimaAsInteger a=2 ForI=1To3 PrintF(A), NextI EndSub 运行上面的程序,单击命令按钮,输出结果为: ____ 37、下列程序段的执行结果是()。 Z="ABCDEFTGABCDEFG" ForI=6To2Step-3 u=String(I,z): v=Left(z,I) w=Mid(z,I,I) x=Right(z,I): Y=x+w+v+u Y=Right(Y,1) NextI PrintY 38、下列程序段的执行结果为()。 DimX(3,5) ForI=1To3 ForJ=1To5 X(I,J)=X(I-1,J-1)+I+J NextJ NextI PrintX(3,4) 五、编程题 1、输入3个数,要求按从小到大输出。 2、输入10个学生记录(每个记录包括学号、成绩),组成记录类型数组,统计出平均成绩,及成绩最低的学生的学号和成绩。 3、写一程序将一个数插入到已经有序(设从小到大排序)的数组中,使数组还继续保持有序。 假设原数组中的数为-12,-4,10,23,68。 4、求两个数m和n的最大公约数和最小公倍数,要求用一个函数过程来实现。 5、有一个数列,它的头三项是0,0,1,以后每个数都是其前三个数的和。 编程在窗体上每行输出5个数,输出此数列,直到最后一个数超过1010为止。 6、鸡翁一,值钱五,鸡母一,值钱三,鸡雏一,值钱一,百元买百鸡,问鸡翁、鸡母、鸡雏各几何? 7、用随机函数产生100个20-100之间的随机整数,赋予A数组。 以每行输出10个元素的紧凑格式在图形框中输出,并在标签框中输出数组元素中的最大值、最小值和它们的平均值。 8、编写程序,求S=A! +B! +C! 。 阶乘的计算分别用SUB过程和FUNCTION过程两种方法来实现。 9、把两个按升序(即从小到大)排列的数列a (1), (2),……、a(n)和b (1)、b (2)……、b(m),合并成一个仍为升序排列的新数列。 10、编写一个函数,将一个十进制整数转换成2,8,16进制字符串。 11、编程序输出在指定范围内的3个随机函数,范围在文本框中输入。 12、编写计算阶乘的Funciton过程,利用ex的下述近似公式计算e(直到最后一项小于10-6为止)。 13、编制判断是否同时被17与37整除的Funciton过程。 输出1000~2000之间所有能同时被17与37整除的数。 14、编制判断素数的Sub过程或Function过程,验证哥德巴赫猜想: 一个不小于6的偶数可以表示为两个素数之各,例如6=3+3,8=3+5,10=3+7,……。 15、设有10个数存放在数组A中,分别为A (1)、A (2)、A(3)、A(4)、……、A(10)。 分别用选择法和冒泡法排序。 16、找出1~1000之间的全部“同构数”。 17、若基本工资大于等于600玩,增加工资20%,若小于600大于等于400元,则增加工资15%,若小于400元则增加工资10%,请根据用户输入的基本工资,计算出增加后的工资。 18、编写一个程序,输入某仓库的货物数据。 建立一个顺序文件。 每次从键盘上输入一种货物的数据。 包括货物号、名称、单价、进库日期和数量。 建立文件后,输出全部的内容。 19、税务部门征收所得税,规定如下: 1)收在200元以内,免征; 2)收入在200~400元以内的,超过200的部分纳税3%。 3)收入超过400玩的部分,纳税5%。 4)当收入达5000元或超过进,将4%税金改为5%。 编写程序实现上述操作。 20、编写程序,演示列表框控件的基本操作。 在窗体上建立两个列表框,两个命令按钮。 程序运行后,在每一个列表框中选择所需要的项目,单击“添加”按钮,把所选择的项目移到第二个列表框中。 如果单击“删除”按钮,则执行相反的操作。 在第二个列表框中,允许同时选择多个项目。 要求在每个列表框的下面用标签控件显示各自的Style和Sorted属性。 21 、编写一个倒计时程序,运行时,单击“设置倒计时间”按钮,将弹出一个输入框,提示输入以分钟为单位的时间,若单击“开始倒计时”按钮,将开始倒计时,在标签上显示剩余时间并按秒刷新。 22、从键盘上输入4个数,编写程序,计算并输出这4个数的和及平均值。 通过InputBxo函数输入数据,在窗体上显示及平均值。 23、输人三角形的三条边a、b、c的值根据其数值判断能否构成三角形。 若能还要显示三角形的性质: 等边三角形、等腰三角形、直角三角形或任意三角形。 24、输入一元二次方程的A、B、C,求出这个方程有没有实根,如果有实根分别求出来 25、产生30个A~Z之间的随机大写字母。 26、编写一个程序,计算半径为15cm、高为30cm的圆柱体的体积、半径和高通过InputBox函数输入,计算结果并将其打印到窗体中。 27、编写程序,实现矩阵转置,即将一个n*M的矩阵的行和列互换。 例如,a矩阵为 28、编写一个子过程DeleStr(s1,s2),将字符串S1中出现的S2子字符串删去,结果还是存放在s1中。 例如: s1=”12345678AAABBDEFG12345”s2=”234” 结果: s1=-1567AAABBDEfG15” 【提示】解决此问题的方法要点如下: 在s1字符串找s2的子字符串,可利用InStr()函数,要考虑到S1字符中可能存在多个或不存在S2字符串,用DoWhileInstr(s1,s2)>0循环结构来实现。 若在s1中找到s2字符串,首先要确定s1字符串的长度,因s1字符串在进行多次删除时,长度在变化;然后通过: Left$()、Right()函数的调用来实删除s1中存在的s2字符串。 六、
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 大学 vb 复习资料