【程序说明】 打开银行客户关系表,输入一个控制口令控制程序的执行,若口令为1,则把“银行代码”为001的所有记录加上删除标记;若口令为2,把“银行代码”为002的所有记录加上删除标记;若口令为3,把“银行代码”为003的所有记录加上删除标记。【程序】CLEARUSE 银行客户关系表 EXCLUSIVEBROWSE LASTWATT “请输入你的选择:(1—3)”TO yhdmDO CASECASE (1)DELETE ALL FOR 银行代码=“001”BROWSE ALL FOR 银行代码=“001”RECALLCASE (2)DELETE ALL FOR 银行代码=“002”BROWSE ALL FOR 银行代码=“002”RECALLCASE (3)DELETE ALL FOR 银行代码=“003”BROWSE ALL FOR 银行代码=“003”RECALLENDCASEBROWSEUSE(1)A.yhdm="1"B.yhdm="2"C.yhdm="3"D.OTHERWISE

【程序说明】 打开银行客户关系表,输入一个控制口令控制程序的执行,若口令为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


相关考题:

(1l)假设用户名和口令存储在自由表“口令表”中,当用户输入用户名和口令并单击“登录”按钮时,若用户名输入错误,则提示。“用户名错误”;若用户名输入正确,而口令输入错误,则提示“口令错误”。若命令按钮“登录”的Click事件中的代码如下:USE 口令表GO TOPFlag=0DO WHILE.not.EOFIF Alltrim(用户名)= =Alltrim(Thisfrom.Text1.Value)IF Alltrim(口令)= =Alltrim(Thisfrom.Text2.Value)WAIT"欢迎使用" WINDOW TIMEOUT2ELSEWAIT"口令错误" WINDOW TIMEOUT2ENDIFFlag=1EXITENDIFSKIPENDDOIF ________WAIT"用户名错误"WINDOW TIMEOUT2ENDIF则在横线处应填写的代码是A)flag=-1 B)flag=0 C) flag=1 D)flag=2

假设用户名和口令存储在自由表“口令表”中,当用户输入用户名和口令并单击录”按钮时,若用户名输入错误,则提示“用户名错误”;若用户名输入正确,而口令输入错误,则提示“口令错误”。若命令按钮“登录”的click事件中的代码如 USE 口令表 GO TOP flag=0 DO WHILE.not.EOF0 IF Ailtrim(用户名)=Alltrim(This form.Text1.Value) IF Alltrim(口令)=Alltrim(Thisform.Text2.Value) WA1T"欢迎使用"WIN DOW TIMEOUT2 ELSE WAIT"口令错误" WINDOW TIMEOUT2 ENDIF flag=1 EXIT ENDIF SKIP ENDDO IF______ WAIT"用户名错误"WINDOW TIMEOUT2 ENDIF 则在横线处应填写的代码是A.flag=-1B.flag=0C.flag=1D.flag=2

窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序Private Sub Command1_click()Dim 11If Textl.Text”123456”Thenn=n+1print“口夸输入错误”&n&次”End IfEnd Sub希望程序运行时得到左图所示的效果,即:输入口令,单击“确认口令”命令按钮,若输入的口令不是“123456”,则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果,程序需要修改。下面修改方案中正确的是A.在Dim n语句的下面添加一句:n=OB.把Print“口令输入错误”&n&“次”改为Print“口令输入错误”+n+“次”C.把Print“口令输入错误”&n&“次”改为Print“口令输入错误”&Str(n)&“次”D.把Dim n改为Static n

假设用户名和口令存储在自由表“口令表”中,当用户输入用户名和口令并单击“登录”按钮时,若用户名输入错误,则提示“用户名错误”;若用户名输入正确,而口令输入错误,则提示“口令错误”。若命令按钮“登录”的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=-1B.flag=0C.flag=1D.flag=2

( 24 )窗体上有一个 Text1 文本框,一个 Command1 命令按钮,并有以下程序Private Sub Commandl_Click ()Dim nIf Text1.Text " 23456 " Thenn=n + 1Print " 口令输入错误 " n " 次 "End IfEnd Sub希望程序运行时得到左图所示的效果,即:输入口令,单击 “ 确认口令 ” 命令按钮 , 若输入的口令不是 “ 123456 ” ,则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果,程序需要修改。下面修改方案中正确的是A )在 Dim n 语句的下面添加一句: n=OB )把 Print " 口令输入错误 " n " 次 " 改为 Print " 口令输入错误 " +n+ " 次 "C )把 Print " 口令输入错误 " n " 次 " 改为 Print " 口令输入错误 " Str ( n ) " 次 "D )把 Dim n 改为 Static n

【程序说明】假设用户名和口令存储在自由表“口令表”中,当用户输入用户名和口令并单击“登录”按钮时,若用户名输入错误,则提示“用户名错误”;若用户名输入正确,而口令输入错误,则提示“口令错误”。命令按钮“登录”的Click事件中的代码如下。【程序】USE 口令表GO TOPflag=0DO WHILE (3)IF Alltrim (用户名)= =Alltrim(Thisform. Text1. Value)IF Alltrim (口令)==Alltrim(Thisform. Text2,Value)WAIT“欢迎使用”WINDOW TTMEOUT2ELSEWATT“口令错误” WINDOW TIMEOUT2ENDIFflag=1EXITENDIFSKIFENDDOIF (4)WAIT“用户名错误”WINDOW TIMEOUT2ENPIF(3)A.BOF()B..NOT.BOF()C.EOF()D..NOT.EOF()

窗体上有一-个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=0B.把Print“口令输入错误”&n&“次”改为Print“口令输入错误”+n+“次”C.把Print“口令输入错误”&n&“次”改为Print“口令输入错误”&Str(n)&“次”D.把Dim n改为Static n

假定用户名和口令存储在自由表“口令表”中,当用户输入用户名和口令并单击“登录”按钮时,若用户名输入错误,则提 示“用户名错误”;若用户名输入正确,而口令输入错误,则提示“口令错误”。若命令按钮“登录”的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=-1B.flag=0C.flag=1D.flag=2

假设用户名和口令存储在自由表“口令表”中,当用户输入用户名和口令并单击“登录”按钮时,若用户名输入错误,则提示“用户名错误”;若用户名输入正确,而口令输入错误,则提示“口令错误”。若命令按钮“登录”的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=-1B.flag=0C.flag=1D.flag=2