网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
下列程序段能实现在Form窗体上按指定格式分多行输出数据，问每行能输出（）个数据。 Dim i% For i = 1 To 30 Print Tab（（（i - 1) Mod 5) * 6); i; Next i
A．6
B．5
C．4
D．3
参考答案和解析
5
更多 “下列程序段能实现在Form窗体上按指定格式分多行输出数据，问每行能输出（）个数据。 Dim i% For i = 1 To 30 Print Tab（（（i - 1) Mod 5) * 6); i; Next iA．6B．5C．4D．3” 相关考题
考题
阅读程序：Function fac(ByVal n As Integer)As IntegerDim temp As Integertemp=1For i％=1 To ntemp=temp*i％Next i％fac=tempEnd FunctionPrivate Sub Form_Click()Dim nsum As Integernsum=1For i％=2 To 4nsum=nsum+fac(i％)Next i％print nsumEnd Sub程序运行后，单击窗体，输出结果是A．35B．31C．33D．37
考题
下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Const a=6 Dim x (a) As Integer For I=1 to a x(i)=1^2 Next I Print x(i) End SubA．36B．25C．1D．出错信息
考题
有如下程序： 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 Print Sum End Sub 程序运行后，单击窗体，输出结果为A．12B．30C．24D．18
考题
有F面的程序段．其功能是按图1所示的规律输出数据Dim a(3，5)As IntegerFor i=1 To 3For i=1 To 5a(i，j)=i+jPrint a(i，j)；NextPrintNext若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是A．For i=i To 5 For j=1 To 3 Print a(j，i)； Next Print NextB．For i=1 To 3 For i=1 To 5 Print a(j，i)； Next Print NextC．For j=1 To 5 FOr i=1 TO 3 Print a(j，1)； Next Print NextD．For i=1 To 5 For j=1 To 3 Print a(i，j)； Next Print Print Next Next
考题
下列程序运行后,单击窗体,输出结果为( )。 Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 <> 0 Andi Mod 3 = 0 Then sum = sum ＋ i End If Next i Print sum End Sub
A. 12B. 18C. 24D. 30
考题
在窗体上画—个命令按钮(其名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5，5)As Integer Dim i As Integer,j 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 程序运行后，单击命令按钮，在窗体上的输出结果是：_______。A．1 4 7 2 5 8 3 6 9B．1 2 3 4 5 6 7 8 9C．1 2 3 4 5 6 7 8 9D．没有输出
考题
设有如下程序： Private Sub Form. Click（ ） Dim s As Long，f As Long Dim n As Integer，i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub 程序运行后，单击窗体，输出结果是（ ）。A.32B.33C.34D.35
考题
在窗体上画一个名称为Commmld1的命令按钮，编写如下事件过程Private Sub Command1 Click()Dim a As Stringa=______For i = 1 To 5Print Space(6-i)；Mid$(a， 6-i， 2*i-1)Next iEnd Sub程序运行后，单击命令按钮，要求窗体上显示的输出结果为5456345672345678123456789请填空。
考题
设有如下程序： Private Sub Form. Click（ ） Dim i As Integer，x As String，y As String x="ABCDEFG" For i=4 To 1Step-1 y=Mid(X，i，i)+y Next i Print y End Sub 程序运行后，单击窗体，输出结果为（ ）。A.ABCCDEDEFGB.AABBCDEFGC.ABCDEFGD.AABBCCDDEEFFGG
考题
当Form1_Click事件发生时，窗体上显示的第三行是( )。 Option Base 1 Private Sub Form_Click() Dim i As Integer，j As Integer Dim k As Integer，a(5，5)As Integer For i=1 To 5 k=1 For j=1 To 5 If i＜=j Then a(i，j)=k k=k+1 Else a(i，j)=1 End If Next j Next i For i=1 To 5 For j=1 To 5 Print a(i，j)； Next j Print Next i End SubA．1 2 3 4 5B．1 1 2 3 4C．1 1 1 2 3D．1 1 1 1 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 Print Sum End Sub 程序运行后，单击窗体，输出结果为A．12B．30C．24D．18
考题
有下面的程序段，其功能是按图1所示的规律输出数据： Dim a(3，5)As Integer For i=1 To 3 For j=1 To 5 a(i，j)=i+j Print a(i，j)； Next Print Next若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是（ ）。A.For i=1 To 5 For j=1 To 3 Print a(j，i)； Next Print NextB.For i=1 T0 3 For j=1 To 5 Print a(j，i)； Next Print NextC.For j=l To 5 For i=1 To 3 Print a(j，i)； Next Print NextD.For i=1 To 5 For=1 To 3 Print a(i，j)： Next Print Next
考题
下列程序段的输出结果为( )。 Dim M(5,5), S(5) For i = 1 To 5 S(i) = 0 For j = 1 To 5 M(i, j) = i + j S(i) = S(i) + M(i, j) Next j Next i For Each x In S Print x; Next xA．2023 24 3540B．2025 30 3540C．2023 25 35 40D．2025 354045
考题
有如下程序:: 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 程序运行后，单击窗体，输出结果为______。A． 12B．30C．24D．18
考题
有如下程序： 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 程序运行后，单击窗体，输出结果为______。A．12B．30C．24D．18
考题
（ 23 ）有下面的程序段，其功能是按图 1 所示的规律输出数据Dim a ( 3 , 5 ) As IntegerFor i=1 To 3For j=1 To 5A ( i,j ) =i+jPrint a ( i,j ) ;NextPrintNext若要按图 2 所示的规律继续输出数据，则接在上述程序段后面的程序段应该是A ）For i=1 To 5For j=1 To 3Print a （ j,i ） ;NextPrintNextB ）For i=1 To 3For j=1 To 5Print a （ j,i ） ;NextPrintNextC ）For j=1 To 5For i=1 To 3Print a （ j,i ） ;NextPrintNextD ）For i=1 To 5For j=1 To 3Print a （ i,j ） ;NextPrintNext
考题
有下面的程序段，其功能是按图1所示的规律输出数据：Dim a(3，5)As Integer For i=1 To 3For j=1 To 5a(i，j)=i+jPrint a(i，j)；NextPrintNext若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是（ ）。A.For i=1 To 5For j=1 To 3Print a(j，i)；NextPrintNextB.For i=1 T0 3For j=1 To 5Print a(j，i)；NextPrint NextC.For j=l To 5For i=1 To 3Print a(j，i)；NextPrintNextD.For i=1 To 5For=1 To 3Print a(i，j)：NextPrintNext
考题
阅读如下程序： Option Base 1 Private Sub Form Click() Dim Arr(4，4)As Integer For i=1 To 4 For j=1 To 4 Arr(i，j)=(i-1)*2+j Next j Next i For i=3 To 4 For j=3 To 4 Print Arr(j，i)； Next j Print Next i End Sub 程序运行后，单击窗体，输出的结果为A．5 7 6 8B．6 8 7 9C．7 9 8 10D．8 10 8 11
考题
阅读程序： Function fac(ByVal As Integer)As Integer Dim temp As Integer temp=1 For i％=1 To n temp=temp*i％ Next i％ fac=temp End Function Private Sub Form. Click（ ） Dim nsum As Integer nsum=1 For i％=2 T0 4 nsum=nsum+fac(i％) Next i％ Print nsum End Sub 程序运行后，单击窗体，输出结果是（ ）。A.35B.31C.33D.37
考题
当Form_Click;事件发生时,窗体上显示的第三行是 ______。 Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Dim x(5, 5) As Integer For i = 1 To 5 k = 1 For j = 1 To 5 If i ＜= j Then x(i, j) = k + 1 k=k+2 Else x(i, j) = k + 1 End If Next j Next i For i = 1 To 5 For j = 1 To 5 Print x(i, j) Next j Print Next i End SubA．22135B．21357C．22213D．13579
考题
设有如下程序： Option Base 1 Private Sub Form. Click（ ） Dim a(5)As String，i As Integer For i=1 To 5 a(i)=Chr(Asc("A")+i) Call f(a，i) Next i End Sub Sub f(ta（ ）As String，n As．Integer) Dim i As Integer For i=1 To n Print ta(i)； Next i Print End Sub 对上述程序．以下叙述中正确的是（ ）。A.程序有错，因为在过程f的定义中数组参数格式不正确B.程序可正常运行，输出内容的第一行是一个字母“A”C.程序可正常运行，输出内容的第一行是一个字母“B”D.程序可正常运行，输出内容的第一行是数字65
考题
程序代码如下，当单击窗体上的Command1控件时，在窗体上输出的结果是( )。 Private Sub Command1_Click() Dim aa(3，3)As Integer Dim i As Integer,j As Integer Dim s As Integer For i=0 To 3 For j=0 To 3 aa(i，j)=i*4+j+1 Next j Next i For i=0 To 3 s=s+aa(i，1) Next i Print s End SubA．32B．28C．30D．36
考题
编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是A．6B．12C．24D．47
考题
阅读下列程序： Private Sub Form Click() Dim i As Integer， sum As Integer For i = 2 To 10 If i Mod 2 ＜＞ 0 Then Print i； Else sum = sum + i End If Next i Print sum End Sub 程序运行后，单击窗体，在窗体上的输出结果是A．3 5 7 9 30B．1 3 5 7 9C．2 4 6 8 20D．11 15 17 19 20
考题
设有如下程序： Private Sub Form. Click（ ） Dim ary(1 To 5)As Integer Dim i As Integer Dim sum As Integer For i=1 To 5 ary(i)=i+l sum=sum+ary(i) Next i Print sum End Sub 程序运行后，单击窗体，则在窗体上显示的是（ ）。A.15B.16C.20D.25
考题
在窗体上画一个命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1 Click() Dim Arr1(12)As Integer， Arr2(3)As Integer Dim Sum As Integer Sum = 2 For i=1 To 12 Arrl(i)= i Next i For i=1 To 3 Arr2(i)= Arrl(i*i) Next i For i = 1 To 3 Sum = Sum + Arr2(i) Next i Print Sum End Sub 程序运行后，单击命令按钮，在窗体上的输出结果为A．16B．24C．32D．36
考题
当发生Form_Click事件时，窗体上显示的第三行是( )。 Option Base 1 Private Sub Form_Click() Dim i As Integer，j As Integer，k As Integer Dim a(5，5)As Integer For i=1 To 5 k=1 For i=1 To 5 If(i＜=j)Then a(i,j)=k k=k+2 Else a(i,j)=k+1 End If Next j Next i For i=1 To 5 For j=1 To 5 Print a(i,j)； Next j Print Next i End SubA．1 3 5 7 9B．2 1 3 5 7C．2 2 2 1 3D．2 2 1 3 5
考题
阅读程序：Function fac(ByVal As Integer)As IntegerDim temp As Integertemp=1For i％=1 To ntemp=temp*i％Next i％fac=tempEnd FunctionPrivate Sub Form. Click（ ）Dim nsum As Integernsum=1For i％=2 T0 4nsum=nsum+fac(i％)Next i％Print nsumEnd Sub程序运行后，单击窗体，输出结果是（ ）。A.35B.31C.33D.37
热门标签
最新试卷