在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1，2，3，4) j=1 For i=4 To 1 Step -1 s = s + a(i)* j j = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出的结果为A．4321B．12C．34D．1234

题目

在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1，2，3，4) j=1 For i=4 To 1 Step -1 s = s + a(i)* j j = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出的结果为

A．4321

B．12

C．34

D．1234

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

相似问题和答案

第1题：

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

A．VVV

B．Vis

C．sic

D．11

正确答案：A
解析：函数string(n，字符串)的功能是返回由n个指定“字符串”中第一个字符组成的字符串。本题中的字符串“VisualBasic”的第一个字符为“V”，所以返回3个“V”，即String函数返回的字符为“VVV”。

第2题：

（30）在窗体上画一个名为 Command1 的命令按钮，然后编写如下代码：

Option Base 1

Private Sub Command1_Click( )

Dim a

a=Array(1, 2, 3, 4)

j=1

For i=4 To 1 Step -1

s=s+a(i)*j

j=j*10

Next i

Print s

End Sub

运行上面的程序，其输出结果是（）。

A）1234

B）12

C）34

D）4321

正确答案：A

（30）【答案】A)
【解析】s=4×1+3×10+2×100+1×1000=1234.

第3题：

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

Option Base 1

Private Sub Command1_Click（）

Dim a

a= Array（1,2,3,4,5）

For i=1 To UBound（a）

a（i）= a（i）+i-1

Print a（3）

End Sub

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

A．4

B．5

C．6

D．7

正确答案：B

第4题：

在窗体上画一个命令按钮，名称为Command1，然后编写如下代码： Option Base() Private Sub Command1 Click() Dim A(4)As Integer,B(4)As Integer For k=0 To 2 A(k+1)＝InputBox(“请输入一个整数”) B(3-k)＝A(k+1) Next k Print B(k) End sub 程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为______。

A．0

B．2

C．3

D．4

正确答案：B
解析：程序共有一层循环，当循环执行第一次时，B(3-k)＝A(k+1)，即B(3)＝A(1)＝2；当循环执行第二次时， B(2)＝A(2)＝4；当循环执行第三次时，B(1)＝A(3)＝6。此时结束循环，执行Print　B(k)，即Print　B(3)，故输出结果为2。

第5题：

（ 23 ）在窗体上画一个命令按钮，其名称为 command1, 然后编写如下代码：

Option Base 1

Private Sub Command1_Click()

Dim a

a = Array(1, 2, 3, 4)

j = 1

For i = 4 To 1 Step -1

s = s + a(i) * j

j = j * 10

Next i

Print s

End Sub

程序运行后，单击命令按钮后，其输出结果是

A ） 4321

B ） 1234

C ） 34

D ） 12

正确答案：B

第6题：

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

正确答案：

第7题：

（10）在窗体上画一个命令按钮，其名称为 Command1，然后编写如下代码：

Option Base 1

Private Sub Command1_Click( )

Dim Arr

Arr=Array(43, 68, -25, 65, -78, 12, -79, 43, -94, 72)

pos=0

neg=0

For k=1 To 10

If Arr(k)>0 Then

【10】

Else

【11】

End If

Next k

Print pos, neg

End Sub

以上程序的功能是，计算并输出数组 Arr 中 10 个数的正数之和 pos 与负数之和 neg，请填空。

正确答案：

10）【答案】10.pos=pos+Arr（k）
11.Neg=negA+Arr(k)
【解析】根据题意，如果取出来的正数，则加到pos上，如果是负数，则加到neg上。

第8题：

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

A．123.45

B．12345.00

C．12345

D．00123.45

正确答案：B
解析：在使用Format函数使数值按“格式字符串”指定的格式输出时，符号“#”和“0”都是用于数字的输出，其个数决定了显示区段的长度。如果要显示的数值的位数小于格式字符串指定的区段长度，则该数值靠区段的左端显示，但这两个功能的区别在于，“#”显示的多余的位不补0，“0”显示的多余的位以0补齐。

第9题：

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

Option Base 1

Private Sub Command1_Click( )

Dim s As Integer

Dim aa(3, 2) As Integer

For i = 1 To 3

For j = 1 To 2

aa(i, j) = i + j

Next j

Next i

s = aa(1, 2) + aa(2, 1)

Print s

End Sub

程序运行后，单击命令按钮，窗体上显示的值是( )

A. 4

B. 5

C.6

D. 7

正确答案：D

第10题：

在窗体上画一个名称为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。

在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:Option Base 1Private Sub Command1

题目

相似问题和答案

更多相关问题

相关内容