以下程序段的执行结果是 ______。 Dim a As Integer，b As Integer For a=4 To 1 Step-1 b=b+a Next a Print b， a -题库考试答案搜索网

以下程序段的执行结果是 ______。 Dim a As Integer，b As Integer For a=4 To 1 Step-1 b=b+a Next a Print b， a

单选题

2023-03-05 15:26

A、100
B、9 1
C、10 1
D、90

查看答案

正确答案

A

试题解析

解析：For循环的结束条件是循环变量的值在变化方向上超过终值，本题的循环变量a的初值为4，终值为1，步长为-1，所以变化方向是从大到小，在a的值为4，3，2，1时分别执行一次循环，循环中把循环变量a的值分别加到变量b中。四次循环完成后，循环变量的值变为0，循环结束，b值为4+3+2+1=10。

标签：

感兴趣题目

在窗体上画一个名称为Connand1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer, j As Integer Dim a(10, 10) As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = (i - 1) * 3 + j Print a(i, j); Next j Print Next i End Sub程序运行后，单击命令按钮，窗体上显示的是______。

有如下函数过程： Function HFC(ByVal x AS Integer，ByVal y As Integer)As Integer Do While y ＜＞ 0 sic=x/y X=y y=sic Loop HFC=x End Function 以下是该函数的调用过程，该程序的运行结果是 Private Sub Command1 _ Click( ) Dim a AS Integer Dim b As Integer a=12 b=2 x=HFC(a，B)Print x End Sub

已知有如下数组定义
Dim a(-3 To 6, 5, 3 To 10) As Integer
则执行语句Print LBound(a, 2); UBound(a, 2),输出的值为______。

有变量定义语句Dim max, min As Integer,可以知道max的类型是_______。

以下语句执行时，从键盘上输入Zhang，执行结果是______。 Dim a As String a=InputBox("Input"，""，"Name") Print a

在窗体上画一个命令按钮，然后编写如下程序：Sub S1(ByVal x As Integer, By Val y As Integer) Dim t As Integer t=x x=y y=tEnd SubPrivate Sub Command1_ Click() Dim a As Integer, b As Integer a=10 b=30 S1 a，b Print "a="；a="b="；bEnd Sub 程序运行后，单击命令按钮，输出结果是______。

当Form_Click事件发生时，程序输出的结果是 ______。 Private Sub Form. Click() Dim a As Integer，b As Integer，c As Integer a=1: b=1 Print a; b Do c=a+b Print c a=b:b=c Loop Until c＞=5 End Sub

阅读程序： Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i As Integer,j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next j Next i ReDim Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Next j Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输入结果为______。

有以下程序： Option Base 1 Dim arr()As Integer Private Sub Form. Click() Dim i As Integer,j As Integer ReDim arr(3，2) For i＝1 To 3 For j＝1 To 2 arr(i,j)＝i*2+j Next j Next i ReDim Preserve arr(3,4) For j＝3 To 4 arr(3,j)＝j+9 Next j Print arr(3，2)；arr(3，4) End Sub 程序运行后，单击窗体，输出结果为______。

以下程序段的执行结果是 ______。 Dim a As Integer，b As Integer For a=4 To 1 Step-1 b=b+a Next a Print b， a

单击一次命令按钮之后，窗体中的输出结果为______。 Private Sub Command1_ Click() Dim a As Integer, b As Integer For i = 1 To 6 a=i*i+i Next i Call writein(a,B)Print a, b End Sub Sub writein(a, ByValB)b = 1 For i = 1 To 6 a=b* 4 b = b + 1 Next i End Sub

设有如下声明； Dim X As Integer 如果Sgn(X)的值为-1，则X的值是 ______。

相关题目: 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8 a = 1 Do s = s + a a = a - 1 Loop While a <= 0 Print s; a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是_____; 下面程序段执行后,输出的结果是______。Dim pi As Integerpi = 314159Print "pi"; 已知有如下数组定义Dim a(-3 To 6, 5, 3 To 10) As Integer则执行语句Print LBound(a, 2); UBound(a, 2),输出的值为______。; 有如下程序： Private Sub Form_Click() Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。; 有如下一个Sub过程： Sub mlt (ParamArray numbers()) n=1 For Each x In numbers n=n * x Next x Print n End Sub在一个事件过程中如下调用该Sub过程： Private Sub Coinmand1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a，b，c，d End Sub 则运行该程序，结果为______。; 针对下面程序段，边界值问题可以定位在___(62)___。1：Rem Create a 10 element integer array2：Rem lnitialize each element to -13：Dim data(10) As Integer4：Dim i As Integer5：For i=1 TO 106：data(i)=-17：Next i8：End(62); 单击一次命令按钮之后，下更程序代码的执行结果为______ 。 Public Sub Proc(a() As Integer) Static i As Integer Do a(i) = a(i) + a(i + 1) i=i+1 Loop While i ＜ 2 End Sub Private Sub Command1_Cliek() Dim m As Integer Dim i As Integer Dim x(10) As Integer For i = 0 To 4 x(i) = i + 1 Next i For i = 1 To 2 Call Proc (x) Next i For i = 0 To 4 Print x(i); Next i End Sub; 下面程序：________Option Base 1Private Sub Command1_Click() Dim a(10)，p(3)As Integer Dim i,k As Integer k=5 For i=1 To 10 a(i)=i Next For i=1 To 3 p(i)=a(i*i) Next For i=1 To 3 k=k+p(i)*2 Next Print kEnd Sub运行后的输出结果为________。; 有如下程序，该程序的执行结果为______。 Dim k As Integer n=5 m=1 k=1 Do While k ＜= n m=m*2 k=k+1 Loop Print m; 已知有下面过程： Private Sub proc1(a As Integer,b As String,Optional x As Boolean) ...... End Sub 正确调用此过程的语句是______。; 以上程序段运行的结果是：______. Dim a(-1 To 5) As Boolean Dim flag As Boolean flag = False Dim i As Integer Dim j As Integer Do Until flag = True For i = -1 To 5 j=j+1 if a(i)= False Then a(i)= True Exit For End If If i = 5 Then flag = True End If Next Loop Print j; 以下程序段运行的结果是______。 Dim a(-1 To 5)As Boolean Dim flag As Boolean flag=False Dim i As Integer Dim j As Integer Do Until flag=True For i=-1 To 5 j=j+l If a(i)=False Then a(i)=True Exit For End If If i=5 Then flag=True End If Next Loop Print j; 以下程序段运行的结果是 ______。 Dim a(-1 To 5)As Boolean Dim flag As Boolean flag=False Dim i As Integer Dim j As Integer Do Until flag=True For i=-1 To 5 j=j+1 If a(i)=False Then a(i)=True Exit For End If If i=5 Then flag=True End If Next Loop Print j; 有过程如下：Sub fact (m As Integer, total As Long) Dim i As Integer total = 1 for i = 1 To m total = total*i Next iEnd Sub调用它的事件过程如下：Private Sub Command1_ Click () Dim tot As Long Dim a As Integer a = Val InputBox (“请输入数据”)) Call fact (a, tot) Print totEnd Sub则输入数据5，运行结果为 ______。; 设有如下的用户定义类型： Type Student number As String name As string age As Integer End Type 则以下正确引用该类型成员的代码是______。; 设有如下的用户定义类型： Type Student number As String name As string age As Integer End Type 则以下正确引用该类型成员的代码是______。; 用下面的语句定义的数组元素的个数是 ______。 Dim Arrl(-2 To 6)As Integer; 语句Dim a(-3 To 4, 3 To 6)As Integer定义的数组的元素个数是______。; 用下面语句定义的数组元素个数是______。 Dim Arr2(-2 To 6, i To 5) As Integer; 用下面的语句定义数组元素的个数为 ______。 Option Base 1 Dim Arr6(-2 to 6， -1 to 5)As Integer

广告位招租WX:84302438

题库考试答案搜索网

免费的网站请分享给朋友吧