VB编写程序

Question

1、编写程序：
设计在一框架中包含三个复选框，只有当其中1，3选中而2未选中时，才在Text1 中显示“Hello”字符。
2、程序阅读题：
Private Sub Command2_Click()
For i=1 To 3
 x=1
For j=1 To 3
x=3+j
For k=1 To 3
x=x+3
Nextk
Nextj
Next i
Print x
End Sub
运行程序后，单击命令按扭，输出结果是？

Answer 1

估计你也是没法了，看来牛人是不屑于过来给个答案了。俺基本上就不懂 VB。
随便写一个嘛，错了可千万别怪俺。Private Sub Text1_GotFocus()
If Check1.Value = 1 And Check2.Value = 0 And Check3.Value = 1 Then
Text1.Text = "Hello"
End If
End Sub

Answer 2

Private Sub Command1_Click()
If Check1.Value = 1 And Check2.Value = 0 And Check3.Value = 1 Then
Text1.Text = "Hello"End IfEnd SubPrivate Sub Command2_Click()
Dim i, j, k, x As Integer
For i = 1 To 3
x = 1
For j = 1 To 3
x = 3 + j
For k = 1 To 3
x = x + 3
Next k
Next j
Next i
Print x
End Sub15