设有如下通用过程：Public Sub Fun（a（)As Integer,x As Integer) For i=1 To 5 x=x+a（i) Next

下面程序运行的结果是public abstract class A{public A(){Console.WriteLine('A');}public virtual void Fun(){Console.WriteLine(A.Fun());}}public class B : A{public B(){Console.WriteLine('B');}public new void Fun(){Console.WriteLine(B.Fun());}}

设有以下程序片段 ： Public x% Private y$ Private Sub Command1_Click() Dim a …… End Sub Private Sub Command2_Click() Static b …… End Sub 在 Command1_Click 过程中无法访问的变量是 ________ 。

设有如下Command1的单击事件过程及fun过程：PrivateSubCommand1_Click()DimxAsIntegerx=Val(InputBox(请输入一个整数))fun(x)EndSubPrivateSubfun(xAsInteger)IfxMod2=0Thenfun(x/2)Printx;EndSub执行上述程序，输入8，结果是___________。

设有如下程序代码 ： Dim a% Public b%, c% Private Sub Form_Click() Dim b% Print a; b; c End Sub Private Sub Form_Load() Dim a% a = 5 b = 8 c = 10 End Sub 运行程序时单击窗体 ， 则在窗体上显示的是 ________ 。

设有如下程序：public class Test5 {public static void main (String args []) {/* This is the start of a commentif (true) {Test5 = new test5();System.out.println(Done the test);}/* This is another comment */System.out.println (The end);}}结果为?

假定有如下的Sub过程：Sub fun(x As Single, y As Single)t = xx = t / yy = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As SingleDim b As Singlea = 6b = 4fun a, bPrint a, bEnd Sub程序运行后，单击命令按钮，输出结果为（ ）。

子过程定义如下： Public Sub F1(ByRef n%) … n=3*n+4 … End Sub Sub Button1_Click(……) Handles Button1.Click Dim n%, m% n=3 m=4 … ' 调用 Button1_Click 事件中有效的调用语句是（ ） 。

程序中有两个过程 Private Sub Fun1(S As String)和Private Sub Fun2(a() As String*6)，在调用过程中用Dim St(6) As String*6定义了一个字符串数组。下面调用语句中正确的是 ______。 ①Call Fun1(St(3)) ②Call Fun2(St) ③Call Fun1(St) ④Call Fun2(St(6))

设有如下过程：Sub ff（x，y，z)x=y+zEnd Sub下列选项中所有参数的虚实结合都是传址方式调用的是（)。A

设有如下通用过程：Public Sub Fun（a（)，ByVal x As Integer)For i=1 To 5 x=x+a（i)NextEnd Sub在

设有如下过程；Sub ff（x,y,z)x=y+ZEnd Sub下列选项中所有参数的虚实结合都是传址方式调用的是（)。A

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Public Enum S a=4 b=3 End Enum Private Sub Command1 Click（） Dim x As Integer x=a If x＞=3 Then MsgBox"Pass!" End Sub 运行程序，其结果是（）。

已知如下类定义： class Base { public Base （){ ／／... } public Base （int m ){ ／／... } protected void fun（int n ){ ／／... } } public class Child extends Base{ ／／ member methods } 如下哪句可以正确地加入子类中？（）

设有如下窗体单击事件过程：Private Sub Form_Click（)a=1For i=1 To 3 Select Case i Case 1a=a+1

设有一个命令按钮Command1的事件过程以及一个函数过程。程序如下： Private Sub Command1 Click（） Static x A S Integer x=f(x+5) Cls Print X End Sub Private Function f(x As Integer)As Integer f=x+x End Function 连续单击命令按钮3次，第3次单击命令按钮后，窗体显示的计算结果是（）。

设有以下函数过程： Function fun（a As Integer，b As Integer) Dim c As Integer If a＜b The

有如下程序： include＜iostream＞ using namespace std; class Base { public: void fun() { cout＜＜"Base::fun"＜＜endl; } }; class Derived: public Base { public: void tim() } ____________ cout＜＜"Derived:: fun"＜＜endl; } }; int main() { Derived d; d.fun(); return O; } 已知其执行后的输出结果为： Base::fun Derived::fun 则程序中下划线处应填入的语句是

设有如下程序：Dim a（)As IntegerPrivate Sub Command1_Click（) n=-5:m=6 ReDim a（n To m) For i=

设有如下通用过程：Public Sub Fun（a（), ByVal x As Integer)For i=1 To 5x=x+a（i)NextEnd Sub在

◑设有如下程序： Private Sub Form_Click() a=325456 Print Format(Int((a*10+0.5))/10，'000，000.00') End Sub 程序运行后，单击窗体，输出结果为【 】。

一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为Func的标准模块。假定在Form1和Func中分别建立了自定义过程，其定义格式为： Form1中定义的过程： Private Sub Fun1（)...... End Sub Func中定义的过程： Public Sub Fun2（) ...... End Sub 若要在窗体For2g调用Porm1和Func中分别建立的自定义过

3、阅读下面代码，写出输出结果： public class A { public void fun1（int n) { Console.WriteLine（"{0}x2={1}", n, 2 * n); } public void fun2（int n) { Console.WriteLine（"{0}x3={1}", n, 3 * n); } } public delegate void mydelegate（int n) public class Test { public static event mydelegate p; static void Main（) { A a = new A（); p += new mydelegate（a.fun1); p（1); } }

以下代码运行后输出的内容（）interface AAA{ void fun（); } class BBB extends AAA{ public void fun（) { System.out.println（"fun"); } } public class Main { public static void main（String[] args) { AAA a = new BBB（); a.fun（); } }

单击命令按钮后，下列程序代码的执行结果是______ 。 Public Sub fun （Byval a （) As Integer) Static n As Integer Do a（n) = a （n) + a（n + 1) n = n + 1 Loop While n ＜ 3 End Sub Private Sub command1_ click（) Dim m As Integer, n