t=y:
y=z:
z=t
EndIf
Label6.Caption="X="&x&","&"Y="&y&","&"Z="&z
EndSub
'【清除】命令按钮单击事件
PrivateSubCommand2_Click（）
Text1.Text=""
Text2.Text=""
Text3.Text=""
Label6.Caption=""
EndSub
'【结束】命令按钮单击事件
PrivateSubCommand3_Click（）
End
EndSub
实验六：
显示图形
程序代码如下：
'窗体单击事件
PrivateSubForm_Click（）
DimiAsInteger,jAsInteger
Fori=1To7
Forj=iTo7
PrintTab（（j-1）*2+1）;"*";
Nextj
Print""
Nexti
EndSub
实验七：
求100-200之间的素数（P82例4.11）
程序代码如下：
PrivateSubCommand1_Click（）
DimnAsInteger,iAsInteger,jAsInteger
DimflagAsBoolean'判断n是否为素数的标志
PrintvbCr;Tab（8）;"100～200之间的素数";_
vbCr;String（35,"-"）
Forn=100To200'外循环遍历100～200之间所有整数
flag=True'先假定n为素数
Fori=2ToInt（Sqr（n））'内循环判断n是否为素数
IfnModi=0Then'若n能被i整除，不是素数
flag=False'修改标志
ExitFor'退出内循环
EndIf
NextI
IfflagThen'若n为素数，显示（每行7个数）
Printn;
j=j+1
IfjMod7=0ThenPrint
EndIf
Next
PrintString（35,"-"）
EndSub
实验八：
用For...Next循环及嵌套制作多种格式的九九乘法表（P86）
程序代码如下：
'【全部】命令按钮单击事件
PrivateSubCommand1_Click（）
DimstrsAsString,iAsInteger,jAsInteger
Cls
PrintvbCr;Tab（41）;"九九乘法表"
Print""&String$（89,"-"）
Fori=1To9'外循环变量i为乘法表的“行”
Forj=1To9'外循环变量j为乘法表的“列”
strs=i&"×"&j&"="&i*j'行列相乘
PrintTab（（j-1）*10+3）;strs;'显示
Nextj
Print
Nexti
Print""&String$（89,"-"）
EndSub
'【下三角】命令按钮单击事件
PrivateSubCommand2_Click（）
DimstrsAsString,iAsInteger,jAsInteger
Cls
PrintvbCr;Tab（41）;"九九乘法表"
Print""&String$（89,"-"）
Fori=1To9'外循环变量i为乘法表的“行”
Forj=1Toi'外循环变量j为乘法表的“列”
strs=i&"×"&j&"="&i*j'行列相乘
PrintTab（（j-1）*10+3）;strs;'显示
Nextj
Print
Nexti
Print""&String$（89,"-"）
EndSub
'【上三角】命令按钮单击事件
PrivateSubCommand3_Click（）
DimstrsAsString,iAsInteger,jAsInteger
Cls
PrintvbCr;Tab（41）;"九九乘法表"
Print""&String$（89,"-"）
Fori=1To9'外循环变量i为乘法表的“行”
Forj=iTo9'外循环变量j为乘法表的“列”
strs=i&"×"&j&"="&i*j'行列相乘
PrintTab（（j-1）*10+3）;strs;'显示
Nextj
Print
Nexti
Print""&String$（89,"-"）
EndSub
'【结束】命令按钮单击事件
PrivateSubCommand4_Click（）
End
EndSub
实验九：
用户信息收集（P107例6.3）
程序代码如下：
'【确定】命令按钮单击事件
PrivateSubCommand1_Click（）
DimstrAsString,linkAsString
link=Chr（13）&Chr（10）'Chr（13）、Chr（10）是产生回车换行（亦可用VB常数vbCrLf）
IfOption1.Value=TrueThen
str="计算机专业"
Else
str="机电专业"
EndIf
str=str&"选择了：
"&link
IfCheck1.Value=1Thenstr=str&link&"高等数学"
IfCheck2.Value=1Thenstr=str&link&"大学英语"
IfCheck3.Value=1Thenstr=str&link&"程序设计"
MsgBoxstr,vbYesNo,"采集信息"
EndSub
实验十：
组合框示例
程序代码如下：
'【增加】命令按钮单击事件
PrivateSubcmdAdd_Click（）
Combo1.AddItemCombo1.Text
Combo1.Text=""
Label2.Caption=Combo1.ListCount
Combo1.SetFocus
EndSub
'【清除】命令按钮单击事件
PrivateSubcmdClear_Click（）
Combo1.Clear
Label2.Caption=Combo1.ListCount
EndSub
'【删除】命令按钮单击事件
PrivateSubcmdDelete_Click（）
IfCombo1.ListIndex>=0Then
Combo1.RemoveItemCombo1.ListIndex
Label2.Caption=Combo1.ListCount
Else
Label2.Caption=""
Label2.Caption=
升级会员 