【程序说明】 打开银行客户关系表，输入一个控制口令控制程序的执行，若口令为1，则把“银行代码”为001的所有记录加上删除标记；若口令为2，把“银行代码”为002的所有记录加上删除标记；若口令为3，把“银行代码”为003的所有记录加上删除标记。【程序】CLEARUSE 银行客户关系表 EXCLUSIVEBROWSE LASTWATT “请输入你的选择：(1—3)”TO yhdmDO CASECASE (1)DELETE ALL FOR 银行代码＝“001”BROWSE ALL FOR 银行代码=“001”R
题目
【程序说明】 打开银行客户关系表，输入一个控制口令控制程序的执行，若口令为1，则把“银行代码”为001的所有记录加上删除标记；若口令为2，把“银行代码”为002的所有记录加上删除标记；若口令为3，把“银行代码”为003的所有记录加上删除标记。
【程序】
CLEAR
USE 银行客户关系表 EXCLUSIVE
BROWSE LAST
WATT “请输入你的选择：(1—3)”TO yhdm
DO CASE
CASE (1)
DELETE ALL FOR 银行代码＝“001”
BROWSE ALL FOR 银行代码=“001”
RECALL
CASE (2)
DELETE ALL FOR 银行代码＝“002”
BROWSE ALL FOR 银行代码=“002”
RECALL
CASE (3)
DELETE ALL FOR 银行代码＝“003”
BROWSE ALL FOR 银行代码＝“003”
RECALL
ENDCASE
BROWSE
USE
(1)
A．yhdm＝"1"
B．yhdm＝"2"
C．yhdm="3"
D．OTHERWISE
相似考题
更多“【程序说明】 打开银行客户关系表,输入一个控制口令控制程序的执行,若口令为1,则把“银行代码”为001 ”相关问题
-
第1题：
（ 24 ）窗体上有一个 Text1 文本框，一个 Command1 命令按钮，并有以下程序
Private Sub Commandl_Click （）
Dim n
If Text1.Text<> " 23456 " Then
n=n ＋ 1
Print " 口令输入错误 " & n & " 次 "
End If
End Sub
希望程序运行时得到左图所示的效果，即：输入口令，单击 “ 确认口令 ” 命令按钮 ， 若输入的口令不是 “ 123456 ” ，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是
A ）在 Dim n 语句的下面添加一句： n=O
B ）把 Print " 口令输入错误 " & n & " 次 " 改为 Print " 口令输入错误 " +n+ " 次 "
C ）把 Print " 口令输入错误 " & n & " 次 " 改为 Print " 口令输入错误 " &Str ( n ) & " 次 "
D ）把 Dim n 改为 Static n
正确答案：D
-
第2题：
窗体上有一-个Text1文本框，一个Command1命令按钮，并有以下程序：
Private Sub Command1 Click（ ） Dim n If Text1．Text<>"123456"Then n=n+1 Print"口令输入错误”＆n＆”次" End If End Sub
希望程序运行时得到左图所示的效果，即：输入口令，单击“确定口令’’命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是（ ）。A.在Dim n语句的下面添加一句：n=0
B.把Print“口令输入错误”＆n＆“次”改为Print“口令输入错误”+n+“次”
C.把Print“口令输入错误”＆n＆“次”改为Print“口令输入错误”＆Str(n)＆“次”
D.把Dim n改为Static n
正确答案：D
D。【解析】本题要实现的功能是当输入错误口令时，在窗体上显示输入错误口令的次数，本题若要正确记录输入错误的次数，应把n定义成静态变量n。 -
第3题：
假设用户名和口令存储在自由表“口令表”中，当用户输入用户名和口令并单击“登录”按钮时，若用户名输入错误，则提示“用户名错误”；若用户名输入正确，而口令输入错误，则提示“口令错误”。若命令按钮“登录”的Click事件中的代码如下： USE 口令表 GO TOP flag =0 DO WHILE .not.EOF（） IF Alltrim（用户名）==Alltrim（Thisform.Text1.value） If Alltrim（口令）＝＝Alltrim（Thisform.Text2.value） WAIT\"欢迎使用\"WINDOW TIMEOUT2 ELSE WAIT\"口令错误\"WINDOW TIMEOUT2 ENDIF flag=1 EXIT ENDIF SKIP ENDDO IF —————— WAIT\"用户名错误\"WINDOW TIMEOUT2 ENDIF 则在横线处应填写的代码是
A．flag=-1
B．flag=0
C．flag=1
D．flag=2
正确答案：B
-
第4题：
【程序说明】假设用户名和口令存储在自由表“口令表”中，当用户输入用户名和口令并单击“登录”按钮时，若用户名输入错误，则提示“用户名错误”；若用户名输入正确，而口令输入错误，则提示“口令错误”。命令按钮“登录”的Click事件中的代码如下。
【程序】
USE 口令表
GO TOP
flag＝0
DO WHILE (3)
IF Alltrim (用户名)= ＝Alltrim(Thisform. Text1. Value)
IF Alltrim (口令)＝＝Alltrim(Thisform. Text2，Value)
WAIT“欢迎使用”WINDOW TTMEOUT2
ELSE
WATT“口令错误” WINDOW TIMEOUT2
ENDIF
flag＝1
EXIT
ENDIF
SKIF
ENDDO
IF (4)
WAIT“用户名错误”WINDOW TIMEOUT2
ENPIF
(3)
A．BOF()
B．.NOT.BOF()
C．EOF()
D．.NOT.EOF()
正确答案：D
解析：表头测试函数的格式：BOF([工作区号＞/别名＞])
功能：当记录指针指向表文件的首记录之前(表头)时，该函数值为.T.，否则返回.F.。输出值类型为逻辑型。[工作区号＞/别名＞]用于指定工作区，缺省为当前工作区。
表尾测试函数的格式：EOF([工作区号＞/别名＞])
功能：当记录指针指向表文件的末记录之后(表尾)时，该函数值为.T.，否则返回.F.。输出值类型为逻辑型。[工作区号＞/别名＞]用于指定工作区，缺省为当前工作区。本题DO WHILE循环的条件应是当到达表的末尾时，退出DO WHILE循环。 -
第5题：
假定用户名和口令存储在自由表“口令表”中，当用户输入用户名和口令并单击“登录”按钮时，若用户名输入错误，则提 示“用户名错误”；若用户名输入正确，而口令输入错误，则提示“口令错误”。若命令按钮“登录”的Click事件中的代码 如下： USE口令表 GO TOP flag=0 DO WHILE．not．EOF() IF Alltrim(用户名)==Alltrim(Thisform．Text1．Value) IF Alltrim(口令)==Alltrim(Thisform．Text2．Value) WAIT"欢迎使用”WINDOW TIMEOUT2 ELSE WAIT“口令错误”WINDOW TIMEOUT2 ENDIF flag=1 EXIT ENDIF SKIP ENDDO IF________ WAIT“用户名错误”WINDOW TIMEOUT 2 ENDIF 则在横线处应填写的代码是
A．flag=-1
B．flag=0
C．flag=1
D．flag=2
正确答案：B
解析：本题在DO循环的第一个IF条件语句中，如果判断文本框中输入的用户名和数据表中的用户名一致，则给变量 flag赋值为1，反之，变量flag的值仍然为0。然后通过最后一个IF条件语句判断，如果flag的值为0的话，则表示 用户输入的用户名在表中不存在，提示用户名错误。