（22）在窗体上画一个
 名称为Command1的命令按钮，然
 后编写如下事件过程：
 
　　Private Sub Command1_Click()
 
 
　　Dim a As Integer, s
 As Integer
 
 
　　a = 8
 

 
　　s = 1
 

 
　　Do
 
 
　　s = s + a
 
 
　　a = a－1
 
 
　　Loop While a <= 0
 
 
　　Print s; a
 
 
　　End Sub
 
 
　　程序运行后，单击命令按钮，则窗体
 上显示的内容是
 
　　A） 7 9 B） 34 0
 

 
　　C） 9 7 D）死循环
 

 
　　（23）设有如下通用过
 程：
 
 
　　Public Function f(x
 As Integer)
 
 
　　Dim y As Integer
 
 
　　x = 20
 
 
　　y = 2
 

 
　　f = x * y
 
 
　　End Function
 
 
　　在窗体上画一个名称为Command1的命
 令按钮，然后编写如下事件过程：
 
　　Private Sub Command1
 _Click()
 
 
　　Static x As Integer
 

 
　　x = 10
 

 
　　y=5
 
 
　　y = f(x)
 

 
　　Print x; y
 
 
　　End Sub
 
 
　　程序运行后，如果单击命令按钮，则
 在窗体上显示的内容是
 
　　A）10 5 B）20 5
 
 
　　C）20 40 D）10 40
 
 
　　（24）设有如下通用过程：
 
 
　　Public Sub Fun(a(),
 ByVal x As Integer)
 
 
　　For i = 1 To 5
 
 
　　x = x + a(i)
 

 
　　Next
 
 
　　End Sub
 
 
　　在窗体上画一个名称为Text1的文本
下的事件过程：
 框和一个名称为Command1的命令按钮，然后编写如

 
　　Private Sub Command1
 _Click()
 
 
　　Dim arr(5) As Varian
 t
 
 
　　For i = 1 To 5
 
 
　　arr(i) = i
 

 
　　Next
 
 
　　n = 10
 
 
　　Call Fun(arr(), n)
 
 
　　Text1.Text = n
 
 
　　End Sub
 

 
　　程序运行后，单击命令按钮，则在文
 本框中显示的内容是
 
　　A）10 B）15 C）25 D）24
 

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页