- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
保存一个VB程序时需要保存两个文件：（ ）
| A．工程文件和 .vbp | B．窗体文件和 .frm文件 |
| C．vbp文件和 .frm文件 | D．模块文件和 .bas文件 |
下列声明语句中错误的是_________。
| A．Const var1=123 | B．Dim var2=’abc’ |
| C．dim a,b as string | D．dim var3 as integer |
以下程序输出的结果是（ ）。
Option Base 1
Private Sub Command1 Click( ）
Dim a%(3,3)
For i=1 To 3
For j=1 To 3
a(i,j)=i*j
Print a(i,j);〃〃;
Next j
Print
Next i
End Sub
Option Base 1
Private Sub Command1 Click( ）
Dim a%(3,3)
For i=1 To 3
For j=1 To 3
a(i,j)=i*j
Print a(i,j);〃〃;
Next j
Next i
End Sub
| A．1 2 3 2 3 1 3 2 3 |
| B．1 2 3 1 2 3 1 2 3 |
| C．1 2 3 2 4 6 3 6 9 |
| D．1 1 1 |
有如下程序：
a(m,n)=(m-1)*3+n
Next n
For n = 1 To 2
Print a(n,m);
Next n
Next m
运行后输出结果是： ( ）
Dim a(3,3) As Integer
For m = 1 To 3
For n = 1 To 3a(m,n)=(m-1)*3+n
Next n
Next m
For m = 2 To 3For n = 1 To 2
Print a(n,m);
Next n
Next m
运行后输出结果是： ( ）
| A．2 5 3 6 |
| B．2 3 5 6 |
| C．4 7 5 8 |
| D．4 5 7 8 |
打印矩阵 0 1 1 1
1 0 1 1
1 1 0 1
1 1 1 0
PRIVATE SUB FORM_CLICK
DIM A（4，4） AS INTEGER
FOR I = 1 TO 4
FOR J= 1 TO 4
IF ________[1]
A（I，J）=1
________[2]
A（I，J）=0
END IF
PRINT A（I，j）;
________[3]
PRINT
________[4]
END SUB
1 0 1 1
1 1 0 1
1 1 1 0
PRIVATE SUB FORM_CLICK
DIM A（4，4） AS INTEGER
FOR I = 1 TO 4
FOR J= 1 TO 4
IF ________[1]
A（I，J）=1
________[2]
A（I，J）=0
END IF
PRINT A（I，j）;
________[3]
________[4]
END SUB