在窗体上画一个命令按钮，然后编写如下程序： Private Sub Commandl_Click( ) Dim a AS Integer，b As Integer a=15 b=2 t N(a，B)End Sub Function N(x As Integer，y As Integer) As Integer N=IIf(x)y，x，y) End Function 程序运行后，单击命令按钮，输出结果为A．1B．2C．15D．8

题目

在窗体上画一个命令按钮，然后编写如下程序： Private Sub Commandl_Click( ) Dim a AS Integer，b As Integer a=15 b=2 t N(a，B)End Sub Function N(x As Integer，y As Integer) As Integer N=IIf(x)y，x，y) End Function 程序运行后，单击命令按钮，输出结果为

A．1

B．2

C．15

D．8

如果没有搜索结果或未解决您的问题，请直接联系老师获取答案。

相似问题和答案

第1题：

在窗体上画一个名称为Commandl的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(By Val m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Commandl_Click() Dim i As Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是______。

A． 6

B．7

C．8

D．9

正确答案：B
解析：本题中fun函数的功能是偶数时返回2，奇数时返回1。而1到5中，有三个奇数，两个偶数。所以s是三个1和两个2之和。故s=7。

第2题：

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

Private Sub Command1_Click()

Dim Y as String

X=5

Y=X & Space(3) & X

Print X；

Print Trim(Y)；Len(Trim(Y))

End Sub

该程序的执行结果是【】。

正确答案：□5□5□□□5□5
□5□5□□□5□5

第3题：

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

Private Sub Command1_Click（）

Dim a As String

A="123456789"

For i=1 To 5

Print Space（6-i）;Mid $ （a,______ ,2*i-1）

Next i

End Sub

程序运行后，单击命令按钮，窗体上的输出结果是

456

34567

2345678

123456789

请填空。

正确答案：

6-i
MiD $( 字符串，起始位置 \[ ，个数 \]) 函数用于取出字符串从指定位置开始的含指定个数字符的字符串。本题 MiD $ 的作用在于依次取出字符串居中位置的 1 、 3 、 5 、 7 、 9 个字符。故取字符串起始位置为 6-i ，即依次为 5 、 4 、 3 、 2 、 1 。

第4题：

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

Private Sub Commandl_Click( )

Static X As Integer

Static Y As Integer

Cls

Y=1

Y=Y+5

X=5+X

Print X, Y

End Sub

程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为【】。

正确答案：15 6
15 6 解析：在本题过程中使用了两个Static变量，其中的变量Y每次都被重新赋值，因此不管执行多少次，Y的结果只会是6；而变量X的值则一直累计，执行3次后，x为15。

第5题：

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim a() a=Array(1，3，5，7) s=0 For i=1 To 3 S=S*10+a(i) Next i Print s End Sub 程序运行后，输出结果为( )。

A．135

B．357

C．531

D．753

正确答案：B
解析：Dima()是定义一个动态数组，Array是给一维数组赋初值的函数。For循环控制的初值从1开始，可见s(i)的取值依次是3，5、7，而不是1、3、5。执行s=s*10+a(i)语句后的最后结果为357，所以程序运行的结果是选项B。

第6题：

在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click() Dim a() a＝Array(“机床”,”车床”,”钻床”,”轴承”) Print a(2) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。

A．机床

B．车床

C．钻床

D．轴承

正确答案：C
解析：本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的a(2) 就是数组的第三个元素即“钻床”。

第7题：

在窗体上画一个命令按钮，然后编写如下代码：

Private Sub Commandl_Click()

Dim M(10) As Integer

For k=1 To 10

M(k)=12-k

Next k

x=6

Msgbox M(2+M(x))

End Sub

程序运行后，单击命令按钮，消息框显示的是______。

正确答案：4
4 解析：M(6)的值为12-6=6；则有M(2+6)=M(8)的值为12-8=4。

第8题：

在窗体上画一个名称为Conunandl的命令按钮，然后编写如下程序：

Private Sub Commandl_Click()

Dimi As Intege,j As Integer

Dima(10,10)As Integer

Fori=1 To 3

Forj=1 To 3

a(i,j)=(i-1)*3+j

Printa(i,j)；

Nextj

Nexti

End Sub

程序运行后，单击

A．

B．

C．

D．

正确答案：D

第9题：

在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command4 Click() Dim a As Integer，b As Integer a=1 b=2 Print N(a，B)End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(x＞y，x，y) End Function 程序运行后，单击命令按钮，输出结果为

A．l

B．2

C．5

D．8

正确答案：B
解析：事件过程N的作用是输出两个数中最大的，它调用了IIF函数，条件部分是(x＞y)，如果满足，那么N的值即为x的值，否则为y的值。在Sub过程中，定义了两个变量a，b，并赋给它们初值1，2，并调用Print函数，输出N(a，B)的值，因为xy，所以输出y=2。

第10题：

在窗体上画一个命令按钮，然后编写如下代码：

Private Sub Command1_Click()

Dim M (10) As Integer

For k=1 To 10

M(k)=12-k

Next k

x=6

Msgbox M(2+M(x))

End Sub

程序运行后，单击命令按钮，消息框显示的是【】。

正确答案：4
4 解析：M(6)的值为12-6=6；则有M(2+6)=M(8)的值为12-8=4。

在窗体上画一个命令按钮,然后编写如下程序: Private Sub Commandl_Click( ) Dim a AS Integ

题目

相似问题和答案

更多相关问题

相关内容