- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- + 面向对象程序设计 VB开发工具
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
学校要进行元旦文艺汇演了,学生会让薛明来担任总记分员,任务就是根据各个评委所打分数,去掉一个最高分和一个最低分,然后计算平均分。薛明很快编写了这个程序,该程序的界面如右图所示:
程序运行时,每输入一个分数单击“确定”按钮(Command1),就将该分数记入总分,同时在下面显示到目前为止已输入的所有分数。当所有的分数输入完毕后,单击“统计->”按钮(Command2),程序就会在右边显示总分和最后的平均分。请回答下面的问题:

(1)写出上述图形中所标识的③对象所属的类?如④所属的类为“文本框”。
_____________
(2)以下是薛明编写的统计程序,请完善程序。
Dim total As Integer, ans As Single, x As Integer, max As Integer
Dim min As Integer, s As Integer
Private Sub Command1_Click()
x = Val(Text1.Text)
total = total + x
s =" s" + 1
If_________Then max = x
If x < min Then min = x
List1.AddItem x
End Sub
Private Sub Command2_Click()
Label4.Caption = Str(total)
ans =_________
ans = ans / (s - 2)
Label6.Caption =_____________
End Sub
Private Sub Form_Load()
total = 0
s = 0
min = 10000
max = 0
End Sub
程序运行时,每输入一个分数单击“确定”按钮(Command1),就将该分数记入总分,同时在下面显示到目前为止已输入的所有分数。当所有的分数输入完毕后,单击“统计->”按钮(Command2),程序就会在右边显示总分和最后的平均分。请回答下面的问题:

(1)写出上述图形中所标识的③对象所属的类?如④所属的类为“文本框”。
_____________
(2)以下是薛明编写的统计程序,请完善程序。
Dim total As Integer, ans As Single, x As Integer, max As Integer
Dim min As Integer, s As Integer
Private Sub Command1_Click()
x = Val(Text1.Text)
total = total + x
s =" s" + 1
If_________Then max = x
If x < min Then min = x
List1.AddItem x
End Sub
Private Sub Command2_Click()
Label4.Caption = Str(total)
ans =_________
ans = ans / (s - 2)
Label6.Caption =_____________
End Sub
Private Sub Form_Load()
total = 0
s = 0
min = 10000
max = 0
End Sub
某电信部门规定:拨打市内电话时,如果通话时间不超过3分钟(含3分钟),则收取通话费0.2元,如果通话时间超过3分钟,则超过部分以每分钟0.1元收取通话费(通话时间为整数)。下面是计算通话费用的流程图和程序,请认真分析并回答问题。根据题意,完善流程图,填写空白处。

①
下图是计算通话费用程序窗体界面布局示意图。

Command1_Clik事件过程如下。
请填写程序空白处。
Private Sub Command1_Click()
Dim ② as ③
‘定义 x 为整型
x = Val(Text1.Text)
④ Then
‘条件语句
⑤
显出通话时间不超过3分钟时的电话费
Else
Text2.Text =" Str(0.2" + 0.1 * (x - 3)) ‘显出通话时间超过3分钟时的电话费
End If
End Sub
这段程序属于 ⑥ 结构程序设计。

①
下图是计算通话费用程序窗体界面布局示意图。

Command1_Clik事件过程如下。
请填写程序空白处。
Private Sub Command1_Click()
Dim ② as ③
‘定义 x 为整型
x = Val(Text1.Text)
④ Then
‘条件语句
⑤
显出通话时间不超过3分钟时的电话费
Else
Text2.Text =" Str(0.2" + 0.1 * (x - 3)) ‘显出通话时间超过3分钟时的电话费
End If
End Sub
这段程序属于 ⑥ 结构程序设计。
能正确表达“a≤1或a≥5”的VB逻辑表达式是_______。
A.a<="1" 或a>=5 | B.a<=1,a>=5 | C.a<="1" or a>=5 | D.a<="1" and a>=5 |
如下图VB应用程序界面所示,下列关于类与对象的说法正确的是_______。


A.图中有5个对象,分别属于3个不同的类 |
B.图中计算1、Text1等字符为类的名称 |
C.图中有6个对象,分别属于4个不同的类 |
D.图中计算1、Text1等字符为对象的名称 |
在VB中,设x=389,能得到其百位数字“3”的正确表达式是_______。
A.Int(x/10)*10 | B.Int(x/100)*100 | C.Int(x/100) | D.x-Int(x/10)*10 |
在VB中,要在标签对象Start上显示文字“请输入验证码:”,则应改变的属性是_______。
A.Caption | B.Width | C.Font | D.Height |