工作班制分为单位制和多班制，下列关于工作班制的说法正确的是（）。A.实行单班制，有利于机器设

设窗体中有一个文本框Text1，若在程序中执行了Text1．SetFocus，则触发（）。

A.Text1的SetFocus事件

B.Text1的GotFocus事件

C.Text1的LostFocus事件

D.窗体的GotFocus事件

A.Text1的SetFocus事件

B.Text1的GotFocus事件

C.Text1的LostFocus事件

D.窗体的GotFocus事件

设窗体中有一个文本框Textl，若在程序中执行了Textl．SetFocus，则触发

A．Textl的SetFocus事件

B．Textl的GotFocus事件

C．Textl的LostFocus事件

D．窗体的GotFocus事件

A．Textl的SetFocus事件

B．Textl的GotFocus事件

C．Textl的LostFocus事件

D．窗体的GotFocus事件

在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：

Private Sub Command1_Click()

Dim I As Integer

If Text1.Text<>"Gong" Then

I = MsgBox("密码错误", 5 + vbExclamation, "输入密码")

If I<>4 Then

End

Else

Text1.Text = ""

Text1.SetFocus

End If

Else

MsgBox "密码帐号正确!"

End If

End Sub

若在text1中输入字符串"Gong"，则程序运行结果为()

A.显示对话框，提示"密码帐号正确!"

B.显示对话框，提示"密码错误"

C.程序出错

D.没有任何提示

设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程： Private Sub Command1_Click() Dim s As String，Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是()。

A．Basic

B．cisaB

C．BASIC

D．CISAB

在窗体上添加一个文本框Text1，然后编写下列Load事件过程，则程序运行结果是()。

Private Sub Form_Load()

Text1.Text=""

Text1.SetFocus

For k=1 To 5

t=t*k

Next k

Text1.Text=t

End Sub

A．在文本框中显示120

B．文本框中仍为空

C．在文本框中显示1

D．出错

设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程： Private Sub Command1_Click() Dim s As String，Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是()。

A．Basic

B．cisaB

C．BASIC

D．CISAB

设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text=" " Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer， Shift As Integer，X As Single，Y As Single) Print“程序设计” End Sub Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print "Visual Basic"； End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗本上显示的内容是

A．Visual Basic

B．程序设计

C．Visual Basic程序设计

D．a程序设计

在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:

Private Sub Form_load()

Text1.Text=″″

Text1.SetFocus

For i=1 To 9

Sum=Sum+i

Next i

Text1.Text=Sum

End Sub

上述程序的运行结果是

A．在文本框Text1中输出45

B．在文本框Text1中输出0

C．出错

D．在文本框Text1中输出不定值