- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- + 面向对象程序设计 VB开发工具
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
输入一个两位正整数,个位和十位交换后在LABEL1上和窗体上分别输出。
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
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中各元素依次变化的情况,进行如下定义:
变化段:数组中相邻两个元素构成一个变化段。变化段有上升段(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()
Function IsSymPeak(flag As Integer, steps As Integer) As Boolean
变化段:数组中相邻两个元素构成一个变化段。变化段有上升段(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 Function窗体上有标签LABEL1,有两个命令按钮,COMMAND1的标题是“变大”,COMMAND2的标题是“变小”。单击“变大”按钮,LABEL1中的字变大一倍,单击“变小”按钮,LABEL1中的字变小一倍。
PRIVATE SUB COMMAND1-CLICK( )
________
END SUB
PRIVATE SUB COMMAND2-CLICK( )
________
END SUB
PRIVATE SUB COMMAND1-CLICK( )
________
END SUB
PRIVATE SUB COMMAND2-CLICK( )
________
END SUB
小宇为选定班级参赛作品编写了一个VB程序,设计如下:在文本框Text1内输入5位评委对3个作品的评分数据(评委对作品的评分数据由3位十进制数组成,第1位对应作品编号,第2、3位对应作品得分,分值范围为[60,99]。如“275”表示2号作品得分75)。单击“计分”按钮后,在标签Label1中输出3个作品的平均分,在标签Label2中输出参赛的作品(选择最高平均分作品参赛,若最高平均分存在并列,则从并列作品中随机柚取)。程序运行界面如图所示。

(1)“计分”按钮的对象名为_________。
(2)程序部分代码如下,请在划线处填入合适代码。
Private Suh jf_Click( )
Dim s As String,d As String,i As Integer
Dim f1 As Single,f2 As Single,f3 As Single
s = Text1. Text
i = 1
Do While ___________
d = Mid(s,i,3)
If Mid(d,1,1) = "1” Then
f1 = f1 + Val(Mid(d,2, 2))
ElseIf Mid(d, 1, 1) = “2” Then
f2 = f2 + Val(Mid(d,2, 2))
Else
f3 = f3 + Val(Mid(d,2, 2))
End If
________________
Loop
Label1.Caption="作品1平均分为:" + Str(f1 / 5)+ “作品2平均分为:” + Str(f2 / 5)+ “作品3平均分为:” + Str(f3 / 5)
'以下省略“处理并列最高平均分,并在Labd2中输出选取的参赛作品”的代码
End Sub
(3)运行该程序时,在文本框Text1中以不同的顺序输入原评分数据:
380/295/283/170/180/385/372/285/190/180/390/384/272/170/276,单击“计分”按钮,则Label1中显示的结果__________(选填:会/不会)发生改变。

(1)“计分”按钮的对象名为_________。
(2)程序部分代码如下,请在划线处填入合适代码。
Private Suh jf_Click( )
Dim s As String,d As String,i As Integer
Dim f1 As Single,f2 As Single,f3 As Single
s = Text1. Text
i = 1
Do While ___________
d = Mid(s,i,3)
If Mid(d,1,1) = "1” Then
f1 = f1 + Val(Mid(d,2, 2))
ElseIf Mid(d, 1, 1) = “2” Then
f2 = f2 + Val(Mid(d,2, 2))
Else
f3 = f3 + Val(Mid(d,2, 2))
End If
________________
Loop
Label1.Caption="作品1平均分为:" + Str(f1 / 5)+ “作品2平均分为:” + Str(f2 / 5)+ “作品3平均分为:” + Str(f3 / 5)
'以下省略“处理并列最高平均分,并在Labd2中输出选取的参赛作品”的代码
End Sub
(3)运行该程序时,在文本框Text1中以不同的顺序输入原评分数据:
380/295/283/170/180/385/372/285/190/180/390/384/272/170/276,单击“计分”按钮,则Label1中显示的结果__________(选填:会/不会)发生改变。