6.分析下列程序,单击窗口时,程序运行结果.
PrivateFunctionFac()AsString
Fac=“,”
EndFunction
PrivateSubForm_Click()
DimIasInteger
ForI=1to5
Command1_Click
PrintFac();
Command2_Click
NextI
EndSub
PrivateSubCommand1_Click()
Print“您好”；
EndSub
PrivateSubCommand2_Click()
Print“VB!”
EndSub
二、填空题,将下列程序中缺少的语句,填补上：（共15分,每空1分）
1．以下程序判断从文本框Text1中输入的数据,如果该数据满足条件：除以3余2,除以5余3,除以7余4,则输出；否则将焦点定位在文本框Text1中,选中其中的文本.
PrivateSubCommand_Click()
X=Val(Text1.Text)
Ifxmod3=2andxmod5=3andxmod7=4[1]Then
PrintX
Else
Text1.setfocue
Text1.text=””
EndIf
EndSub
2.设计一个欢迎程序.要求程序运行后,用户选中粗体复选框Check1时“欢迎您!”几个字的字体变成粗体,用户选中斜体复选框Check2时“欢迎您!”几个字的字体变成斜体.若取消选中,则恢复原字体.按结束Command1,则退出.
PrivateSubCheck1_Click()
IfCheck1.Value=1Then
Label1.Font.Bold=true
Else
Label1.Font.Bold=False
EndIf
EndSub
PrivateSubCheck2_Click()
IfCheck2.Value=1[2]Then
Label1.Font.Italic=True
Else
Label1.Font.Italic=false
EndIf
EndSub
PrivateSubCommand1_Click()
[4]
EndSub
3.设计一个计算程序.由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4）,和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成．程序运行后,用户按清除按钮,则清除文本框中显示的内容,按计算按钮,则计算三科平均成绩.单击退出按钮则退出.
PrivateSubCommand1_Click()
Text1.Text=“”
Text2.Text=""
[1]
EndSub
PrivateSubCommand2_Click()
IfText1.[2]=""OrText2.Text=[3]OrText3.Text=""Then
MsgBox"成绩输入不全!"
Else
Text4.Text=([4]+Val(Text2.Text)+Val(Text3.Text))/[5]
[6]
SubEnd
PrivateSubCommand3_Click()
[7]
EndSub
邮箱： 