- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- + 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
输入两个在 1 和 9 之间的正整数 a 和 n ,求 a+aa+aaa+aaaa+…+a…a(n 个 a)之和。为解决该问题,小明设计了一个 VB程序,在文本框 Text1 中输入 a 的值,在文本框 Text2 中输入 n的值,单击“计算”按钮 Command1,在列表框 List1 中输出每次相加的等式和结果,界面如图所示。

(1)要使程序运行时,文本框 Text1 的文字大小 FontSize 属性值设置为 12,可在 Form_Load 事件过程中添加语句__________________(单选,填字母:
(2)实现上述功能的 VB 程序如下,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim a As Long, n As Integer, s As Long
Dim s1 As String, t As Long
a =Val(Text1. Text)
n =Val(Text2. Text)
If a < 1 Or a > 9 Then
List1. AddItem "输入 a 的值无效"
ElseIf n < 1 Or n > 9 Then
List1. AddItem "输入 n 的值无效"
Else
s = a: t = a
s1 =Str(t)
List1. AddItem s1 +"=" + Str(s)
i = ①__________
Do While i <= n
②__________
s = s + t
s1 = s1 + "+" +Str(t)
List1. AddItem s1 + "=" + Str(s)
③__________
Loop
End If
End Sub

(1)要使程序运行时,文本框 Text1 的文字大小 FontSize 属性值设置为 12,可在 Form_Load 事件过程中添加语句__________________(单选,填字母:
A.FontSize = 12 / | B.Text1. FontSize =12 / | C.FontSize. Text1=12)。 |
Private Sub Command1_Click()
Dim a As Long, n As Integer, s As Long
Dim s1 As String, t As Long
a =Val(Text1. Text)
n =Val(Text2. Text)
If a < 1 Or a > 9 Then
List1. AddItem "输入 a 的值无效"
ElseIf n < 1 Or n > 9 Then
List1. AddItem "输入 n 的值无效"
Else
s = a: t = a
s1 =Str(t)
List1. AddItem s1 +"=" + Str(s)
i = ①__________
Do While i <= n
②__________
s = s + t
s1 = s1 + "+" +Str(t)
List1. AddItem s1 + "=" + Str(s)
③__________
Loop
End If
End Sub
运行程序时,Text1. text=“”语句会被自动执行,可以将该语句嵌入的过程是( )
A.Command1_click | B.Form_load | C.Text1_click | D.Timer1_timer |
设计一个算法,计算导弹射程之间的最大距离差。具体程序功能如下:在文本框中输入各枚导弹的射程(单位:千公里),数据之间用逗号分割,以-1结尾。单击按钮,在标签框输出结果。例如在Text1中输入“15,9,1,2,3,8,7,-1”,单击“计算”按钮,输出结果为“14”。实现该算法的VB程序如下,界面如图所示,回答下列问题:

(1)为实现该程序,在窗体中至少需要使用_______类不同的控件对象(填数字)。
(2)算法具体代码对应如下,请在横线处填入合适的语句代码,使程序完整。
Private Sub Command1_Click()
Dim a(100) As Integer
Dim max As Integer: Dim min As Integer
Dim c As Integer: Dim i As Integer: Dim j As Integer: Dim Total As Integer
Dim s As String
s = Text1.Text
i = 1 : begin = 1 : c = 0
Do While i <= Len(s)
a(c) = Val(t)
begin =②__________
End If
i = i + 1
Loop
' 加框语句
min = a(1)
For i = 1 To c
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next i
Text2.Text = max - min
End Sub
(3)若删除程序中加框处语句,还是相同的输入数据,则计算出的最大差值为:_________。

(1)为实现该程序,在窗体中至少需要使用_______类不同的控件对象(填数字)。
(2)算法具体代码对应如下,请在横线处填入合适的语句代码,使程序完整。
Private Sub Command1_Click()
Dim a(100) As Integer
Dim max As Integer: Dim min As Integer
Dim c As Integer: Dim i As Integer: Dim j As Integer: Dim Total As Integer
Dim s As String
s = Text1.Text
i = 1 : begin = 1 : c = 0
Do While i <= Len(s)
k = Mid(s, i, 1)
If k = "," Then
t = ①_________
c = c + 1a(c) = Val(t)
begin =②__________
End If
i = i + 1
Loop

min = a(1)
For i = 1 To c
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next i
Text2.Text = max - min
End Sub
(3)若删除程序中加框处语句,还是相同的输入数据,则计算出的最大差值为:_________。
分析解答问题.
学校举行校园歌手大赛,评委由6人组成,评分方法,去掉一个最高分和一个最低分,计算其余4位评委的平均分,作为选手的最终得分。
(1)在设计界面过程中,窗体中录入评委打分的对象是下面图中哪个控件生成的?______(填写编号:1/2/3/4)

(2)定义一个数组储存六个评委的成绩,需要定义的类型为______(填字母)

(3)下列程序代码片段对应于算法描述中的第2步至第4步。请填写片段中括号内空白处的表达式:_________
max=a(1)
min=a(1)
s=a(1)
For i=2 to 6
s=s+a(i)
If a(i)>max then max=a(i)
If a(i)<min then min=a(i)
Next i
Aver=( )/4 ’计算出选手的最终得分aver
学校举行校园歌手大赛,评委由6人组成,评分方法,去掉一个最高分和一个最低分,计算其余4位评委的平均分,作为选手的最终得分。
(1)在设计界面过程中,窗体中录入评委打分的对象是下面图中哪个控件生成的?______(填写编号:1/2/3/4)

(2)定义一个数组储存六个评委的成绩,需要定义的类型为______(填字母)

A.integer | B.boolean | C.long | D.single |
max=a(1)
min=a(1)
s=a(1)
For i=2 to 6
s=s+a(i)
If a(i)>max then max=a(i)
If a(i)<min then min=a(i)
Next i
Aver=( )/4 ’计算出选手的最终得分aver
在 VB 窗体中,当前对象的属性窗口如图所示。下列说法正确的是( )


A.该对象属于标签类 |
B.该对象属于文本框类 |
C.该对象的标题是“转换” |
D.该对象的 Default 属性值是“True” |
交换LABEL2和LABEL3中的数据
PRIVATE SUB FORMCLICK( )
LABEL2.CAPTION=90 : LABEL3.CAPTION=86
C=LABEL2.CAPTION
________
________
END SUB
PRIVATE SUB FORMCLICK( )
LABEL2.CAPTION=90 : LABEL3.CAPTION=86
C=LABEL2.CAPTION
________
________
END SUB