第2题
【应用说明】
某电视台拟开发应用程序来显示戏曲大赛中1~4号四位选手决赛的现场投票情况。该程序从现场观众中(不超过2000人)每0.5秒收集一次对这四位选手的支持票数,并在屏幕上动态显示这四位选手的票柱(以高度反映票数)与累计得票数,如图2-3所示。投票过程限时30秒,每名观众最多为1名选手投票。投票结束后系统通过比较各位选手的累计得票数,显示决赛结果:“*号胜出”(如有单个冠军)或“继续进行PK”(如有多人获得相同的最高票数)。
在开发该程序的过程中创建的主要控件及其初始属性值说明如下:
该程序中设置公共变量T动态记录投票时间。四个形状ShpM(1 to 4)动态增长的底线固定。
【Visual Basic程序代码】
Dim T As Integer '声明全局变量
Private Sub Form_Load()
For i=1 To 4
ShpM(i).Top=2000 : ShpM(i).Height=0 '初始票柱高度为0
TxtM(i).Text=0
Next i
Timl.Enabled=False : Timl.Interval=500 : T=0
End Sub
Private Sub CmdStart Click()
Timl.Enabled=True '开始投票
CmdStart.Enabled=False
End Sub
Private Sub Timl Timer()
Dim n(1 To 4) As Integer 'n(1 to 4)为每次收集的票数
Dim i As Integer,j As Integer
Dim G As Integer 'G用于计算最高票数
Dim ng As Integer 'ng用于计算冠军个数
For i=1 To 4
n(i)=... '收集i号选手的票数,此处省略
TxtM(i).Text=TxtM(i).Text+n(i) '累计票(VB能进行自动转换)
ShpM(i).Top=ShpM(i).Top-n(i)
ShpM(i).Height=ShpM(i).Height+(1) '算出票柱高度
Next i
T=T+1 '计时
If T=60 Then '投票时间到
(2) '停止数据收集处理
ng = 1
G=TxtM(1).Text
For i=2 To 4
If G<TxtM(i).Text Then
G=TxtM(i).Text
ng=(3)
j = i
Else
If G=TxtM(i).Text Then ng=(4) '计算冠军个数
End If
Next i
If ng=1 Then
txtResult. Text=(5) '单个冠军结果
Else
txtResult. Text="继续进行PK"
End If
End If
End Sub
第3题
[应用说明]
某应用程序在运行过程中的一个界面如下图所示:
在“供选课程”列表框(名为Listl)中选择某个课程后,再单击“,”按钮(名称为cmdSelect),就能将该课程复制到“所选课程”列表框(名称为List2)中(但要注意不要出现重复项):如果单击“>>”按钮(名称为cmdSelAll),就能将全部供选课程名复制到列表框List2中(注意应先删除List2中的已选项);如果在“所选课程”列表框中选中某个课程,再单击“<”按钮(名称为emdDelete),就会从List2中删除该课程(未选课程时应不做处理);如果单击“<<”按钮(名称为cmdDelAll),就会从List2中删除所有已选课程。
[Vsual Basic 程序代码]
Private Sub CmdSelect_Cliek()
For i = O To List2.ListCount - 1
If Listl.Text = List2.List(i) Then Exit Sub '不要重复选择
Next i
List2.Addltem (1) '在List2中增添List1中所选的项
End Sub
Private Sub CrndSelAll_Click()
List2.Clear '先删除List2中的已有项
For i = 0 To (2) '对List1中所有各项做循环处理
List2.Addltem (3) '将该项增添到 List2中
Next i
End Sub
Private Sub CmdDelete_Cliek()
If List2.Listlndex >= O Then '如果List2中有选中的项,
List2.Removeltem (4) '则删除所选的项
End If
End Sub
Private Sub CmdDelAll_Cliek()
(5)
End Sub
第5题
A. 在IIS里,拒绝匿名访问。
B. 在Web.config文件,设置允许模拟身份(enable impersonation)。
C. 在IIS里,允许匿名访问。
D. 在Web.config文件,设置不允许模拟身份(disable impersonation)。
E. 在Web.config文件,设置验证模式为Windows。
第7题
A.Java EE定义了分布式环境中多层应用系统的架构,是多种Java技术的混合体
B.具有典型的三层结构:表现层、业务逻辑层和基础设施层
C.不同的应用系统对底层支持系统的要求可能不同,因此每次开发时应该针对不同的应用需求对底层系统进行二次开发,提供支持接口
D.要严格区分业务逻辑层和表现层,尤其应该注意不要在表现层中混杂业务代码
第8题
A.Java EE定义了分布式环境中多层应用系统的架构,是多种Java技术的混合体
B.具有典型的三层结构:表现层、业务逻辑层和基础设施层
C.不同的应用系统对底层支持系统的要求可能不同,因此每次开发时应该针对不同的应用需求对底层系统进行二次开发,提供支持接口
D.要严格区分业务逻辑层和表现层,尤其应该注意不要在表现层中混杂业务代码
第9题
(34)
A. Java EE定义了分布式环境中多层应用系统的架构,是多种Java技术的混合体
B. 具有典型的三层结构:表现层,业务逻辑层和基础设施层
C. 不同的应用系统对底层支持系统的要求可能不同,因此每次开发时应该针对不同的应用需求对底层系统进行二次开发,提供支持接口
D. 要严格区分业务逻辑层和表现层,尤其应该注意不要在表现层中混杂业务代码
第10题
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!