- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- + 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
有如下程序：
Private Sub Command l_Click
Dim s As String， c As String， n As Integer
s=”Google Chrome”：n=0
For i=1 To Len(s)
c=Mid(s，i，l)
If c=”e” Then n=n+1
n=n－1
Next i
Text 1.Text=Str(Abs(n) )
End Sub
运行该程序，单击命令按钮Command 1后，文本框Text1中显示的内容是（）
Private Sub Command l_Click
Dim s As String， c As String， n As Integer
s=”Google Chrome”：n=0
For i=1 To Len(s)
c=Mid(s，i，l)
If c=”e” Then n=n+1
n=n－1
Next i
Text 1.Text=Str(Abs(n) )
End Sub
运行该程序，单击命令按钮Command 1后，文本框Text1中显示的内容是（）
| A．－11 | B．11 | C．－9 | D．9 |
在VB中，下列程序段执行后，语句s=s+2执行的次数是（ ）
s=0
For i=1 To 3
Print s
s=0
For i=1 To 3
s=s+2
Next iPrint s
| A．1次 | B．2次 | C．3次 | D．4次 |
有如下VB程序段：
s= Text1.Text
For i=1 To Len(s)
c= Mid(s，i，1)
If c>=“0”And c<=“9”Then
Next i
Label1.Caption = Str(t)
在文本框Text1输入“as674ER29，86Gu”(不包括双引号)，执行程序后，标签Labell显示：（ ）
s= Text1.Text
For i=1 To Len(s)
c= Mid(s，i，1)
If c>=“0”And c<=“9”Then
m=m+1
Else lf c>=“a”And c<=“z” Thenn=n+1
Elset=t+1
End IfNext i
Label1.Caption = Str(t)
在文本框Text1输入“as674ER29，86Gu”(不包括双引号)，执行程序后，标签Labell显示：（ ）
| A．4 | B．6 | C．7 | D．8 |
某Visual Besic 程序如下：
Private Sub Command1_Click()
Dim a(1 To 10)As Integer
Dim i As Integer
For i= 1 To 10
List1.Additem Str(a(i))
End Sub
运行程序，单击命令按钮Command1后，出现的错误提示为：（ ）
Private Sub Command1_Click()
Dim a(1 To 10)As Integer
Dim i As Integer
For i= 1 To 10
a(i)=i*i
Next iList1.Additem Str(a(i))
End Sub
运行程序，单击命令按钮Command1后，出现的错误提示为：（ ）
| A．下标越界 | B．子程序或函数未定义 |
| C．溢出 | D．类型不匹配 |
有如下VB程序段：
s=“Good Luck 2019!”
n=0：m=0：k=0
For i=1 To Len(s)
执行该程序段后，变量k的值为( )
s=“Good Luck 2019!”
n=0：m=0：k=0
For i=1 To Len(s)
ch=Mid(s，i，1)
If ch >=”0”And ch<=”9” Then
m=m+1Else If ch>="a” And ch<=”z” Then
n=n+1Else
k=k+1End If
Next i执行该程序段后，变量k的值为( )
| A．2 | B．3 | C．4 | D．5 |
有如下VB程序段：
a(1)=58：a(2)=38：a(3)=46：a(4)=40：a(5)=58
a(6)=30：a(7)=48：a(8)=50：a(9)=36：a(10)=56
For i=1 To 10
b(a(i) Mod 10)=b(a(i) Mod 10)+1
Next i
s=""
For i=0 To 9
If b(i)>0 Then s=s+""+Str(i)+"："+Str(b(i))
Next i
数组b各元素初值为0，执行该程序段，s的值是
a(1)=58：a(2)=38：a(3)=46：a(4)=40：a(5)=58
a(6)=30：a(7)=48：a(8)=50：a(9)=36：a(10)=56
For i=1 To 10
b(a(i) Mod 10)=b(a(i) Mod 10)+1
Next i
s=""
For i=0 To 9
If b(i)>0 Then s=s+""+Str(i)+"："+Str(b(i))
Next i
数组b各元素初值为0，执行该程序段，s的值是
| A．0：3 6：3 8：4 | B．8：4 6：3 0：3 |
| C．5：4 4：3 3：4 | D．3：4 4：3 5：4： |
（2018秋•温州期末）某算法的部分流程图如图所示，执行该流程后，输出i，k的值分别是（ ）
| A．102，9 | B．100，8 | C．102，8 | D．100，9 |
下列程序运行后的输出结果是[ ]
DIM A（6） AS INTEGER
FOR I= 1 TO 5
A（I）= I
NEXT I
PRINT A（I）
DIM A（6） AS INTEGER
FOR I= 1 TO 5
A（I）= I
NEXT I
PRINT A（I）
| A．0 | B．1 | C．5 | D．显示出错信息 |
S=0: M=0:N=0
FOR I=1 TO 20
IF I MOD 2=0 THEN
S=S+1
ELSEIF I MOD 3 =0 THEN
M=M+1
ELSEIF I MOD 5 =0 THEN
N=N+1
END IF
NEXT I
PRINT S,M,N
这段程序的执行结果是( )
FOR I=1 TO 20
IF I MOD 2=0 THEN
S=S+1
ELSEIF I MOD 3 =0 THEN
M=M+1
ELSEIF I MOD 5 =0 THEN
N=N+1
END IF
NEXT I
PRINT S,M,N
这段程序的执行结果是( )
| A．10 4 1 | B．10 3 1 | C．10 5 2 | D．10 3 3 |