单项选择题

在窗体上画一个命令按钮和一个标签，其名称分别为Commandl和Labell，然后编写如下事件过程： Private Sub Commandl_Click() Counter=0 Fori=1T04 Forj=6 To 1 Step-2 Counter=Counter+1 Nextj Nexti Labell.Caption=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是( )。

A．11
B．12
C．16
D．20

<上一题目录下一题>

热门试题

单项选择题

下列程序运行后，单击命令按钮，窗体显示的结果为( )。 Private Function pl(x As Integer,y As Integer,z As Integer) pl=2*x+y+3*z End Function Private Function p2(X As Integer,y As Integer,z As Integer) p2=p1(z,y,x)+x End Function Private Sub Commandl_Click() Dim a As Integer Dim b As Integer Dim c As Integer a=2:b=3:c=4 Print p2(c,b,a) End Sub

A．23
B．19
C．21
D．22

单项选择题

窗体上有名称分别为Textl、Text2的2个文本框，要求文本框Textl中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在下划线处应填入的内容是( )。 Private Sub Textl_ostFocus() Call Checklnput(Textl,500) End Sub Private Sub Text2_LostFocus() Call Checklnput(Text2,1000) End Sub Sub Checklnput(tAs__,x AS Integer) IfVal(t.Text＞X Then MsgBox“请重新输入!” End If End Sub

A．Text
B．SelText
C．Control
D．Form

相关试题