第8章过程知识点..docVIP

过程 013004、窗体中添加一个命令按钮，编写如下程序： private sub test(p,m,n) p=p+1:m=m+1:n=n+1 print Sub:;p;m;n end sub private sub command1_click() a1=1:b1=2:c1=3 call test(a1,b1+3,(c1)) print Main:;a1;b1;c1 end sub 程序运行后，输出结果为( ) A、 Sub: 2 6 4 B、Sub: 2 6 4 C、Sub: 2 6 4 D、Sub: 2 6 4 Main: 2 6 4 Main: 1 6 4 Main: 1 2 3 Main: 2 2 3 答案：D 010209、( )关键字声明的局部变量在整个程序运行时一直存在 A、Static B、Private C、Dim D、Public 答案：A 010601、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Static X As Integer Static Y As Integer Cls Y=1 Y=Y+5 X=5+X Print X,Y End Sub 程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为（） A、15 16 B、15 6 C、15 15 D、5 6 答案：B 012401、在窗体上画和一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序： Private Sub Command1_Click() Dim x,y,z AS Integer x=5 y=7 z=0 Text1.Text= Call P1(x,y,z) Text1.Text=Str(z) End Sub Sub P1(byVal a As Integer,ByVal b As Integer,c As Integer) c=a+b End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的内容是（） A、0 B、12 C、Str(z) D、没有显示 答案：B 012301、在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是（） A、Private Sub Command1_ClicK() x=InputBox(请输入整数) a=F1(val(x)) Print a End Sub Function F1(ByRef b AS Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function B、Private Sub Command1_ClicK() x=InputBox(请输入整数) a=F1(val(x)) Print a End Sub Function F1(ByRef b AS Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function C、Private Sub Command1_ClicK() x=InputBox(请输入整数) F1(val(x)) Print a End Sub Function F1(ByRef b AS Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Function D、Private Sub Command1_ClicK() x=InputBox(请输入整数) F1(val(x)) Print a End Sub Function F1(ByRef b AS Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function 答案：B 012501