VB程序编码.docx
- 文档编号:8635903
- 上传时间:2023-02-01
- 格式:DOCX
- 页数:45
- 大小:163.44KB
VB程序编码.docx
《VB程序编码.docx》由会员分享,可在线阅读,更多相关《VB程序编码.docx(45页珍藏版)》请在冰豆网上搜索。
VB程序编码
1、创建一个窗体,在窗体上添加两个文本框和一个命令按钮,标题为“交换”,程序运行时用户在两个文本框中本别输入数据,然后点击交换按钮,交换两个文本框中的数据
Privatesubcommand1_click()
C=text1.text
Text1.text=text2.text
Text2.text=c
Endsub
2、1、创建一个窗体,输入学号、姓名、年龄、籍贯;然后通过标签显示用户输入的信息。
通过此程序掌握调试技巧。
如下图所示:
Privatesubcommand1_click()
Label5.caption=label1.caption&”:
”&text1.text&_
Label2.caption&”:
”text2.text&_
Label3,caption&”:
”&text3.text&_
Endsub
3、输入二次方程的三个系数,
然后计算二次方程的根。
平方根函数为sqr()
Dimaasinteger
Dimbasinteger
Dimcasinteger
a=val(text1.text)
b=val(text1.text)
c=val(text1.text)
dimx1assingel
dimx2assingel
x1=(-b+sqr(b*b-4*a*c))/(2*a)
x2=(-b-sqr(b*b-4*a*c))/(2*a)
label5.caption=”x1=”&x1&vbcrlf&”x2=”&x2
4、输入三角形边三个边长,
计算三角形面积。
面积公式:
△= ,
其中s=(a+b+c)/2
Dimaasinteger
Dimbasinteger
Dimcasinteger
a=val(text1.text)
b=val(text1.text)
c=val(text1.text)
s=(a+b+c)/2
area=sqr(s*(s-a)*(s-b)*(s-c))
s(s-a)(s-b)(s-c)
label5.caption=“面积:
“&area
Endup
方法二
Dimaasinteger
Dimbasinteger
Dimcasinteger
a=val(text1.text)
b=val(text1.text)
c=val(text1.text)
ifa+b s=(a+b+c)/2 area=sqr(s*(s-a)*(s-b)*(s-c)) elseprintarea s(s-a)(s-b)(s-c) Endif 5、输入三个数,由小到大输出 DimaasSingel a=val(text1.text) b=val(text2.text) c=val(text3.text) Ifa t=a: a=b: b=t endif ifa t=a: a=c: c=t endif ifb t=b: b=c: c=t endif printa;b;c endsub 6,输入一个数,判断奇偶性 Privatesubcommand1_click() Dimaasinteger A=val(text1.text) Ifamod2=0thenlabel1.caption=“偶数” Elselabel1.caption=”奇数” 方法二 Privatesubcommand1_click() Dimaasinteger A=val(text1.text) Ifamod2=0then S=“偶数” Else s=“奇数“ endif label1.capion=s endsub 6,求解一元二次方程 Dimaasinteger Dimbasinteger Dimcasinteger a=val(text1.text) b=val(text1.text) c=val(text1.text) d=b^2–4*a*c ifa<>0then ifd>0then x1=(-b)/(2*a) label1.capyion=”x1”&x1”: x2”&x2 endif else label1.capyion=“无实根” endif else endif endsub 6输入百分制成绩,要求输出成绩等级'A','B','C','D','E'。 90分以上为'A',80~89为'B',70~79为'C',60~69为'D',60分以下为'E' Privatesubcommand1_click a=val(text1.text) selectcasea caseis>=85 label1.caption=“优秀” caseis>=75 label1.caption=“良好” caseis>=60 label1.caption=“及格” caseis>=0 label1.caption=“不及格” endselect endsub 7、以下每周工作安排 星期一、三: 讲计算机课 星期二、四: 讲程序设计课 星期五: 进修英语 星期六: 政治学习 星期日: 休息 编写程序,对上述工作日程进行检索,要求输入一周的某一天,程序将输出这一天的安排。 输入0-6分别代表星期日到星期六,输入0-6之外的数则结束程序。 Privatesubcommand1_click a=val(text1.text) ifa=0then label1.caption=”休息” endif else ifa=1ora=3then label1.caption=“计算机课程” elseifa=2ora=4then label1.caption=”程序设计” elseifa=5then label1.caption=”英语” elseifa=6then label1.caption=“政治“ else endif endsub 方法二 Privatesubcommand1_click a=val(text1.text) ifa=0then label1.caption=”休息” else ifa=1ora=3then label1.caption=“计算机课程” else ifa=2ora=4then label1.caption=”程序设计” else ifa=5then label1.caption=”英语” else ifa=6then label1.caption=“政治“ else end endif endif endif endif endif endif 方法三 Privatesubcommand1_click a=val(text1.text) selectcasea case0 label1.caption=”休息” case1,3 label1.caption=“计算机课程” case2,4 label1.caption=”程序设计” case5 label1.caption=”英语” case6 label1.caption=“政治“ caseelse end endselect endsub 7,输入一个年号,判断是否为闰年,(年号能被4整除,但不能被100整除,或者能被四百整除) Privatesubcommand1_click a=val(text1.text) ifamod4=0andamod100<>0oramod400=0then else endif endsub 8、(选作)有四个塔,圆心分别为(2,2),(-2,2),(-2,-2),(2,-2),圆半径为1,这四个塔德高度为10m,塔以外无建筑物,进输入任一点的坐标,求该点的建筑高度(塔外的高度为0) 8.求解一元二次方程输入一个x值,输出相应y值 Y=-1(x<0)0(x=0)1(x>0) Privatesubcommand1_click x=val(text1.text) ifx<0then label1.caption=“y=-1” else ifx=0then label1.caption=“y=0” else ifx>0then label1.caption=“y=1” else end endif endif endif endsub 循环结构 Privatesubcommand1_click s=0 forI=1to100 s=s+i累加器/s*i累乘器 nexti prints endsub 求阶乘 Privatesubcommand1_click n=val(text1.text) s=1 fori=1ton s=s*i nexti prints endsub 求1到n之间所有奇数的和,步长为2 Privatesubcommand1_click n=val(text1.text) s=0 forI=1ton s=s+i nexti prints endsub 9、输入整数M、N,计算M、N 之间所有奇数的和。 Privatesubcommand1_click m=val(text1.text) n=val(text1.text) ifmmod2=0thenm=m+1 s=0 forI=mtonstep2 s=s+i nexti prints endsub 10、计算M、N之间能被5或7整 除的所有数的和 Privatesubcommand1_click m=val(text1.text) n=val(text1.text) s=0 fori=mton ifimod5=0orImod7=0then s=s+i endif nexti prints endsub 11,判断一个数是否为素数 Privatesubcommand1_click N=val(text1.text) Fori=2ton–1 IfnmodI=0then Print“不是素数” Exitfor Endif Next Ifi=0then Print“是素数” Endif Endsub 11、输入整数N,计算前N项和 S=1+(1+2)+(1+2+3)+(1+2+3+4)+…。 Privatesubcommand1_click N=val(text1.text) Fori=1ton K=k+i S=s+k Next Endsub 11,输入整数N,计算前N项和 S=1+1/2+2/3+3/5+5/8+……。 Privatesubcommand1_click N=val(text1.text) A=1 B=1 Fori=1ton S=s+a/b T=a A=b B=t+b Next Endsub 12输入整数M、N,计算M、N的最大公约数。 数学方法描述(假设M>=N) Privatesubcommand1_click a=val(text1.text) b=val(text1.text) r=mmodn whiler<>0 m=n n=r r=mmodn printn endsub 13.用户M除以N,得余数R。 14.如果R为0,则N为最大公约数,否则用N作为被除数,R作为除数,返回执行第"1."步 16,.用迭代法求a的平方根。 要求前后两次求出的x值的差的绝对值小于0.00005。 迭代公式描述: 1、x0给一个初始值a/2,根据公式求出x1. 2、若abs(x0-x1)绝对值>0.00005,则用x2代替x0,根据公式再次求出x1.重复第2步。 直到达到精确度为止。 Privatesubcommand1_click a=val(text1.text) x1=a/2 x2=(x1+a/x1)/2 whileabs(x2-x1)>0.00005 x1=x2 x2=(x1+a/x1)/2 wend printx2 endsub 17,设 求s不大于40000时最大值n Privatesubcommand1_click() A=1 S=1 Whiles<=40000 S=s*a^a A=a+1 Wend Printa-2 Endsub 18,s=a+aa+aaa+aaaa+...,其中a是用户输入的一个数字,求其前n项和。 n由用户输入 例如2+22+222+2222+22222,这里n=5 Privatesubcommand1_click a=val(text1.text) n=val(text1.text) k=0 for I=1ton K=k*10+a S=s+k Next Endsub 19,显示所有“水仙花数”,所谓水仙花数是指一个3位数,其各位数字立方和等于该数本身。 例如: 153是“水仙花数”;153=1^3+5^3+3^3。 注: “\”整出运算符。 例如: 153\10=15 “mod”求余运算 Privatesubcommand1_click ForI=100to999 IfI=(I\100)^3+((i-100*(i\100))\10)^3+(Imod10)^3thenprinti Next Endsub 方法二 Privatesubcommand1_click ForI=100to999 A=I\100 B=(Imod100)\10 C=Imod10 IfI=a^3+b^3+c^3thenprintI Next Endsub 输入一个数字倒叙例如123v则输出321 Privatesubcommand1_click s=text1.text forI=1tolen(s) s1=mid(s,I,1)&s1 next prints1 endsub 20,计算S=1! +2! +3! +...+n! 。 n由用户输入 Privatesubcommand1_click A=(text1.text) K=1 ForI=1ton K=k*I S=s+k Next Prints Endsub 21,.利用公式(当最后一项小于0.00001)计算e值(令x=1) Privatesubcommand1_click() e=1 K=1 I=1 While1/k>=0.00001 E=e+1/k I=I+1 K=k*i Wend Printe Endsub 用户输入一段文字英文字母数字大小写字母其他符号个数 Privatesubcommand1_click() s=text1.Text a1=0 a2=0 a3=0 a4=0 forI=1tolen(s) a=mid(s,I,1) ifa>=“a”anda<=“z”then a1=a1+1 elseifa>=“A”anda<=“z”then a2=a2+1 elseifa>=“0”anda<=“9”then a3=a3+1 else a4=a4+1 endif next print“小写”: a1;”大写”;a2;”数字”;a3;”其他”;a4 endsub 5.(选作)编程计算: 当最后一项绝对值小于0.00001时停止计算,输出计算结果及计算了多少项 22,从键盘上输入10个正数,求其中的最大值。 用InputBox()函数输入。 例如: InputBox("请输入第"&i&"个数据") Privatesubcommand1_click() dimi,m,a(10) fori=1to10 a(i)=val(inputbox("第"&i&"个数")) printa(i);
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序 编码