在双缝衍射实验中，若保持双缝S₁和S<su

在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗V1中把窗体的KeyPreview属性设置为True，然后编写如下程序：

Dim S1 As String，S2 As String

Private Sub Form_Load()

Text1．Text=””

Text2．Text=””

TeXt1．Enabled=False

Text2．Enabled=False

End Sub

Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)

S2=S2&Chr(KeyCode)

End Sub

Privtee Sub Form_KeyPress(KeyAscii As Integer)

S1=S1&Chr(KeyAscii)

End Sub

Pfivtee Sub Command 1_Click()

Text1．Text=S1

Text2．Text=S2

S1=””

S2=””

End Sub

程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为( )。

A．abc和ABC

B．空白

C．ABC和abc

D．出错

A、Sub S1(ByVal n!())

B、Sub S1(n!) as Integer

C、 Function S1%(S1%)

D、 Function S1(ByVal n!)

在窗体上画一个命令按钮和两上文体，其名称分别为 Command1 、 Text1 和 Text2 ，然后编写如下程序：

Dim S1 As String, S2 As String

Private Sub Form_Load（）

Text1. Text=””

Text2. Text=””

End Sub

Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）

S2=s2 & Chr（KeyCode）

End Sub

Private Sub Text1_KeyPress（KeyAscii As Integer）

S1=S1 & chr（KeyAscii）

End Sub

Private Sub Command1_Click（）

Text1.Text=S2

Text2.Text=S1

S1=""

S2=""

End Sub

程序运行后，在Text1中输入"abc"，然后单击命令按钮，在文本框 Text1 和 Text2 中显示的内容分别为（ ）。A．abc 和 ABC

B．abc 和 abc

C．ABC 和 abc

D．ABC 和 ABC

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x＋20 End Sub Private Sub s2() Dim x As Integer x=X＋20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。

A．10

B．30

C．40

D．50

执行下面的程序，消息框里显示的结果是_______。

Private Sub Form_Click()

Dim Str As String

Str=""

S="Access"

Fori=Len(S)To 1 Step-l

Str=Str&Mid(S，i，1)

Next i

MsgBox Str

End Sub

在窗体上添加一个按钮(cmd) ，编写如下程序：

Private sub crud_click( )

Dim s, i

Fori = 1 to 10

s=s+i

Next

Msgbox s

End sub

程序运行后，单击按钮，在消息框中显示的信息为 【 】 。

在窗体中添加一个命令按钮(名为Command1)，然后编写如下代码：

Public x as integer

Private Sub Command1_Click( )

x=5

Call s1

Call s2

MsgBox x

End Sub

Private Sub s1( )

x=x+10

End Sub

Private Sub s2( )

Dim x as integer

x=x+10

End Sub

窗体打开运行后，单击命令按钮，则消息框的输出结果是______

在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序： Dim S1 As String,S2 As String Private Sub Form_Load() Text1.Text＝"" Text2.Text＝"" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2 & Chr(Keycode) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 & Chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S2 Text2.Text=S1 S1＝"" S2＝"" End Sub 程序运行后，在Text1中输入“abc”，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为______。

A．abc和ABC

B．abc和abe

C．ABC和abc

D．ABC和ABC

以下程序用于求S=1+3+32+33+…+310的值。

Private Sub Commandl_Click()

S=1

T=1

ForI=1 To 10

T=______

S=S+T

NextI

Print"S="；S

End Sub

假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2 组成。 Model1代码如下： Public X As Integer Public Y As Integer Sub S1（ ） x=1 S2 End Sub Sub S2（ ） y=10 Form1．Show End Sub Model2的代码如下： Sub Main（ ） S1 End Sub 其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是（ ）。

A.Form1→Model1→Model2

B.Model1→Model2→Form1

C.Model2→Model1→Form1

D.Model2→Form1→Model1