End If Next I T = I
29. 以下程序段运行后 , 在文本框 Textl 输入\则消息框显示的结果是 14 。dog Dim I%, S$
Dim A(5) As String S = Text1. Value For I = 1 To Len(S) A(I) = Mid(S, I, 1) A(0) = A(I) & A(0) Next I
MsgBox A(0)
30. 某窗体的 \记录源 \为 \学生 \表 , 表中包含 \姓名 \等字段 , 假设该表记录数为 80。下面程 序段运行后 , 将从学生表中随机抽取一位同学,并将该同学的姓名用消息框显示出来。请填空完成该程序。 n = Int(80 * Rnd)
Me. Recordset.MoveFirst
Me. Recordset. l5 absoluteposition=n Msgbox [ 姓名 ]
二级Access样题 第 31 页 共 31 页