未知题型
下列程序运行时输出的结果是( )。 Option Base 1 Const a=10 Private Sub Form_Click() Dim x(A)As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub
A.1 3 5 7 9 10
B.-1-3-5-7-9
C.-1 2-3 4-5 6-7 8-9 10
D.1-2 3-4 5-6 7-8 9-10
- A.1
B.-1-3-5-7-9
C.-1
C.1-2
【参考答案】
C
解析：本题中两个For循环的作用分别为：为x数组元素赋值，在窗体上依次输出x数组元素的值。 其中，为x数组元......
(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
点击查看答案
相关考题
-
多项选择题
工作中对操作者的安全防护包括身体的 A、面目 B、身体 C、四肢和手 D、听力 -
未知题型
在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请选择空白处合适的语句( )。 Private Sub Optionl_Click(Index As Integer) Select Case Case 0 a='宋体' Case 1 a='黑体' Case 2 a='楷体 GB2312' End Select Text =a End SubA.Option TextB.Index TextC.Index FontD.Option Font
A.Option
B.Index
C.Index
D.Option -
未知题型
有如下函数过程： Function funl(ByVal x As Integer,ByVal y As Integer)As Integer Do While y＜＞0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100 b=25 x=funl(a，B)Print x End SubD.100
A.0
B.25
C.50
