Question

希望有人可以帮我解答一下下面这些问题，谢谢！

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

Answer 1

6、您好，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