皮皮学，免费搜题
登录
搜题
【简答题】
练习2文本标记的使用.doc 手机端在编程狮完成截图上交 PC端上交HTML文件
拍照语音搜题，微信中搜索"皮皮学"使用
参考答案：
参考解析：
知识点：
皮皮学刷刷变学霸
举一反三
【单选题】（ 24 ）有以下程序： 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...
A.
） 8 13
B.
） 0 13
C.
） 7 12
D.
） 0 0
【简答题】设有以下程序： Option Base 1 Private Sub Command1_Click( ) Dim arr1 ,Max as Integer art1 = Array(12,435,76,24,78,54,866,43) 【 】= arr1(1) For i = 1 To 8 If arrl(i)＞Max Then【 】 Next i Print '最大值：'； Max End Sub...
【单选题】以下程序的输出结果是( )。 Option Base 1 Private Sub Command1_Click() Dim a(10),p(3) as Integer k=5 For I-1 to 10 a(i)=I Next I For j=1 to3 p(i)=a(I*j) Next j For I=l to 3 k=k+ p (I)*2 Next I Print k End Sub
A.
33
B.
28
C.
35
D.
37
【简答题】当冷空气入侵后,气温在24小时内下降10°C或10°C以上,同时天气最低气温又在5°C以下的就称之为( )。
【单选题】以下程序的输出结果是( )。 Option Base 1 Private Sub Command1 Click() Dim a(10)，p(3)as Integer k=5 For I=1 to 10 a(i)=I Next I For j=1 to 3 p(i)=a(I*j) Next j For I=1 to 3 k=k+p(I)*2 Next I Print k End Sub
A.
33
B.
28
C.
35
D.
37
【单选题】有以下程序： Option Base 1 Dimair()As Integer Private Sub Form_Click() Dimi As Integer,j As Integer ReDimalt(3，2) Fori=1 To 3 Forj=1 To 2 alt(i，j)=i*2+j Nextj Nexti ReDimPreservearr(3，4) Forj=3 To 4
A.
8 13
B.
0 13
C.
7 12
D.
0 0
相关题目：