题目内容
（请给出正确答案）
如果结果不匹配，请 联系老师 获取答案
更多“下列程序实现的功能是：当在窗体上单击时，将输出a1．txt …”相关的问题
（1）创建一个查询，查找女学生的“姓名”、“课程名”和“成绩”3个字段的内容，将查询命名为“qT1”。
（2）创建追加查询，将表对象“tStud”中有书法爱好的学生的“学号”、“姓名”和“入校年”3列内容追加到目标表“tTemp”的对应字段内，将查询命名为“qT2”。（规定：“入校年”列由“人校时间”字段计算得到，显示为4位数字形式。）
（3）补充窗体“tTest”上“testl”按钮（名为“bt1”）的单击事件代码，实现以下功能：
打开窗体，在文本框“tText”中输入一段文字，然后单击窗体“tTest”上的“testl”按钮（名为“bt1”），程序将文本框内容作为窗体中标签“bTitle”的标题显示。
注意：不能修改窗体对象“fTest”中未涉及的控件和属性：只允许在“*****Add*****”与“*****Add*****”之间的空行内补充语句，完成设计。
（4）设置窗体“iTest”上“test2”按钮（名为“bt2”）的单击事件为宏对象“reTest”。
A.3
B.4
C.5
D.6
运行下列程序：
Private Sub Form_Click()
Dim sum As Double, i As Integer
For i = 1 To 20
If i Mod 5 = 0 Then
sum = sum + i
End If
Next i
Print sum
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.50
B.100
C.4
D.5050
A.Private Sub List1_Click()
B.Private Sub List1_Click()Text1.Text = List1.List Text1.Text = List1.ListIndex/ End Sub End Sub
C.Private Sub List1_Click()
D.Private Sub List1_Click()Text1.Text = List1.Text Text1.Text = List1.Caption End Sub End Sub
运行下列程序：
Private Sub Command1_Click()
Dim s1 As String * 1
Dim s2 As String
s1 = "a"
For i = Asc(s1) To Asc(s1) + 4
s2 = s2 & Chr(i)
Next i
Print s2
End Sub
单击Command1命令按钮后，则在窗体上显示的结果是()。
A.a
B.abcde
C.aaaa
D.s2
