A.11111101001
B.11111000101
C.11111100101
D.11000111101
A.1
B.2
C.10
D.以上都不是
A.12
B.14
C.122b
D.出错
A.编译程序、运行程序
B.编译程序、测试程序、运行程序
C.编写程序、编译程序、运行程序
D.需求分析、编译程序
A.Drawstyle
B.Borderstyle
C.DrawWidth
D.ScaleMode
以下程序的功能是:将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来,要求把A(i)到A(10)依次赋给B(1,1)到B(1,10),把A(11)到A(20)依次赋给
B(2,1)到B(2,10),……,把A(91)到A(100)依次赋给B(10,1)到B(10,10)。请填空。
Option Base 1
Private Sub Form_Click()
Dim i As Integer,j As Integer
Dim A(1 To 100)As Integer
Dim B(1 To 10,1 To 10)As Integer
For i=1 To 100
A(i)=Int(Rnd*100)
Next i
For i=1 To【 】
For j=1 To【 】
B(i,j)=【 】
Print B(i,j);
Next j
Next i
End Sub
A.Print Not(3+51 And 32 Or 2>3
D.Print Not(1>2)
A.A*B=0 and A+BO
B.(A=0 or B=0)and(A0 or B0)
C.not(A=0 And B=0)and(A=0 or B=0)
D.A*B=0 and(A=0 or B=0)
执行下面的程序段,x的值为【 】。
Private Sub Command1_Click()
For i=1 To 9
a=a+i
Next
x=Val(i)
MsgBox x
End Sub
长理培训客户端 资讯,试题,视频一手掌握
去 App Store 免费下载 iOS 客户端
点击加载更多评论>>