- 讲师:刘萍萍 / 谢楠
- 课时:160h
- 价格 4580 元
特色双名师解密新课程高频考点,送国家电网教材讲义,助力一次通关
配套通关班送国网在线题库一套
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
下列程序的执行结果是______。
PrivateFunctionP(NASInteger)
Fori=1 To N
SUM=SUM+i
Nexti
P=SUM
End Function
Privte Sub Commandl_Click()
S=P(1)+P(2)+P(3)+P(4)
Print S
End Sub
在窗体上画一个命令按钮,其名称为Commandl,然后编写如下代码:
Option Babe 1
Private Sub Commandl_Click()
Dim Arr
Art=Array(43,68,-25,65,-78,12,-79,43,-94,72)
pos*0
neg=0
For k=1 To 10
IfArt(k)>0 Then
【 】
Else
【 】
End If
Next k
Print pos,neg
End Sub
课程专业名称 |
讲师 |
课时 |
查看课程 |
---|
课程专业名称 |
讲师 |
课时 |
查看课程 |
---|
点击加载更多评论>>