RX1230上的L1=8表示在L1载波上收到8颗卫星信号。
第1题:
窗体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···
第2题:
以下能够正确计算n!的程序是
A.Private Sub Command1_Chck( ) n=5:x=1 Do x=x*i i=i+1 Loop While i<n Print x End Sub
B.Private Sub Command1_Click( ) n=5:x=1:i=l Do x=x*i i=i+1 Loop While i<n Print x End Sub
C.Private Sub Command1_Click( ) n=5:x=1:i=l Do x=x*i i=i+1 Loop While i<=n Print x End Sub
D.Private Sub Command1_Click( ) n=5:x=1:i=l Dox=x*i i=i+1 Loop While i>n Print x End Sub
第3题:
有以下程序:
Private Sub Form_Activate()
For j=1 to 3
x=3
For i=l to 2
x=x+6
Next
Next
Print x
End Sub
程序运行后,窗体上显示的结果为______。
第4题:
在窗体上画两个标签和一个命令按钮,其名称分别为Labe11、Labe12和Command1,然后编写如下程序: Private SUb fune(L As Label,By Val a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form. Load() LabeCaptlon="ABCD" LabeCapfion=10 End Sub Private SUb Command1_Click() a=Val(Label2.Caption) Callfunc(Labell,A)LabeCaption=a End Sub 程序运行后,单击命令按钮,在两个标签Labe11和Labe12中显示的内容分别是______。
A.ABCD和10
B.1234和100
C.ABCD和100
D.1234和10
第5题:
有如下程序: 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
第6题:
执行下列程序,输入框中显示的默认字符串为上【 】:
Private Sub Command l_Click ()
Input Box”ok”“输入参数”,Format(”GHl2”’
End Sub
第7题:
在窗体上添加文本框Text1,然后编写下列程序: Private Sub Form_Load() Text1.Text=" " End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Char=Chr(KeyAscii+1) KeyAscii=Asc(Ucase(Char)) End Sub Private Sub Command1_Click() Print Text1.Text End Sub 程序运行后,在文本框中依次输入1、2、3、a、b、c,单击命令按钮,则窗体上显示的内容是
A.23BCD
B.ABC
C.!@#ABC
D.123abc
第8题:
在窗体上画两个标签和一个命令按钮,其名称分别为Labell、Label2和Command1,然后编写如下程序: Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Labell,A)Label2.Caption=a End Sub 程序运行后,单击命令按钮,在两个标签Label1和Label2中显示的内容分别是 ______。
A.ABCD和10
B.1234和100
C.ABCD和100
D.1234和10
第9题:
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序: Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Label1,A)Label2.Caption=a End Sub 程序运行后,单击命令按钮,在两个标签Label1和Label2中显示的内容分别是: ______。
A.ABCD和10
B.1234和100
C.ABCD和100
D.1234和10
第10题:
下列程序的输出结果是【 】。
Private Sub Command l Click()
Dim a(1 TO 20)
Dim i
For i=1 TO 20
a(i)=i
Next i
For Each i In a()
a(i)=20
Next i
Print a(2) End Sub