- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- + 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
输出的结果为 。
c = 0
for m =" 0" to 2
s = 0
Do While s < 60
c =" c" + 1
s =" s" + 1
Loop
next
Print c
c = 0
for m =" 0" to 2
s = 0
Do While s < 60
c =" c" + 1
s =" s" + 1
Loop
next
Print c
输出的结果为 。
Dim n as integer
Dim s as long
n=9
s=0
do while n>=1
s=s+n
n=n-2
loop
print s
Dim n as integer
Dim s as long
n=9
s=0
do while n>=1
s=s+n
n=n-2
loop
print s
当输入21，输出结果是 。
Dim x as long
x=inputbox(“输入x的值”)
if x mod 10="1" then
if x mod 8="3" then
x=x-12
end if
else
x=x-7
end if
print x
Dim x as long
x=inputbox(“输入x的值”)
if x mod 10="1" then
if x mod 8="3" then
x=x-12
end if
else
x=x-7
end if
print x
小金编写了VB程序，部分程序如下所示，在调试程序的时候出现如图所示的错误信息：
Private Sub Command1_Click()
Dim x As String, i As Integer
For i =" 1" To 10
If i Mod x =" 1" Then
x = "奇数"
Else
x = "偶数"
Next i
……
End Sub
产生此错误的语句是( )。
Private Sub Command1_Click()
Dim x As String, i As Integer
For i =" 1" To 10
If i Mod x =" 1" Then
x = "奇数"
Else
x = "偶数"
Next i
……
End Sub
产生此错误的语句是( )。
| A．For | B．End If |
| C．Next | D．If |
程序修改题，每小题①②③④处有1处错误，找出并改正
| （1）下列程序的功能是在文本框Text1中显示变量a和b的较大值。 a = 1：b = 2 ① If a > b Then ② c = a Else ③ c = b End If ④ Text1.Caption = Str(c) 错误在______处，改为_______________。 | （2）下列程序的功能是标签Label1中显示1+2+3+…+10值。 Dim s As Integer Dim i As Integer ① s = 0 ② For i =" 1" To 10 ③ s = i Next i ④ Label1.Caption = Str(s) 错误在______处，改为_______________。 |
Sub test16()
X = 9
For i =" 2" To 51 Step 3
If (X / 2) >=" i" Then X =" X" + 1
Next i
For i =" 2" To -2 Step 3
If (X / 2) >=" i" Then X =" X" + 1
Next i
MsgBox (X+i)
End Sub
该程序的运行结果是（ ）
X = 9
For i =" 2" To 51 Step 3
If (X / 2) >=" i" Then X =" X" + 1
Next i
For i =" 2" To -2 Step 3
If (X / 2) >=" i" Then X =" X" + 1
Next i
MsgBox (X+i)
End Sub
该程序的运行结果是（ ）
| A．64 | B．13 | C．61 | D．62 |
Sub test3()双重循环运行 输出图形 与3重复,但3已改题
For i =" 1" To___1___step 1
s = ""
For j =" 1" To 2 * i - 1
s =" Str(j)" + s
Next j
List1.AddItem s
Next i
End Sub
该程序的运行后列表框输出的第三行是 （ ）
For i =" 1" To___1___step 1
s = ""
For j =" 1" To 2 * i - 1
s =" Str(j)" + s
Next j
List1.AddItem s
Next i
End Sub
该程序的运行后列表框输出的第三行是 （ ）
| A．33333 | B．55555 | C．12345 | D．54321 |
有如下visual basic程序：
private Sub command1_Click()
s=0
If s<="99" then
For j="1to" 10
s=s+j
Next j
Else
print “程序出错！”
Endif
print “最后的s的值是:”；s
End Sub
请问以上程序的控制结构包含了（ ）
private Sub command1_Click()
s=0
If s<="99" then
For j="1to" 10
s=s+j
Next j
Else
print “程序出错！”
Endif
print “最后的s的值是:”；s
End Sub
请问以上程序的控制结构包含了（ ）
| A．顺序结构、树型结构 |
| B．顺序、选择结构 |
| C．顺序、选择和循环结构 |
| D．顺序、循环结构 |
有以下程序段：
s = 1:j=2
Do While s<j
For j =" 2" To -2 Step -1
s = s*j
Next j
Loop
MsgBox(s)
则s =" s*j" 的执行次数是( )
s = 1:j=2
Do While s<j
For j =" 2" To -2 Step -1
s = s*j
Next j
Loop
MsgBox(s)
则s =" s*j" 的执行次数是( )
| A．1 | B．4 | C．5 | D．6 |