• 搜标题
  • 搜题干
  • 搜选项
0 / 200字
单项选择题

窗体上有一个名称为Labell的标签；一个名称为Timerl的计时器，其Enabled和Interval 属性分别为True和1000。编写如下程序： Dim n As Integer Private Sub Timer 1_Timer() ch=Chr(n+Asc("A"))：Labell．Caption=ch：n=n+1：n=n Mod 4 End Sub 运行程序，将在标签中

A．不停地依次显示字符“A”、“B”、“C”、“D”，直至窗体被关闭
B．依次显示字符“A”、 “B”、 “C”、 “D”各一次
C．每隔1秒显示字符“A”一次
D．每隔1秒依次显示26个英文字母中的一个
题目列表

你可能感兴趣的试题

单项选择题

在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是

A．Private Sub Text 1_Change() Label 1．Caption=Str(Len(Text 1．Text)) End Sub
B．Private Sub Text 1_C lick() Label 1．Caption=Str(Len(Text 1．Text)1 End Sub
C．Private Sub Text 1_Change() Label 1．Caption=Text 1．Text End Sub
D．Private Sub Label 1_Change() Label 1．Caption=Str(Len(Text 1．Text)) End Sub
单项选择题

为了使标签Labell透明且不具有边框，以下正确的属性设置是

A．Label 1．BackStyle=0：Label 1．BorderStyle=1
B．Label 1．BackStyle=0：Label 1．BorderStyle=0
C．Label 1．BackStyle=1：Label 1．BorderStyle=1
D．Label 1．BackStyle=1：Label 1．BorderStyle=0
单项选择题

文本框的Locked属性被设置为True后产生的效果是

A．光标不能进入文本框
B．不能使文本框中的文本左右滚动
C．不能修改文本框中的文本
D．在程序中不能引用文本框的内容
单项选择题

窗体上有2个名称分别为Text1和Text2的文本框。编写如下程序： Private Sub Form_Load() Private Sub Command 1_Click() Text1．Text="" Print Text1．Text+Text2．Text Text2．Text="" End Sub End Sub 程序运行后，在Text1和Text2中依次输入100和200，单击Command 1，则输出结果为

A．100
B．200
C．300
D．100200
单项选择题

为了调整图像框的大小以与其中的图形相适应，必须把它的Stretch属性设置为

A．True
B．FALSE
C．1
D．2
单项选择题

为了使标签控件在显示其内容时不覆盖其背景内容，需进行设置的属性为

A．BackColor
B．BorderStyle
C．ForeColor
D．BackStyle
单项选择题

以下能够触发文本框Change事件的操作是

A．文本框失去焦点
B．文本框获得焦点
C．设置文本框的焦点
D．改变文本框的内容
单项选择题

要使图像框(Image)中的图像能随着图像框的大小伸缩，应该设置的属性及值是

A．AutoSize值为True
B．AutoRedraw值为True
C．Stretch值为True
D．BorderStyle值为0
单项选择题

下面关于直线控件的叙述中正确的是

A．它的X1、X2属性值必须满足X1B．如果显示的是一条垂直线，直线上面端点的坐标一定是(X1，Y1)
C．如果有2个直线控件Line1和Line2，若Line1．X1=Line2．X2，则2条线有一端相连
D．上述都是错误的
单项选择题

若要把窗体上命令按钮Command1的状态设置为不可用，应该执行的命令是

A．Command1．Enabled=False
B．Command1．Visible=False
C．Command1．Cancel=False
D．Command1．Default=False
单项选择题

以下关于命令按钮的叙述中正确的是

A．命令按钮上可以显示图片
B．命令按钮能够分别响应单击、双击事件
C．程序运行时，不能改变命令按钮上的文字
D．若命令按钮的Cancel属性设为True，焦点在其他控件上时，按下回车键与单击该按钮的效果相同
单项选择题

命令按钮不支持的事件为

A．Click
B．DblClick
C．GotFocus
D．MouseMove
单项选择题

在窗体上画一个组合框，一个命令按钮和一个文本框，其名称分别为Combol，Command 1 和Text1，然后编写如下事件过程： Private Sub Form_Load() Combol．AddItem"AAAAA”：Combol．AddItem"BBBBB" Combol．AddItem"CCCCC"：Combol．AddItem"DDDDD" Combol．AddItem"EEEEE" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目“CCCCC”。为了实现该操作，在命令按钮的Click事件过程中应使用的语句为

A．Text1．Text=Combol．List(2)
B．Text1．Text=Combo1．Text
C．Text1．Text=Combol．List(3)
D．Text1．Text=Combol．ListIndex
单项选择题

以下不属于单选按钮的属性是

A．Caption
B．Name
C．Min
D．Enabled
单项选择题

为了将“联想电脑”作为数据项添加到列表框List 1的最前面，可以使用语句

A．List 1．Addltem"联想电脑"，0
B．List 1．AddItem"联想电脑"，1
C．List 1．AddItem 0，"联想电脑"
D．List 1．AddItem 1，"联想电脑"
单项选择题

要想使列表框只允许单选列表项，应设置的属性为

A．Style
B．Selected
C．MultiSelect
D．Enabled
单项选择题

窗体上有一个名称为Combol的组合框，为了引用Combol中最后一个列表项，应使用的表达式是

A．Combol．List(ListCount)
B．Combol．List(Combol．ListCount-1)
C．Combol．List(ListCount-1 )
D．Combol．List(Combol．ListCount)
单项选择题

要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的MultiSelect属性设置为

A．0-None
B．1-Simple
C．2-Extended
D．3
单项选择题

为了删除列表框中的一个列表项，应使用的列表框方法是

A．Move
B．Remove
C．Clear
D．RemoveItem
单项选择题

设窗体上有一个名称为Checkl的复选框，并有下面程序代码： Private Sub Checkl_MouseDown(Button As Integer,Shift As Integer，X As Single，Y As Single) Checkl．Value=1 End Sub 根据上面的事件过程，可以得出结论

A．鼠标单击该复选框，复选框的标题被改为“1”
B．鼠标右键单击该复选框，可以选中该复选框
C．鼠标左键单击该复选框，它被选中，右键单击它，取消选中
D．鼠标右键单击该复选框，它被选中，左键单击它，取消选中
单项选择题

窗体上有1个名称为Labell的标签；1个名称为List 1，且含有若干表项的列表框。为了使得单击List 1中某个表项时，在Labell中相应地显示该表项，应使用的程序代码为

A．Private Sub List 1_Click() Label 1．Caption=List 1．Index End Sub
B．Private Sub List 1_Click() Label 1．Caption=List 1．ListCount End Sub
C．Private Sub List 1_Click() Label 1．Caption=List 1．Text End Sub
D．Private Sub List 1_Click() Label 1．Caption=List 1．Selected End Sub
单项选择题

窗体上有一个名为List 1的列表框和一个名为Command 1的命令按钮，并有下面的事件过程： Private Sub Command 1_Click() n％=List 1．ListIndex If n>0 Then ch$=List 1．List(n) List 1．List(n)=List 1．List(n一1)：List 1．List(n-1)=ch End If End Sub 程序运行时，选中1个列表项，然后单击Command 1按钮，则产生的结果是

A．若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位置
B．选中的列表现与它前面的列表项互换位置
C．若选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置
D．选中的列表项与它后面的列表项互换位置
单项选择题

在窗体上画一个水平滚动条，其属性值Min满足

A．增加一个SmallChange量
B．减少一个SmallChange量
C．增加一个LargeChange量
D．减少一个LargeChange量
单项选择题

窗体上有一个名称为VScrol11的垂直滚动条，要求程序运行时，滚动块的初始位置在最下端，应该使VScrol11．Value的值等于

A．VScrol11．LargeChange
B．VScrol11．SmallChange
C．VScrol11．Max
D．VScrol11．Min
单项选择题

窗体上有一个名称为VScrol11的垂直滚动条，为了设定单击滚动条两端箭头时的Value增量值，应设置的属性是

A．LargeChange
B．SmallChange
C．Max
D．Min
单项选择题

下列关于水平滚动条的叙述中，错误的是

A．Value属性值表示单击滚动条两端的箭头时，滚动框向左或向右移动的增量
B．Scroll事件在鼠标拖动滚动框时产生
C．用鼠标拖动滚动框后，会触发Change事件
D．单击滚动条两端箭头时，会触发Change事件
单项选择题

窗体上有1个名称为Text1的文本框，1个名称为Timerl的计时器，且已在属性窗口将Timerl 的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是，单击窗体，则每隔2秒钟在Text1中显示一次当前时间。 Private Sub Form_Click() Private Sub Timerl_Timer()Timerl．________ Text1．Text=Time() End Sub End Sub 为了实现上述功能，应该在横线处填入的内容为

A．Enabled=True
B．Enabled=False
C．Visible=True
D．Visible=False
单项选择题

设窗体上有一个名称为Timerl的计时器控件，其Interval属性被设置为500，Enabled属性被设置为True；还有一个名称为Text1的文本框和下面的事件过程： Private Sub Timer 1—Timer() Static xAs Long x=x+l：Text1=x End Sub 程序运行一段时间后，文本框中显示的是100，则表示

A．程序已经运行了100秒
B．程序已经运行了100毫秒
C．程序已经运行了50秒
D．文本框到窗体左边框的距离是100
单项选择题

窗体上有一个名称为Labell的标签；一个名称为Timerl的计时器，其Enabled和Interval 属性分别为True和1000。编写如下程序： Dim n As Integer Private Sub Timer 1_Timer() ch=Chr(n+Asc("A"))：Labell．Caption=ch：n=n+1：n=n Mod 4 End Sub 运行程序，将在标签中

A．不停地依次显示字符“A”、“B”、“C”、“D”，直至窗体被关闭
B．依次显示字符“A”、 “B”、 “C”、 “D”各一次
C．每隔1秒显示字符“A”一次
D．每隔1秒依次显示26个英文字母中的一个
单项选择题

下面哪个属性肯定不是框架控件的属性

A．Text
B．Caption
C．Left
D．Enabled
单项选择题

以下可以作为“容器”的控件是

A．框架
B．图像框
C．标签
D．命令按钮
单项选择题

对于能够获得焦点的控件，若要使其不能接收焦点，应该

A．将TabStop属性值设为True
B．将TabStop属性值设为False
C．将TabIndeX属性值设为0
D．将Enabled属性值设为False
微信扫码免费搜题