设计一个计时程序。该程序用户界面如图所示,由一个文本框(Text1)、两个按钮:命令按钮1(Command1)、命令按钮2(Command2)组成。程序运行后,单击开始按钮,则开始计时,文本框中显示秒数,单击停止按钮,则计时停止。单击窗口则退出。请在 【11】 、 【12】 和 【13】 处填入适当的内容,将程序补充完整。 Option Explicit Dim i Private Sub Command1_Click( ) i=0 Timer1.Interval=1000 Timer1. Enabled=True End Sub Private Sub Command2_Click( ) Timer1. Enabled=False End Sub Private Sub Form_Click( ) 【11】 Me End Sub Private Sub Form_Load( ) Timer1. Enabled=False Text1. Text=0 End Sub Private Sub Timer1_ 【12】 ( ) i=i+1 Text1. Text= 【13】 End Sub

[11] Unload
[12] Timer
[13] i

在窗体上加上一个文本控件PCSTextBox,画一个命令按钮,当单击命令按钮的时候将显示“打开文件”对话框,设置该对话框只用于打开文本文件,然后在文本控件中显示打开的文件名。请填空。
Private Sub Command1_Click( )
CommonDialog1. Filter= 【14】
CommonDialog1. ShowOpen PCSTextBox. Text= 【15】
End Sub

[14] "Text Files(*.txt)|*.txt"
[15] CommonDialog1.FileName

InputBox函数返回值的类型为( )

A:数值 B:字符串 C:变体 D:数值或字符串(视输入的数据而定)

Visual Basic的每种工具栏都有固定和浮动两种形式,把浮动工具栏变为固定工具栏的操作方法是( )

A:单击浮动工具栏的标题栏 B:双击浮动工具栏的标题栏 C:单击浮动工具栏的空白处 D:双击浮动工具栏的空白处

文本框的SerollBars属性值为3一Both,但在文本框中却看不见水平与垂直滚动条,可能的原因是( )

A:文本框的MultiLine属性值为False B:文本框的MultiLine属性值为True C:文本框中尚未输入内容 D:文本框的Locked属性值为False

执行下列程序后,变量a的值为 ( )
Dim i As Integer
Dim a As Integer
a=0
For i=l To 100 Step 2
a=a+l
Next i

A:1 B:10 C:50 D:100

文件列表框的Pattern属性的作用是 ( )

A:显示当前驱动器或指定驱动器上的目录结构 B:显示当前驱动器或指定驱动器上的某目录下的文件名 C:显示某一类型的文件 D:显示该路径下的文件

以下关于作用范围的描述正确的是 ( )

A:所有变量(Publie/Global/Static/Private)都可以放到窗体的通用部分定义 B:所有变量(Public/Global/Static/Private)都可以放到标准模块中定义 C:Public/Global类的变量只能放在标准模块中定义 D:只有Global类的变量必须放在标准模块中定义

在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Commandl—Click( )
x=InputBox(“请输入一个整数”)
Print x+345
End Sub
程序运行后,单击命令按钮,在输入对话框中输入123,则在窗体上输出的内容为( )

A:123345 B:468 C:123 D:345

串的长度是 ( )

A:串中不同字符的个数 B:串中不同字母的个数 C:串中所含字符的个数且字符个数大于零 D:串中所含字符的个数

微信扫码获取答案解析
下载APP查看答案解析