写出下列程序的输出结果Subtest16()X=9Fori="3"To22Step3If(X/2)>="i"ThenX="X"+3NextiFori="2"To_刷题宝

题干

写出下列程序的输出结果
Sub test16()
X = 9
For i =" 3" To 22 Step 3
If (X / 2) >=" i" Then X =" X" + 3
Next i
For i =" 2" To -22 Step 3
If (X / 3) >=" i" Then X =" X" + 3
Next i
MsgBox (X + i)
End Sub
该程序的运行结果是（）

A．39

B．15

C．17

D．13

上一题下一题 0.99难度选择题更新时间:2016-01-21 08:09:32

答案(点此获取答案解析）

同类题1

有如下通用过程和事件过程，运行程序后，单击窗体，程序的运行结果是（）
public function ss(x as integer,y as integer) as integer
if   x>y   then   ss=x-y   else ss=y-x
END FUNCTION
PRIVATE SUB FORM CLICK(   )
DIM A AS INTEGER ,B AS INTEGER
A=8: B=6
PRINT   SS(A,B)
END SUB

同类题2

在窗体上画一个命令按钮，其Name属性为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1Click
Dim a(4,4)
For i = 1 To 3
For j = 1 To 3
a(i,j)=(i-1)*3+j
Next j
Next i
PRINT A（3，1）
End Sub
程序运行后，单击命令按钮，其输出结果为.

同类题3

下列VB程序运行时，在文本框Text1中输入2，单击命令按钮Command1后，文本框Text2的内容是________。
Private Sub Command1_Click()
Dim t As Single, h1 As Single, h2 As Single
Const g = 9.8
t = Val(Text1.Text)
h1 = (g * t ^ 2) / 2
h2 = Int(h1)
Text2.Text = Str(h2)
End Sub

同类题4

有如下程序段：
s＝“”
For i＝1 To 3
For j＝7 To i＋1 Step－1
If a(j)＜a(j－1) Then
k＝a(j)：a(j)＝a(j－1)：a(j－1)＝k
End If
Next j
s＝s＋Str(a(i))
Next i
Text1.Text＝s
数组元素a(1)到a(7)的数据依次为“3，9，1，5，8，6，2”，经过该程序段“加工”后，文本框Text1中显示的内容是( )

A．1 2 3	B．9 8 6
C．3 9 1	D．8 6 2

同类题5

有如下VB程序段：
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString="provider=Microsoft.AC

A．OLEDB.12.0；data sourc="
+App.Path+"\socre.accdb"
Conn.Open
Set rs.ActiveConnection=conn
Rs. Open"Selec*from cj"
n=1
Do While Not rs.EOF
Score(n)=rs.fields("成绩")：Name(n)=rs.fields("姓名")
n＝n+1：rs.MoveNext
Loop
下列说法中不正确的是

B．定义的ADO的Connection对象实例名称是“conn”
B.连接的数据库文件名是“\socre.accdb”

C．查询的数据表名是“cj”

D．该程序段运行后，可知所查询的数据表共有n－1条记录

相关知识点