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 运行和调试程序