下列程序段：Dim x If x Then Print x Else Print x+1运行后，显示的结果是（）。A、1B、0C、-1D、出错
下列程序段：Dim x If x Then Print x Else Print x+1运行后，显示的结果是（）。
- A、1
- B、0
- C、-1
- D、出错
相关考题：
在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序： Private Sub Command1 Click() Dim a(10) As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next x=2 Print a(f(x)＋x) End Sub Function f(x As Integer) x=x＋3 f=x End Function 程序运行后，单击命令按钮，输出结果为______。A．12B．15C．17D．18
执行以下程序段 Dim i As Integer,X As Integer x=0 For i=20 To 1 Step -2 x=x+i\5 Next Print x 后,x的值为______。A． 16B．17C．18D．19
下列程序段的执行结果为 ______。 Dim m(3，3)As Integer Dim i As Integer Dim j As Integer Dim x As Integer For i=1 To 3 m(i，i)=i Next For i=0 To 3 For j=0 To 3 x=x+m(i，j) Next Next Print xA．3B．4C．5D．6
下列程序的运行结果为______。Private Sub Command1_ Click() Dim s As Long Dim x As Integer s = 0 for x = 99 To 1 step - 2 s=s+ x Next x Print sEnd SubA．100B．500C．2500D．5000
已知x代表某个百分制成绩，下列程序段用于显示对应的五级制成绩，正确的是( )A．If x＞=60 Then Print"及格" Else If x＞=70 Then Print"中" Else If x＞=80 Then Print"良" Else If x＞=90 Then Print"优" Else Print"不及格" End IfB．If x＜90 Then Print"良" Else If x＜80 Then Print"中" Else If x＜70 Then Print"及格" Else If x＜60 Then Print"不及格" Else Print"优" End IfC．If x＞=90 then Print"优" Else If x＞=80 Then Print"良" Else If x＞=70 Then Print"中" Else If x＞=60 Then Print"及格" Else Print"不及格" End If End SelectD．Select Case x Case x＞=90 Print"优" Case x＞=80 Print"良" Case x＞=70 Print"中" Case x＞=60 Print"及格" Case Else Print"不及格"
下列程序段的执行结果为 I=1 x=5 Do I= I + 1 x= x + 2 Loop Until I＞=7 Print " I= "；I Print "x="；xA．I=4 x=5B．I=7 x=15C．I=6 x=8D．I=7 x=17
下列程序段的执行结果为 X=2 Y=5 If X * Y 0A.TrueB. 下列程序段的执行结果为 X=2 Y=5 If X * Y ＜1 Then Y=Y - 1 Else Y=-1 Print Y-X＞0A．TrueB．FalseC．-1D．1
下列程序段( )能够正确实现条件：如果X＜Y则A=15，否则A=-15。A．If X＜Y Then A=15 A=-15 Prin AB．If X＜Y Then A=15:Print A A=-15:Print AC．If X＜Y Then A=1.5:Print A Else A=-15:Print A End IfD．If X＜Y Then A=15 Else A=-15 Print A End If
设有如下程序段： Dim a(10) … For Each X In a Print X； Next x 在上面的程序段中，变量X必须是（ ）。A.整型变量B.变体型变量C.动态数组D.静态数组
下列程序执行后，变量S的值为______ 。 Dim s As Long，X As Integer s=0 X=1 Do While x＜10 s= s+ x x=x+2 Loop Print sA． 10B．25C．50D．100
下列程序段的执行结果为______ 。 Dim A(4) N= 3 A(1) =1 For K=0 To N-1 For L=1 To K+1 X=K+2 -L A(X)=A(X)+A(X-1) If K＜N-1 Then Exit For Print A(X)； Next L Next KA． 1 2 1B．1 2 3C．2 4 6D．1 3 1
阅读下面的程序； Function Func(x As Integer，y As Integer)As Integer Dim n As Integer Do While n ＜ = 4 x=x + y n = n + 1 Loop Func=x End Function Private Sub Command1_Click() Dim x As Integet, y As Integer Dim n As Integer，z As Integer x=1 y=1 For n = 1 To 6 z=Func(x，y) Next n Print z End Sub 程序运行后，单击命令按钮，输出的结果为．A．16B．21C．26D．31
下列程序段的执行结果为______。 Dim m(3,3)As Integer Dim i As Integer Dim j As Integer Dim x As Integer For i=1 To 3 m(i,i)=i Next For i=0 T0 3 For j=0 To 3 x=x+m(i, j) Next Next Print xA．3B．4C．5D．6
下列程序段的执行结果为 ______。 Dim m(3，3)As Integer Dim i As Integer Dim j As Integer Dim K As Integer For i=1 To 3 m(i,i)=i Next For i=0 To 3 For j=0 To 3 x=x+m(i，j) Next Next Print xA．3B．4C．5D．6
下列程序段运行后输出的结果是（）。 Private Sub Form_Click Dim X#, Y# X = 5: Y = 6 Print X + Y = 11 End SubA、X+Y=11B、5+6=11C、11D、True
单选题下列程序段运行后输出的结果是（）。 Private Sub Form_Click Dim X#, Y# X = 5: Y = 6 Print X + Y = 11 End SubAX+Y=11B5+6=11C11DTrue