Private Sub Command1_Click()
Dim x As Integer, y As Integer x = 10 y = 15
Call proc(x, y) Print x, y End Sub
Public Sub proc(a As Integer, ByVal b As Integer)
a = a * b x = a + b b = b + 100 End Sub A．10 165 C．165 15
B．150 15 D．150 115
26．在Visual Basic 中，为了使一个复选框被禁用（灰色显示），应把它的Value属性设置
为.........................................................（ ） A．0 C．2
B．1 D．False
27．在Visual Basic中，有如下程序段。程序运行后，单击命令按钮，在输入对话框中依次输入25，33，
55，66，输出结果是.................................（ ） Private Sub Command1_Click()
Dim x As Integer, y As Integer，a As Integer x = 100 For i = 1 To 4
y = InputBox(\请输入一个整数\If y Mod 5 = 0 Then a = a + y x = y Else
a = a + x End If Next i Print a End Sub A．160
B.100
5
C．120 D．90
B．SET MENU TO DEFAULT D．SET SYSMENU TO DEFAULT
28．在Visual Foxpro中，恢复系统菜单默认设置的命令是...................（ ）
A．SET DEFAULT SYSTEM C．SET SYSTEM TO DEFAULT
29．在Visual Foxpro中，如果指定参照完整性的“删除规则”为“级联”，则当删除父表中的记录
时...................................................（ ） A．系统自动备份子表相关记录到一个新表中 B．若子表中有相关记录，则禁止删除父表中记录 C．会自动删除子表中所有相关记录
D．不作参照完整性检查，删除父表记录与子表无关
30．在Visual Foxpro中，在DO WHILE……ENDDO循环结构中LOOP语句的作用是..（ ）
A．转移到DO WHILE语句行，开始下一次判断和循环
B．终止循环，将控制转移到本循环结构ENDDO后面的第一条语句继续执行 C．该语句在DO WHILE……循环结构中不起任何作用 程序开始处
31．在Visual Foxpro中，下列表达式返回结果为.T.的是.....................（ ）
A．AT(\计算机\电子计算机\B．TYPE(\C．\计算机系统结构\计算机\．SUBSTR(STR(120),3,1)=\
32．在Visual Foxpro中，下列关于查询的描述正确的是......................（ ） </