Question

Access问题，求高手解答

（7）若窗体中已有一个名为Command1的命令按钮、一个名为Label1的标签和一个名为Text1的文本框，且文本框的内容为空，然后编写如下事件代码：
Private Function f(x As Long) As Boolean
If x Mod 2 = 0 Then
f = True
Else
f = False
End If
End Function

Private Sub Command1_Click()
Dim n As Long
n = Val(Me!Text1)
p = IIf(f(n), "Even number", "Odd number")
Me!Label1.Caption = n & " is " & p
End Sub
窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为 。
（8）有如下用户定义类型及操作语句
Type Student
SNO As String
SName As String
SAge As Integer
End Type
Dim Stu As Student
With Stu
.SNO = "200909001"
.SName = "果果"
.SAge = 10
End With
执行MsgBox Stu.Age后，消息框输出结果是 。
（16）设关系R和S的构成如下所示，则R与S做自然连接得到的关系中的元组个数为 。

（29）在窗体中使用一个文本框（名为x）接受输入值，有一个命令按钮test，事件代码如下：
Private Sub test_Click()
Y = 0
For i = 0 To Me!x
Y = Y + 2 * i + 1
Next i
MsgBox Y
End Sub
打开窗体后，若通过文本框输入值为3，单击命令按钮，输出的结果是 。
（30）在窗体中使用一个文本框（num1）接受输入值，有一个命令按钮run13，事件代码如下：
Private Sub run13_Click()
If Me!num1 >= 60 Then
result = "及格"
ElseIf Me!num1 >= 70 Then
result = "通过"
ElseIf Me!num1 >= 85 Then
result = "合格"
End If
MsgBox result
End Sub
打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是 。

Answer 1

合格 .....................................................

追问

亲，其实最不需要回答的就是最后一题，那是我不小心粘上去的，不过还是谢谢你啦

追答

我晕