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

相似题目

• 下面程序运行的结果是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 运行程序时单击窗体 ， 则在窗体上显示的是 ________ 。

  查看最佳答案

• 假定有如下的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

  设有如下过程： Sub ff(x，y，z) x=y+z End Sub 下列选项中所有参数的虚实结合都是传址方式调用的是()。 A．Call ff(5,7,z) B．Call ff(x,y,z) C．Call ff(3+x,5+y,z) D．Call ff(x+y,x-y,z)

  查看最佳答案

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

  设有如下通用过程： 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 Variant 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

  查看最佳答案

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

  设有如下过程； Sub ff(x,y,z) x=y+Z End Sub 下列选项中所有参数的虚实结合都是传址方式调用的是()。 A．Call ff(5,7,2) B．Call ff(x,y,z) C．Call ff(3+x,5+y,z) D．Call ff(x+y,x-y,z)

  查看最佳答案

• 在窗体上画一个名称为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 运行程序，其结果是（）。

  A.运行错误．因为Enum定义有错 B.运行错误．因为x=a类型不匹配 C.运行正常结束，不显示任何信息 D.运行正常．显示内容为“Pass!”的信息框

  查看最佳答案

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

  A.private void fun(int n ){ //...} B.void fun (int n ){ //... } C.protected void fun (int n ) { //... } D.public void fun (int n ) { //... } 此题为多项选择题。

  查看最佳答案

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

  设有如下窗体单击事件过程： Private Sub Form_Click() a=1 For i=1 To 3 Select Case i Case 1 a=a+1 Case 2, 4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出结果是()。 A．3 B．4 C．5 D．6

  查看最佳答案

• 设有一个命令按钮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次单击命令按钮后，窗体显示的计算结果是（）。

  A.10 B.30 C.60 D.70

  查看最佳答案

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

  设有以下函数过程： Function fun(a As Integer，b As Integer) Dim c As Integer If a＜b Then c=a：a=b：b=C End IF c=0 Do c=c+a Loop Until c Mod b=0 fun=c End Function 若调用函数fun时的实际参数都是自然数，则函数返回的是（）。 A.a、b的最大公约数 B.a、b的最小公倍数 C.a除以b的余数 D.a除以b的商的整数部分

  查看最佳答案

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

  设有如下通用过程： Public Sub Fun(a()As Integer,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 Integer,n AsInteger For i=1 To 5 arr(i)=i+i Next Fun arr,n Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是()。 A．30 B．25 C．20 D．15

  查看最佳答案

• 有如下程序： 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 则程序中下划线处应填入的语句是

  A．Base.fun()； B．Base::fun()； C．Base-＞fun()； D．fun()；

  查看最佳答案

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

  设有如下程序： Dim a()As Integer Private Sub Command1_Click() n=-5:m=6 ReDim a(n To m) For i=LBound(a，1)To UBound(a，1) a(i)=i Next i Print a(LBound(a，1))；a(UBound(a，1)) End Sub 程序运行后，单击命令按钮，则输出结果是 ______。 A．0 0 B．-5 0 C．-5 6 D．0 6

  查看最佳答案

• ◑设有如下程序： 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中分别建立的自定义过

  A．Call Form1. Funl() FunFun2() B．Call Form1. Fun1() Call Fun2() C．Form1. Fun1() Fun Fun2() D．Fun1() Fun2()

  查看最佳答案

• 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（); } }

  A．fun B．无输出 C．输出内容不确定 D．程序错误，无法运行

  查看最佳答案

• 单击命令按钮后，下列程序代码的执行结果是______ 。 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

  查看最佳答案

• 设有如下通用过程：Public Function f（x As Intege（）

  A．10 5 B．20 5 C．20 40 D．10 40

  查看最佳答案