(Access阅读程序写出结果课堂练习题.docVIP

阅读程序写出结果课堂练习题 执行下面程序,写出结果 S=0 For n=1 to 15 If int(n/3)=n/3 then S=s+n Endif Next Debug.print s,n x=65 y=space(0) if int(sqr(x))=sqr(x) then x=x+1 y=chr(x) else x=x+2 y=chr(x) endif debug.print x,y 程序运行结束时，x的值是____ ，y的值是_______。 s=0 p=1 j=1 do while j=10 if j mod 3=0 then p=p*j else s=s+p endif j=j+1 loop debug.print j,s 在窗体上画一个命令按钮（名称为command1）和一个文本框（名称为text1），然后编写如下事件过程： Private sub command1_click() Me.text1.setfocus X=val(text1.text) ‘text属性表示文本框获得焦点后的值，等同于value属性 Select case x Case 1,3 Y=x*x Case is=10,is=-10 Y=x Case -10 to 10 Y= -x End select End sub 在文本框输入3，然后单击命令按钮，变量y的值变为______。 在窗体中添加一个命令按钮（command1），和一个文本框（text1），然后编写如下实践过程： Private sub command1_click() Dim a as integer, b as integer , c as integer A=5:b=10:c=0 Me.text1=”” Call p1(a,b,c) Me.text1=c End sub Sub p1(x as integer , y as integer, z as integer) Z=x+y End sub 打开窗体运行后，单击命令按钮，文本框中显示的内容是___。 在窗体中添加一个名称为com1的命令按钮，然后编写如下程序： Private sub s( p as integer) P=p*2 End sub Private sub com1_click() Dim I as integer I=3 Call s(i) If i4 then i=i^2 Msgbox i End sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为_____。 运行下列程序，显示的结果是_____。 Private sub command3_click() I=0 Do I=i+1 Loop while i10 Msgbox i End sub 运行下列程序，在立即窗口显示的结果是_____。 Private sub command0_click() Dim I as integer , j as integer For I =2 to 10 For j=2 to i/2 If I mod j=0 then exit for Next j If jsqr(i) then debug.print I; Next i End sub 9. 读程序写结果 Option Explicit’强制变量声明 Private Sub Command0_Click() Dim k As Integer k = 5 Debug.Print 第1次调用： Call s(k) Debug.Print k=; k k = 5 Debug.Print 第2次调用： Call s(k) Debug.Print k=; k End Sub Sub s(n) Static sta As Integer Debug.Print 静态变量初值sta=; st