- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- + 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
有如下Visual Basic程序段:
S=0:k=1
Do while k <=4
If 8/k >=3 Then s=s+k
k=k+1
Loop
该程序段运行后,变量s和k的值分别是( )
S=0:k=1
Do while k <=4
If 8/k >=3 Then s=s+k
k=k+1
Loop
该程序段运行后,变量s和k的值分别是( )
A.3 , 3 | B.5,4 | C.3,5 | D.4,5 |
(加试题)有如下程序段,若有如下数据:64, 57, 22, 96, 71,分别存储在a(1)至a(5)中,经过以下程序段处理后的数据依次为
Dim a(1 To 6) As Integer
s = 0
For i = 1 To 5
If a(i) Mod 2 = 1 Then s = s + 1
Next i
For i = 1 To 4
If a(i) Mod 2 = 0 Then
For j = 5 To i + 1 Step -1
If a(j) Mod 2 = 1 Then
a(6) = a(i): a(i) = a(j): a(j) = a(6): Exit For
End If
Next j
End If
Next i
For i = s + 2 To 5
k = i - 1
For j = i To 5
If a(k) > a(j) Then k = j
Next j
If k <> i - 1 Then
a(6) = a(i - 1): a(i - 1) = a(k): a(k) = a(6)
End If
Next i
Dim a(1 To 6) As Integer
s = 0
For i = 1 To 5
If a(i) Mod 2 = 1 Then s = s + 1
Next i
For i = 1 To 4
If a(i) Mod 2 = 0 Then
For j = 5 To i + 1 Step -1
If a(j) Mod 2 = 1 Then
a(6) = a(i): a(i) = a(j): a(j) = a(6): Exit For
End If
Next j
End If
Next i
For i = s + 2 To 5
k = i - 1
For j = i To 5
If a(k) > a(j) Then k = j
Next j
If k <> i - 1 Then
a(6) = a(i - 1): a(i - 1) = a(k): a(k) = a(6)
End If
Next i
A.22, 57, 64, 71, 96 | B.71, 57, 22, 96, 64 |
C.71, 57, 22, 64, 96 | D.57, 71, 22, 64, 96 |
程序的三种基本结构为( )。
A.顺序结构、树形结构和选择结构 |
B.网状结构、顺序结构和选择结构 |
C.顺序结构、选择结构和循环结构 |
D.网状结构、循环结构和树形结构 |
某算法的部分流程图如图所示,以下说法正确的是( )


A.该流程执行后,变量k的值是-1 |
B.该流程执行后,变量a的值是16 |
C.该流程用于计算并输出1+8-16的值 |
D.该流程完整执行1次,“a<32?”共执行了3次 |
某流程图如图所示。执行该算法,下面说法错误的是………………( )


A.s的值最终为-5 |
B.语句“k=k+1”共执行了4次 |
C.语句“s≤0”共判断了5次 |
D.该算法转成VB代码时能用Do循环语句实现 |
.某程序代码如下:( ) Dim count As Integer
Dim a(1 To 13) As String
s = "where are you":count= 0
For i = 1 To Len(s)
a(i) = Mid(s, i, 1)
Next i
For i = 1 To Len(s) - 1
k = i
For j = i + 1 To Len(s)
If a(k) < a(j) Then k = j
Next j
If i <> k Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
For i = 1 To Len(s) - 1
If a(i) = a(i + 1) Then count = count + 1
Next i
程序运行结束后,变量 count 的值是( )
Dim a(1 To 13) As String
s = "where are you":count= 0
For i = 1 To Len(s)
a(i) = Mid(s, i, 1)
Next i
For i = 1 To Len(s) - 1
k = i
For j = i + 1 To Len(s)
If a(k) < a(j) Then k = j
Next j
If i <> k Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
For i = 1 To Len(s) - 1
If a(i) = a(i + 1) Then count = count + 1
Next i
程序运行结束后,变量 count 的值是( )
A.13 | B.2 | C.3 | D.4 |
分析并完善程序。
计算1+3+5+……+99的值。
Dim i As Integer
s=0
for i=1 to ①________ step 2
s= ②__________
next i
print “s=”③_____ ;
计算1+3+5+……+99的值。
Dim i As Integer
s=0
for i=1 to ①________ step 2
s= ②__________
next i
print “s=”③_____ ;