- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
Private Sub Command1 Click()
Move 500,500
End Sub
程序运行后,单击命令按钮,执行的操作为
A.命令按钮移动到距窗体左边界、上边界各500的位置 |
B.窗体移动到距屏幕左边界、上边界各500的位置 |
C.命令按钮向左、上方向各移动500 |
D.窗体向左、上方向各移动500 |
PRIVATE SUB FORM-CLICK( )
DIM X AS INTEGER, G AS INTEGER
DIM S AS INTEGER , Y AS INTEGER
X=VAL(INPUTBOX(“请输入一个两位正整数”))
G=________ ‘个位
S=________ ‘十位
Y=________ ‘新数
________
________
END SUB
变化段:数组中相邻两个元素构成一个变化段。变化段有上升段(a(i)>a(i-1))、下降段(a(i)<a(i-1))和持平段(a(i)=a(i-1))。数组a中的n个元素可构成n-1个依次排列的变化段。
波峰:从上升段转到下降段形成一个波峰。波峰的起点是峰顶前所有连续上升段中的第1个,终点是峰顶后所有连续下降段中的最后1个。
对称波峰:上升段与下降段个数相同的波峰称为对称波峰。
下图为一组数据的变化段及波峰示意图。
(1)数组元素“1,4,3,3,2,6,8,7,9,3,4,7,9,6,3,1”依次变化过程中“对称波峰”的个数为_____。
(2)请在划线处填入合适的代码。
Const n = 20
Dim a(1 To n) As Integer
Private Sub Form_Load()
'读取数据,并存储到数组a中,代码略
End Sub
Private Sub Command1_Click()
Dim flag As Integer '存储变化段的状态:1表示升,-1表示降,0表示平
Dim count As Integer '存储对称波峰段的个数
Dim steps As Integer
Dim i As Integer
flag = 0: steps = 0: count = 0
For i = ________ To n
If a(i) > a(i - 1) Then
If IsSymPeak(flag, steps) Then count = count + 1
If flag = 0 Or flag = -1 Then
_________
Else
steps = steps + 1
End If
flag = 1
ElseIf a(i) = a(i - 1) Then
If IsSymPeak(flag, steps) Then count = count + 1
steps = 0
flag = 0
Else
steps = steps - 1flag = -1
End If
Next i
If IsSymPeak(flag, steps) Then count = count + 1
Text1.Text = Str(count)
End SubFunction IsSymPeak(flag As Integer, steps As Integer) As Boolean
If __________________ Then
IsSymPeak = True
Else
IsSymPeak = False
End If
End FunctionFor i = 1 To 2
For j = 5 To i + 1 Step -1
If a(j) > a(i) Then
t = a(j): a(j) = a(i): a(i) = t
End If
Next jNext i
数组元素a(1)到a(5)的值依次为“33,24,45, ,16,77”,经过该程序段“加工”后,数组元素a(1)到a(5)的值依次为( )
A.77, 45, 33, 16, 24 |
B.77, 33, 45, 16, 24 |
C.77, 24, 45, 16, 33 |
D.77, 45, 33, 24, 16 |