vb程序设计含详解.docx
- 文档编号:24825389
- 上传时间:2023-06-01
- 格式:DOCX
- 页数:18
- 大小:44.05KB
vb程序设计含详解.docx
《vb程序设计含详解.docx》由会员分享,可在线阅读,更多相关《vb程序设计含详解.docx(18页珍藏版)》请在冰豆网上搜索。
vb程序设计含详解
1编写程序,将26个字母逆序输出
教材p87【例4-15】
2、编写程序,在窗体上随机输出一个10--99之间的两位整数。
PrivateSubForm_Click()
cl
Randomize
PrintInt(Rnd()*90)+10
EndSub
3、在窗体的单击事件中编写程序,从键盘输入3个数,按从小到大的顺序输出
到窗体上。
PrivateSubForm_Click()
cls
a=Val(InputBox("a二"))
b=Val(InputBox("b二"))
c=Val(InputBox("c二"))
Ifa>bThen
t=a:
a=b:
b=t
EndIf
Ifa>cThen
t=a:
a=c:
c=t
EndIf
Ifb>cThen
t=b:
b=c:
c=t
EndIf
Print"按从小到大排序后的结果:
";a;"、";b;"、";c
EndSub
4、编写程序,要求随着不断单击命令按钮Commandl,窗体的标题依次显示为:
今天是星期一t今天是星期二t今天是星期三t今天是星期四t今天是星期五
t今天是星期六t今天是星期日。
PrivateSubCommand1_Click()
StaticiAsInteger
i=i+1
SelectCasei
Case1
Form1.Caption二”
今天是星期一
Case2
Form1.Caption二”
今天是星期二
Case3
Form1.Caption二”
今天是星期三
Case4
Form1.Caption二”
今天是星期四
Case5
Form1.Caption二”
今天是星期五
Case6
Form1.Caption二”
今天是星期六
Case7
Form1.Caption二”
今天是星期日
i=0
EndSelect
EndSub
5、编写程序,将字符串""山高人为峰""按逆序""峰为人高山""输出。
PrivateSubCommand1_Click()
cls
s="山高人为峰"
s1=""
Fori=Len(s)To1Step-1
s1=s1&Mid(s,i,1)
Next
Prints1
EndSub
6、使用文本框输入长方形的长和宽,用MsgBox输出长方形的周长和面积・
PrivateSubForm_Click()
l=Val(Text1.Text)
h=Val(Text2.Text)
MsgBox"长是"+Str(l)+"宽是"+Str(h)+_
"的长方形”+Chr(10)+"面积是:
"+Str(l*h)+_
Chr(10)+"周长是:
"+Str(2*(l+h))
EndSub
7、输入x,计算y的值。
其中:
y=1+3x(x>=0);y=1-5x(x<0)
PrivateSubForm_Click()cis
x=Val(lnputBox("x="))
Ifx>=0Then
y=1+3*x
Else
y=1-5*x
EndIf
Print"x=";x;"时y=";y
EndSub
8在窗体的单击事件过程中,编写程序计算1!
+2!
+3!
+…+15!
9、编程计算从200到1000之间的所有4的倍数之和
PrivateSubForm_Click()
cis
Sum=0
Fori=200To1000Step4
Sum=Sum+i
Next
Print"200-1000中4的倍数和是:
";Sum
EndSub
10、编写程序,通过InputBox函数从键盘上输入4个数,计算并在窗体上显示这
4个数的和及平均值
PrivateSubForm_Click()
cis
Sum=0
Fori=1To4
x=Val(lnputBox("接收4个数"))
Sum=Sum+x
Next
Print"和是";Sum
Print"平均值是";Sum/4
EndSub
11、编写程序,点击命令按钮Commandl时,两个文本框textl与text2中的内容进行交换。
PrivateSubCommand1_Click()
t=Text1.Text
Text1.Text=Text2.Text
Text2.Text=t
EndSub
12、用InputBox函数输入3个数据,判断这3个数据是否可以组成三角形,如
果能够组成三角形,计算并在窗体上输出三角形的面积。
构成三角形的条件是:
任意两边之和大于第三边。
面积公式为area=,其中S=(A+B+C)/2,A、B、C
为三条边的长度。
PrivateSubForm_Click()
cls
a=Val(InputBox("a二"))
b=Val(InputBox("b二"))
c=Val(InputBox("c二"))
Ifa+b>cAnda+c>bAndb+c>aThen
s=(a+b+c)/2
area=Sqr(s*(s-a)*(s-b)*(s-c))
Print"边长为:
";a;b;c;"的三角形面积为:
";area
EndIf
EndSub
13、编程将一维数组A(10)中数组元素循环向后移动一个位置,最后一个元素移
动到第一个元素的位置。
PrivateSubForm_Click()
Dima(10)AsInteger
Randomize
cls
Print"初始数组为:
"
Fori=0To10
a(i)=Int(Rnd*10)
Printa(i);
Next
t=a(10)
Fori=10To1Step-1
a(i)=a(i-1)
Next
a(0)=t
Print"移位后数组为”
Fori=0To10
Printa(i);
Next
EndSub
14、使用InputBox函数输入圆半径r,使用文本框分别输出圆球表面积和圆球
体积。
提示:
圆球表面积公式为4*3・14*r;圆球体积公式为(3/4)*3・14*r3
PrivateSubForm_Click()
r=Val(InputBox("圆半径:
"))
Text1.Text="半径为"+Str(r)+"的圆球表面积是”+Str(4*3.14*r)
Text2.Text="半径为"+Str(r)+"的圆球体积是"+Str((3/4)*3.14
*r八3)
EndSub
15、编写程序,在窗体上输出由1、2、3、4、5这五个数字组成的所有可能的
两位数,并统计它们的个数。
精彩文档
PrivateSubForm_Click()
Cis
Fori=1To5
Forj=1To5
gs=gs+1
Printi*10+j;
IfgsMod5=0ThenPrint
Next
Next
EndSub
16、在窗体上输出下三角的九九乘法表。
PrivateSubForm_Click()
Cis
Fori=1To9
ForJ=1Toi
Printi;"*";J;"=";Format(Str(i*J),"!
@@");
Next
Next
EndSub
17、编写程序,实现如下功能:
使用InputBox函数输入一个数,单击窗体时,如果该数大于等于0,将其平方根输出到标签Lablel上,否则输出“数据不能为负数”的提示信息。
PrivateSubForm_Ciick()
x=Val(lnputBox("接收一个数"))
Ifx>=0Then
Label1.Caption=Sqr(x)
Else
MsgBox"数据不能为负数"
EndIf
EndSub18、求s=a+aa+aaa+…+aaa…aaa(n个a),其中a和n的值由用户自己输入。
例如,当a=3,n=4时,S=3+33+333+333£
佃、在窗体的单击事件中编写程序,要求:
由文本框TEXT1输入一个0到6
PrivateSubForm_Click()Cls
a=InputBox("a=")
n=Val(InputBox("n="))s=0
Fori=1Ton
s=s+Val(String(i,a))
Next
Prints
EndSub
PrivateSubForm_Click()
Cls
a=Val(lnputBox("a="))
n=Val(InputBox("n="))
s=0
s1=0
Fori=1Ton
si=si*10+a'si=si+a*10八(i-1)s=s+s1
Next
Prints
EndSub
的数字,单击窗体时,在标签控件LABEL1上显示汉英对照星期信息,如:
输入0,则显示星期日(SUNDAY)、输入1,则显示星期一(MONDAY),以此类推。
如果输入0--6以外的数据,用MsgBox信息框显示“输入数据错误”的
提示信息。
PrivateSubForm_Click()DimdAsIntegerd=Val(Text1.Text)SelectCased
Case0
Label1.Caption="Sunday"
Case1
Label1.Caption="Monday"
Case2
Labell.Caption="Tuesday"
Case3
Labell.Caption二"Wednesday"
Case4
Labell.Caption="Thursday"
Case5
Labell.Caption="Friday"
Case6
Labell.Caption="Saturday"
CaseElse
MsgBox"输入数据错误"
EndSelect
EndSub
20、从键盘输入一个半径,输出圆的面积和周长,输出要求有文字说明,保留两位小数。
PrivateSubForm_Click()
Cls
r=Val(InputBox("r="))
Print"半径为";r;"的圆"
Print"面积为";Round(3.14*r八2,2)
Print"周长为";Round(2*3.14*r)
EndSub
21、在窗体的单击事件过程中,编写程序计算1!
+2!
+3!
+…+20!
参见:
8
22、编写涨工资的程序。
计算条件是:
基本工资大于或等于1500元的,增加工资20%;若小于1500元大于或等于900元的,增加工资15%;小于900元的,增加工资10%。
要求:
(1)在文本框中输入基本工资值;
(2)在标签上输出增长后的基本工资值;(3)当单击按钮command1时实现上述功能。
PrivateSubCommand1_Click()
gz=Val(Textl.Text)
SelectCasegz
CaseIs>=1500
gz=gz*(1+0.2)
CaseIs>=900
gz=gz*(1+0.15)
CaseElse
gz=gz*(1+0.1)
EndSelect
Labell.Caption=Str(gz)
EndSub
23、公用电话收费标准如下:
通话时间在3分钟之内(包括3分钟),收费0・5元;3分钟以上,则每超过1分钟加收0.15元。
编写一段程序,计算某人通话S分钟,应缴多少电话费。
PrivateSubForm_Click()
Cls
s=Val(InputBox("通话时间"))
Ifs<=3Then
hf=0.5
Else
hf=0.5+Int(s-3)*0.15
EndIf
Print"通话时间为";s;"分种”
Print"应收话费”;Format(hf,"0.##");"元"
EndSub
24、编写一个程序,用户连续输入N个值,直到输入非数值数据为止。
最后输出其中最大的一个数。
PrivateSubCommand2_Click()
Cls
max=0
Do
a=InputBox("a=")
Printa;"";
IfNotIsNumeric(a)Then
ExitDo
EndIf
Ifa>maxThenmax=a
Loop
Print"最大数";max
EndSub
25、在窗体的单击事件中编写程序,从键盘上任意输入3个数,输出最小数。
PrivateSubForm_Click()
Cis
a=Val(lnputBox("接收三个数:
"))
Printa;
Min=a
Fori=1To2
a=Val(lnputBox("接收三个数:
"))
Printa;
Ifa Next Print Print"三数中最小者是: ";Min EndSub 26、编写程序,求s的值,s=ix2X3+2x3X4+…+nx(n+1)x(n+2)的值。 n由程序输入。 PrivateSubForm_Click() Cis n=Val(lnputBox("n=")) s=0 Fori=1Ton s=s+i*(i+1)*(i+2) Next Print"1x2x3+2x3x4+…+";n;"x";n+1;"x";n+2;"=";s EndSub 27、火车站托运行李,按规定当行李重量不超过50公斤时,每公斤运费0.25元,超过50公斤后,超过部分按每公斤0・40元收费。 输入行李重量W公斤,计算出应付多少运费。 PrivateSubForm_Click() Cls w=Val(lnputBox("w=")) Ifw<=50Then yf=w*0.25 Else yf=50*0.25+(w-50)*0.4 EndIf Print"行李重量为”;w;"公斤” Print"应付运费: ";Format(yf,"0.00");"元" EndSub 28、编写程序,交换两个变量当中的数据。 PrivateSubForm_Click() Cls a=Val(InputBox("a二")) b=Val(InputBox("b二")) Print"交换前两个数: ";a;b t=a: a=b: b=t Print"交换后两个数: ";a;b EndSub 29、设纸的厚度为0・5毫米,将纸对折,再对折…,求至少对折多少次,纸张的 厚度能达到珠穆朗玛峰的高度8848米。 PrivateSubForm_Click() Cls h=0.5: cs=0 DoWhileh<8848000 h=h*2 cs=cs+1 Loop Print"折纸次数为: ";cs EndSub 30、通过文本框输入一个整数X,判断X是否能被2整除。 判断的结果在标签中显示。 PrivateSubForm_Click() DimxAsInteger x=Val(Textl.Text) 能被2整除 IfxMod2=0Then Labell.Caption=Str(x)+" Else Labell.Caption二Str(x)+"不能被2整除” EndIf EndSub 31、使用InputBox函数输入华氏温度,要求输出摄氏温度。 公式为: C=(5/9)*(F-32),输出要有文字说明,取两位小数。 PrivateSubForm_Click() DimfAsSingle,cAsSingle f=Val(InputBox("f=")) c=(5/9)*(f-32) Print"华氏度为: ";f;"摄氏度为: ";Round(c,2) EndSub 32、求自然数1〜100之间奇数之和。 参见: 9 33、在银行存款,计算本利和的公式为: p仁p(1+r)n,其中,p为存款数,n为年数,r为年利率,pl为n年后本金和利息之和。 设p=1000,n=3尸0.02编程计算3年后本利和。 要求小数点后两位,四舍五入。 参见: 教材p47【例3-5】 34、在窗体的单击事件中编写程序,从键盘上任意输入3个数,输出中间数。 36、编写程序,输入一个数,判定该数是否为素数,如果是素数,则输出“该数是素数”的信息,否则输出“该数不是素数”的信息。 PrivateSubForm_Click() Cls x=Val(InputBox("x=")) Fori=2Tox-1 IfxModi=0ThenExitFor Next Ifi=xThen Print" Else Print" EndIf EndSub 该数是素数” 该数不是素数" 37、编程计算从300到1000之间的所有7的倍数之和 参见: 9
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 程序设计 详解