[单选题]单击一次命令按钮后,下列程序代码的执行结果为().
Private Sub Command1_Click()
Dim m As Integer,i As Integer,x(10) As Integer
For i=.To 4
X(i)=i+1
Next i
For i=.To 2
Call Prioc(x)
Next i
For i=.To 4
Print x(i);
Next i
End Sub
Private Sub Prioc(a()As Integer)
Static i As Integer
Do
A(i)=a(i)+a(i+1)
I=i+.
Loop While i<.
End Sub
A.....6
B.....5
C.....5
D.....7

更多"[单选题]单击一次命令按钮后,下列程序代码的执行结果为().Priva"的相关试题:

[单选题]题（1.0分）
单击一次命令按钮,下列程序代码的执行结果为().
Privae Sub Command1_Click()
Dim a As Integer,b As Integer,c As Integer
A=2.b=3.c=4
Print P2(c,b,a)
End Sub
Private Function P1(x As Integer,y As Integer)
P1=2*x+y+3*z
End Function
Private Function P2(x As Integer,y As Integer,z As Integer)
P2=P1(x,y)+x
End Function
A.15
B.19
C.17
D.34

查看答案

[单选题]窗体上有一个命令按钮Command1,编写如下事件过程:
Private Sub Command1_Click()
X = InputBox("x=")
Y = InputBox("y=")
Print x + y
End Sub
运行后,单击命令按钮,先后在两个输入对话框中输入123和321,窗体显示的内容是().
A.444
B.123321
C.123+321
D.出错信息

查看答案

[单选题]在窗体中添加一个命令按钮和一个文本框,并编写如下程序代码:
Private Sub Command1_Click()
For a = . To .
Y = .
For b = . To 1.
For C = . To .
X = X + .
Y = y + .
Next C
Next b
Next a
Text.Text = y
End Sub
A.61
B.60
C.36
D.6

查看答案

[单选题]在窗体中画一个命令按钮,然后编写以下事件过程:
Private Sub Command1_Click()
For X=5 To 2.5 Step -7
Next x
Print x
End Sub
程序运行后,输出的结果是().
A.2.2
B.2.5
C.2.9
D.-2

查看答案

[单选题]在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click() S=.Do s=(s+1)*(s+2) number=number+.Loop Until s>=3. Print number,s End Sub运行后,输出的结果是().
A.. 1
B.3. 30
C.. 30
D..182

查看答案

[单选题]在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:
Private Sub Command1_Click()
For I=1 To 4
For J=0 To I
Print Chr$(65+i);
Next J
Print
Next I
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是().
A.BB CCC DDDD EEEEE
B.A BB CCC DDDD
C.B CC DDD EEEE
D.AA BBB CCCC DDDDD

查看答案

[单选题]题（1.0分）
以下程序
Option Base 1
Private Sub Command1 _Click()
Dim a%(3,3)
For i=1 To 3
For j=1 To 3
If j>1 And i>1 Then
A(i,j)=a(a(i-1,j-1),a(i,j-1))+1
Else
A(i,j)=i*j
End If
Print a(I,j);"";
Next j
Print
Next i
End Sub
输出结果是
().
A.1 2 3
2 3 1
3 2 3
B.1 2 3
1 2 3
1 2 3
C.1 2 3
2 4 6
3 6 9
D.1 1 1
2 2 2
3 3 3

查看答案

[单选题]有如下程序代码:
Private Sub Form_MouseDown(Button As Integr ,Shift As Integer , X As Single,Y As Single)
FillColor=QBColor(Int(Rnd*15))
FillStyle=Int(Rnd*8)
Circle(x,y),25. End Sub
该程序的功能是().
A.鼠标拖曳时在窗体中构造一个圆
B.双击鼠标时在窗体中构造一
个圆
C.单击鼠标时在窗体中构造一
个圆
D.加载时在窗体中构造一个圆

查看答案

[单选题]有如下程序:
Private Sub Command1_Click()
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后,输出的结果是().
A.1
B.15
C.90
D.120

查看答案

[单选题]第184题（1.0分）
有如下程序.
Private Sub Command1_Click()
M$="ABC"
N$="abc"
K$=LCase$(mS)
J$=UCase$(n$)
Print Asc(k$+j$)
End Sub
程序运行后,输出的结果是().
A.abcabc
B.ABCABC
C.65
D.97

查看答案

[单选题]第200题（1.0分）
有如下程序.
Private Sub Command1_Click()
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后,输出的结果是().
A.1
B.15
C.90
D.120

查看答案

[单选题]第229题（1.0分）
有如下程序.
Private Sub Command1_Click()
A$="A WORKER IS OVER THERE"
X=Len(a$)
For i=1 To X-1
B$=Mid$(a$,i,2)
If b$="ER" Then s=s+1
Next i
Print s
End Sub
程序运行后的输出结果是().
A.1
B.2
C.3
D.4

查看答案

[单选题]第239题（1.0分）
有如下程序.
Private Sub Command1_Click()
S=0
Do s=(s+1)*(s+2)N=N+l
Loop Until s>=10
Print N;S
End Sub
运行后的输出结果是().
A.0 1
B.30 30
C.4 30
D.2 12

查看答案

[单选题]第281题（1.0分）
设有如下程序.
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
End Sub
该程序通过For循环计算一个表达式的值,这个表达式是().
A.1+1/2+2/3+3/4+4/5
B.1+1/2+2/3+3/4
C.1/2+2/3+3/4+4/5
D.1+1/2+1/3+1/4+1/5

查看答案

我来回答:

提交