- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
下列正确的Visual Basic注释语句是( )
| A．Dim a(10) As Integer定义一个数组 |
| B．Dim a(10) As Integer“定义一个数组 |
| C．Dim a(10) As Integer‘定义一个数组 |
| D．Dim a(10) As Integer“定义一个数组” |
在Visual Basic中进行窗体设计时，利用属性面板可以非常方便地对常用的属性进行设置。请观察右图，并选择出正确的描述( )
| A．“Text1”是类名，“TextBox”是对象名，“Text” 是属性名，“点击输入”是属性值 |
| B．“Text1”是对象名，“TextBox”是类名，“Text”是属性名，“点击输入”是属性值 |
| C．“Text1”是对象名，“TextBox”是类名，“Text”是属性值，“点击输入”是属性名 |
| D．Text1”是属性名，“TextBox”是对象名，“Text”是类名，“点击输入”是属性值 |
个位数字是6，且能被3整除的3位数共有多少个？下面程序用于解决这一问题，在划线处填入合适的语句或表达式，设共有n个这样的数，Visual Basic程序如下：
Sub Command1_Click()
Dim i As Integer, n As Integer
m = 106
n = __________
Do While m <= 996
If _______________________ Then n =" n" + 1
m=m+10
Loop
Text1.Text = Str(n) zxxk
End Sub
Sub Command1_Click()
Dim i As Integer, n As Integer
m = 106
n = __________
Do While m <= 996
If _______________________ Then n =" n" + 1
m=m+10
Loop
Text1.Text = Str(n) zxxk
End Sub
关于计算机程序设计语言，以下说法正确的是( )
| A．最早的程序设计语言是汇编语言 |
| B．汇编语言是一种高级语言 |
| C．高级语言使用助忆符 |
| D．机器语言采用二进制代码 |
想从学生中选出一些理科比较好的同学参加理科知识竞赛，主要考察数学和物理两个科目的成绩，在数学成绩大于90的同学中挑选出物理成绩不小于89的同学参加竞赛，VB条件表达式应该是（ ）（S:数学成绩，W:物理成绩）
| A．S<90， W>=89 | B．S<90 Or W>=89 |
| C．S<90 And W>=89 | D．S>90 And W>=89 |
下面的表达式的值为"on"的是（ ）(提示：函数Replace(X,S,R)的功能是将字符串X中的字符串S替换为字符串R，然后返回)
| A．Mid("cartoon",6,2) | B．Mid("only",2,2) |
| C．Replace("cartoon",catro,on) | D．Len("on") |
下表记录了7个数据的冒泡排序过程，分析表中数据可以得知采用升序的方式，要经历多少次数据比较（ ）
| 原始数据 | 3 | 98 | 8 | 88 | 5 | 78 | 28 |
| 第1遍 | 3 | 5 | 98 | 8 | 88 | 78 | 28 |
| 第2遍 | 3 | 5 | 8 | 98 | 88 | 78 | 28 |
| … | … | … | … | … | … | … | … |
| A．6 | B．7 | C．21 | D．36 |
小李有一被污损的保修卡(如图)，客服热线中有一个数字被污损掉了，找出这个数字的适合算法是（ ）
| A．枚举算法 | B．解析算法 |
| C．对分查找算法 | D．递归算法 |
人们常使用计算机程序解决一些实际问题。下面的程序可以找出能被3、5、7除，余数为1的最小的五个正整数。请分析程序回答问题。
Private Sub Command1_Click()
Dim CountN%,n%
CountN=0
n=1
Do
n=n+1
If ① Then
Print n
CountN=Countn+1
End If
Loop ②
End Sub
（1）变量CountN 的数据类型定义为（ ）
（2）这是一段 结构程序。
（3）认真阅读程序，在带序号的空白处补充恰当的语句，完善程序。
（4）在编写程序时，首先需要找出解决问题的方法和步骤，此过程就是通常所说的
Private Sub Command1_Click()
Dim CountN%,n%
CountN=0
n=1
Do
n=n+1
If ① Then
Print n
CountN=Countn+1
End If
Loop ②
End Sub
（1）变量CountN 的数据类型定义为（ ）
| A．integer | B．single | C．double | D．string |
（2）这是一段 结构程序。
（3）认真阅读程序，在带序号的空白处补充恰当的语句，完善程序。
（4）在编写程序时，首先需要找出解决问题的方法和步骤，此过程就是通常所说的