- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- 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
输入19，输出的结果为 。
Dim s As String '定义变量s为字符串类型
Dim n As Long
n = InputBox("n")
s = ""
Do While n > 0
a =" n" Mod 2
s =" Str(a)" + s '将数字a转换成字符，连接在字符串s的左边
n =" n" \ 2
Loop
Print s
Dim s As String '定义变量s为字符串类型
Dim n As Long
n = InputBox("n")
s = ""
Do While n > 0
a =" n" Mod 2
s =" Str(a)" + s '将数字a转换成字符，连接在字符串s的左边
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
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 |
如果x=4，那么以下运算结果为True的表达式是 ( )
| A．x<="4" And x>="6" | B．x>4 Or x>=6 |
| C．x<4 Or x>6 | D．Not x<>4 |
程序修改题，每小题①②③④处有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 |