《Visual BASIC程序设计》期末考试编程题复习答案Word文件下载.docx
- 文档编号:16095233
- 上传时间:2022-11-19
- 格式:DOCX
- 页数:17
- 大小:20.31KB
《Visual BASIC程序设计》期末考试编程题复习答案Word文件下载.docx
《《Visual BASIC程序设计》期末考试编程题复习答案Word文件下载.docx》由会员分享,可在线阅读,更多相关《《Visual BASIC程序设计》期末考试编程题复习答案Word文件下载.docx(17页珍藏版)》请在冰豆网上搜索。
,十位数:
b&
个位数"
c
5
+"
Text3.Text=Val(Text1.Text)+Val(Text2.Text)
-"
Text3.Text=Val(Text1.Text)-Val(Text2.Text)
PrivateSubCommand3_Click()
*"
Text3.Text=Val(Text1.Text)*Val(Text2.Text)
PrivateSubCommand4_Click()
/"
Text3.Text=Val(Text1.Text)/Val(Text2.Text)
PrivateSubCommand5_Click()
Text1.Text="
Text2.Text="
Text3.Text="
PrivateSubCommand6_Click()
End
6
PrivateSubForm_Load()
Dimdj&
shL%,je&
dj=Val(InputBox("
输入某品牌电脑的单价;
))
shL=Val(InputBox("
输入某品牌电脑的的购买的数量;
je=dj*shL
MsgBox"
需付款金额;
je
7
PrivateSubForm_Click()
Dimzh%
Randomize
zh=Int(90*Rnd)+10
两位的随机整数是:
zh
8
Dimhh%,mm%,ss%,totals!
Dimoutstr$
hh=Val(Text1)
mm=Val(Text2)
ss=Val(Text3)
totals=hh*3600+mm*60+ss
outstr=hh&
小时"
mm&
分"
ss&
秒"
outstr=outstr&
vbCrLf&
总计:
totals&
MsgBoxoutstr,,"
输出结果"
9
Dimr!
k!
s!
r=Val(InputBox("
请输入圆的半径"
"
计算圆的周长和面积"
k=2*3.14159*r
s=3.14159*r*r
Text1.Text=k
Text2.Text=s
msgbox"
计算已完成!
,"
end
10
Dimx%,a%
Dimb%,c%
x=36
a=Int(x/10)
b=xMod10
c=b*10+a
Print"
处理后的数:
;
11
DimxAsString,yAsString
x=Text1.Text
y=Left(x,1)+Right(x,1)
Text2.Text=y
12
Dims%,t%
Dimb%,shuchu$
s=Val(Text1.Text)
t=Val(Text2.Text)
b=s-105
Ift>
b*1.1Then
shuchu="
偏胖,注意节食"
ElseIft<
b*0.9Then
偏瘦,增加营养"
Else
正常,继续保持"
EndIf
Label1.Caption=shuchu
PrivateSubText1_Change()
IfIsNumeric(Text1)=FalseThenText1="
PrivateSubText2_Change()
IfIsNumeric(Text2)=FalseThenText12="
13
Dimx!
y!
x=Val(Text1)
y=Val(Text2)
SelectCaseTrim(Text3)
Case"
Text4=x+y
Text4=x-y
Text4=x*y
Text4=x/y
Ify=0Then
除数不能为0"
Text4="
Text2.SetFocus
EndSelect
三、循环结构
14.输入任意一个整数N,求1到N之间所有偶数和;
(可参考课本p89页)利用文本框来实现数据的输入和输出。
最后将工程文件、窗体文件分别以XH4-1.vbp、XH4-1.frm为文件名保存在D:
\EX文件夹下。
Dimi,N,sAsInteger
s=0
N=val(Text1.Text)
Fori=1ToN
IfiMod2=0Then
s=s+i
EndIf
Nexti
Text2.Text=s
EndSub
15.输入任意一个整数N,计算N阶乘;
5!
=5*4*3*2*1(可参考课本p90页)
利用文本框来实现数据的输入和输出。
最后将工程文件、窗体文件分别以XH4-2.vbp、XH4-2.frm为文件名保存在D:
s=1
s=s*i
Next
16.输入任意一个整数N,输出1+1/2+1/3+…+1/N的计算结果;
(可参考课本p93页)
最后将工程文件、窗体文件分别以XH4-3.vbp、XH4-3.frm为文件名保存在D:
\EX文件夹下
Dimi,s,NAsInteger
N=Val(Text1.Text)
s=0
Fori=1Ton
s=s+1/i
Nexti
。
17.输入任意一个整数N,输出N以内3的倍数之和(即3+6+9……);
(可参考课本p93页)利用文本框来实现数据的输入和输出。
最后将工程文件、窗体文件分别以XH4-4.vbp、XH4-4.frm为文件名保存在D:
Ifi/3=Int(i/3)Then
Next
18.输入任意一个整数N,输出1×
22×
32×
…×
N2的计算结果;
(可参考课本p90页)利用文本框来实现数据的输入和输出。
最后将工程文件、窗体文件分别以XH4-5.vbp、XH4-5.frm为文件名保存在D:
s=1
Fori=1ToN
s=s*(i*i)
19.输入任意一个整数N,输出N以内的所有5的倍数的积;
最后将工程文件、窗体文件分别以XH4-6.vbp、XH4-6.frm为文件名保存在D:
Ifi/5=Int(i/5)Then
20.输入任意一个整数N,输出
的计算结果;
最后将工程文件、窗体文件分别以XH4-7.vbp、XH4-7.frm为文件名保存在D:
s=s+1/(i*i)
21
Dimi%,s$,p$,n%
p=1
p=p*i
s=p*s
Next
22
PrivateSubForm_click()
Dimi%,j%,d%,k%
Fori=1To50Step2
k=Int(Sqr(i))
flag=0
j=2
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Visual BASIC程序设计 Visual BASIC程序设计期末考试编程题复习答案 Visual BASIC 程序设计 期末考试 编程 复习 答案