- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- + 赋值语句
- 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
在ＶＢ中，有如下程序段，该程序段执行后，变量x的值是
x=0
for i=1 to 5
x=x+i-1
next i
x=0
for i=1 to 5
x=x+i-1
next i
| A．0 | B．5 | C．15 | D．10 |
一个六位数n，它的高二位与低二位恰好相同，同时又能被97整除，如109610、196619等。编写VB程序，统计所有符合条件的六位数的个数。
Dim n As Long '六位数
Dim g2 As Integer '高二位
Dim d2 As Integer '低二位
Dim t As Integer '计数
t = 0
n = 100000
Do
g2= ______①______
d2= ______②______
Loop Until n>=1000000
Print t
‘备注：loop until 指的是循环到若条件成立则退出循环
Dim n As Long '六位数
Dim g2 As Integer '高二位
Dim d2 As Integer '低二位
Dim t As Integer '计数
t = 0
n = 100000
Do
g2= ______①______
d2= ______②______
Loop Until n>=1000000
Print t
‘备注：loop until 指的是循环到若条件成立则退出循环
有一组数：1、2、4、7、……，其第1个数是1，第2个数比第1个数大1，第3个数比第2个数大2，第4个数比第3个数大3，以此类推。求其前20项的和。
以下VB程序实现上述功能，请把程序中的①、②出填写完整。
Dim i As Integer, p As Integer, s As Integer
i = 1
p = 1
s = 0
Do While ______①______
s =" s" + p
i =" i" + 1
______②______
Loop
Print s
以下VB程序实现上述功能，请把程序中的①、②出填写完整。
Dim i As Integer, p As Integer, s As Integer
i = 1
p = 1
s = 0
Do While ______①______
s =" s" + p
i =" i" + 1
______②______
Loop
Print s
有如下VB 程序,该程序运行后在文本框Text1 中显示的结果是（ ）
Dim i As Integer, j As Integer, s As Integer, n As Integer
n =" 3:" s = 0
For i =" 1" To n
For j =" 1" To i
s =" s" + j
Next j
Next i
Text1.Text = s
End Sub
Dim i As Integer, j As Integer, s As Integer, n As Integer
n =" 3:" s = 0
For i =" 1" To n
For j =" 1" To i
s =" s" + j
Next j
Next i
Text1.Text = s
End Sub
| A．3 | B．6 |
| C．10 | D．18 |
某VB程序段如下：
a="“Visual" Basic 6.0”
b=Mid(a,1,6)
c=“C++”
Text1.text=b+c
该程序段运行后在文本框Text1中显未的内容是( )
a="“Visual" Basic 6.0”
b=Mid(a,1,6)
c=“C++”
Text1.text=b+c
该程序段运行后在文本框Text1中显未的内容是( )
| A．“Visual Basic 6.0C++” | B．b+c |
| C．“VisualC++” | D．“IC++” |
某VB程序的一个事件过程如下:
Private sub command1_click( )
Dim i as integer
Dim a(1 to 8 ) as integer
List1.clear
For i="1" to 99
a(i)=i+1
Next i
For i="1" to 8
list1.AddItem str(a(i))
Next i
End sub
程序运行时，单击命令按钮command1后，将会出现的提示信息是 （ ）
Private sub command1_click( )
Dim i as integer
Dim a(1 to 8 ) as integer
List1.clear
For i="1" to 99
a(i)=i+1
Next i
For i="1" to 8
list1.AddItem str(a(i))
Next i
End sub
程序运行时，单击命令按钮command1后，将会出现的提示信息是 （ ）
| A．溢出 | B．下标越界 |
| C．类型不匹配 | D．无效的过程调用或参数 |
求结果
| （1）输入356，输出结果： Dim x as Integer x=inputbox(“输入x的值”) a="x" mod 10 b="int(x/10)" mod 10 c=x\100 s=a+b+c print s | （2）输入a=1，b=2，输出结果： |
（3）输出结果： | （4）输入8，输出结果： |
有如下VB程序段
Private Sub Command1_Click()
Dim s As Integer
Dim i As Integer
s = 0
For i =" 1" To 20 Step 2
If s < 20 Then
s =" s" + i
End If
Next i
Text1.Text = Str(s)
Text2.Text = Str(i)
End Sub
执行以上程序后，变量s和i的值分别为
Private Sub Command1_Click()
Dim s As Integer
Dim i As Integer
s = 0
For i =" 1" To 20 Step 2
If s < 20 Then
s =" s" + i
End If
Next i
Text1.Text = Str(s)
Text2.Text = Str(i)
End Sub
执行以上程序后，变量s和i的值分别为
| A．9 20 | B．16 21 | C．25 11 | D．25 21 |