![](https://static.youtibao.com/asksite/comm/h5/images/m_q_title.png)
下列程序实现的功能是:当在窗体上单击时,将输出a1.txt 文件中的数字字符的个数。 Private Sub fo
![](https://static.youtibao.com/asksite/comm/h5/images/solist_ts.png)
(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