两相干波源S1和S2的振动方程分别是y1=Acos（ωt+φ）和y2=Acos（ωt+φ+π）。S1距P点3个波长，S2距P点4.5个波长．设波传播过程中振幅不变，则两波同时传到P点时的合振幅是（）。
以下程序用于求S=1+3+32+33+…+310的值。Private Sub Commandl_Click()S=1T=1ForI=1 To 10T=______S=S+TNextIPrint"S="；SEnd Sub
点击查看答案
在窗体中添加一个名称为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．10B．30C．40D．50
设字符串s1='ABCDEFG',s2='PQRST',则运算s=CONCAT(SUB(s1，2，LEN(s2))，SUB(s1，LEN(s2，2))后的串值为(65)。A．'ABCDEFEF'B．'BCDEFG'C．'BCPQRST'D．'BCQR'
假定一个工程由一个窗体文件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→Model2B.Model1→Model2→Form1C.Model2→Model1→Form1D.Model2→Form1→Model1
编写如下事件过程： Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i＞= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form. Click() Dim s1 As String, s2 As String s1= "teacher" sub1 s1, s2 Print s2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是A．rehcaetB．tahreeeC．themeeD．eerthea
写出程序运行的结果Public class BasePublic virtual string Hello() {return “Base”;}Public class Sub:BasePublic override string Hello() {return “Sub”;}1. Base b = new Base(); b.Hello;2. Sub s = new Sub(); s.Hello;3. Base b = new Sub (); b.Hello;4. Sub s = new Base(); s.Hello;
下面程序的输出结果是。 Private Sub Commandl_Click ch$=“ABCDEF” proc ch：Print ch End Sub Private Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=s&Mid(ch，k，1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F
