- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- + 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
在数组a中寻找最大值的VB程序段如下：（ ）
…
max＝a(1) ′变量max用于存放最大值
For i="2" To 10
Next i
…
方框中最合适的语句是
…
max＝a(1) ′变量max用于存放最大值
For i="2" To 10
Next i
…
方框中最合适的语句是
| A．If a(i)＜max Then max=a(i) |
| B．If a(i)＜max Then a(i)=max |
| C．If a(i)＞max Then max=a(i) |
| D．If a(i) ＞max Then a(i)="max" |
求[0,100]之间所有偶数之和s的算法流程图如图所示。
为了实现此算法，图中判断框①和处理框②处可填入的是（ ）
为了实现此算法，图中判断框①和处理框②处可填入的是（ ）
| A．① x ≤ 100？ ② x←x+2 | B．① x ≤ 100？ ② x←x+1 |
| C．① x ≥ 100？ ② x←x+2 | D．① x ≥ 100？ ② x←x+1 |
下列四段程序中，主要控制结构属于循环结构的是（ ）
PRINT "偶数"
ELSE
PRINT "奇数"
END IF
| A．A= 5 B= A A=" A" + B |
| B．IF X > K THEN PRINT "Big" END IF |
| C．S="0" DO WHILE I<=10 J =" I" * I S="S" + J I="I" + 1 LOOP |
| D．IF INT(X/2) = X/2 THEN |
ELSE
PRINT "奇数"
END IF
下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是（1） ，文本框Text2中显示的内容是____（2） 。
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0:" n = 10
For i =" 1" To n
If n Mod i =" 0" Then c =" c" + 1
Next i
Text1.Text = Str(n)
Text2.Text = Str(c)
End Sub
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0:" n = 10
For i =" 1" To n
If n Mod i =" 0" Then c =" c" + 1
Next i
Text1.Text = Str(n)
Text2.Text = Str(c)
End Sub
下列VB程序运行时，在文本框Text1中输人数据6，在文本框Text2中输入数据9，单击命令按钮Command1后，文本框Text1中显示的内容是 (1) ，文本框Text2中显示的内容是 (2) 。
Private Sub Command1_C1ick ()
Dim a As Integer, b As Integer
a=Val(Text1.Text)
b=Val(Text2.Text)
a=a*b
b=a/b
a=a/b
Text.Text=Str(a)
Text2.Text=Str(b)
End Sub
Private Sub Command1_C1ick ()
Dim a As Integer, b As Integer
a=Val(Text1.Text)
b=Val(Text2.Text)
a=a*b
b=a/b
a=a/b
Text.Text=Str(a)
Text2.Text=Str(b)
End Sub
VB标准函数Rnd的作用是返回一个大于等于0且小于1的随机数。只能产生大于等于10且小于100随机的VB表达式是（ ）
| A．Int(Rnd*100) | B．Int(Rnd*90+10) |
| C．Int(Rnd*99+1) | D．Int(Rnd*99+10) |
某VB的事件过程如下：
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
a =" 2" * a + 1
Text1.Text = Str(a)
End Sub
程序运行时，在文本框Text1中输入1，连续两次单击命令按钮Command1后，Text1中显示的内容是（ ）
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
a =" 2" * a + 1
Text1.Text = Str(a)
End Sub
程序运行时，在文本框Text1中输入1，连续两次单击命令按钮Command1后，Text1中显示的内容是（ ）
| A．7 | B．5 | C．3 | D．1 |
若整型变量a的值为2，b的值为3，则下列程序段执行后整型变量c的值为（ ）。
if a>5 then
if b<4 then c="a-b" else c=b-a
else
if b>3 then c=a*b else c="a" mod b
end if
if a>5 then
if b<4 then c="a-b" else c=b-a
else
if b>3 then c=a*b else c="a" mod b
end if
| A．2 | B．-1 | C．1 | D．6 |