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

[主观题]

3有如下程序，输出结果为（)。Private Sub Form_Activate（)Dimaa=Array（1,2,3,4,5)Fori=LBound（a)To

3有如下程序，输出结果为()。 Private Sub Form_Activate() Dima a=Array(1,2,3,4,5) Fori=LBound(a)To UBound(A) a(i)=i*a(i) Nexti Printi，LBound(a)，UBound(a)，a(i) End Sub

A．4 0 4 25

B．5 0 4 25

C．不确定

D．程序出错

提问人：网友lilinmao 发布时间：2022-01-07

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“3有如下程序，输出结果为（)。Private Sub For…”相关的问题

第1题

以下程序的输出结果是（）。 Dim a%( ) = { 1, 2, 3, 4, 5, 6, 7 }, i% For i = 0 To a.GetUpperBound(0) a(i) = a(i) * a(i) Next MsgBox( a(i) )

A、49

B、0

C、不确定

D、程序出错

点击查看答案

第2题

下列程序段的运行结果是( )。 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

点击查看答案

第3题

设有如下程序 Option Base 1 Dim a As Variant Private Sub Cmd1_Click() Dim n As Integer a = Array(12, 9, 13, 5, 8, 16, 7, 3, 18, 3) Call geta(n) Print n End Sub Private Sub geta(j As Integer) Dim n As Integer, c() As Integer n = UBound(a) j = 0 For i = 1 To n If a(i) / 2 = a(i) \ 2 Then j = j + 1 ReDim Preserve c(j) c(j) = a(i) End If Next End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是。

A、3

B、4

C、5

D、6

点击查看答案

第4题

请阅读程序： Option Base 1 Private Sub Form_Click() Dim Arr(4, 4) As Integer For i = 1 To 4 For j = 1 To 4 Arr(i, j) = (i - 1) * 2 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print Arr(j, i); Next j Print Next i End Sub 程序运行后，单击窗体，则输出结果是_______________。

A、5 7 6 8

B、6 8 7 9

C、7 9 8 10

D、8 10 8 11

点击查看答案

第5题

执行如下语句： a=InputBox("Today"，"Tomorrow"，"Yesterday"，"Daybeforeyesterday",5) 将显示一个输入对话框，在对话框的输入区中显示的信息是()。

A．Today

B．Tomorrow

C．Yesterday

D．Day before yesterday

点击查看答案

第6题

以下Case语句中错误的是()。

A．Case 0 To 10

B．Case Is＞10

C．Casels＞10 And Is＜50

D．Case3，5，Is＞10

点击查看答案

第7题

下列定义语句中不能定义为字符型数据的是()。

A．Defstr c

B．c

C．StadC c As String

D．Dim c As Single

点击查看答案

第8题

在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() x=Input Box("Input") Select Case x Case 1,3 Print"分支1" Case Is＞4 Print"分支2" Case Else Print"Else分支" End Select End Sub 程序运行后，如果在输入对话

A．分支1

B．分支2

C．Else分支

D．程序出错

点击查看答案

第9题

有如下程序： Private Sub Form_Click() Dimi As Integer,sumASInteger sum=0 For i=2To 10 If i Mod2＜＞0 And i Mod 3=0 Then sum=sum+i End If Nexti Print sum EndSub 程序运行后，单击窗体，输出结果为()。

A．12

B．30

C．24

D．18

点击查看答案

第10题

Int(100*Rnd(1))产生的随机整数的闭区间是()。

A．[0,99]

B．[1,100]

C．[0,100]

D．[1,99]

点击查看答案