单击命令按钮后，下列程序代码的执行结果是______。Public Sub fun (a As Integer, b As Integer, c As Integer)Doa=b+ cn=n+1Loop While n ＞ 3End SubPrivate Sub command1_ click()Dim m As Integer, n As Integer, i As IntegerFor i = 0 To 2: m = n + 1: Next iFor i = 1 To 2: Call fun (m,

题目

单击命令按钮后，下列程序代码的执行结果是______。

Public Sub fun (a As Integer, b As Integer, c As Integer)

Do

a=b+ c

n=n+1

Loop While n ＞ 3

End Sub

Private Sub command1_ click()

Dim m As Integer, n As Integer, i As Integer

For i = 0 To 2: m = n + 1: Next i

For i = 1 To 2: Call fun (m, n, i): Next i

For i = 0 To 3

Print m;

Next i

End Sub

相似考题

1.若a=1,b=2,下面程序执行后,a和b的值分别为 。architecture rtl of entityName issignal a, b: integer;beginprocess (a, b)variable c: integer;begina =b ;c := a ;b = c ;end process;end rtl ;A.1，2B.2，1C.1，1D.2， 2

2.若要在图3-19窗口(窗体名为frm001)中新增一个命令按钮，单击该命令按钮后，图像框所显示的图像就会成为此窗口的背景图像。请写出该命令按钮单击事件过程内的程序代码。

3.在窗体上画—个命令按钮(名称为Command1)，并编写如下代码：Function Fun1 (ByVala As Integer, b As Integer)As Integer Dim t As Integer t=a-b b=t+ a Fun 1=t+ bEnd FunctionPrivate Sub Command1_ Click() Dim x As Integer x=10 Print Fun1(Fun1 (x,(Fun1(x，x-1))),x-1)End Sub程序运行后，单击命令按钮，输出结果是 ______。A．10B．0C．11D．21

4.如果Add函数的调用代码为:func main() {var a Integer = 1var b Integer = 2var i interface{} = asum := i.(Integer).Add(b)fmt.Println(sum)}则Add函数定义正确的是()A.type Integer intfunc (a Integer) Add(b Integer) Integer { return a + b}B.type Integer intfunc (a Integer) Add(b *Integer) Integer { return a + *b}C.type Integer intfunc (a *Integer) Add(b Integer) Integer { return *a + b}D.type Integer intfunc (a *Integer) Add(b *Integer) Integer { return *a + *b}

参考答案和解析
正确答案：2 2 2 2
2 2 2 2
更多“单击命令按钮后,下列程序代码的执行结果是______。Public Sub fun (a As Integer, b As Integer,c ”相关问题

  • 第1题：

    在窗体上添加一个命令按钮，然后编写其单击事件过程为：则单击命令按钮后消息框的输出结果是（ ）。

    A. 7

    B. 8

    C. 9

    D. 13


    正确答案：D
    本题考查VBA中多重循环的知识。见到多重循环的问题不要害怕，认真地分析清楚每一次循环这种问题就迎刃而解了。比如这个例子，我们看到，在每一次外循环开始的时候都把x的值置为4，所以我们只分析最后～次循环就可以了；同理中层循环每一次开始前都把x置为3，所以这个问题最后实际上就是x的初值为3，执行最内层循环直到结束就可以了。根据程序内循环执行两次，最后x=3+5+5=13。

  • 第2题：

    阅读程序： Function F(a As-Integer) b=0 Static c b=b+1 c=c+1 F=a+b+c End Function Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Prim F(A)Next i End Sub 运行上面的程序，单击命令按钮，输出结果为 ______。

    A．4 4 4

    B．4 5 6

    C．4 6 8

    D．4 7 9


    正确答案：B
    解析：Static语句：在过程级别中使用，用于声明变量并分配存储空间。在整个代码运行期间都能保留使用Static语句声明的变量的值。本题中变量c的值，调用一次函数F就加1。而变量a和变量c的值，在函数F中一直是2和1。

  • 第3题：

    11、下面哪些定义是类型正确的？

    A．f :: (Integer, Integer) -> Float f (x,y) = x / y

    B．f :: (Integer, Integer) -> Float f (x,y) = (fromInteger x) / (fromInteger y)

    C．f :: (Integer, Integer) -> Float f (x,y) = 3*x + y

    D．f :: (Integer, Integer) -> Integer f (x, y) = 3*x + y


    AFT 通常由含有一个双氢呋喃环和一个氧杂萘邻酮(香豆素)的基本架构单位构成 AFT 分为 黄曲霉毒素B1(AFB1)、黄曲霉毒素 B2 (AFB2) 黄曲霉毒素G1(AFG1)、黄曲霉毒素 G2(AFG2) 黄曲霉毒素M1(AFM1)、黄曲霉毒素 M2(AFM2) B1、G1的呋喃环氢键异构。M1型氢键变为羟基。 1比2呋喃环上多了一个双键。

  • 第4题：

    单击一次命令按钮之后，下列程序代码的执行结果为______。 Private Sub Command1_ Click() a = fun(4) + fun(5) Print a; End Sub Public Function fun (n As Integer) Static Num For i = 1 To n Num = Num + i Next i fun = Num End Function

    A．15

    B．20

    C．35

    D．40


    正确答案：C

  • 第5题：

    8、下面哪些是将分数化为浮点数的正确定义？

    A.type Fraction = (Integer, Integer) rateq :: Fraction -> Float rateq (a,b) = a/b###SXB###B.type Fraction = (Integer, Integer) rateq :: Fraction -> Float rateq (a,b) = (fromInteger a)/ (fromInteger b)###SXB###C.type Fraction = (Integer, Integer) rateq :: Fraction -> Float rateq (a,b) = fromInteger (a/b)###SXB###D.type Fraction = (Integer, Integer) rateq :: Fraction -> Float rateq (a,b) = (fromIntegral a)/ (fromIntegral b)###SXB###E.ty
    A

相关内容