订单查询
首页 其他文档
计算机二级考试测试题含答案4卷
大小:480.21KB 17页 发布时间: 2023-12-09 14:39:43 16.06k 15.98k

D.7

9.阅读程序:

Option Base 1

Private Sub Form_Click( )

Dim arr

Dim Sum%

Sum = 0

arr = Array(1, 3, 5, 7, 9)

For t = 1 To 5

Sum = Sum + arr(t)

Next t

Print Sum

End Sub

程序运行后,单击窗体,输入结果为(B)(单)

A.5

B.9

C.25

D.15

10.在窗体上画一个名称为File1的文件列表框,并编写如下程序:

Private Sub File1_DblClick( )

x=Shell(File1.FileName,1)

End Sub

以下关于该程序的叙述中,错误的是(A)(单)

A.x没有实际作用,因此可以将该语句写为:Call Shell(File1,FileName,1)

B.双击文件列表框中的文件,将触发该事件过程

C.要执行的文件的名字通过File1.FileName指定

D.File1中显示的是当前驱动器、当前目录下的文件

11.在窗体上画一个名称为Label1、标题为"VisualBasic考试"的标签,两个名称分别为Command1和Command2、标题分别为"开始"和"停止"的命令按钮,然后画一个名称为Timer1的.计时器控件,并把其Interval属性设置为500。编写如下程序:

Private Sub Form_Load( )

Timer1.Enabled=False

End Sub

Private Sub Command1_Click( )

Timer1.Enabled=True

End Sub

Private Sub Timer1_Timer( )

If Label1.Left< Form1.Width Then

Label1.Left = Label1.Left + 20

Else

Label1.Left=0

End If

我们采用的作品包括内容和图片全部来源于网络用户投稿,我们不确定投稿用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的权利,请联系我站将及时删除。
Copyright @ 2016 - 2024 经验本 All Rights Reserved 版权所有 湘ICP备2023007888号-1 客服QQ:2393136441