设ω、ω_d分别为

窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（ ）。

A.Private Sub Form1 Click（ ）

End Sub···

B.Private Sub Form1. Click（ ）

End Sub···

C.Private Sub Command1 click（ ）

End Sub···

D.Private Sub Command Click（ ）

End Sub···

Command1_Click()事件代码如下： Private Sub Command1_Click() Dim x As Integer, Y As Integer x = 6 : Y : 8 Call ABC(X, Y) Print X; Y End Sub Private Sub ABC(ByVal X As Integer，Y As Integer) X = X + 4 Y = Y = 2 End Sub 事件发生后，X和Y的值分别为 ______。

A．6, 8

B．10, 10

C．10, 8

D．6, 10

下列关于Sub过程的叙述正确的是A.一个Sub过程必须有一个Exie Sub语句B.一个Sub过程必须有一个Enb Sub语句C.在Sub过程中可以定义一个Function过程D.可以用Goto语句退出Sub过程

设窗体上有一个名为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程序设计

给出窗体单击事件过程：

PRIVATE SUB FORM_CLICK( )

DIM A AS INTEGER

A =VAL( INPUTBOX( "PLEASE INPUT A NUMBER" ))

SELECT CASE A MOD 5

CASE IS＜4

W=A+10

CASE IS＜2

W=A.2

CASE ELSE

W=A-10

END SELECT

MSGBOX W

END SUB

当运行程序后，设输入的数据分别为14、3、125、21时，消息框显示的内容分别是【 】。

在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写下列程序： Private Sub rune(L AS Labe1) Caption="1234" End Sub Private Sub Form. Load（ ） Labe11．Caption="ABCDE" Labe12．Caption=10 End Sub Private Sub Command1Click（ ） a=Va1(Label2．Caption) Call func(Label1) Label2．Caption a End Sub 程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（ ）。

A.ABCD和10

B.1234和100

C.ABCD和100

D.1234和10

设有代码如下，当双击窗体内的某个位置时，命令按钮Command1和命令按钮Command2的标题分别为11、【 】。

Private SubForm_Load()

CommandCaption = "1"

CommandCaption = "2"

End Sub

Private Sub Form_Click()

CommandCaption = "11"

End Sub

Private Sub Form_DblC1ick( )

Commandcaption = 22

End Sub

设程序中有如下数组定义和过程调用语句： Dim a(10)As Integer … Call D(a) 如下过程定义巾，正确的是（ ）。

A.Private Sub p(a As Integer)

B.Private Sub p(a（ ）As Integer)

C.Private Sub p(a(10)As Integer)

D.Private Sub p(a(n)As Integer)

有如下程序： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single，y As Single) t=X X=t\Y Y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为

A．0 0

B． 1 1

C．2 2

D．1 2

有如下程序： Private Sub Commandl_Click() Dim a As Single Dim b As Single a=2：b=4 Call CS(a，b)End Sub Sub CS(x As Single，y As Single) t=X x=t\y y=t Mod y End Sub 程序运行后，单击命令按钮，a和b的值分别为

A．0 0

B．1 1

C．0 2

D．1 2