6.分析下列程序,单击窗口时,程序运行结果.Private Function Fac() As StringFac = “,”End FunctionPrivate Sub Form_Click()Dim I as IntegerFor I=1 to 5Command1_ClickPrint Fac();Command2_ClickNext IEnd SubPrivate Sub Command1_Click()Prin

6.分析下列程序,单击窗口时,程序运行结果.Private Function Fac() As StringFac = “,”End FunctionPrivate Sub Form_Click()Dim I as IntegerFor I=1 to 5Command1_ClickPrint Fac();Command2_ClickNext IEnd SubPrivate Sub Command1_Click()Prin
6.分析下列程序,单击窗口时,程序运行结果.
Private Function Fac() As String
Fac = “,”
End Function
Private Sub Form_Click()
Dim I as Integer
For I=1 to 5
Command1_Click
Print Fac();
Command2_Click
Next I
End Sub
Private Sub Command1_Click()
Print “您好”；
End Sub
Private Sub Command2_Click()
Print “VB!”
End Sub
二、填空题,将下列程序中缺少的语句,填补上：（共15分,每空1分）
1．以下程序判断从文本框Text1中输入的数据,如果该数据满足条件：除以3余2,除以5余3,除以7余4,则输出；否则将焦点定位在文本框Text1中,选中其中的文本.
Private Sub Command_Click()
X = Val(Text1.Text)
If x mod 3=2 and x mod 5=3 and x mod 7 =4 [1] Then
Print X
Else
Text1.setfocue
Text1.text=””
End If
End Sub
2.设计一个欢迎程序.要求程序运行后,用户选中粗体复选框Check1时 “欢迎您!”几个字的字体变成粗体,用户选中斜体复选框Check2时 “欢迎您!”几个字的字体变成斜体.若取消选中,则恢复原字体.按结束Command1,则退出.
Private Sub Check1_Click()
If Check1.Value = 1 Then
Label1.Font.Bold = true
Else
Label1.Font.Bold = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 [2] Then
Label1.Font.Italic = True
Else
Label1.Font.Italic = false
End If
End Sub
Private Sub Command1_Click()
[4]
End Sub
3.设计一个计算程序.由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4）,和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成．程序运行后,用户按清除按钮,则清除文本框中显示的内容,按计算按钮,则计算三科平均成绩.单击退出按钮则退出.
Private Sub Command1_Click()
Text1.Text = “”
Text2.Text = ""
[1]
End Sub
Private Sub Command2_Click()
If Text1.[2] = " " Or Text2.Text = [3] Or Text3.Text = " " Then
MsgBox "成绩输入不全!"
Else
Text4.Text = ([4] + Val(Text2.Text) + Val(Text3.Text)) /[5]
[6]
Sub End
Private Sub Command3_Click()
[7]
End Sub

6.分析下列程序,单击窗口时,程序运行结果.Private Function Fac() As StringFac = “,”End FunctionPrivate Sub Form_Click()Dim I as IntegerFor I=1 to 5Command1_ClickPrint Fac();Command2_ClickNext IEnd SubPrivate Sub Command1_Click()Prin
VB
（这个有五个）
下面几个好像好了呀.要写什么?
2、Private Sub Command1_Click()
[4]end
End Sub
3、Private Sub Command1_Click()
Text1.Text = “”
Text2.Text = ""
[1]text3.text=""
End Sub
Private Sub Command2_Click()
If Text1.[2]text = " " Or Text2.Text = [3] text Or Text3.Text = " " Then
MsgBox "成绩输入不全!"
Else
Text4.Text = ([4]val(text1.text) + Val(Text2.Text) + Val(Text3.Text)) /[5]3
[6]end if
Sub End
Private Sub Command3_Click()
[7] end
End Sub