Question

VB：几道二级考试选择题，求解析。

在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：Private Sub Command1_Click()n = Text1.TextSelect Case nCase 1 To 20x = 10Case 2, 4, 6x = 20Case Is < 10x = 30Case 10x = 40End SelectText2.Text = xEnd Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（ A ）。A）10 　　　　B）20　　　 C）30　　　 D）40
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim num As Integernum = 1Do Until num > 6Print num;num = num + 2.4LoopEnd Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（ B ）。A）1 3.4 5.8 　　　　 B）1 3 5C）1 4 7 　　　　　　D）无数据输出
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As Integer, s As Integera = 8s = 1Dos = s + aa = a－1Loop While a <= 0Print s; aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是（ C　）。A） 7 9 　　　　B） 34 0C） 9 7 　　　　D）死循环
设有如下通用过程：Public Function f(x As Integer)Dim y As Integerx = 20y = 2f = x * yEnd Function在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Static x As Integerx = 10 y=5y = f(x)Print x; yEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ C ）。A）10 5 　　　　　 B）20 5C）20 40　　　　　D）10 40
设有如下通用过程：Public Sub Fun(a(), ByVal x As Integer)For i = 1 To 5x = x + a(i)NextEnd Sub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：Private Sub Command1_Click()Dim arr(5) As VariantFor i = 1 To 5arr(i) = iNextn = 10Call Fun(arr(), n)Text1.Text = nEnd Sub程序运行后，单击命令按钮，则在文本框中显示的内容是（ A ）。A）10 　　B）15　　 C）25　　 D）24

Answer 1

第一题：不管有多少个Case 子句满足条件，始终只有第一个满足条件的Case子句后面的语句会被执行。此题中Case 1 To 20是第一个满足条件的子句，因此程序就执行x = 10语句，并跳转到End Select语句。

第二题：因为num变量被声明为Integer型，因此在加2.4的时候会自动现将2.4转换为整形数值2，然后再做加法运算。

第三题：因为循环条件是Loop While，那么其后的表达式的值必须为True才能继续循环。但是a的值为7，所以循环结束，也就是说循环体只运行了一次。

第四题：虽然x是在过程级别中声明，由于x是用Static语句声明，因此x的作用域是全局的。也就是说x在函数f中也是有效的。在函数f中x被赋值为20，函数调用结束后x的值依然是20。

第五题：由于过程Fun中变量x的传递方式是按值传递（ByVal）而不是按地址传递（ByRef），因此在Fun过程中变量x就是一个新的变量，只是初期被赋予了调用过程中的变量x的值，当Fun过程结束后，它的x变量也消亡了。因此Command1_Click过程中的变量x的值依然是10。