- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- + 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
随机产生10个[12,20]间的随机整数放在A数组中,打印最大的和最小的.请完善程序
PRIVATE SUB FORM_CLICK( ）
________[1]
MAX=0: MIN=21
FOR I= 1 TO 10
A(I)=________[2]
IF ________[3]THEN MAX=A(I)
IF ________[4]THEN MIN=A(I)
NEXT I
PRINT “最大数是”；MAX ,”最小数是” ；MIN
END SUB
PRIVATE SUB FORM_CLICK( ）
________[1]
MAX=0: MIN=21
FOR I= 1 TO 10
A(I)=________[2]
IF ________[3]THEN MAX=A(I)
IF ________[4]THEN MIN=A(I)
NEXT I
PRINT “最大数是”；MAX ,”最小数是” ；MIN
END SUB
下列程序所计算的数学式子是( ）
PRIVATE SUB FORM__CLICK( ）
S=0
FOR A= 1 TO 5
S=S+（10^A-1）/3
NEXT A
PRINT S
END SUB
PRIVATE SUB FORM__CLICK( ）
S=0
FOR A= 1 TO 5
S=S+（10^A-1）/3
NEXT A
PRINT S
END SUB
| A．10+100+1000+10000+100000 |
| B．1+11+111+1111+11111 |
| C．3+33+333+3333+33333 |
| D．9+99+999+9999+99999 |
求2+4+6+8+10+12+14+……100
PRIVATE SUB FORM-------CLICK（ ）
S=0
DIM I AS INTEGER，S AS INTEGER
FOR I= 2 TO 100 ________[1]
S=S+________[2]
NEXT I
PRINT S
END SUB
PRIVATE SUB FORM-------CLICK（ ）
S=0
DIM I AS INTEGER，S AS INTEGER
FOR I= 2 TO 100 ________[1]
S=S+________[2]
NEXT I
PRINT S
END SUB
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程.
Privat Sub Command1 Click
Dim array1(10,10) As Integer
Dim i AS integer,j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i,j) = i + j
Next j
Next i
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值( ）
Privat Sub Command1 Click
Dim array1(10,10) As Integer
Dim i AS integer,j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i,j) = i + j
Next j
Next i
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值( ）
| A．12 |
| B．13 |
| C．14 |
| D．15 |
下列程序段的执行结果为:（ ）
Dim M(10) as integer
For i = 0 To 10
M(i) = 2*i
Next i
Print M(M(3）
Dim M(10) as integer
For i = 0 To 10
M(i) = 2*i
Next i
Print M(M(3）
| A．12 |
| B．6 |
| C．0 |
| D．4 |
“删除字符”程序实现功能：在文本框Text1中输入待处理的字符串，在文本框Text2中输入需删除的单个字符，单击“删除”按钮Command1进行删除，并将删除后的字符串和被删除字符的位置分别显示在相应的文本框中。程序运行界面如下图所示。
（1）要使程序运行时，按钮Command1显示为“删除”，可在Form_Load事件处理过程中添加语句_____（单选，填字母：
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim c As String, s As String, j As String
Dim n As Integer, i As Integer
Dim w As String, result As String
s = Text1. Text: d = Text2. Text
n = Len(s): w= “ ”: result = “ ”
For i = 1 To n
____________
w = w + Str(i) + “,”
Else
Next i
Text3. Text = result
Text4. Text = w
End Sub
（3）若将加框处语句“if c=d Then”修改为“if c<>d Then”，文本框Text1和Text2中输入如图所示，则执行程序后文本框Text3中输出的内容是___________。
（1）要使程序运行时，按钮Command1显示为“删除”，可在Form_Load事件处理过程中添加语句_____（单选，填字母：
| A．Command1.Caption=“删除”/ | B．Command1. font=“删除”/ | C．Command1.Text=“删除”）。 |
Private Sub Command1_Click()
Dim c As String, s As String, j As String
Dim n As Integer, i As Integer
Dim w As String, result As String
s = Text1. Text: d = Text2. Text
n = Len(s): w= “ ”: result = “ ”
For i = 1 To n
____________
w = w + Str(i) + “,”
Else
_____________
End IfNext i
Text3. Text = result
Text4. Text = w
End Sub
（3）若将加框处语句“if c=d Then”修改为“if c<>d Then”，文本框Text1和Text2中输入如图所示，则执行程序后文本框Text3中输出的内容是___________。
有如下VB程序段：
For i = 1 To 3
j = 1
Do While j <= n - i - 1
If a(j) > a(j + 2) Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
End If
j = j + 1
Loop
Next i
如果n=7，数组元素a(1)到a(7)的值依次是“13，12，10，12，1，0，14”，程序段运行结束后，a(5)、a(6)、a(7)的值依次为
For i = 1 To 3
j = 1
Do While j <= n - i - 1
If a(j) > a(j + 2) Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
End If
j = j + 1
Loop
Next i
如果n=7，数组元素a(1)到a(7)的值依次是“13，12，10，12，1，0，14”，程序段运行结束后，a(5)、a(6)、a(7)的值依次为
| A．10，0，1 | B．13，0，14 | C．12，13，14 | D．13，12，14 |
下列程序段的执行结果为.
Dim A(10)，B(5)
For i = 1 To 10
A(i) = i
Next i
For j = 1 To 5
B(j) = j * 20
Next j
A(5) = B(2)
Print "A(5)=";A(5)
Dim A(10)，B(5)
For i = 1 To 10
A(i) = i
Next i
For j = 1 To 5
B(j) = j * 20
Next j
A(5) = B(2)
Print "A(5)=";A(5)
| A．A(5)=5 |
| B．A(5)=10 |
| C．A(5)=20 |
| D．A(5)=40 |
下列程序运行后的输出结果是[ ]
DIM A（6） AS INTEGER
FOR I= 1 TO 6
A（I）= I
NEXT I
PRINT A（I）
DIM A（6） AS INTEGER
FOR I= 1 TO 6
A（I）= I
NEXT I
PRINT A（I）
| A．0 |
| B．6 |
| C．7 |
| D．显示出错信息 |