- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
(加试题)小李编写 VB 程序,功能如下:单击“生成数组”按钮 Command1,则随机生成 13 个取值范围是 1~13 的正整数,分别存储到数组 a 中,对数组 a 的元素进行升序排列,并在标签label1 中显示;再单击“连续数”按钮 Command2,则在排序后的数组 a 中查找连续个数最多(忽略重复数值)的一组数值(即:连续数),若有两组连续数个数一样多,则取数值小的一组,
将连续数显示在标签 label2 中。运行界面如图所示。

若实现上述功能的程序如下,请在划线处填写合适代码,使程序正常运行。
Dim a(1 To 13) As Integer
Dim n As Integer
Private Sub Command1_Click()
Dim i As Integer, s As String, j As Integer
Randomize
n = 13
For i = 1 To n
a(i) = Int(Rnd * 13) + 1
Next i
For i = 1 To n - 1
For j = i + 1 To n
If a(j) < a(i) Then
t = a(j): a(j) = a(i): a(i) = t
End If
Next j
Next i
s = ""
For i = 1 To n
s = s + Str(a(i))
If ________ Then s = s + ","
Next i
Label1.Caption = s
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer
Dim t As Integer, k As Integer
Dim max As Integer '存储连续数个数最大值
Dim begin As Integer '存储连续数开始的数值
k = 1
max = 1
For i = 2 To 13
If a(i) = a(i - 1) + 1 Or a(i) = a(i - 1) Then
If ____________ Then k = k + 1
If k > max Then
max = k
begin = ____________
End If
Else
k = 1
End If
Next i
s = ""
For j = begin To begin + max - 1
s = s + Str(j)
Next j
Label2.Caption = s
End S
如果你想泡壶茶喝,当时的情况是:没有开水,水壶、茶壶、茶杯要洗,火已经生好了,已有茶叶,接下来该怎么办呢?下面有四种解决办法,请同学们从“算法”的角度来分析,哪一种办法最省时间?
A.洗净水壶,灌上凉水,放在火上,等水开之后,洗茶杯、水壶,拿茶叶,泡茶喝 |
B.先洗水壶、茶壶、茶杯,拿茶叶,一切就绪,灌水烧水,等水开了泡茶 |
C.洗好水壶,灌上凉水,放在火上,在等待水开的时候,洗茶壶、茶杯,拿茶叶,等水开了,泡茶喝 |
D.先洗茶壶、茶杯,拿茶叶,然后洗水壶、灌水烧水,等水开了泡茶 |
如果期中考试的满分为150分,并且学生的成绩已经输入到Excel工作表的成绩列中,若想使用“筛选”功能,选出分数不低于120分以及低于72分的学生( )
A.“大于120” 或“小于72” | B.“大于或等于120”或“小于72” |
C.“大于或等于120”与“小于72 ” | D.“大于120”或“小于或等于72” |
在VB集成开发环境中,有三种工作模式,可以单击工具栏上的
按钮,可以________程序;单击工具栏上的
进入中断模式;单击工具栏上的
按钮结束运行。
绘制函数图像y=x2的VB源代码如下,请补充完整。
Private Sub Command1_Click() '按钮的单击事件
Dim x, y As Single '定义x,y两个变量
Picture1.Scale (-10, 25)-(10, -25) '定义坐标系
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255) '画横坐标轴,颜色为蓝色
Picture1.Line (0, 25)-(0, -25), RGB(0, 0, 255) '画纵坐标轴,颜色为蓝色
For x = -10 To 10 Step 0.0001 'x值从-10变化到10,每次增量为0.0001
__________ '本行代码计算函数y=x2
Picture1.PSet (x, y), RGB(255, 0, 0) '根据x,y的值用红色描点
Next x '取下一个增量后的x值
End Sub

以上的VB计算机语言是__________语言。(已知计算机语言有:机器语言、汇编语言、高级语言)



绘制函数图像y=x2的VB源代码如下,请补充完整。
Private Sub Command1_Click() '按钮的单击事件
Dim x, y As Single '定义x,y两个变量
Picture1.Scale (-10, 25)-(10, -25) '定义坐标系
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255) '画横坐标轴,颜色为蓝色
Picture1.Line (0, 25)-(0, -25), RGB(0, 0, 255) '画纵坐标轴,颜色为蓝色
For x = -10 To 10 Step 0.0001 'x值从-10变化到10,每次增量为0.0001
__________ '本行代码计算函数y=x2
Picture1.PSet (x, y), RGB(255, 0, 0) '根据x,y的值用红色描点
Next x '取下一个增量后的x值
End Sub

以上的VB计算机语言是__________语言。(已知计算机语言有:机器语言、汇编语言、高级语言)
下列关于Visual Basic 程序设计语言的叙述正确的是( )
A.Visual Basic 语言属于机器语言 | B.Visual Basic 是一种高级语言 |
C.Visual Basic 是一种自然语言 | D.应在代码窗口中输入Visual Basic 语言的程序代码 |
利用VB程序设计语言进行信息的编程加工的一般程序是( )
A.编写代码、设计算法、设计界面、调试运行 | B.设计算法、设计界面、编写代码、调试运行 |
C.设计算法、编写代码、设计界面、调试运行 | D.设计算法、编写代码、调试运行、设计界面 |
通过设计程序解决问题时,工作过程中最恰当的顺序是( )
A.提出问题→设计算法→编写程序→得到答案 |
B.提出问题→编写程序→运行程序→得到答案 |
C.设计算法→编写程序→调试程序→得到答案 |
D.提出问题→设计程序→编写程序→运行程序 |
某模特培训学校打算将身高(H)超过1.75米且体重(W)不大于55千克作为招生条件,表示该条件的关系表达式为( )
A.(H>=1.75)And (W<=55) | B.(H<=1.75)Or (W>=55) |
C.(H>1.75)And (W<=55) | D.(H>1.75)Or (W<55) |