- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- + 面向对象程序设计 VB开发工具
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
下列程序的功能是标签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)
错误在_________处，改为____________。
Dim s As Integer
Dim i As Integer
① s = 0
② For i = 1 To 10
③ s = i
Next i
④ Label1.Caption = Str(s)
错误在_________处，改为____________。
假设变量a=4，b=5，执行t=a+b:a=b-a:b=t语句以后，a和b的值分别是（ ）
| A．9 和9 | B．1 和9 | C．5 和1 | D．9 和1 |
在VB中，如果要定义变量p用于存储年级学生姓名，那么变量p的数据类型是( )。
| A．String | B．Integer | C．Boolean | D．Date |
下列程序的功能是在文本框Text1中显示变量a和b的较大值。
a = 1：b = 2
① If a > b Then
② c = a
Else
③ c = b
End If
④ Text1.Caption = Str(c)
错误在______处，改为___________。
a = 1：b = 2
① If a > b Then
② c = a
Else
③ c = b
End If
④ Text1.Caption = Str(c)
错误在______处，改为___________。
一个VB工程的部分设计界面如下图所示：
下列选项不正确的是( )。
下列选项不正确的是( )。
| A．窗体的Caption属性值是“对象” | B．窗体文件名是“Form1.frm” |
| C．当前选中对象的名称是“Shape1” | D．工程的名称是“工程1” |
某Visual Basic程序如下：
Private Sub Command1_Click()
Dim s As String, i As Integer
s = ""
For i = 1 To 10 Step 2
s = Str(i) + s
Next i
Text1.Text = s
End Sub
运行程序，单击命令按钮Command1后，在文本框Text1中显示的内容为（ ）
Private Sub Command1_Click()
Dim s As String, i As Integer
s = ""
For i = 1 To 10 Step 2
s = Str(i) + s
Next i
Text1.Text = s
End Sub
运行程序，单击命令按钮Command1后，在文本框Text1中显示的内容为（ ）
| A．13579 | B．1 3 5 7 9 | C．9 7 5 3 1 | D．97531 |
有如下Visual Basic程序：
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next i
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是（ ）
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next i
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是（ ）
| A．1+1/2+2/3+3/4+4/5 | B．1+1/2+2/3+3/4 |
| C．1/2+2/3+3/4+4/5 | D．1+1/2+1/3+1/4+1/5 |
某VB程序的一个事件过程如下：
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
Text1.Text = Str(SqrA.)
End Sub
程序运行时，单击命令按钮command1后弹出如图所示的错误信息提示。出现错误的原因是（ ）
A. 变量a类型定义错误
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
Text1.Text = Str(SqrA.)
End Sub
程序运行时，单击命令按钮command1后弹出如图所示的错误信息提示。出现错误的原因是（ ）
A. 变量a类型定义错误
| A．界面缺少文本框Text1 | |
| B．Command1属性设置错误 | C．Sqr函数计算时出错 |