VB程序设计第3版试题及答案.docx
- 文档编号:10031855
- 上传时间:2023-05-23
- 格式:DOCX
- 页数:11
- 大小:37.72KB
VB程序设计第3版试题及答案.docx
《VB程序设计第3版试题及答案.docx》由会员分享,可在线阅读,更多相关《VB程序设计第3版试题及答案.docx(11页珍藏版)》请在冰点文库上搜索。
VB程序设计第3版试题及答案
1.设计程序,使程序运行结果如下图所示:
PrivateSubForm_Activate()
Fori=1To5
Fork=1Toi
Print"";
Nextk
Form=1To11-2*i
Print"*";
Nextm
Print"";
Forj=1To2*i-1
Print"*";
Nextj
Nexti
EndSub
PrivateSubForm_Click()
Fori=1To5
Fork=1Toi
Print"";
Nextk
Form=9To1Step-2
EndSub
2.编辑程序,计算1+2+3+...+99+100
PrivateSubForm_Activate()
Sum=0
i=1
DoWhilei<=100
Sum=Sum+i
i=i+1
Loop
PrintSum
EndSub
3.设某职工应发工资X元,求出各种面额钞票总张数最少的付款方式。
PrivateSubCommand1_Click()
X=Val(Text1)
a=X\100:
Text2=a
X=X-a*100
b=X\50:
Text3=b
X=X-b*50
c=X\20:
Text4=c
X=X-c*20
d=X\10:
Text5=d
X=X-d*10
e=X\5:
Text6=e
X=X-e*5
Text7=X
EndSub
4.设计程序,已知圆的半径r,求圆的面积s
PrivateSubCommand1_Click()
r=Val(Text1)
s=3.14*r^2
Label3=s
EndSub
5.设计程序,判断一个数是否是素数
方法一
PrivateSubForm_Activate()
x=Val(InputBox("请输入一个数","判断素数"))
flag=True
Fori=2Tox-1
IfxModi=0Thenflag=False:
ExitFor
Nexti
Ifflag=TrueThen
Printx;"素数"
Else
Printx;"不是素数"
EndIf
EndSub
方法二
PrivateSubForm_Activate()
x=Val(InputBox("请输入一个数","判断素数"))
flag=True
Fori=2ToSqr(x)
IfxModi=0Thenflag=False:
ExitFor
Nexti
Iffkag=TrueThen
Printx;"是素数"
Else
Printx;"不是素数"
EndIf
EndSub
6.输入一个数n,求s=1+(1+2)+(1+2+3)+...+(1+2+3+...+n)的值
PrivateSubForm_Activate()
n=Val(InputBox("请输入n:
"))
sun=0
i=1
DoWhilei<=n
s=0
Forj=1Toi
s=s+j
Nextj
Sum=Sum+s
i=i+1
Loop
PrintSum
EndSub
7.已知平面坐标系中两点的坐标,求两点间的距离。
PrivateSubCommand1_Click()
X1=Val(Text1)
Y1=Val(Text2)
X2=Val(Text3)
X2=Val(Text4)
s=Sqr((X2-X1)^2+(Y2-Y1)^2)
Label3=Int(s*100+0.5)/100
EndSub
8.设计程序,求两个数的最大公约数和最小公倍数
PrivateSubCommand1_Click()
m=Val(Text1)
n=Val(Text2)
Ifm m=n: n=t r=mModn DoWhiler<>0 m=n n=r r=mModn Loop Label5=n Label6=Val(Text1)*Val(Text2)/m EndSub 9.设计程序,输入指定范围内的3个随机数,范围在文本框中输入。 PrivateSubCommand1_Click() x=Val(Text1) y=Val(Text3) a=Int(Rnd*(y-x)+x) b=Int(Rnd*(y-x)+x) c=Int(Rnd*(y-x)+x) Label3=a&","&b&","&c EndSub 10.设计程序,统计用户所选项目,并显示在下方区域。 PrivateSubCommand1_Click() s1=Text1 s2=Text2 IfOption1.Value=TrueThen s3="男" Else s3="女" EndIf IfOption3.Value=TrueThen s4="汉族" ElseIfOption4.Value=TrueThen s4="回族" Else s4="其他" EndIf IfCheck1.Value=1Then s5="读书" EndIf IfCheck2.Value=1Then s5=s5&"上网" EndIf IfCheck3.Value=1Then s5=s5&"打球" EndIf Label3="姓名"&": "&s1&Chr(13)&Chr(10) Label3=Label3&"学号"&": "&s2&Chr(13)&Chr(10) Label3=Label3&"性别"&": "&s3&Chr(13)&Chr(10) Label3=Label3&"民族"&": "&s4&Chr(13)&Chr(10) Label3=Label3&"个人爱好"&": "&s5&Chr(13)&Chr(10) EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序设计 试题 答案