在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程： Private Function fun1(n As Integer)As Integer Dim k As Integer If n = 1 Then k = 1 Else k = 1 + fun1(n - 1)* 2 End If fun1 = k End Function Private Sub Command1_Click () Dim m As Integer, x As Integer x = 4 m = fun1 (x)

题目

在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程： Private Function fun1(n As Integer)As Integer Dim k As Integer If n = 1 Then k = 1 Else k = 1 + fun1(n - 1)* 2 End If fun1 = k End Function Private Sub Command1_Click () Dim m As Integer, x As Integer x = 4 m = fun1 (x) Print m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．4

B．6

C．9

D．15

相似考题

1.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。A．VVVB．VisC．sicD．11

2.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click( ) a=12345 Print Format $(a，"000.00") End Sub 程序运行后，单击命令按钮，窗体上显示的是A．123.45B．12345.00C．12345D．00123.45

3.在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Private Sub Command1_Cilck()End Sub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是( )。

4.在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：程序运行后，单击命令按钮，其输出结果为__________。

更多“在窗体上画一个名称为Command1命令按钮,然后编写如下事件过程: Private Function fun1(n As Inte ”相关问题

  • 第1题：

    在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a = 12345 Print Format$(a, "000.00") End Sub 程序运行后，单击命令按钮，窗体上显示的是

    A． 123.45

    B．12345.00

    C．12345

    D．00123.45


    正确答案：B
    解析：对于符号“0”，实际数字小于符号位数时，数字前后加0；大于时，若要显示数值表达式的整数部分位数多于格式字符串的位数，按实际数值显示。若小数部分的位数多于格式字符串的位数，按四舍五入显示。

  • 第2题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Privme Sub Command1_Click( ) a$="VisualBasic" Print String(3，a＄) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是

    A．VVV

    B．Vis

    C．sic

    D．11


    正确答案：A
    解析：String返回n个字符。如果为字符串，则返回n个字符串的首字符。返回3个"VisualBasic”的首字母“V”。

  • 第3题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n=1 To 20 If n Mod 3＜＞Then m=m+n\3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是 ______。

    A．15

    B．18

    C．21

    D．24


    正确答案：C
    解析：本题考查的是For...Next循环语句。For...Next循环执行时，先将初始值赋给循环变量，判断是否超过终值，若未超过则执行循环体，遇到Next语句后，循环变量增加一个步长(默认值为1)，再判断是否超过终值，若未超过则继续执行循环体，如此重复直到循环变量超过终值，退出循环。本题中的循环变量为n，步长为1，当n=20时，再执行Nextn，则n=21，此时n大于终值20，退出循环。

  • 第4题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x(5)As String Dim n AS Integer For n ： 4 TO 0 Step -1 x(n)= n + 1 Print x(n)； Next n End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

    A．54321

    B．4

    C．54321

    D．0


    正确答案：A
    解析：本题针对输出格式的问题。因字符串没有正负号，所以输出的字符之间没有空格；而数字有正负号，输出的字符之间应有空格。数组x被定义为字符串型变量，n+1的计算结果自动转换成字符串赋给x(n)，所以输出的字符之间是没有空格的。

  • 第5题：

    在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

    Private Sub Command1_Click（）

    a = 12345

    Print Format$（a, "000.00"）

    End Sub

    程序运行后，单击命令按钮，窗体上显示的是（ ）。

    A．123.45

    B．12345.00

    C．12345

    D．00123.45


    正确答案：B

相关内容