[填空题]当执行下面的程序时，程序中的第一条命令显示的内容为 【12】 ，第二条命令显示的内容 【13】 SET TALK OFF A=4 B=2 C=1 DO WHILE C＞0 A=A*B B=B+A IF A＞50 A=A-5*C C=C-1 A，B ELSE STORE B-5*C TO B N=B ENDIF ENDDO "N="，N

[填空题]

执行下面程序,单击命令按钮CmdRun后,文本框Text1中第一行显示的内容是（） , 第二行显示的内容是（）。第三行显示的内容是（）。
Option Explicit
Private Sub CmdRun_Click（　）
Dim S As String,Subs As String,P As Integer
S="100101 010110 110101"
Do
P=InStr(S," ")
If P<>0 Then
Subs=Left(S,P-1)
Else
Subs=S
End If
S=Mid(S,P+1)
Text1=Text1 & Complement(Subs) & vbCrLf
Loop Until Len(S)=0 Or P=0
End Sub
Private Function Complement(S As String)As Integer
Dim P As Integer,L As Integer
L=Len(S)
If Left(S,1)=1 Then
Complement=-32
End If
P=1
Do Until P=0
P=InStr(P+1,S,"1")
If P<>0 Then
Complement=Complement+2^(L-P)
End If
Loop
End Function

[填空题]

执行下面程序,单击命令按钮CmdRun后,图片框Pic1第一行显示内容是（）,第二行显示内容是（）,最后一行显示内容是（）。
Option Explicit
Private Sub CmdRun_Click（　）
Dim N As Integer,M As Integer
M=135
N=8
Pic1.Print Fun(M,N)
EndSub
Private Function Fun(ByVal N As Integer,ByVal R As Integer)As String
Dim L As Integer
If N
Fun=N
Else
L=N/R
Fun=Fun(L,R)
Fun=Fun & N Mod R
End If
Pic1.Print N
End Function

[填空题]

执行下面程序,单击命令按钮Command1,窗体上显示的第一行内容是（）,第二行内容是（）,第三行内容是（）.

Option Explicit
Private Sub Command1_Click（　）
Dim a As Integer, b As Integer, i As Integer
a = 1
b = 5
For i = b To a Step -1
a = a + i
b = b + a
If b > 30 Then Exit For
Print a, b
Next i
Print a, b
End Sub

[填空题]

执行下面程序,单击命令按钮Cmd1后,窗体上显示的第一行内容是（）,第二行内容是（）,第三行内容是（）。
Option Explicit
Private Sub Cmd1_Click（　）
Dim st As String,ch As String*1,t As Integer
Dim i As Integer
st="2,3,8,12,32,65#"
For i=1 To Len(st)
ch=Mid(st,i,1)
If ch<>"," And ch<>"#" Then
t=t*10+Val(ch)
Else
If pd(t) Then Print t
t=0
End If
Next i
End Sub
Private Function pd(ByVal n As Integer)As Boolean
Do While n<>1
If n Mod 2<>0 Then
Exit Function
EndIf
n=n/2
Loop
pd=True
End Function

[简答题]请编写名称为change_c的命令程序并执行，该程序实现下面的功能。
(1)将雇员工资表salary进行备份，备份文件名为“bak salar_y.dbf”。
(2)利用“人事部”向“财务部”提供的雇员工资调整表c_salary1的“工资”，对salary表的“工资”进行调整(请注意：按“雇员号”相同进行调整，并且只是部分雇员的工资进行了调整，其他雇员的工资不动)。

[简答题]

①请编写名称为change_c的命令程序并执行，该程序实现下面的功能：将“商品表”进行备份，备份文件名为spbak.dbf；将“商品表”中“商品号”前两位编号为“10”的商品的“单价”修改为出厂单价提高10%；使用“单价调整表”对商品表的部分商品出厂单价进行修改(按“商品号”相同为条件)。
②设计一个名称为form2的表单，上面有“调整”(名称Command1)和“退出”(名称Command2)两个命令按钮。单击“调整”命令按钮时，调用change_ c命令程序实现商品单价调整；单击“退出”命令按钮时，关闭表单。
注意：以上两个命令按钮均只含一条语句，不可以有多余的语句。

[简答题]请编写名称为change_c的命令程序并执行，该程序实现下面的功能。
(1)将“商品表”进行备份，备份文件名为“商品表备份.dbf”。
(2)将“商品表”中“商品号”前两位编号为“10”的商品的“单价”修改为出厂单价的10%。
(3)使用“单价调整表”对商品表的部分商品出厂单价进行修改(按“商品号”相同)。

[简答题]①请编写名称为change_c的命令程序并执行，该程序实现下面的功能：将“商品表”进行备份，备份文件名为spbak.dbf；将“商品表”中“商品号”前两位编号为“10”的商品的“单价”修改为出厂单价提高10%；使用“单价调整表”对商品表的部分商品出厂单价进行修改(按“商品号”相同为条件)。
②设计一个名称为form2的表单，上面有“调整”(名称Command1)和“退出”(名称Command2)两个命令按钮。单击“调整”命令按钮时，调用change_ c命令程序实现商品单价调整；单击“退出”命令按钮时，关闭表单。
注意：以上两个命令按钮均只含一条语句，不可以有多余的语句。

[单项选择]执行下面程序，显示的结果为( )。
public class Test
public static void main (String args[])
Test t=newTest（　）；
System.out.println (Loverload ("2"，"3"))；

int overload (intx，int y) return x+y；
String overload (String x，Stnng y)return x+y；

A. 2
B. 3
C. 5
D. 23

[单项选择]欲执行程序NAME.prg，应该执行的命令是
A. DO PRG NAME.prg
B. DO NAME.prg
C. DO CMD NAME.prg
D. DO FORM NAME.prg

[单项选择]执行下面的程序，单击命令按钮后，窗体中的输出结果是 ______。
Private Sub Cotomand1_Click（　）
Ch$="Welcome Home!"
a=Len(ch$)
For i= 1 To a
b$ = Mid(ch$， i 1)
If b$ = "m" Then m = m + 1
Next 1
Print m
End Sub
A. 2
B. 3
C. 1
D. 0

[单项选择]执行下面这段程序后，单击命令按钮，窗体中输出结果是 ______。 Private Sub Command1_Click（　） a=1 : b=4 : c = 9 : d = 5 If a ＜ b Then If c＜d Then x=True Else If a＜c Then x=False Else x=True End If End If End If Print Val(x) End Sub
A. True
B. False
C. 0
D. 1

[单项选择]欲执行程序temp.prg，应该执行的命令是（）。
A. DO PRG temp.prg
B. DO temp.prg
C. DO CMD temp.prg
D. DO FORM temp.prg

[填空题]

执行下面程序,单击Commandl,则图片框中显示的第一行是（），显示的第二行是（） ，最后一行显示的是 （） 。

Private Sub Command1_Click（　）

Dim a(3，3)As Integer

Dim i As Integer,j As Integer

For i=1 To 3

For j=3 To 1 Step -1

If i>=j Then

a(i,j)=i-j

Else

a(i，j)=j-i

End If

Next j

Next i

For i=1 to 3

For j=3 To 1 Step -1

Picture1.Print a(i,j);

Next j

Picturel．Print

Next i

EndSub

[填空题]执行下面的程序，消息框里显示的结果是 【13】 。 Private Sub Form_Click（　） Dim Str As String， K As Integer Str="ab" For k=Len(Str) TO 1 Step-1 Str=Str & Chr(Asc(Mid(Str，k，1))+k) Next k MsgBox Str End Sub

[填空题]顺序执行下面命令之后，屏幕显示的结果是 [9] 。 INPUT T0 XX &&输入：.T. XX．AND．XX XX