网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
下面程序运行后的输出结果是 Private Sub Command1_Click() For j=1 To 10 If j Mod 3＜＞0 Then a=a+j\3 Next Print a End Sub
A．20
B．10
C．3
D．9
参考答案
更多 “ 下面程序运行后的输出结果是 Private Sub Command1_Click() For j=1 To 10 If j Mod 3＜＞0 Then a=a+j\3 Next Print a End SubA．20B．10C．3D．9 ” 相关考题
考题
设有命令按钮Command1的单击事件过程，代码如下：Private Sub Command1_Click（）Dim a（3，3）As IntegerFor i=1 To 3For j=1 To 3a（i，j）=i*j+iNext jNext iSum=0For i=1 To 3Sum=Sum+a（i，4-i）Next iPrint SumEnd Sub运行程序，单击命令按钮，输出结果是（ ）。A．20B．7C．16D．17
考题
在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）a=0For i=1 To 2For j=1 To 4If j Mod 20 Thena=a-1End Ifa=a+1Next jNext iPrint aEnd Sub程序运行后，单击命令按钮，输出结果是（ ）。A．0B．2C．3D．4
考题
（ 22 ）命令按钮 Command1 的单击事件过程的代码如下：Private Sub Command1_Click( )Dim a(3 , 3)As IntegerFor i=1 To 3For j=1 To 3a(i , j)=i*j+iNext jNext iSum=0For i=1 To 3Sum=Sum+a(i , 4-i)Next iPrint SumEnd Sub运行程序，单击命令按钮，输出结果是（ ）。A ） 20B ） 7C ） 16D ） 17
考题
（ 23 ）在窗体上画 1 个名称为 Command1 的命令按钮，然后编写下列事件过程：Private Sub Command1_Click( )a=0For i=1 To 2For j=1 To 4If j Mod 20 Thena=a-1End Ifa=a+1Next jNext iPrint aEnd Sub程序运行后，单击命令按钮，输出结果是（ ）。A ） 0B ） 2C ） 3D ） 4
考题
有如下程序：Private Sub Form_Click()Dim i As Integer，Sum As IntegerSum=0For i=2 To 10If i Mod 2＜＞0 And i Mod 3=0 ThenSum=Sum+iEndIfNextPrint SumEnd Sub程序运行后，单击窗体，输出结果为A．12B．30C．24D．18
考题
在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 2＜＞0 Then a=a-1 End If a=a＋1 Next j Next i Print a EndSub 程序运行后，单击命令按钮，输出结果是______。A．0B．2C．3D．4
考题
阅读程序：Private Sub Command1_Click()A=0For j=1 to 15a=a+j mod 3Next jPrint aEnd Sub程序运行后，单击窗体，输出结果是A ）105B)1C)120D)15
考题
有如下程序：Private Sub Form_Click（）Dim i As Integer, sum As Integersum = 0For i = 2 To 10If i Mod 2 0 And i Mod 3 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub程序运行后，单击窗体，输出结果为（ ）。A．12B．30C．24D．18
考题
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a=0For i=1 To 3For j=1 To 4If j Mod 2＜＞0 Thena=a+1End Ifa=a+1Next jNext iPrint aEnd Sub程序执行后，单击命令按钮，输出结果是【 】。
考题
阅读程序：Private Sub Form. Click（ ）a=0For j=1 To 15a=a+j Mod 3Next jPrint aEnd Sub程序运行后，单击窗体，输出结果是（ ）。A.105B.1C.120D.15
考题
在窗体上添加一个命令按钮(其Name属性为Command1),然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a s = 0 a = Array(4, 3, 2, 1) j = 1 For i = 4 To 1 Step -1 s = s + a(i)* j j = j * 10 Next i Print s End Sub 运行上面的程序、单击命令按钮，其输出结果是A．4321B．1234C．34D．12
考题
阅读下列程序： Private Sub Command1_Click( ) Dim i As Integer，k As Integer k=2 For i=1 To 3 Print H(k)； Next i End Sub Function H(j As Integer) a=0 Static b a=a+1 b=b+1 H=a*b+j End Function 程序运行后，单击命令按钮输出结果是A．234B．345C．567D．356
考题
阅读下面的程序： Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，窗体上输出的结果是A．3B．9C．14D．21
考题
阅读程序：Private Sub Form_ Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是______。A．105B．1C．120D．15
考题
阅读下列程序。Option Base 1Private Sub Form CliCk()Dim x(3,3)For j=1 to 3For k=1 to 3If j=k then x(j,k)=1If j＜＞ k then x(j,k)=3Next kNext jCall fun(x())End SubPrivate Sub fun(a())For j=1 to 3For k=1 to 3Print a (j,k)；Next kNext jEnd Sub运行程序时，输出的结果是【 】。
考题
一下程序的作用是生成一个10×10的矩阵．该矩阵主对角线上的数据为1，其余数据为0(程序运行结果如下图所示)。该程序不完整，请补充完改程序。Private Sub Command1_Click()Dim a(10，10)As IntegerFor i=1 To【 】For j=1 To 10If【 】Then【 】=1Elsea(i，j)=0End IfNext jNext iFor i =1 To 10For j=1 To 10Print a(i，j)；Next jPrintNext iEnd Sub
考题
以下程序运行后输出的结果是______。 Private Sub Form. _Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End SubA．10B．15C．80D．100
考题
下列程序运行后的输出结果是______。Private Sub f(k,s) s = 1 for j = 1 To k s=s*j Next jEnd SubPrivate Sub Command1_ Click () Sum = 0 for i = 1 To 3 Call f(i, s) Sum = Sum + s Next i Print Sum End SubA．0B．3C．6D．9
考题
下面程序运行后的输出结果是______。Private Sub Command1_ Click ( ) for j = 1 To 10 if j Mod 3 ＜＞ 0 then a =a+j\3 Next j Print aEnd SubA．20B．10C．3D．9
考题
在窗体上画一个命令按钮，然后编写如下事件过程: Private Sub CommAnd1_Click() For i=1 To 4 x=0 For j=1 To 3 x=j For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮,输出结果是______ 。A．7B．15C．157D．538
考题
在窗体上面画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) a＄="321"：b＄="abc" For j=l To 5 Print Mid＄(a＄，6-j，1)+Mid＄(b＄，j，1)； Next j End Sub 程序运行后，输出的结果是A．alb2c3B．ablc23C．clb2a3D．a12bcl
考题
在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码： Option Base 1 Private Sub Command1_Click () Dim a a = Array(1, 2, 3, 4) j = 1 For i = 1 To 4 s = s + a(i) * j j = j * 10 Next i Print s End Sub程序运行后，单击命令按钮，其输出结果是______。A．1234B．12C．34D．4321
考题
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() Dim j As Integer,s As Integer s=1 Do s=s+j j=j+1 Loop Until j＞=5 Print s End Sub 程序运行后，单击命令按钮，在窗体上输出的结果是( )。A．11B．1C．16D．7
考题
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$="321"：b$="abc" For j=1 To 5 Print Mid$(a$，6 -j，1)+Mid$(b$，j，1)； Next i End Sub 程序运行后，输出的结果是；A．a1b2c3B．ab1c23C．c1b2a3D．a12bc1
考题
下列程序运行后的输出结果是______。Private Sub f(k，s)s=1For j=1 To ks=s*jNextEnd SubPrivate Sub Command1_Click()Sum=0For i=1 To 3Call f(i，s)Sum=Sum+sNextPrint SumEnd Sub
考题
下面程序： Private Sub Command1_Click（） m$="ABC" n$="abc" k$=Lcase$（m$） j$=Ucase$（n$） Print Asc（k$） End Sub 运行后输出结果为（）A、96B、97C、65D、64
考题
单选题下面程序： Private Sub Command1_Click（） m$="ABC" n$="abc" k$=Lcase$（m$） j$=Ucase$（n$） Print Asc（k$） End Sub 运行后输出结果为（）A
96B
97C
65D
64
热门标签
最新试卷
