网友您好，请在下方输入框内输入要搜索的题目：

搜题

题目内容（请给出正确答案）

提问人：网友cjwblue 发布时间：2022-01-06

[单选题]

Option Base 1 Private Sub Command1_Click（) Dim a, s$ s = "x,y,z,u,v,w" a = Split（s, ",") Print a（2) End Sub 程序运行后，单击命令按钮，输出结果是（）。

A.x

B.y

C.z

D.u

参考答案

简答题官方参考答案（由简答题聘请的专业题库老师提供的解答）

查看官方参考答案

网友提供的答案

共位网友提供了参考答案，

查看全部

· 有4位网友选择 C，占比50%
· 有2位网友选择 B，占比25%
· 有1位网友选择 D，占比12.5%
· 有1位网友选择 A，占比12.5%

ABCD

提交我的答案

登录提交答案，可赢取奖励机会。登录

更多“Option Base 1 Private Sub Command1_Click（) Dim a, s$ s = "x,y,z,u,v,w" a = Split（s, ",") Print a（2) …”相关的问题

第1题

运行下列程序：

Private Sub Command1_Click()

x = "祝你成功"

y = "1234"

For i = 1 To 4

z = z + Mid(x, i, 1) + Left(y, 1)

Next i

Print z

End Sub

单击Command1命令按钮后，则在窗体上显示的结果是()。

A.祝你成功1234

B.祝1你2成3功4

C.1234祝你成功

D.祝1你1成1功1

点击查看答案

第2题

下列程序的输出结果是【】。

Private Sub Command l Click()

Dim a(1 TO 20)

Dim i

For i＝1 TO 20

a(i)＝i

Next i

For Each i In a()

a(i)＝20

Next i

Print a(2) End Sub

点击查看答案

第3题

1. 现有如下程序： Private Sub Command1_Click() Dim sum As Double, x As Double sum = 0 n = 0 For i = 1 To 5 x = n / i n = n + 1 sum = sum + x Next i Print sum End Sub 该程序通过For循环来计算一个表达式的值，这个表达式是( )。 A．1+1/2+2/3+3/4+4/5 B．1+1/2+1/3+1/4+1/5 C．1/2+2/3+3/4+4/5 D．1/2+1/3+1/4+1/5

A、A

B、B

C、C

D、D

点击查看答案

第4题

已知数组元素A(1)=4,A(2)=2,A(3)=1,A(4)=3,则A(A(1)+A(2)-A(4))的值为（）。

A、4

B、2

C、1

D、3

点击查看答案

第5题

Option Base 1 Private Sub Command1_Click() Dim a() a = Array("a", "b", "c", "d", "e", "f") Print ubound(a) End Sub 程序输出结果是（）。

A、4

B、5

C、6

D、1

点击查看答案

第6题

下列程序段的运行结果是( )。 Dim a a = Array(1, 3, 5, 7, 9, 11) For k = 0 To 2 Print a(5 - k) - a(k); Next k

A、10 7 4

B、10 6 2

C、9 5 3

D、10 6 3

点击查看答案

第7题

Private Sub Command1_Click() Dim a(),s$ a = Array(1, 2, 3, 4) For i = 3 To 0 Step -1 s = s + Trim(Str(a(i))) Next i Print s End Sub 程序运行后，单击命令按钮，输出结果是（）。

A、10

B、4321

C、4 3 2 1

D、1234

点击查看答案

第8题

执行下面程序后，输出的结果是（）。 Private Sub Form_Click() Dim M(10) For k = 1 To 10 M(k) = 11 - k Next k x = 6 Print M(2 + M(x)) End Sub

A、2

B、3

C、4

D、5

点击查看答案

第9题

下列程序段的运行结果是（）。 Private Sub Command1_Click() Dim a(3) As Long a(0) = 1: a(1) = 2: a(2) = 3: a(3) = 4 j = 1 For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub

A、4321

B、1234

C、34

D、12

点击查看答案

第10题

下列程序段的执行结果为（）。 Private Sub Command1_Click() Dim a(1 To 10) As Integer Dim n%, s& For i = 1 To 10 a(i) = i Next i n = 1 s = 1 Do While n < p> s = s * a(n) n = n + 1 Loop Print s End Sub

A、1

B、12

C、120

D、720

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

自考大专有什么途径可以报名具体报考流程有哪些成人自考报名时间2024年10月什么时候开始报考 2024年7月江苏自考报名时间及考试时间自考有必要要学位证吗申请条件是什么 2024年成人自考和函授有什么区别哪个含金量高 2024年成人自考大专用上课考试吗多久能考下来 2024自考本科考试时间及科目安排 2024年广东自考大专有哪些专业考哪些内容 2024年广东自考本科怎么选学校含金量高的推荐 2024年成人自考什么时候报名和截止考哪些内容

购买搜题卡查看答案

购买前请仔细阅读《购买须知》

请选择支付方式

微信支付

支付宝支付

点击支付即表示你同意并接受《服务协议》和《购买须知》

立即支付已付款，但不能查看答案，请点这里登录即可>>

搜题卡使用说明

1. 搜题次数扣减规则：

功能	扣减规则
功能	基础费（查看答案）	加收费（AI功能）
文字搜题、查看答案	1/每题	0/每次
语音搜题、查看答案	1/每题	2/每次
单题拍照识别、查看答案	1/每题	2/每次
整页拍照识别、查看答案	1/每题	5/每次