VB课后部分习题答案.docx
- 文档编号:23812645
- 上传时间:2023-05-21
- 格式:DOCX
- 页数:21
- 大小:42.98KB
VB课后部分习题答案.docx
《VB课后部分习题答案.docx》由会员分享,可在线阅读,更多相关《VB课后部分习题答案.docx(21页珍藏版)》请在冰豆网上搜索。
VB课后部分习题答案
二、选择题
1.VisualBasic中的窗体文件的扩展名是
A、.regB、.frmC、.basD、.vbp
2.VisualBasic中的模块文件的扩展名是
A、.regB、.frmC、.basD、.vbp
3.VisualBasic中的工程文件的扩展名是
A、.regB、.frmC、.basD、.vbp
4.以下关于VisualBasic语言的说法中,正确的是
A、VisualBasic是一种面向过程的语言B、VisualBasic是一种面向对象语言
C、VisualBasic是一种低级语言D、VisualBasic是一种机器语言
7.下列不属于对象的基本特征的是
A、属性B、方法C、事件D、过程
一、填空题
2.13/3MOD5\7的值除数为零提示。
3.在程序中用到某一整型变量的数据范围为-50000~50000,则该变量类型应该是Long。
5.声明单精度常量PI代表3.14159的语句
为ConstpiAsSingle=3.14159。
11.把条件为1x5写成VB表达式为:
x>=1andx<=5。
三、程序4.
PrivateSubForm_Click()
DimyAsInteger
Do
y=InputBox("y=")
If(yMod10)+Int(y/10)=10ThenPrinty
LoopUntily=0
EndSub
运行时,单击窗体后依次输入10、37、50、55、56、64、20、28、19、-19、0,写出运行结果。
37
55
64
28
19
程序8.
PrivateSubForm_Click()
Fori=1To7
PrintSpc(7-i);
Ifi=1Then
Print"*"
Else
Print"*";Spc(2*(i-1)-1);"*"
EndIf
Nexti
EndSub
写出程序运行时单击窗体后,Form1上的输出结果。
*
**
**
**
**
**
**
程序9.
PrivateSubForm_Click()
Dimstr1,str2AsString
DimsAsString
DimiAsInteger
str1="abcdefghijk"
Fori=Len(str1)To1Step-2
str2=str2&Mid(str1,i,1)
Nexti
Printstr2
EndSub
写出程序运行时单击窗体后,Form1上的输出结果。
kigeca
程序10.
PrivateSubForm_Click()
DimkAsInteger,sAsInteger,jAsInteger
Form1.Cls
Fork=1To5
s=0
Forj=kTo5
s=s+1
Nextj
Nextk
Print"s=";s
EndSub
写出程序运行时单击窗体后,Form1上的输出结果。
s=1
二、程序填空
1.【程序说明】
从键盘上输入若干个学生的考试分数,当输入负数时结束输入,然后输出其中的最高分数和最低分数。
PrivateSubForm_Click()
DimiAsInteger,iMaxAsInteger,iMinAsInteger
i=InputBox("输入一个成绩:
")
iMax=i
iMin=i
DoWhilei>=0
(1)
Ifi>iMaxThen
iMax=i
ElseIfi (2)Then iMin=i EndIf i=InputBox("输入一个成绩: ") Loop Print"最高成绩: ";iMax,"最低成绩: ";iMin EndSub 2.【程序说明】 由输入对话框输入n(设n为大于零且小于30的自然数),计算下列表达式的值,并在标签框Label1上显示。 【程序】 PrivateSubForm_Click() DimnAsInteger,sumAsDouble,kAsInteger n=Val(InputBox("n=","请输入自然数n(n>0且n<30)")) Dowhilen<=0orn>=30 (1) n=Val(InputBox("n=","请重输")) Loop sum=0 k=0 (2) Do k=k+1 sum=sum+1/(k*(k+1))(3) LoopUntilk>=n Label1.Caption="sum="+Str(sum) EndSub 4. 5.【程序说明】 计算 的值并打印出来。 【程序】 PrivateSubForm_Click() DimiAsInteger DimkAsSingle DimpAsInteger DimsAsSingle p=1 (1) s=0 Fori=1to100 (2) k=p/i p=p*(-1)(3) s=s+k Nexti Form1.Print"s=";s EndSub 三、程序设计 7.搬砖问题: 三十六块砖三十六人搬,男搬四,女搬三,两个小儿抬一砖,要求一次全搬完,问需男、女、小儿各若干? dimxasinteger,yasinteger,zasinteger forx=0to9 fory=0to12 z=36-x-y if4*x+3*y+z/2=36then printx,y,z endif nexty nextx 11.一个两位数的正整数,如果将其个位数与十位数对调所生成的数称为对调数,如28是82的对调数。 现给定一个两位的正整数,请找到另一个两位的正整数,使这两个数之和等于它们各自的对调数之和,如56+32=65+23。 DimxiAsInteger,yiAsInteger Forx=10To99 xi=(xMod10)*10+x\10 Fory=10To99 yi=(yMod10)*10+y\10 Ifx+y=xi+yiThen Printx,y EndIf Nexty Nextx 习题四 一、阅读下列程序,写出运行结果。 程序2 PrivateSubCommand1_Click() DimmAsInteger,nAsInteger Dima(3,3)AsInteger Form=1To3 Forn=1To3 a(m,n)=(m-1)*3+n Nextn Nextm Form=2To3 Forn=1To2 Printa(n,m); Nextn Nextm EndSub 写出程序运行后,单击命令按钮,窗体上显示的结果。 2536 程序4 x (1)=8 X (2)=6 X(3)=4 X(4)=3 X(5)=1 二、程序填空 1.PrivateSubcmdend_Click() End EndSub PrivateSubcmdstart_Click() DimnAsInteger,iAsInteger,jAsInteger,pAsInteger Dima(200)AsString*1,str1AsString,tAsString str1=Text1.Text n=Len(str1) Fori=1Ton a(i)=Mid(Text1.Text,i,1) Nexti Fori=1Ton-1 p=i Forj=i+1Ton
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 课后 部分 习题 答案
![提示](https://static.bdocx.com/images/bang_tan.gif)