vb复习题带答案Word格式文档下载.docx
《vb复习题带答案Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《vb复习题带答案Word格式文档下载.docx（15页珍藏版）》请在冰豆网上搜索。
p=1000
n=3
r=0.02
p1=p*（1+r）^n
p1=Round（p1,2）
Printp1
5.在窗体的单击事件中编写程序，要求：
由文本框TEXT1输入一个0到6的数字，单击窗体时，在标签控件LABEL1上显示汉英对照星期信息，如：
输入0，则显示星期日（SUNDAY）、输入１，则显示星期一（MONDAY），以此类推。
如果输入0--6以外的数据，用MsgBox信息框显示“输入数据错误”的提示信息。
DimdAsInteger,d1AsString
d=Text1.Text
SelectCased
Case0
d1="
SUNDAY"
Case1
MONDAY"
Case2
d1="
TUESDAY"
Case3
WEDNESDAY"
Case4
THURSDAY"
Case5
FRIDAY"
Case6
SATURDAY"
CaseElse
MsgBox（"
输入数据错误"
EndSelect
Label1.Caption=d1
6.编写程序，求s的值，s=1×
2×
3+2×
3×
4+…+n×
（n+1）×
（n+2）的值。
n由程序输入。
DimsAsLong,nAsInteger
s=s+i*（i+1）*（i+2）
Label1.Caption=Str（s）
7.使用InputBox函数输入长方形的长和宽,用MsgBox输出长方形的周长和面积.
DimaAsInteger,bAsInteger
DimlAsInteger,sAsInteger
a=Val（InputBox（"
输入长方形长"
））
b=Val（InputBox（"
输入长方形宽"
l=2*（a+b）
s=a*b
MsgBox（"
长方形的周长是：
"
+Str（l）+Chr（13）+"
长方形的面积是：
+Str（s））
8.输入x，计算y的值。
其中：
y=1+3x（x>
=0）;
y=1-5x（x<
0）。
DimxAsSingle,yAsSingle
x=Text1.Text
Ifx>
=0Theny=1+3*xElsey=1-5*x
Text2.Text=y
PrivateSubText1_Change（）
Text2.Text="
9.求自然数1～100之间偶数之和。
DimsumAsInteger
Fori=2To100Step2
sum=sum+i
Text1.Text=sum
10.编写程序，要求随着不断单击命令按钮Command1，窗体的标题依次显示为：
今天是星期一→今天是星期二→今天是星期三→今天是星期四→今天是星期五→今天是星期六→今天是星期日。
StaticdAsInteger
d=d+1
Case1
Form1.Caption="
今天是星期一"
今天是星期二"
今天是星期三"
今天是星期四"
今天是星期五"
今天是星期六"
Case7
今天是星期日"
d=0
11.求s=a+aa+aaa+…+aaa…aaa（n个a）,其中a和n的值由用户自己输入。
例如，当a=3,n=4时，S=3+33+333+3333。
12.编写涨工资的程序。
计算条件是：
基本工资大于或等于1500元的，增加工资20%；
若小于1500元大于或等于900元的，增加工资15%；
小于900元的，增加工资10%。
要求：
（1）在文本框中输入基本工资值；
（2）在标签上输出增长后的基本工资值；
（3）当单击按钮command1时实现上述功能。
DimxAsSingle
SelectCasex
CaseIs>
=1500
y=x+0.2*x
=900
y=x+0.15*x
y=x+0.1*x
Label2.Caption="
增长后的基本工资：
+Format（y,"
###.00"
）+"
元"
13.编写程序,点击命令按钮Command1时，两个文本框text1与text2中的内容进行交换。
a=Text1.Text
b=Text2.Text
Text1.Text=b
Text2.Text=a
14.编程将一维数组A（10）中数组元素循环向后移动一个位置，最后一个元素移动到第一个元素的位置。
Dima（1To10）AsInteger
DimsAsInteger,pAsString
p="
a（i）=Int（90*Rnd）+10
p=p+Str（a（i））+"
"
Label1.Caption="
移位前：
+Left（p,Len（p）-1）
t=a（10）
Fori=10To2Step-1
a（i）=a（i-1）
a
（1）=t
移位后：
15.编写程序，通过InputBox函数从键盘上输入4个数,计算并在窗体上显示这4个数的和及平均值。
16.编写程序，实现如下功能：
使用InputBox函数输入一个数，单击窗体时，如果该数大于等于0，将其平方根输出到标签Lable1上，否则输出“数据不能为负数”的提示信息。
x=InputBox（"
输入数据"
=0Then
Label1.Caption=Str（Sqr（x））
Else
Label1.Caption="
数据不能为负数"
EndIf
17.编程计算从300到1000之间的所有7的倍数之和。
34.编程计算从200到1000之间的所有4的倍数之和（第17题）
DimsAsLong
Fori=300To1000
Ifi/7=Int（i/7）Then
s=s+i
EndIf
18.使用InputBox函数输入圆半径r和圆柱高h,使用文本框分别输出圆周长和圆面积。
提示：
圆周长公式为2*3.14*r;
圆面积公式为3.14*r2
DimrAsSingle,lAsSingle,sAsSingle
r=InputBox（"
请输入圆的半径"
l=2*3.14*r
s=3.14*r^2
Text1.Text=l
Text2.Text=s
19.编写一个程序，用户连续输入N个值，直到输入非数值数据为止。
最后输出其中最大的一个数。
Dima,b
b=0
Do
a=InputBox（"
请输入一个数，输入非数值退出：
IfNotIsNumeric（a）ThenExitDo
IfVal（a）>
Val（b）Thenb=a
Loop
Print"
最大的数是：
;
b
20.在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出最大数。
33.在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出最小数。
39.在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出中间数。
DimaAsSingle,bAsSingle,cAsSingle
DimmaxAsSingle
输入数据a"
b=InputBox（"
输入数据b"
c=InputBox（"
输入数据c"
max=a
Ifmax<
bThenmax=b
cThenmax=c
三个数中最大的是：
+Str（max）
21.在文本框中输入时、分、秒，编写程序将它们换算为秒，然后输出。
设小时为h，分为m，秒为s，则计算共有多少秒的公式为：
x=h*3600+m*60+s。
。
23.编写程序，在窗体上输出由1、2、3、4、5这五个数字组成的所有可能的两位数，并统计它们的个数。
Fori=1To5
Forj=1To5
s=s+Trim（Str（i））+Trim（Str（j））+"
n=n+1
Next
组成全部两位数：
+Left（s,Len（s）-1）
两位数的个数：
+Str（n）
24.编写程序，在窗体上随机输出一个10--99之间的两位整数。
25.在窗体上输出下三角的九九乘法表。
PrivateSubForm_Click（）
Fora=1To9
Forb=1Toa
PrintFormat（a,"
0"
*"
+Format（b,"
="
+Format（a*b,"
@@"
"
Print
26.在窗体的单击事件中编写程序，从键盘输入3个数，按从小到大的顺序输出到窗体上（实验书P148,例4-6）。
DimtAsSingle
c=Text3.Text
Ifa>
bThent=a:
a=b:
b=t
cThent=a:
a=c:
c=t
Ifb>
cThent=b:
b=c:
三个数从小到大的顺序是：
+Str（a）+"
+Str（b）+"
+Str（c）
27.使用文本框输入长方形的长和宽,用MsgBox输出长方形的周长和面积.
28.使用InputBox函数输入圆半径r和圆柱高h,使用文本框分别输出圆球体积和圆柱体积。
圆球体积公式为（3/4）*3.14*r3;
圆柱体积公式为3.14*r2*h
DimrAsSingle,hAsSingle,v1AsSingle,v2AsSingle
h=InputBox（"
请输入圆柱的高度"
v1=（4/3）*3.14*r^3
v2=3.14*r^2*h
Text1.Text=v1
Text2.Text=v2
29.编写程序，将字符串"
山高人为峰"
按逆序"
峰为人高山"
输出。
Dims1AsString,s2AsString
DimnAsInteger
s1=InputBox（"
输入字符串"
Label1.Caption=s1
n=Len（s1）
s2=s2+Mid（s1,n-i+1,1）
Label2.Caption=s2
30.编写程序，将26个字母逆序输出。
31.通过文本框输入一个整数X，判断X是否能被2整除。
判断的结果在标签中显示。
IfxMod2=0Then
Label2.Caption="
能被2整除"
不能被2整除"
32.使用InputBox函数输入华氏温度，要求输出摄氏温度。
公式为：
C=（5/9）*（F-32）,输出要有文字说明，取两位小数。
DimfAsSingle,cAsSingle
f=InputBox（"
请输入华氏温度"
c=（5/9）*（f-32）
华氏"
+Format（f,"
##.00"
度="
+"
摄氏"
+Format（c,"
度。
35.用InputBox函数输入3个数据，判断这3个数据是否可以组成三角形，如果能够组成三角形，计算并在窗体上输出三角形的面积。
构成三角形的条件是：
任意两边之和大于第三边。
面积公式为area=,其中S=（A+B+C）/2，A、B、C为三条边的长度。
Ifa+b>
cAnda+c>
bAndb+c>
aThen
s=（a+b+c）/2
area=Sqr（s*（s-a）*（s-b）*（s-c））
三角形的面积="
+Format（area,"
三边不能构成三角形"
36.求自然数1～100之间奇数之和。
37.使用InputBox函数输入圆半径r和圆柱高h,使用文本框分别输出圆球表面积和圆球体积。
圆球表面积公式为4*3.14*r;
圆球体积公式为（3/4）*3.14*r3
38.编写程序，输入一个数，判定该数是否为素数，如果是素数，则输出“该数是素数”的信息，否则输出“该数不是素数”的信息。
DimxAsInteger
输入一个数据"
Fori=2Tox-1
IfxModi=0ThenExitFor
Ifi=xThen
Label1.Caption=Str（x）+"
是一个素数"
不是一个素数"
40.编写程序，交换两个变量当中的数据。
Dimtemp
temp=Text1.Text:
Text1.Text=Text2.Text:
Text2.Text=temp
41.在窗体的单击事件中编写程序，从键盘输入3个数，按从大到小的顺序输出到窗体上。
Dima（3）AsInteger
DimiAsInteger
DimsAsInteger
Fori=1To3
a（i）=Val（InputBox（"
请输入整数"
））
Nexti
Ifa
（1）>
a
（2）Then
s=a
（1）
a
（1）=a
（2）
a
（2）=s
EndIf
a（3）Then
a
（1）=a（3）
a（3）=a
（2）
Else
Ifa
（2）>
s=a
（2）
a
（2）=a（3）
a（3）=s
Printa（i）
Nexti
42.使用文本框输入华氏温度，要求输出摄氏温度。
PrivateSubCommand1_Click（）
DimF,C,NAsDouble
F=InputBox（"
请输入需要转换的华氏温度：
"
输入"
C=（F-32）*5/9
N=Left（CStr（C*100）,InStr（1,CStr（C*100）,"
."
IfMid$（CStr（C）,InStr（1,CStr（C）,"
）+1,1）>
4Then
N=N+1
N=N/100
MsgBoxN
43.公用电话收费标准如下：
通话时间在3分钟之内（包括3分钟），收费0.5元；
3分钟以上，则每超过1分钟加收0.15元。
编写一段程序，计算某人通话S分钟，应缴多少电话费。
22.火车站托运行李，按规定当行李重量不超过50公斤时，每公斤运费0.25元，超过50公斤后，超过部分按每公斤0.40元收费。
输入行李重量W公斤，计算出应付多少运费
DimsAsInteger
s=InputBox（"
输入通话时长（分）"
Ifs<
=3Then
f=0.5
f=0.5+0.15*（s-3）
Text1.Text=Format（f,"
#0.00"
44.从键盘输入一个半径，输出圆的面积和周长，输出要求有文字说明，保留两位小数。
r=Text1.Text
半径为"
+Str（r）+"
的圆的周长为：
+Format（l,"
Label3.Caption="
的圆的面积为：
+Format（s,"
45.在窗体的单击事件过程中，编写程序计算1！
+…+15!
DimtAsDouble,sAsDouble
Fori=1To15
t=
升级会员 