32. 已知程序段 S=0 For i=1 To 10 step 2 S=S+1 i=i*2 Next i 当循环结束后，变量i，s的值分别为
A.10，6
B.11，4
C.22，3
D.16，5
A B C D
C
33. 下面VBA程序段运行时，内层循环的循环总次数是 For m=0 To 7 step 3 For n=m-1 To m+1 Next n Next m
A.3
B.4
C.12
D.9
A B C D
D
34. 在窗体中添加一个命令按钮(名称为Command1)和一个文本框(名为text1)，然后编写如下事件过程： Private Sub Command_Click() Dim x As Integer, y As Integer, z As Integer x=5: y=7: z=0 Me!Text1="" Call p1(x, y, z) Me!Textl=z End Sub Sub p1 (a As Integer, b As Integer, Byval c As Integer) c=a+b End Sub 打开窗体运行后，单击命令按钮，文本框中显示的内容是
A.12
B.0
C.5
D.7
A B C D
B
35. 在名为Form1的窗体上添加三个文本框和一个命令按钮，其名称分别为Text1、Text2、Text3和Command1，然后编写如下两个事件过程： Private Sub Command1_Click() Text3=Textl+1Text2 End Sub private Sub Form1_Load() Text1="" Text2="" Text3="" End Sub 打开窗体Form1后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7，然后单击命令按钮Command1，则文本框(Text3)中显示的内容为
设计一个计时的Access应用程序。该界面如右图所示，由一个文本框(名为Text1)、一个标签及两个命令按钮(一个标题为start，命名为Command1；一个标题为Stop，命名为Command2)组成。程序功能为：打开窗体运行后，单击Start按钮，则开始计时，文本框内显示秒数；单击Stop按钮，则计时停止；双击Stop按钮，则退出。请填空补充完整。 Dim i Private Sub Command1_Click() i=0 Me. TimerInterval=1000 End Sub Private Sub Command2_Click() 13 End Sub Private Sub Command2_DbClick(Cancel As Integer) DoCmd. 14 End Sub Private Sub Form_Load() Me. TimerInterval=0 Me!Text1=0 End Sub Private Sub Form_Timer() i=i+i Me!Text1= 15 End Sub
深色：已答题 浅色：未答题