[业务]VB程序代码

[业务]VB程序代码 实验五 赋值语句的使用 Private sub command1_ click() Dim a, b,c a=text1.text b=text2.text c=text3.text text1.text=text2.text text2.text = c end sub 实验六input语句的使用 Private.sub command1_click() Dim h, x,f,y h=val(inputbox(“请输入总头数:”，”输入框”)) ‘设置输入框将输入的整数 f=val(inputbox(“请输入总脚数:”+chr(13)+chr(10)+”注意:角的数目在2h 和4h之间”，”输 入框”) x=(4*h-f)/2 y=(f-2*h)/2 label4.caption=x & “只“ label5.caption=y & “只” end sub 试验七 msgbox函数的使用 Private sub cmmmand1_click() Dim h, s, m,sum# H=val(text1.text) M=val(text2.text) S=val(text3.text) Sum=h*3600+m*60+s Msgbox “共计” & str(sum) & “秒”，1+48+0，”秒数提示” End sub 实验八 双分支结构的使用 Private sub form_click() Dim x X= val(inputbox(“请输入一个整数”)) If x/2=x\2 then Print “x=” & str(x);”x是一个整数” Else Print”x=” & str(x): “x是一个奇数” End if Endsub 实验9 多分支结构语句的使用 Private sub command1_click() Dim x, y, z X=val(text1,.text) Y=va;(text2.text) Z=val(text3.text) If x=y or y=z then Label4.capion=”可构成等腰三角形” Elseif x=y and y=z then Label4.capion=”可构成等边三角形” Flseif x^2=y^2+z^2 or y^2=x^2+z^2 or z^2=x^2+y^2 Label4.caption=”可构成直角三角形” Else Label4.capion=”可构成任意三角形” End if End sub 实验十 select case语句的使用 Select case 语句的使用 Private sub form_click() Dim score Score=val(inputbox(“请输入一个整数”)) Select case score Case is >=90 Print”优秀” Case 80 to 90 Print “良好” case 70 to 79 Print “中等” Case 60 to 69 Print “及格” Case else Print “不及格” 实验十一 for…next循环语句的使用 Private 苏北form1_click() Dim x ,i Print”第七天吃桃子数目为:1个” X=1 For I =6 to1 step-1 X=2*(1+x) Print”第” & I & “天桃子数为:” & x &”个” Next i End sub 实验十二 for 循环语句的嵌套与使用 Private sub form_click() Dim ch as string ,I as integer,j as integer Print tab(36);”九九乘法表” Print tab (33);”= = = = = = = = = = ” For I =1 to 9 For j = 1 to i Ch=j & “x” & I & “=” & j * i Print tab((j-1)*10+3);ch; Next j Print Next i End sub 实验十三do loop 循环语句的使用 双击command (1)进入代码编辑器窗口 Private sub command1_click() Dim sum as long ,I,n I=1 Sum= 0 Rem 输入 N= val(text1.text ) Rem 处理 Do while I <=n Sum=sum+I I=i+1 Loop Rem 输出 Text.text=sum 双击command2进入代码编辑器窗口 输入以下代码 Private sub command2_click Dim sum as long ,I,n I=1 Sum=0 Rem 输入 n=val(text1.text) rem 处理 do sum=sum+1 i=i+1 loop while i<=n rem输出 text2.text=sum end sub 双击命令按钮command3进入代码编辑器窗口 输入以下代码 Private sub comand3_click() Dim sum as long,I,n I=1 Sum=0 Rem 输入 n=val(text1.text) rem 处理 do until I > n sum=sum+i i=i+1 loop rem 输出 text2.text=sum end sub 双击命令按钮command3进入代码编辑窗口 输入以下代码 Privatecommand4 _click() Dim sum as long,I,n I=1 Sum=0 Rem 输入 N=val(text1.text) Rem处理 Do Sum=sum+1 I=i+1 Loop until i> n Rem 输出 Text2.text=sum End sub 4 运行和调试程序