若由程序设定RS1、RS0=10,则工作寄存器R0~R7的直接地址为()
第1题:
程序执行结果s的值是【 】.
Private Sub Command l-Click ()
I =0
Do
S= I +S
I = I + l
Loop Until I >=4
End Sub
第2题:
设有如下程序:
Private Sub Form_Cliok()
Dima As Integer,S As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n>0
Print s
End Sub
以上程序的功能是 [7] ;程序运行后,单击窗体,输出结果为 [8] 。
第3题:
有如下程序 Private Sub Command1_Chck( ) s=0 DO s=(s+1) *(s+2) N=N+1 Loop Until s>=10 Prim N;s End Sub 运行后的输出结果是
A.0 1
B.30 30
C.4 30
D.2 12
第4题:
下列过程的功能是:将当前数据库文件中“学生表”的所有学生“年龄”加1。 Private Sub SetAgeplus2_Click( ) Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim fd As ADODB.Field Dim strConnect As String Dim strSQL As String Set cn=CurrentProject.Connection strSQL=“Select年龄from学生表” rs.Open strSQl,cn,adOpenDynamic,adlockOptimistic,adCmdText set fd=rs.Fields(“年龄”) Do While Not rs.EOF fd=__________ rs.Update rs.__________ Loop rs.Close cn.Close Set rs= Nothing Set cn=Nothing End Sub 横线处应填写的内容是( )。
A.fd-1 0pen
B.fd+1 close
C.fd+1 MoveNext
D.fd-1 Recordset
第5题:
编写如下事件过程: 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.rehcaet
B.tahreee
C.themee
D.eerthea
第6题:
下面程序的输出结果是。 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
第7题:
在窗体中添加一个名称为Commandl的命令按钮,然后编写如下程序: Public x As Integer Private Sub Commandl_click() x=10 Call s 1 Call s 2 MsgBOx x End Sub Pfivate Sub s1() x=x+20 End Sub Private Sub
A.10
B.30
C.40
D.50
第8题:
下列过程的功能是:将当前数据库文件中“学生表”的所有学生“年龄”加1。
Private Sub SetAgeplus2_Click( )
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim fd As ADODB.Field
Dim strConnect As String
Dim strSQL As String
Set cn=CurrentProject.Connection
strSQL=“Select年龄from学生表”
rs.Open strSQl,cn,adOpenDynamic,adlockOptimistic,adCmdText
set fd=rs.Fields(“年龄”)
Do While Not rs.EOF
fd=__________
rs.Update
rs.__________
Loop
rs.Close
cn.Close
Set rs= Nothing
Set cn=Nothing
End Sub
横线处应填写的内容是( )。
A.fd-1 0pen
B.fd+1 close
C.fd+1 MoveNext
D.fd-1 Recordset
第9题:
下列程序运行后的输出结果是______。
Private Sub f(k,s)
s=1
For j=1 To k
s=s*j
Next
End Sub
Private Sub Command1_Click()
Sum=0
For i=1 To 3
Call f(i,s)
Sum=Sum+s
Next
Print Sum
End Sub
第10题:
若由程序设定PSW中的RS1、RS0=01,则工作寄存器R0~R7的直接地址为()
第11题:
m<sub>0</sub><m<sub>e</sub><(x
m<sub>0</sub>=m<sub>e</sub>=(x
m<sub>0</sub>>m<sub>e</sub>>(x
m<sub>e</sub><m<sub>0</sub><(x
第12题:
<p>M<sub>0</sub></p>
<p>M<sub>1</sub></p>
<p>M<sub>2</sub></p>
<p>M<sub>3</sub></p>
第13题:
A、Sub plus(sum, a , b ): sum = a + b: End Sub
B、Sub plus(ByVal sum , a , b ): sum = a + b: End Sub
C、Sub plus(sum , ByVal a, ByVal b ): sum = a + b: End Sub
D、Sub plus(sum , ByRef a , ByRef b ): sum = a + b: End Sub
第14题:
有如下程序: 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
第15题:
有如下程序: 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
第16题:
下列过程的功能是:通过对象变量返回当前窗体的Recordset属性记录集引用,消息
框中输出记录集的记录(即窗体记录源)个数。
Sub GetRecNum()
Dim rs As Obj ect
Set rs=Me.RecordSet
MsgBox
End Sub
程序空白处应填写的是
A.Count
B.rs.Count
C.RecordCount
D.rs.RecordCount
第17题:
写出程序运行的结果
Public class Base
Public virtual string Hello() {return “Base”;}
Public class Sub:Base
Public 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;
第18题:
有如下程序。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1 ( a,B)End Sub Sub Subl(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
D.1 2
第19题:
有如下程序。
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
第20题:
有如下程序: Private Sub Command1 Click() Dim a As Single Dim b As Single a=5:b=4 Call S(a,B)End Sub Sub S(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
第21题:
(35)下列程序的功能是返回当前窗体的记录集
Sub GetRecNum()
Dim rs As Object
Set rs=
MsgBox rs.RecordCount
End Sub
为保证程序输出记录集(窗体记录源)的记录数,空白处应填入的语句是
A)Recordset
B)Me.Recordset
C)RecordSource
D)Me.RecordSource
第22题:
若由程序设定RS1、RS0=10,则工作寄存器R0~R7的直接地址为()
第23题:
<p>U<sub>95</sub>= 1%,v<sub>eff</sub> =9 </p>
<p>U<sub>r</sub>= 1%,k=2 </p>
<p>u<sub>C</sub>=0. 5% </p>
<p>u<sub>C</sub>=±0 5%.k=1 </p>
第24题:
<p>R<sub>s</sub>=9.99993kΩ,U<sub>95</sub>=0.10Ω,k<sub>95</sub>=1.96</p>
<p>R<sub>s</sub>=9.999931kΩ,U<sub>95</sub>=0.10Ω,k<sub>95</sub>=1.96</p>
<p>R<sub>s</sub>=9.99993kΩ,U<sub>95</sub>=102mΩ,k<sub>95</sub>=1.96</p>
<p>R<sub>s</sub>=9.999931kΩ,U<sub>95</sub>=102mΩ,k<sub>95</sub>=1.96</p>