- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- + 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
输入20个数，按从大到小的顺序打印。
PRIVATE SUB FORM----CLICK（ ）
DIM I AS INTEGER ，A（20） AS SINGLE
Dim J AS INTEGER
FOR I= 1 TO 20
A（I）= VAL（INPUTBOX（“请输入数”））
NEXT I
FOR I= 1 TO 19
FOR J= _______________ TO 20
IF _____________________
_____________________
A（I）=A（J）
A（J）=T
END IF
NEXT J
PRINT A（I）；
____________________________
PRINT A（I）
END SUB
PRIVATE SUB FORM----CLICK（ ）
DIM I AS INTEGER ，A（20） AS SINGLE
Dim J AS INTEGER
FOR I= 1 TO 20
A（I）= VAL（INPUTBOX（“请输入数”））
NEXT I
FOR I= 1 TO 19
FOR J= _______________ TO 20
IF _____________________
_____________________
A（I）=A（J）
A（J）=T
END IF
NEXT J
PRINT A（I）；
____________________________
PRINT A（I）
END SUB
设有如下通用过程：
Public Sub Fun(a(), x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click()
Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Next
n = 10
Call Fun(arr(), n)
Text1.Text = n
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）
Public Sub Fun(a(), x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click()
Dim arr(5) As Variant
For i = 1 To 5
arr(i) = i
Next
n = 10
Call Fun(arr(), n)
Text1.Text = n
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）
| A．10 | B．15 | C．25 | D．24 |
以下程序输出的结果是（ ）。
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 |
在窗体上画一个命令按钮，其Name属性为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1Click
Dim a(4,4)
For i = 1 To 3
For j = 1 To 3
a(i,j)=(i-1)*3+j
Next j
Next i
PRINT A（3，1）
End Sub
程序运行后，单击命令按钮，其输出结果为.
Option Base 1
Private Sub Command1Click
Dim a(4,4)
For i = 1 To 3
For j = 1 To 3
a(i,j)=(i-1)*3+j
Next j
Next i
PRINT A（3，1）
End Sub
程序运行后，单击命令按钮，其输出结果为.
| A．6 |
| B．7 |
| C．8 |
| D．9 |
下列程序的运结果是[ ]
DIM A（1991 TO 1998） AS INTEGER
FOR I=1 TO 8
A（I）=I
PRINT A（I）；
NEXT I
DIM A（1991 TO 1998） AS INTEGER
FOR I=1 TO 8
A（I）=I
PRINT A（I）；
NEXT I
| A．1 2 3 4 5 6 7 8 |
| B．1991 1992 1993 1994 1995 1996 1997 1998 |
| C．显示出错信息 |
| D．0 0 0 0 0 0 0 0 |
素数是指除了1和本身不能被任何数整除的数。请将3到100间的素数添加到LIST1中。
PRIVATE SUB FORMCLICK
FOR I = 3 TO ________[1]
F=0
FOR J= 2 TO I-1
IF ________[2] THEN
F=1
EXIT FOR
END IF
NEXT J
IF F=0 THEN ________[3]
________[4]
END SUB
PRIVATE SUB FORMCLICK
FOR I = 3 TO ________[1]
F=0
FOR J= 2 TO I-1
IF ________[2] THEN
F=1
EXIT FOR
END IF
NEXT J
IF F=0 THEN ________[3]
________[4]
END SUB
执行下列程序后,变量X的值是( ）
PRIVATE SUB FORM__CLICK( ）
S=0
FOR A = 1 TO 5
FOR B= 1 TO 3
S=S+1
NEXT B
NEXT A
PRINT S
END SUB
PRIVATE SUB FORM__CLICK( ）
S=0
FOR A = 1 TO 5
FOR B= 1 TO 3
S=S+1
NEXT B
NEXT A
PRINT S
END SUB
| A．70 |
| B．8 |
| C．25 |
| D．15 |